TImage Zoom

[Davidlocke13]

Hallo

Bin Delphi einsteiger und habe ein Problem mit einer Zoom Funktion !

habe ein TImage und will das jetzt mit jeweils einem Button verkleiner bzw. vergrößern aber keine Ahnung wie ich das hinbekommen !?
Im TImage ist ein JPG geladen das nachher wehrend dem Anwendungslauf vergrößert werden soll

Könnt ihr mir da helfen ?

Gruß David ;-)

[DeddyH]

Billigste Lösung: Stretch, Center und Proportional des TImage auf true stellen und dieses dann vergrößern/verkleinern. Beispiel:

Delphi-Quellcode:

NewWidth := round(DeinImage.Width * 1.25);
NewHeight := round(DeinImage.Height * 1.25);
DeinImage.Width := NewWidth;
DeinImage.Height := NewHeight;

Das sieht vermutlich nicht besonders toll aus, aber probier es mal.

[Davidlocke13]

THX für deine Schnelle Antwort aber so 100 Blicke ich da noch nicht durch !

Wo soll der CODE hin und was soll ich da genau eintragen ;-)

Sorry das ich mich da was schwer tue und danke für deine Hilfe

[DeddyH]

Das oben sollte ein Beispielcode sein, der das Image (DeinImage genannt) um 25% vergrößern soll, er gehört also in das OnClick des "Größer"-Buttons. NewWidth und NewHeight sind dabei lokale Integer-Variablen.

[Davidlocke13]

Ah ok das verstehe ich jetzt schon besser noch mal Danke

[Davidlocke13]

So schaut das jetzt bei mir aus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
NewWidth,NewHeight: Integer;

begin
NewWidth := round(Image1.Width * 1.25);
NewHeight := round(Image1.Height * 1.25);
Image1.Width := NewWidth;
Image1.Height := NewHeight;
end;

Nur da passiert bei mir leider nix !

Gruß

[Medium]

Zitat:

Zitat von DeddyH (Beitrag 1183529)

Stretch, Center und Proportional des TImage auf true stellen

Hast du diese Dinge auch getan?

[DeddyH]

Und Autosize auf false, hatte ich noch vergessen.

[Davidlocke13]

Mein Fehler das Teil darf bei Align nicht auf alClient sein ! ;-)

THX für eure Hilfe geht jetzt

[Davidlocke13]

In meiner TScrollBox geht das jetzt auch ordentlich !