TipsAndTricksXpToWindows7
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
Not Categorized, Please Help
|