RICHEDITBOX "Zoom" with CTRL + WHEEL
Posted: Fri Aug 12, 2022 4:04 am
hi,
i notice that i can use CTRL + WHEEL in a RICHEDITBOX
but when "load" new Data it have "old Size"
i have try
is there a Way to "stay" on "Zoom-Level" 
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