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
haya
Posted - Sep 15 2019 : 02:01:11 hello how to increase or decrease the sizes of thumbnails in TImageEnMView by pressed CTRL and mouse wheel?
7 L A T E S T R E P L I E S (Newest First)
xequte
Posted - Sep 18 2019 : 17:04:26 Yes, sorry.
Please email me for an update. You can use the OnViewChange event as follows:
procedure TMyForm.ImageEnMViewOnViewChange(Sender: TObject; Change: integer);
begin
// Restrict zoom to range of 50 - 200
if ( Change = 1 ) and ( Zoom < 50 ) then
Zoom := 50
else
if ( Change = 1 ) and ( Zoom > 200 ) then
Zoom := 200;
end;