|
Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
Delphi 3 Professional
|
Re: TStringGrid: GridColor
29. Nov 2005, 22:59
Hallo,
Zitat von FriFra:
Über den Canvas komme ich immer nur an die Fläche zwischen den Gridlines heran  ... damit kannst Du in OnDrawCell die GridLines übermalen:
Delphi-Quellcode:
if (ACol >= StringGrid1.FixedCols) and (ARow >= StringGrid1.FixedRows) then
begin
StringGrid1.Canvas.Pen.Color := clBlue;
StringGrid1.Canvas.Rectangle(Rect.Left-1,Rect.Top-1,Rect.Right+1,Rect.Bottom+1);
StringGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,StringGrid1.Cells[ACol,ARow]);
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
|
Zitat
|