Image zoom beim Editieren ?

[thomas2009]

Hallo

Es is mit Sicherheit wichtig beim Zeichnen auf Image mit Zoom zu arbeiten
Ich kann zum Beispiel mit diesem Code das Image zoomen aber wenn ich versuche auf
das Image danach zu zeichnen, dann zeichne ich wo anderes und nicht wo ich den Cursor angeklickt habe !

Delphi-Quellcode:

var
StartImgWidth, StartImgheight : Integer; 
begin
StartImgWidth:=Image1.Picture.Width;
StartImgheight:=Image1.Picture.height;
Image1.Stretch:=True;
Image1.autosize:=False;
Image1.Width:=Trunc(StartImgWidth * TrackBar1.Position / 10);
Image1.Height:=Trunc(StartImgHeight * TrackBar1.Position / 10);
//...

Gibt es eine andere Möglichkeit ?