Jetzt habe ich es auch endlich:
Habe alle Cellen 24 Breit und daher kann ich nun die Uhrzeiten dort grafisch abbilden.
Delphi-Quellcode:
procedure HalfRectVertical(const Rect:TRect; var RectA, RectB:TRect; VON: Integer; BIS: Integer);
begin
RectA := Rect;
RectB := Rect;
RectB.Left := RectB.Left + VON;
RectB.Right := RectB.Right - (24 - BIS);
end;
Brett habe ich endlich entfernt.
Gruss
Holger