StringGrid -> Eine Zelle zweifarbig, oder halbfarbig ?

[shmia]

Du brauchst eine Procedure zum halbieren eines Rechtecks.

Delphi-Quellcode:

// Rect ist das Eingabe Rechteck
// RectA und RectB sind die Ausgaberechtecke 
procedure HalfRectVertical(const Rect:TRect; var RectA, RectB:TRect);

Und hier jetzt die Herausforderung an dich:
schreibe die procedure HalfRectVertical und HalfRectHorizontal und ab in die Code-Library.

Und später:

Delphi-Quellcode:

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