Delphi-PRAXiS - Delphi GDI-Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)

- - Delphi GDI-Problem (https://www.delphipraxis.net/6697-gdi-problem.html)

So, ich denke, jetzt ist endlich Schluss mit den WndProcs...

Jetzt versuch ich mich an der GDI, aber Luckies Mini-Tutorial mag mir nicht so recht helfen. Ich will in meinem Fall bei einem Button-Click zeichnen, nicht nach Erhalt von WM_PAINT. Folgenden Code benutze ich:

Delphi-Quellcode:

			var

  DC: HDC;

  Brush, OldBrush: HBRUSH;

begin 

  DC := GetDC(hParent);

  Brush := CreateSolidBrush(RGB(255, 0, 0));

  OldBrush := SelectObject(DC, Brush);

  Rectangle(DC, 0, 50, 0, 50);

  SelectObject(Dc, OldBrush);

  DeleteObject(Brush);

  ReleaseDC(hParent,DC);

end;

hParent ist das Handle des Fensters, dem das Listview gehört, in das ich Zeichnen will. Ach ja, wenn ich stattdessen das Handle des Listview einsetze, passiert genau das Gleiche: Es wird nichts gezeichnet. Was mach ich falsch?

Moin Chewie,

schau Dir doch lieber noch einmal die Parameter von Rectangle an.
Du zeichnest einen Punkt ;-)

Autsch... :wall:

Danke vielmals. Ich glaub, ich geh jetzt erstmal einen trinken. Schönes Wochenende.

Zitat:

Zitat von Chewie

Autsch... :wall:

Danke vielmals. Ich glaub, ich geh jetzt erstmal einen trinken. Schönes Wochenende.

Deinem Fehler nach zu urteilen, dachte ich, du wärst gerade vom Trinken gekommen. :roll: