Text im DBgrid einfärben

[Sourcemaker]

Hi,

nach meiner Meinung ist es die einzige Möglichkeit beim Zeichnen des Grids also in 'OnDrawColumnCell' die Farbe einer Zelle abzuändern ausser du benutzt nicht TDBGrid sondern z.B. TGXDBGrid (von GExperts) dann gibt es u.a. dieses Ereignis:

Delphi-Quellcode:

procedure TFKunEdit.KAGBrowCalcColors(Sender: TObject; Brush: TBrush;
  Font: TFont; Column: TColumn; DataCol, DataRow: Integer;
  State: TGridDrawState);
begin
   if KAGStat.GL('JAHR')= 0 then Brush.Color := clMoneyGreen
   else
      if KAGStat.GL('MONAT')= 0 then Brush.Color := clSkyBlue
      else
          if KAGStat.GL('ARTGRUPPE')= 0 then Brush.Color := clCream;
end;

Einen Link habe ich nicht da das DBGrid nicht mehr von GExperts gepflegt wird sondern zwischenzeitlich von jemand anderen übernommen worden ist der es aber auch nicht mehr macht. Ich kann dir aber gerne meine für Delphi 7 geeignete und leicht verbesserte Version geben.

Grüße

Frank