DBGrid in selektierter Zeile wird Text doppelt angezeigt

[philubb]

Hi

Habe ein Problem mit einem DBGrid.
Befüllen und alles klappt, auch das jede zweite Zeile eine andere Farbe hat.

Nun möchte ich, auch die Schrift der einzelnen Zeilen, je nachdem mit welchem Wert sie befüllt sind ändern.

Das mache ich in OnDrawColumnCell so:

Delphi-Quellcode:

  if cdsAnlagen_VKN.FieldByName('HIERARCHIE').AsString = 'Oberanlage' then
  begin
    dbGridAnlage_VKN.Canvas.Font.Style := [fsBold];
  end;

  if (( cdsAnlagen_VKN.RecNo mod 2) = 0) then
    dbGridAnlage_VKN.Canvas.Brush.Color := $D3D3D3;

  if cdsAnlagen_VKN.FieldByName('HIERARCHIE').AsString = 'Ersatzanlage' then
  begin
    dbGridAnlage_VKN.Canvas.Font.Color := $7C7C7C;
    dbGridAnlage_VKN.Canvas.Font.Style := [fsItalic];
  end;

  dbGridAnlage_VKN.DefaultDrawColumnCell(Rect, 0, Column, State);

Das funktioniert auch so weit.

Mein Problem ist nun, wenn ich im DBGrid scrolle, werden bei der selektierten Zeile der formatierte Text angezeigt und hintendran der gleiche Text (in weiß) nur unformatiert, dadurch verschwimmt der Text beim lesen.

[Jumpy]

Vllt. die "selecteten" Zeilen von der eigenformatierung aussparen:

Delphi-Quellcode:

if not (gdSelected in State) then
  begin
  
  //Dein Code  

  end;

[philubb]

Nein, das hilft nicht

Im Anhang, mal ein Bild von meinem Problem, ja ich weiß, ist nicht das beste, aber man sieht von was ich rede

Da ist mir grad aufgefallen, dass es immer nur an der blau hinterlegten zelle das problem auftaucht. ^^

[Bummi]

versuch mal damit

Delphi-Quellcode:

  if (( Adodataset1.RecNo mod 2) = 0) then
    DBGrid1.Canvas.Brush.Color := $D3D3D3
   else
    DBGrid1.Canvas.Brush.Color := $FFFFFF;

[Uwe Raabe]

Hast du für das Grid auch das Property DefaultDrawing auf false gesetzt?

[philubb]

@bummi

top deine lösung funktioniert

@Uwe Raabe

Zitat:

Hast du für das Grid auch das Property DefaultDrawing auf false gesetzt?

ja hatte ich auf false gesetzt.

[Perlsau]

Nimm das TjvDBGrid aus den Jedi-Komponenten, das bringt diese Funktionalität bereits mit.