Einzelnen Beitrag anzeigen

Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
264 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Text im DBgrid einfärben

  Alt 9. Mär 2004, 12:55
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
Frank
  Mit Zitat antworten Zitat