DBGrid1 färben

[Alterauge]

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
begin
if Column.Index = 2 then begin {nummer der spalte im dbgrid}
    aValue:= Column.Field.asString; {suchbegriff auslesen}
    if aValue = 'Erfasst' then begin
      DBGrid1.Canvas.Brush.Color := clred;
end;
end;
end;

geht nicht ? was ist falsch

[mkinzler]

Was bedeutet geht nicht?
http://delphi.about.com/od/vclusing/l/aa072203a.htm

[Alterauge]

die zeile färb sich nicht ein !

wenn in der spalte 3 = der wert Erfasst steht!
dann soll sich die zeile färben!

[fkerber]

Hi,

hast du ownerdraw auf True stehen?


LG, Frederic

[Alterauge]

hey ???

wo stelle ich das ein ? finde nix?

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
begin
if Column.Index = 2 then begin {nummer der spalte im dbgrid}
    aValue:= Column.Field.asString; {suchbegriff auslesen}
    if aValue = 'Erfasst' then begin
      DBGrid1.Canvas.Brush.Color := clred;
end;
end;
end;

[Alterauge]

hier ! habe selber eine lösung gefunden!

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
begin
if Column.Index = 1 then begin {nummer der spalte im dbgrid}
    aValue:= Column.Field.asString; {suchbegriff auslesen}
    if aValue = 'Erfasst' then begin
      DBGrid1.Canvas.Brush.Color := clYellow;
      DBGrid1.Canvas.Font.Color := clblack
    end else begin
      DBGrid1.Canvas.Brush.Color := clWhite;
      DBGrid1.Canvas.Font.Color := clblack
    end;
  DBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

[Alterauge]

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var
  aValue: string;
begin
if Column.Index = 1 then begin {nummer der spalte im dbgrid}
    aValue:= Column.Field.asString; {suchbegriff auslesen}
    if aValue = 'Erfasst' then begin
      DBGrid1.Canvas.Brush.Color := clYellow;
      DBGrid1.Canvas.Font.Color := clred
    end else begin
      DBGrid1.Canvas.Brush.Color := clWhite;
      DBGrid1.Canvas.Font.Color := clblack
    end;
  DBGRid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;

end.

wie bekomme ich das hin, dass die ganze zeile gelb gefärbt wird?

delphi 5