fixed Cols im Stringgrid

[Niko]

Hi,

das einfachste dürfte es sein, du deaktivierst goFixedVertLine und zeichnest dir die Linien in der zweiten Zeile selbst:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ARow = 1 then
  with (Sender as TStringGrid).Canvas do
  begin
    Pen.Color := clBtnHighlight;
    MoveTo(Rect.Left, Rect.Top);
    LineTo(Rect.Left, Rect.Bottom);
    Pen.Color := clBtnShadow;
    MoveTo(Rect.Right - 1, Rect.Top + 1);
    LineTo(Rect.Right - 1, Rect.Bottom);
    Pen.Color := cl3DDkShadow;
    MoveTo(Rect.Right, Rect.Top);
    LineTo(Rect.Right, Rect.Bottom);
  end;
end;

Einen kleinen Schönheitsfehler hat das ganze, denn die Linien werden am oberen Rand der Zellen von den horizontalen weißen überzeichnet. Wenn das wirklich stören sollte, müsstest du die horizontalen Linien auch noch selbst zeichnen.