RICHEDITBOX "Zoom" with CTRL + WHEEL

[AUGE_OHR]

hi,

i notice that i can use CTRL + WHEEL in a RICHEDITBOX

but when "load" new Data it have "old Size"

i have try

Code: Select all

   IF IsControlDefined( "RichEdit_1", "SHOWMEMO" )
      nFONTSIZE := GetProperty( "SHOWMEMO", "RichEdit_1", "FONTSIZE" )
      nZoom     := GetProperty( "SHOWMEMO", "RichEdit_1", "ZOOM" )
       
      SetProperty( "SHOWMEMO", "RichEdit_1", "Value", TRIM( FORUM->CODE ) )

      SetProperty( "SHOWMEMO", "RichEdit_1", "ZOOM" , nZoom)
      SetProperty( "SHOWMEMO", "RichEdit_1", "FONTSIZE" , nFONTSIZE*nZoom)

      DO EVENTS

is there a Way to "stay" on "Zoom-Level"