bild_thumbnail.Canvas.Create;
falsch.
das canvas wird automatisch erzeugt, wenn das bild ausmaße größer (0,0) hat.
rec_bild :=bounds(0,0, bild.Canvas.Width, bild.Canvas.Height);
falsch.
angenommen, das wären TBitmaps, wenn dan soo:
rec_bild.SetBounds(...)
Delphi-Quellcode:
rec_thumbnail :=bounds(bild_thumbnail.Left,bild_thumbnail.Top, bild_thumbnail.Width,
bild_thumbnail.Height);
dito
bild_thumbnail.Canvas.CopyRect(rec_thumbnail, bild.canvas,rec_bild);
falsch. Copyrect skaliert nicht. nimm stretchdraw, müsste bei TBitmap member sein.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1