Mal wieder CopyRect

[zyrano80]

Hallo,

habe eben schon einmal geschrieben, die Elektronik hat das anscheinend verschluckt. Also habe jetzt mehrere Stunden erfolglos mit CopyRect probiert, die bereits vorhandenen Threads dazu halfen mir nicht. Wäre super, falls ihr mir helft.

Da ich jetzt nicht alles noch einmal schreiben will die Kurzfornm: Also ich lasse in eine Canvas mehrere Bitmaps zeichnen, danach möchte ich von dieser Canvas ein Thumbnail anlegen. Das Thumbnail lasse ich mir als Bild testweise anzeigen. Allerdings bleibt es immer komplett schwarz, weiß jemand woran das liegt. Code siehe unten, allerdings nur der fragliche Abschnitt. Bevor weitere Anmerkungen dazu kommen: die canvas-objekte sind beide mit create instanziert, das porgramm läuft ansonsten fehlerfrei und wird asuch ohne fehlermeldungen kompiliert.

bild_thumbnail.Canvas.Create;
rec_bild :=bounds(0,0, bild.Canvas.Width, bild.Canvas.Height);
rec_thumbnail :=bounds(bild_thumbnail.Left,bild_thumbnail.Top, bild_thumbnail.Width,
bild_thumbnail.Height);
bild_thumbnail.Canvas.CopyRect(rec_thumbnail, bild.canvas,rec_bild);

Vielen Dank im Voraus, gruß zyrano80

PS.: Auf Funktionen der win32-Api würde ich dabei gerne verzichten

[Namenloser]

Zitat:

Zitat von zyrano80

bild_thumbnail.Canvas.Create;

Diese Zeile tut nix. Es muss heißen:
bild_thumbnail.canvas := TCanvas.Create;

Wenn bild_thumbnail ein bitmap ist:

bild_thumbnail := TBitmap.Create;

[zyrano80]

Ok,

danke für den Hinweis, allerdings erhalte ich jetzt den Compilerfehler "No member is provided to access property" . bild_thumbnail ist vom Typ TImage.

Gruß zyrano

[DGL-luke]

Delphi-Quellcode:

 bild_thumbnail.Canvas.Create;

falsch.
das canvas wird automatisch erzeugt, wenn das bild ausmaße größer (0,0) hat.

Delphi-Quellcode:

rec_bild :=bounds(0,0, bild.Canvas.Width, bild.Canvas.Height);

falsch.
angenommen, das wären TBitmaps, wenn dan soo:

Delphi-Quellcode:

rec_bild.SetBounds(...)

Delphi-Quellcode:

rec_thumbnail :=bounds(bild_thumbnail.Left,bild_thumbnail.Top, bild_thumbnail.Width,
bild_thumbnail.Height);

dito

Delphi-Quellcode:

bild_thumbnail.Canvas.CopyRect(rec_thumbnail, bild.canvas,rec_bild);

falsch. Copyrect skaliert nicht. nimm stretchdraw, müsste bei TBitmap member sein.

[Namenloser]

Zitat:

Zitat von zyrano80

Ok,

danke für den Hinweis, allerdings erhalte ich jetzt den Compilerfehler "No member is provided to access property" . bild_thumbnail ist vom Typ TImage.

Gruß zyrano

Aso.

[DGL-luke]

Bei TImage müsstest du auf Picture.TBitmap zugreifen können, WENN ein bitmap vorliegt.

[Namenloser]

Wenn noch nichts anderes in das TPicture geladen wurde, liegt aber standartmäßig immer ein bitmap vor.

[DGL-luke]

nö... standardmäßig liegt da überhaupt nix... :gruebel:

EDIT: Stretchdraw kann man ja direkt übers TGraphic laufen lassen, dann is es eh wurscht.