Re: Tips and Tricks for XP to 7'

new topic     » goto parent     » topic index » view thread      » older message » newer message

O.K. I made mistake in my code it should be:

 
global procedure adjForWindows7(integer id) 
   sequence s 
   integer h 
   s = getRect( id ) 
  h=s[4]-s[2] 
  h=floor(h+h*.06) 
  setRect(id,s[1],--left 
             s[2],--top 
             s[3]-s[1],--width  
             h,--height 
             1) 
end procedure 
 
 
Don Cole 
 
 
 
 
[/quote] 
new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu