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:

zusammenfalten · markieren

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.

DBGrid in selektierter Zeile wird Text doppelt angezeigt

DBGrid in selektierter Zeile wird Text doppelt angezeigt

Forumregeln