VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, [2], 3, 4, 5, 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 13:29:03 12/05/03 Fri
Author: Dave Bracken
Subject: You have probably already answered this but...Help!

I need to know how to limit zooming in on an image to a certain percent. I tried testing the zoompercent in onzoomchanged, but that did not work. You can see it in the following code:

procedure TForm1.ImageScrollBox1ZoomChange(const Sender: TImageScrollBox;
const Zoom: Single);
begin
if ZoomedMax then begin

exit;
end;
if ImageScrollBox1.ZoomPercent > 200 then begin
Screen.Cursor := crHourGlass; //this also does not work?
Application.ProcessMessages;
ImageScrollBox1.ZoomPercent := 200;
ZoomedMax := true;
Screen.Cursor := crDefault;
end;

Hpos := ImageScrollBox1.HorzScrollBar.Position;
Vpos := ImageScrollBox1.VertScrollBar.Position;
end;

I tried to look through your example, and could not find any indication there either.
I need to limit this because it severely slows down my system, and takes up quite alot of memory to zoom very large.

I would appreciate any help you can give.

Thanks,
Dave

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Replies:

[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.