Ausschnittvergrößerung (Lupe)

[catweasel]

Moin

Ich suche im Moment ein Beispiel zu einer Ausschnittvergrößerung (Lupen-Funktion) eines Bitmaps oder JPG-Bildes. Ich konnte zwar ein paar Beispiele für Delphi finden, aber ich bekomme sie nicht unter Lazarus zum laufen.
Kennt jemand ein entsprechendes Beispiel für Lazarus?

Gruß und noch frohe Weihnachten
Michael

[theo]

Mit
Bitmap.Canvas.CopyRect
und
Bitmap.Canvas.StretchDraw
sollte das klappen.

[catweasel]

Mit
Bitmap.Canvas.CopyRect
und
Bitmap.Canvas.StretchDraw
sollte das klappen.

Danke. Den Ausschnitt mit CopyRect habe ich hinbekommen, aber irgendwie will StretchDraw noch nicht. Ich habe stattdessen

Code: Alles auswählen

image2.Stretch:=true

sowie

Code: Alles auswählen

image2.Proportional:=true

gesetzt.
Ist das vom Ergebnis her identisch? Wie gesagt. StretchDraw habe ich noch nicht hinbekommen.

Gruß
Michael

[theo]

Ist das vom Ergebnis her identisch?

Wenn dir das reicht, dann ist das schon OK.