Reply to Problem mit TJPEGImage bzw. zeichnen in einem Panel on Fri, 23 Jun 2006 21:15:47 GMT

XesperantoX — Fri, 23 Jun 2006 21:15:47 GMT

Hallo,
ich hab da mal eine Frage zu TJPEGImage, bzw zum Zeichnen in einem Panel, habe folgenden Code. Kann mir entweder das Rechteck das gezeichnet wird in einem Panel anzeigen lassen, oder die Grafik als jpeg abspeichern. Möchte aber eigentlich beides... Der Unterschied an den beiden Varianten ist eigentlich nur die Sache mit dem Handle. Ohne das Handle zum Panel wird die Grafik nur gespeichert und mit dem Handle wird sie nur angezeigt...

void __fastcall TMainApplication::Panel1Click(TObject *Sender)
{
	HDC hdc = GetDC(Panel1->Handle);
	TImage *bild = new TImage( this);

	bild->Picture->Bitmap->Width= Panel1->Width;
	bild->Picture->Bitmap->Height= Panel1->Height;

	bild->Picture->Bitmap->Canvas->Pen->Color = RGB(255,0,0);
	//bild->Picture->Bitmap->Canvas->Handle=hdc;
	bild->Picture->Bitmap->Canvas->Rectangle(10,10,Panel1->Width-10,Panel1->Height-10);

	TJPEGImage *jpg = new TJPEGImage();
	jpg->Assign(bild->Picture->Bitmap);
	jpg->SaveToFile("test.jpg");
}
//erzeugt jpg mit Rechteck aber keine Anzeige

//ODER

void __fastcall TMainApplication::Panel1Click(TObject *Sender)
{
	HDC hdc = GetDC(Panel1->Handle);
	TImage *bild = new TImage( this);

	bild->Picture->Bitmap->Width= Panel1->Width;
	bild->Picture->Bitmap->Height= Panel1->Height;

	bild->Picture->Bitmap->Canvas->Pen->Color = RGB(255,0,0);
	bild->Picture->Bitmap->Canvas->Handle=hdc;
	bild->Picture->Bitmap->Canvas->Rectangle(10,10,Panel1->Width-10,Panel1->Height-10);

	TJPEGImage *jpg = new TJPEGImage();
	jpg->Assign(bild->Picture->Bitmap);
	jpg->SaveToFile("test.jpg");

}
//->erzeugt nur ein weißes Bild ohne das Rechteck!

Grüße
Sascha

Reply to Problem mit TJPEGImage bzw. zeichnen in einem Panel on Fri, 23 Jun 2006 22:09:10 GMT

Braunstein — Fri, 23 Jun 2006 22:09:10 GMT

Würde es im oberen Code nicht reichen

bild->Parent = Panel1;

einzufügen um das Bild anzuzeigen.

Reply to Problem mit TJPEGImage bzw. zeichnen in einem Panel on Sun, 25 Jun 2006 22:27:31 GMT

XesperantoX — Sun, 25 Jun 2006 22:27:31 GMT

Okay, dank dir! Jetzt klappt es so wie ich's gern hätte!