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

[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.

[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;

[Uwe Raabe]

Zitat von 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;

Sieht für mich irgendwie falsch aus!

Der Event wird für jede Zelle im Grid aufgerufen, zeichnet aber immer nur zwischen Pixel 1 und 10 (macht also für jede Spalte immer wieder das gleiche, solange die Bedingung in der Zeile zutrifft), was übrigens spätestens bei geänderten Metriken für die FixedColumn zu einem Problem werden kann.

Leider gibt es keinen Event, der aufgerufen wird, wenn die FixedColumn gezeichnet wird. Insofern ist es schon ein akzeptabler WorkAround, den Event einer anderen Spalte heranzuziehen - die Betonung liegt aber da auf eine.

Die Breite der Indicator-Spalte steht übrigens in ColWidth[0].

Bei Brush.Color = clRed und Font.Color = clRed kann man auch gleich ein FillRect nehmen. Eventuell muss man das Rect dann vorher um 1 Pixel schrumpfen, um die Gitterlinien nicht zu übermalen.