DBGrid - Rahmen um ausgewählte Zeile einfärben

[Tyler]

Hallo,

Delphi-Quellcode:

 If ((qHistory.RecNo mod 2) = 0) then
  begin
    grHistory.Canvas.Brush.Color := frmMain.GridGeradeColor;
    grHistory.DefaultDrawColumnCell(Rect, 0, Column, State);
  end;
  if (gdSelected in State) then
  begin
  with grHistory.Canvas do
    begin
      Brush.Color := frmMain.GridSelColor;
      Font.Color := frmMain.GridSelFontColor;
      Font.Size := frmMain.GridSelFontSize;
    end; // with
  end; // begin
  grHistory.DefaultDrawColumnCell(Rect, DataCol, Column, State)

So siehts bei mir aus im OnDrawColumnCell meines DBGrid´s... läuft ja soweit auch ganz gut, aber um das ganze optisch noch mehr abzuheben, würde ich gerne um die ausgewählte Zeile einen feinen roten Rahmen ziehen.

Nur weiss ich erstens nicht, nach welchem Stichwort ich da suchen könnnte... "Grid Row Color" etc.pp., und in der Hilfe werd ich auch nicht sonderlich fündig.

Vielleicht habt ihr ne Idee?

thx
tyler

[Niko]

Hi,

du kannst den Rahmen doch einfach selber mit Rectangle bzw. LineTo zeichnen.

Was mir noch aufgefallen ist: Die obere DefaultDrawColumnCell-Anweisung müsste man weglassen können.

[Tyler]

Zitat:

Zitat von Niko

Hi,

du kannst den Rahmen doch einfach selber mit Rectangle bzw. LineTo zeichnen.

Was mir noch aufgefallen ist: Die obere DefaultDrawColumnCell-Anweisung müsste man weglassen können.

mit der DefaultDraw hast du afaik recht.. ^^ ... naja, ich hab die proc so nach und nach zusammen gebastelt :D

Ich dachte nur folgendes: Wenn ich meine o.g. proc rauslasse, also ein Standard-gefärbtes Grid habe, ist die aktuelle Zeile (Zelle) auch immer mit einem dünnen gestrichelten Rahmen umgeben, und den hätte ich gerne eingefärbt.