[TStringGrid] Zelle löschen/ausblenden

[Keldorn]

achso,

denn blende die Linien aus (govertline,gohorizline=false) und zeichne die Linien einfach selbst
als Anregung:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as Tstringgrid do
    begin
      if acol+arow<7 then
        begin
          ///Hintergrund noch zeichen
          ...
          canvas.pen.Color:=clLtGray;
          canvas.MoveTo(rect.Right,Rect.Top);
          canvas.LineTo(rect.Right,Rect.Bottom);
          canvas.LineTo(rect.Left,Rect.Bottom);
          ///Text noch zeichen
          ...
        end;
    end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  CanSelect:=(acol+arow)<7;
end;

Mfg Frank