forum-msg-id-133871-edit

Original date:2019-05-23 16:20:07 Edited by: ghaberek Subject: Re: tiny little question about win32lib

Herewith follows a short example program

--  code generated by Win32Lib IDE v1.0.4 Build July-06-2008 
 
constant TheProgramType="exw"  
  
include Win32lib.ew 
without warning 
 
constant win = createEx( Window, "DEMONSTRATION WINDOW", 0, Default, Default, 474, 326, 0, 0 ) 
constant pb_2 = createEx( PushButton, "QUIT", win, 20, 232, 124, 28, 0, 0 ) 
setFont( pb_2,"Arial",14,Normal+Bold) 
constant pb_1 = createEx( PushButton, "generate", win, 268, 232, 124, 28, 0, 0 ) 
setFont( pb_1,"Arial",14,Normal+Bold) 
 
procedure pb_2_onClick (integer self, integer event, sequence params) 
closeApp () 
end procedure 
setHandler( pb_2, w32HClick, routine_id("pb_2_onClick")) 
 
procedure pb_1_onClick (integer self, integer event, sequence params) 
setFont (win, "Consolas",12,Normal) 
wPuts({win,15,20},"Hello to the world, yet Again!") 
wPuts({win,15,40},"Now that text is on screen grab Window") 
wPuts({win,15,55},"Top bar & Move it so part of text") 
wPuts({win,15,70},"Leaves the monitor (off the edge)") 
wPuts({win,15,85},"Now, move it back to starting position.") 
wPuts({win,15,120},"Notice vanishing text AND unaffected control...") 
end procedure 
setHandler( pb_1, w32HClick, routine_id("pb_1_onClick")) 
 
WinMain( win,Normal ) 

Not Categorized, Please Help

Search



Quick Links

User menu

Not signed in.

Misc Menu