hallo, habe das gleiche Problem.
bei mir werden die Zeilen eingefärbt,
wenn ich jetzt ziemlich schnell mit der maus über die zeilen scrolle flackert es
Delphi-Quellcode:
procedure TForm2.dbGridMonitordDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Wert: String;
begin
if (dbGridMonitord.DataSource.DataSet.RecordCount = 0) then
begin
dbGridMonitord.Visible := false;
end else
begin
Wert := rettungsdienst.FieldByName('sub').Value;
if Wert = '1' then begin
dbGridMonitord.Canvas.Brush.Color := clgreen;
dbGridMonitord.Canvas.Font.Color := clWhite;
end else if Wert = '0' then begin
dbGridMonitord.Canvas.Brush.Color := clFuchsia;
dbGridMonitord.Canvas.Font.Color := clBlack;
end else if Wert = '2' then begin
dbGridMonitord.Canvas.Brush.Color := clHotLight;
dbGridMonitord.Canvas.Font.Color := clWhite;
end else if Wert = '3' then begin
dbGridMonitord.Canvas.Brush.Color := clSilver;
dbGridMonitord.Canvas.Font.Color := clGray;
end else begin
end;
dbGRidMonitord.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;