BitBld und Anzeige in Image

[nezumi7]

Nabend allerseits,

ich versuche bei einem Bitmap (bmp1) die Kanten abzuschneiten und das Ergebnis (bmp2) in einem TImage anzuzeigen.

So gehts:

Code:

procedure TForm1.Button5Click(Sender: TObject);
var
breite, hoehe: integer;
begin
breite := bmp1.Width-5;
hoehe := bmp1.Height-7;
BitBlt(image2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
end;

so aber nicht:

Code:

procedure TForm1.Button5Click(Sender: TObject);
var
breite, hoehe: integer;
begin
breite := bmp1.Width-5;
hoehe := bmp1.Height-7;
BitBlt(bmp2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
Image2.Picture.Bitmap := bmp2;
end;

In Image2 erscheint schlicht gar nix. Ich hätte aber gerne diese Variante. Was mache ich falsch?

Gruß, Stephan.

[patti]

Man zeichnet nicht direkt auf die Canvas einer TImage-Komponente! Wenn doch, dann muss die Komponente wohl "gerefreshed" werden. Nimm aber lieber eine PaintBox zur Ausgabe der Grafik.

mfg

Edit: Das mit dem Refresh bzw. Neuzeichnen sollte auch bei deiner zweiten Variante helfen...

Edit2: Willkommen übrigens in der Delphi-Praxis

[nezumi7]

Hi Patti,

Zitat von patti:

Man zeichnet nicht direkt auf die Canvas einer TImage-Komponente!

ja, auch deshalb will ich ja die zweite Variante. Ich glaube der Fehler liegt eher bei der Zeile BitBlt...

Das mit dem Refresh hab ich nich verstanden. So gehts jedenfalls auch nicht:

Code:

BitBlt(bmp2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
Image2.Picture.Bitmap := bmp2;
Image2.Refresh;

grübel, grübel...

[rollstuhlfahrer]

Zitat von nezumi7:

Code:

BitBlt(bmp2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
Image2.Picture.Bitmap := bmp2;
Image2.Refresh;

Da ist noch ein klitzekleiner Fehler drin. Das muss heißen: Image2.Picture.Graphic.Assign().

Bernhard

[nezumi7]

Hi Bernhard,

Code:

BitBlt(bmp2.Canvas.Handle,0,0,breite,hoehe,bmp1.Canvas.Handle,0,0,SRCCOPY);
Image2.Picture.Graphic.Assign(bmp2);

geht auch nicht, da kommt dann eine Fehlermeldung (EAccessViolation ...)

[rollstuhlfahrer]

Klingt sehr komisch. Hast du dein Bitmap auch richtig erstellt?

Bernhard