Hallo. Lade ein Bild in TImage und durch schiebebalken soll das Bild vergrößert sein. Weist jemand wie man am schlauesten macht?
Ich verschieben den TTrackBar:
Delphi-Quellcode:
procedure Tf_kalkulation_schaden.tbr_zoomChange(Sender: TObject);
begin
IF tbr_zoom.Position > Position Then // Vergrößern
begin
Image.Height := Image.Height+50;
Image.Width := Image.Width+50;
end;
IF tbr_zoom.Position < Position Then // Verkleinen
begin
Image.Height := Image.Height-50;
Image.Width := Image.Width-50;
end;
Position := tbr_zoom.Position; // Position ist eine Globale Variable von Typ Integer
end;
Mein Problem ist, wenn ich das Bild auf maximum vergröße und dann zurück gehe, habe ich nicht die Bildgröße, dich ich anfangs hatte.