DBCtrlGrid Selektiertes Panel nur teils färben ... Wie?

[Sharky]

Hai Martin,

ich habe mal schnell ein Beispiel getippt welches in jedem Panel am oberen Rand eine farbige Linie zeichnet. Das ganze kannst Du ja so anpassen wie Du es gerne haben möchtest.

Delphi-Quellcode:

procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;
  Index: Integer);
var
  wert : Integer;
  farbe : TColor;
begin
// Anhand des Wertes in dem Feld "Tag" wird entschieden welche Farbe verwendet wird.
  wert := DBCtrlGrid.DataSource.DataSet.FieldByName ('tag').AsInteger;
  Case wert of
   1 : farbe := clred;
   2 : farbe := clblue;
   3 : farbe := clgreen;
  end;
  with DBCtrlGrid1.Canvas do     // Zeichenfläche des Panels
  begin
    Pen.Color := farbe;    // Stiftfarbe setzen
    Pen.Width := 5;        // Stiftstärke setzen
    MoveTo(0, 0);          // Stift nach oben links auf dem Panels
    LineTo(PanelWidth,0);  // Linie bis oben rechts
  end;
end;