StringGrid -> Eine Zelle zweifarbig, oder halbfarbig ?

[Hawkeye219]

Hallo,

eine kleine Ergänzung:

Delphi-Quellcode:

HalfRectVertical(Rect, RectA, RectB);
Canvas.Brush.Color := clSilver;
Canvas.FillRect(RectA);
Canvas.Brush.Color := clGreen;
Canvas.FillRect(RectB);
Canvas.Brush.Style := bsClear;  // <--- damit der Text transparent ausgegeben wird
// der Text wird weiterhin auf dem Gesamtrechteck ausgegeben
Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);

Gruß Hawkeye