Registracija

Farbanje redova u dbgrid-u

Odgovori Nova tema

1 odgovor
2.824 pregleda

Farbanje redova u dbgrid-u 08.06.2006. u 13:01 · pre 248 meseci #1

Kako mogu da resim sledeci problem... Recimo ako je vrednost nekog podatka u bazi veca od 1000 onda ceo taj red u dbgrid-u da se ofarba u zeleno a ako je manji od 1000 onda u crveno... Cisto kao neka vizuelna kontrola...
Hvala

Re: Farbanje redova u dbgrid-u 08.06.2006. u 14:29 · pre 248 meseci #2

Code:

procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if podatak.asinteger>=1000 then
    DBGrid1.Canvas.Font.Color := clgreen
      else
    DBGrid1.Canvas.Font.Color := clred;
  DBGrid1.DefaultDrawDataCell (Rect, Column.Field, State);
end;

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme