AjusteScroll for all textheight

[jmburnod]

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

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

I am sure that you have an idea
Thank one more

Jean-Marc

[Curry]

Gotta calculate margins too.

[jmburnod]

Hi Curry,

Thank for reply but the margins = 0

Jean-Marc