bsClear für nonVCL

[Neutral General]

Hi,

Ich färbe per nonVCL den Hintergrund meines Formulars ein. Und zwar eventuell auch mit "Hatched" Brushes.

Delphi-Quellcode:

// im WndProc unter WM_ERASEBKGND
with bkColorTag do
begin
  lbStyle := BS_HATCHED;
  lbColor := FColor;
  lbHatch := Integer(FbkStyle)-1;
end;
bkColor := CreateBrushIndirect(bkColorTag);
FillRect(Message.WParam,Rect(0,0,Width,Height),bkColor);

Funktioniert auch wunderbar aber wähle ich jetzt z.B. HS_CROSS als Hatch-Style dann hab ich zwischen den lbColor-gefärbten Linien weiße Kästchen. Die würde ich gerne transparent haben oder falls es eine Möglichkeit gibt eine Farbe statt des weißes festzulegen wär mir das auch recht. Würde dann sowieso erst mit ner Hintergrund-Hintergrundfarbe grundieren und dann mit nem transparenten Hatch-Brush drüber was das gleiche Ergebnis liefern würde. Weiß jemand wie das geht?

Hab mal en Bild angehangen mit nem Hintergrund mit Hatch-Brush (HS_CROSS) und blauer Farbe. Zwischen den blauen Linien kann man die weißen Kästchen entdecken.

PS: Wobei das ganze würde gar nicht bsClear entsprechen oder?^^

Gruß
Neutral General