OpenEuphoria

Tips and Tricks for converting Euphoria programs written to run on XP so they'll run correctly on Windows 7

--resize Window for Windows 7 
global procedure adjForWindows7(integer id) 
   sequence s 
   integer h 
     s = getRect( id ) 
     h=s[4]-s[2]--bottom-top (height) 
     h=floor(h+h*.06)--add 6% 
       setRect(id,s[1],--left 
                  s[2],--top 
             s[3]-s[1],--right-left (width|)  
                     h,--height 
                     1)--repaint 
end procedure 

Don Cole