Note: You must be registered in order to post a reply. To register, click here. Registration is FREE!
T O P I C R E V I E W
PeterPanino
Posted - Jun 28 2020 : 04:34:59 It seems that changing the ZOOM from the ImageEnView Toolbar does not trigger the TImageEnView OnZoomIn and OnZoomOut event handlers:
I need this to update a Zoom percentage display:
procedure TformMain.imgMainZoomIn(Sender: TObject; var NewZoom: Double);
begin
ShowZoom;
end;
procedure TformMain.imgMainZoomOut(Sender: TObject; var NewZoom: Double);
begin
ShowZoom;
end;
3 L A T E S T R E P L I E S (Newest First)
PeterPanino
Posted - Jun 29 2020 : 11:49:04 Eureka! This one did the trick:
procedure TformMain.FormCreate(Sender: TObject);
begin
ImageEnView1.Proc.UndoLimit := 100;
end;
PeterPanino
Posted - Jun 29 2020 : 11:10:15 Hi Nigel,
thanks, now it works!
BTW, the UNDO button on the toolbar has only ONE undo-step:
There is no TImageEnView.UndoSteps: Integer property.
I have tried to put this into the FormCreate event-handler:
ImageEnView1.Proc.AutoUndo := True;
But it seems it has no effect.
How can I increase the number of the Toolbar Undo steps to a custom value?
xequte
Posted - Jun 29 2020 : 00:43:45 Hi
Please use the OnViewChange event for this. It covers all methods that might affect zoom level.
Search
