Stringgrid

[hoika]

Hallo,

etwas ausführlicher

Delphi-Quellcode:

procedure TForm1.Grid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  X1, X2, Y: Integer;
  iHeight: Integer;
begin
  X1:= Rect.Left;
  X2:= Rect.Right;
  iHeight:= (Rect.Bottom-Rect.Top) div 2;
  Y:= Rect.Top+iHeight;
  Grid1.Canvas.MoveTo(X1, Y);
  Grid1.Canvas.LineTo(X2, Y);
end;

Heiko