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]);