Handel-Zeichnen

[theomega]

Hallo
warum geht dieser Code nicht?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var hd:HDC;
Brush: HBRUSH;
Pen: HPEN;
hd2:HDC;
begin
Brush := CreateSolidBrush(RGB(255,0,0));
SelectObject(hd, Brush);
Pen := CreatePen(PS_SOLID, 3, RGB(75,0,255));
SelectObject(hd, Pen);
Rectangle(hd, 10, 10, 375, 100);


hd2 := getdc(0);
BitBlt(hd2,20,20,50,50,hd,0,0,SRCCOPY );
end;

es sollte eingetlich in der linken oberen ecke ein Rechteck erscheinen. Das ganze ist als Beispiel gedacht, deshalb auch die Aktion mit dem BitBlt!

Danke

TO

[Christian Seehase]

Moin The Omega,

die Variable hd wird nicht initialisiert, und ist somit kein DC Handle, also geht das SelectObject wohl auch daneben.

[theomega]

Ja, genau da liegt mein Problem: ICh will das Objekt nur temporär haben, also nicht sichbar. Dann hilft mir "getdc" auch nicht weiter!

[d3g]

Hi theomega,

was du dafür brauchst, sind CreateDC() und DeleteDC().

MfG,
d3g

[theomega]

was ist den dann daran falsch?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var hd:HDC;
Brush: HBRUSH;
Pen: HPEN;
hd2:HDC;
begin
hd := createdc('Display',nil,nil,nil);
Brush := CreateSolidBrush(RGB(255,0,0));
SelectObject(hd, Brush);
Pen := CreatePen(PS_SOLID, 3, RGB(75,0,255));
SelectObject(hd, Pen);
ellipse(hd,0,0,50,50);

hd2 := getdc(form1.Handle);
BitBlt(hd2,200,200,50,50,hd,0,0,SRCCOPY );

DeleteDC(hd);
end;

warum entsteht aber ein zweiter Kreis in der rechten oberen Ecke meines Bildschirms? Eignetlich müßte ja bloß einer auf meinem Form sein!

[Luckie]

Nö. Mit 'Display' holst du dir das Handle vom Desktop. Soll der Kreis nur auf deiner Form landen, mußt du dir mit GetDC und dem Fenster-Handle den DC holen und mit ReleaseDC wieder freigeben.

[theomega]

Ich brauche aber eine temporäres Object, also eins, das nicht angeziegt wird!

[TReg]

CreateCompatibleDC wäre Temporär.....

[Flocke]

Außerdem solltest du die Geister, die du rufst, auch wieder gehen lassen:

CreateSolidBrush -> DeleteObject
CreatePen -> DeleteObject
GetDC -> ReleaseDC