von TPaintbox in TImage kopieren

Ein Thema von Tannendiess · begonnen am 30. Apr 2007 · letzter Beitrag vom 1. Mai 2007

Registriert seit: 28. Feb 2004
10 Beiträge

Delphi 7 Professional

30. Apr 2007, 17:37

Hallo,

ich möchte ein Bild von einer TPaintbox in ein TImage kopieren.

Habe dafür folgenden Code geschrieben, der auch funktioniert:

Delphi-Quellcode:

			bild2: TImage;

bild: TPaintBox;

...

for y:=1 to bild.height do for x:=1 to bild.width do bild2.Canvas.Pixels[x,y]:=bild.Canvas.Pixels[x,y];

Aber geht das nicht auch irgendwie über "Assign" oder so? Habe das leider nicht hinbekommen...

Danke schonmal!

Es ist dir nicht erlaubt, neue Themen zu verfassen.

Es ist dir nicht erlaubt, auf Beiträge zu antworten.

Es ist dir nicht erlaubt, Anhänge hochzuladen.

Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.

Smileys sind an.

[IMG] Code ist an.

HTML-Code ist aus.

Refbacks are aus

Gehe zu: