Zeichnen auf Image mit zoom

[thomas2009]

Hallo,

ich suche eine Lösung, wie man die Image zoomt und dann drauf zeichnet
Das ist meine erste Idee um einen Zoom Faktor zu berechnen
Vielleicht hat jemand noch eine bessere Idee

Meine Frage ist folgendes :
Ist die Berechnung mit Trunc oder Round nicht so gefährlich und nicht genauer, wenn ich beim Zeichnen den berechneten Faktor verwende ?

Delphi-Quellcode:

var
  Form1: TForm1;
  zoom: Real;

implementation

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if Trackbar1.Position > 10 then begin
zoom:=Trackbar1.Position-10; end;

if Trackbar1.Position = 10 then begin
zoom:=1; end;

if Trackbar1.Position < 10 then begin
zoom:=Trackbar1.Position/10; end;

Edit1.Text:= FloatToStr(zoom);

//Image1.Stretch:=True;
//Image1.autosize:=False;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Trackbar1.Position:=Trackbar1.Position+2;
Image1.Width:=Round(Image1.Picture.Width*zoom);
Image1.Height:=Round(Image1.Picture.Height*zoom);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Trackbar1.Position:=Trackbar1.Position-2;
Image1.Width:=Round(Image1.Picture.Width*zoom);
Image1.Height:=Round(Image1.Picture.Height*zoom);
end;

end.