AjusteScroll for all textheight
Posted: Sat May 29, 2010 7:35 pm
Hi All,
I have a script to ajust the scroll of a field to avoid middle line
It work fine with a textheight 18 but not with all textSizes
I am sure that you have an idea
Thank one more
Jean-Marc
I have a script to ajust the scroll of a field to avoid middle line
It work fine with a textheight 18 but not with all textSizes
Code: Select all
on AjustScroll f --•• avoid middle line
put the textheight of fld f into LeLS2
put the scroll of fld f into CurScroll
put round(CurScroll/LeLS2) into nb
put round(nb*LeLS2) into LeScroll
set the scroll of fld f to LeScroll
end AjustScroll
Thank one more
Jean-Marc