Hallo Hansa,
habe jetzt mal einen Screenshot angefügt. Prinzipiel soll nachher mal jede Zeile im Grid so aussehen, wie die obere im Bild. Die unteren 3 Zeilen sind der aktuelle Stand. Hier kann man sehen, daß der Abstand oberhalb des Textes um ein vielfaches größer ist, als oben. Wenn das Problem mit dem Abstand gelöst ist, geht es auch gleich mit edem schwarzen Rahmen weiter. Zur Zeit wird die dicke weiße Trennlinie im OnDraw erzeugt:
Code:
with grid.Canvas do
begin
Pen.Color := clwhite;
Pen.Width := 3;
Pen.Style := psSolid;
MoveTo(Rect.left-1, Rect.Bottom);
Lineto(Rect.right-1, Rect.Bottom);
end;
Da müßte dann Wahrscheilich noch der schwarze Rahmen um die komplette Zeile rein und evtl. auch die Position des Textes?? Danke euch.