🚀 go-pugleaf

Jacek Owczarek wrote:
> 
> Witam ponownie.
> Mam mały problem, w trakcie wyświetlania rekordów w DBGridzie,
> potrzebuję aby
> wartości np. 'True' były wyświetlane na zielono a 'False' na czerwono.
> Pewnie tzeba użyć zdarzenia OnDrawDataCell, tylko jak?
> 
> Pozdrawiam Jacek.

Czesc,
Wlasnie dostalem takiego tipa:

Dynamically update DBGrid row color
Versions: Delphi 2, 3

The DBGrid is a great user interface tool for displaying data. This
technique demonstrates how to dynamically change the color of text in a
DBGrid. 

For example, we want our grid to display rows of country information. If
a
country's population is greater than 20 million, we'll display its row
in
blue colored text. We test the values and update the text color in the
OnDrawColumnCell event of the grid.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     if Table1.FieldByName('Population').AsInteger > 20000000 then
        DBGrid1.Canvas.Font.Color := clBlue;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

This is a simple but visually profound technique. In addition to just
data
content, you can display the meaning of the information; e.g. a lot of
people, account overdrawn, parts have arrived.

Mam nadzieje, ze to pomoze.
Siemka
--
Daniel Kowalski
mailto: arctus@moskit.art.olsztyn.pl
irc: arctus