SelectObject(hDC, hPen)

[d3g]

Hallo Forum,

ja, schon wieder ich und meine Device Contexts... Also, alles was ich will, ist mit bestimmtem Font und bestimmten Vorder- und Hintergrundfarben mit DrawText etwas auf einen DC zu zeichnen. Das mit dem Font funktioniert auch, nur mit Pen und Brush hab ich meine Probleme.

Code:

  winDC := GetDC(hWnd);
  Font := CreateFont(-MulDiv(8, GetDeviceCaps(winDC, LOGPIXELSY), 72),
                     0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS,
                     CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH,
                     'MS Sans Serif');

  SelectObject(winDC, Font);
  SelectObject(winDC, PEN_LIME);
  SelectObject(winDC, COLOR_BLACK);
  DrawText(winDC, PChar(s), Length(s), r, DT_TOP or DT_RIGHT);
  DeleteObject(Font);
  ReleaseDC(hWnd, winDC);

LIME_PEN und COLOR_BLACK sind korrekte Werte, SelectObject() funktioniert. GetStockObject führt nur dazu, dass SelectObject() fehlschlägt.

Ich hoffe, ihr könnt mir helfen.

Danke im Voraus,
d3g

[edit]Da hat was mit dem Code-Kopieren nicht geklappt...[/edit]