Canvas - Bild verkleinern

[PierreB]

Moin,

ich hab mir jetzt mal ein bissl die Grafikprogrammierung angeguckt und stecke hier fest:

Ich hab ein Bild in einem TImage, ist 1024 x 768 Pixel groß. Diese möchte ich ihn um die Hälfte verkleinern und dann aufs Form zeichen. Ums aufs Form zu zeichnen benutze ich:

Delphi-Quellcode:

Canvas.Draw(50, 20, Image1.Picture.Graphic);

Das funktioniert auch gut, nur leider ist das Bild zu groß. Wie kann ich das was ich mittels Canvas aufs Form zeichne verkleinern ?


Thx

[Keldorn]

Delphi-Quellcode:

canvas.stretchdraw(...)

rechen aber nicht mit schönem Aussehen. Dafür kannst du interpolation-Algos verwenden oder du nutzt was fertiges.

Mfg frank

[jfheins]

Mit StretchBlt (bzw. StretchBlt) müsste sowas gehen ;)

Allerdings ist die Qualität nicht sooo berauschend ...

Mit der GR32-Lib geht's bestimmt auch ... GR32 ... :love: :mrgreen:

[PierreB]

Hoi ihr beiden,

dankeschön erstmal, mal gucken obs mit Stretch noch halbwegs passabel aussieht. ;)

[PierreB]

Danke nochmal, es ging so wie ich mir das vorgestellt habe.