OpenEuphoria

1. New Thread ---- Similar or Same Problem -- 3 Executes of app--- Now Works fine Only one execution

• Posted by Selgor Jun 21, 2010
• 1093 views

Hello,..

Selgor here...

For those interested...

Programme now works O.K. ..

Derek.. It was not too complicated.

Just a bit of illogical programming on my part.. or maybe my explanations need a little more finesse ...

This programme is a real hash.. hack of HOV & Hover in Win32Lib Demos..

But, it now works as I wanted it to work ..

Desktop window.. Hover Mouse over image ... window expands .. Buttons,Icons set.. Click on image choice 4 app launch... App launches then ... Window returns to Desktop window.. Resizes ..

Thanks to CoJoba who suggested the w32HClick ...

Anyway ... thank you ... 2 all ....

Cheers..

Selgor

Programme :=

 
-------------------------------------Slider.exw   Version 3.02 
 
without warning 
include win32lib.ew 
 
object setpath4bitmaps 
 
integer Slider, 
        img1,img2,img3,img4,img5, 
        b1,b2,b3,b4,b5 
 
        b2=0 b3=0 b4=0 b5=0 
 
sequence bm,bsize 
 
Slider=create(Window,"",0,25,52,50,50,{WS_POPUP,WS_BORDER,WS_VISIBLE}) 
 
setWindowBackColor(Slider,{255,254,27})  -- Yellow 
 
setpath4bitmaps = setSearchPaths("c:\\Ike\\Slide") 
 
bm = {loadBitmapFromFile("o1.bmp"    ), 
      loadBitmapFromFile("Kal.bmp"   ), 
      loadBitmapFromFile("Picasa.bmp"), 
      loadBitmapFromFile("Target.bmp"), 
      loadBitmapFromFile("sh1.bmp"   ), 
      loadBitmapFromFile("o2.bmp"    ) } 
 
bsize = {getSize(bm[1]), getSize(bm[2])} 
 
img1 = create(Bitmap,   "", Slider,  12, 12, 30, 30, 0) 
img2 = create(Bitmap,   "", Slider,  54, 12, 30, 30, 0) 
img3 = create(Bitmap,   "", Slider,  85, 12, 30, 30, 0) 
img4 = create(Bitmap,   "", Slider, 116, 12, 30, 30, 0) 
img5 = create(Bitmap,   "", Slider, 147, 12, 30, 30, 0) 
 
b1=create(PictureButton,"", Slider,  10,  8, 30, 30, 0) 
 
setMousePointer( {Slider,img1,img2,img3,img4,img5,b1}, 
                  "c:\\Ike\\Slide\\hnd1.cur" ) 
 
 
procedure Set(integer pointer, integer event, sequence params) 
   setBitmap(img1, bm[1]) 
end procedure 
 
procedure Mouse(integer pointer, integer event, sequence params) 
   integer x 
   integer ready_2_go       ready_2_go = 0 
 
   x = params[2] 
 
   if x < 7 or x > bsize[1][3]+7 then 
      ready_2_go = 2 
   end if 
 
   if ready_2_go = 2  then 
      b2=create(PictureButton,"",Slider,  52,8,30,30,0) 
      b3=create(PictureButton,"",Slider,  83,8,30,30,0) 
      b4=create(PictureButton,"",Slider, 114,8,30,30,0) 
      b5=create(PictureButton,"",Slider, 145,8,30,30,0) 
 
      setBitmap(img1, bm[6]) 
      setBitmap(img2, bm[2]) 
      setBitmap(img3, bm[3]) 
      setBitmap(img4, bm[4]) 
      setBitmap(img5, bm[5]) 
 
      setClientRect(Slider, 
                   (getSystemMetrics(SM_CXDLGFRAME)*60), 
                   (getSystemMetrics(SM_CYDLGFRAME)*16)) 
 
    end if 
end procedure 
 
procedure Click(integer pointer, integer event, sequence parms) 
   if pointer = img2  then         --- or img1 img3 img4 img5 
      shellExecute( "open", "C:\\EUPHORIA\\Win32LIB6006\\Demo\\EuLornch.exw",SW_SHOWNORMAL) 
      -------- launches App ONLY once !! 
      setClientRect(Slider, 
                   (getSystemMetrics(SM_CXDLGFRAME)*16), 
                   (getSystemMetrics(SM_CYDLGFRAME)*16)) 
   elsif pointer = img3  then         --- or img1 img3 img4 img5 
      shellExecute( "open", "C:\\EUPHORIA",SW_SHOWNORMAL) 
      -------- launches App ONLY once !! 
      setClientRect(Slider, 
                   (getSystemMetrics(SM_CXDLGFRAME)*16), 
                   (getSystemMetrics(SM_CYDLGFRAME)*16)) 
   end if 
    
   setBitmap(img1, bm[1]) 
 
   -------------------- Rest of Apps 2 Launch go here .. as above . 
 
end procedure 
 
setHandler( Slider,                             w32HActivate, routine_id("Set"  )) 
setHandler( Slider,                             w32HMouse   , routine_id("Mouse")) 
setHandler({Slider,img1,img2,img3,img4,img5,b1},w32HClick   , routine_id("Click")) 
 
WinMain(Slider, Normal)