DBGrid -> Zeilenkopf farblich ändern

[HolgerCW]

Hallo zusammen,

ich weiß zwar wie man in einem DBGrid den Titel einer Spalte farblich ändert, aber wie geht das bei dem Zeilenkopf bzw. Zeilentitel ?

So habe ich es bei dem Titel gelöst:

DBGrid1.Columns[0].Title.Color := clsilver; Gruss

Holger

[Blup]

Was ist mit Zeilenkopf gemeint, die Zellen einer fixierten Spalte?

Die Hintergrundfarbe für alle fixierten Zeilen und Spalten mit DBGrid.FixedColor.
Ansonsten hilft für individuelle Einfärbung nur selber zeichnen.

[HolgerCW]

Wie kann ich denn diese "fixierte Farbe" für die eine spezielle Zeile ändern ?

Mit DBGrid.FixedColor kann man ja nur die Farbe ALLER fixierten Zeilen und Spalten ändern.

Gruss

Holger

[Bernhard Geyer]

Zitat von HolgerCW:

Wie kann ich denn diese "fixierte Farbe" für die eine spezielle Zeile ändern ?

Wie eigentlich immer bei Grids: Selbst zeichnen im OnDraw(Cell?)-Event

[HolgerCW]

Hallo,

habe so angefangen:

Delphi-Quellcode:

procedure TFOrm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin

 if (DataModule1.Query1['PLANUNGSTERMIN'] < Date) AND (Column.FieldName = 'PLANUNGSTERMIN') then
 begin

  DBGrid1.Canvas.Brush.Color := clyellow;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

 end;

end;

So ändere ich die Farbe in einer Zelle, nur wie mache ich das mit der fixierten Zelle ganz links ?

[HolgerCW]

Lösung:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 MyRect :TRect;
begin

if (DataModule1.Query1['PLANUNGSTERMIN'] < Date) then
 begin

  MyRect := Rect;

  DBGrid1.Canvas.Brush.Color := clred;
  DBGrid1.Canvas.Font.Color := clred;

  MyRect.Left := 1;
  MyRect.Right := 10;

  DBGrid1.DefaultDrawColumnCell(MyRect, DataCol, Column, State);

 end;
end;

[Perlsau]

Zitat von HolgerCW:

Wie kann ich denn diese "fixierte Farbe" für die eine spezielle Zeile ändern?
Mit DBGrid.FixedColor kann man ja nur die Farbe ALLER fixierten Zeilen und Spalten ändern.

Wenn du nur in der fixierten Spalte (rechts) die Farbe für eine ganz bestimmte Zeile, also eine ganz bestimmte Zelle ändern möchtest, dann geht das mit OnDrawCell deiner StringGrid-Komponente. Diese Procedure wird vor dem Zeichnen des Stringgrids aufgerufen. Darin kannst du dann deine Bedingung (wenn z.B. eine bestimmte Zelle diesen oder jenen Wert aufweist) eingeben und die enstprechende Zelle mit einer anderen Farbe unterlegen.