Wiki Diff TipsAndTricksXpToWindows7, revision #4 to tip
\\
== Tips and Tricks for converting Euphoria programs written to run on XP so they'll run correctly on Windows 7
<eucode>
--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
</eucode>
Don Cole
== Tips and Tricks for converting Euphoria programs written to run on XP so they'll run correctly on Windows 7
== Tips and Tricks for converting Euphoria programs written to run on XP so they'll run correctly on Windows 7
<eucode>
--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
</eucode>
Don Cole
