Font.Style ist für Brush nicht geeignet.
Brush hat auch 'nen Style. Mögliche Werte sind:
type TBrushStyle = (bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross);
(zumindest in Delphi 7)
Zitat von
Delphi 7 Hilfe:
Color (Eigenschaft von TBrush)
Beschreibung
Mit der Eigenschaft Color kann die Pinselfarbe festgelegt werden. Mit dieser Farbe wird das Muster gezeichnet, das durch die Eigenschaft Style festgelegt ist, nicht der Hintergrund des TBrush-Objekts (es sei denn, die Eigenschaft Style ist auf bsSolid gesetzt).