hallo,
ich komm einfach nicht mehr weiter...
ich möchte einfach das image auf der Form in der Größe ändern/ darstellen, sodaß man das Gefühl hat, man guckt sich das näher an/ zoomt.
Richtig harter Code ist das ja nicht - ich will ja nur beim Betrachten zoomen.
also ich hab in der Form.keypress die Abfrage, welche Taste gedruckt wurde + oder -.
Verkleinern klappt auch gut, aber beim Vergrößern schiebt er das Bild irgendwie immer mehr nach links..
habe auch mal ein kleines Video gemacht, das das Problem verdeutlichen soll.
http://www.youtube.com/watch?v=0FhcV0J0Xg4
So stell ich mir den idealen Zoom vor: [Acdsee 2.40]
http://www.youtube.com/watch?v=rJkOxM1jNCI
wünschenswert wäre natürlich, daß ich von dem Punkt, der gerade in der Bildschirmmitte ist zoomen kann. Daß der auch auf dem Punkt zentiert bleibt. Beim Buch holt man ja auch nicht näher ran und schiebt es dann nach jedem Ranholen zentiert ins Blickfeld.
Evtl. sollte ich auch die Werte ändern? - Gibt es idealere ? (bei 1280x1500 - Laptop)
Ich hoffe, ich konnte Euch bei der Beschreibung des Problems Informationen geben und
Ihr habt eine Idee, wie ich das schnell lösen kann.
jetzt schon mal DANKE
Delphi-Quellcode:
procedure TBild_Form.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = '+' then poswin(1);
if key = '-' then poswin(2);
end;
procedure poswin(button: integer);
if button = 1 then begin // Vergrößern +
with Anzeige_Form do begin
image1.Width := image1.Width * 2;
image1.Height := Image1.Height * 2;
image1.left := image1.Left - ( image1.Width - image1.left) div 2;
Anzeige_Form.image1.Center := true;
end;
end;
if button = 2 then begin // verkleinern -
with Anzeige_Form do begin
image1.Width := image1.Width div (2 * factor);
image1.Height := Image1.Height div (2 * factor);
image1.Top := (Height - image1.Height) div (2 * factor);
image1.left := (width - image1.width) div (2 * factor);
end;
end;