Izolálása sejt szín dbgrid

Izolálása sejt szín DBGrid

hogyan lehet egy adott sejt más színnel
Például, ha a cella szó a „zöld” zöld cellát, és ha a „piros” ez piros

Gépi onDrawColumnCell # XA0; rács.
valahogy így:
if (QueryActiveDogovors.FieldByName ( "OnDatePaid"). AsDateTime) = date (), majd kezdődik
# XA0; # XA0; # XA0; # XA0; # XA0; DBGridActiveDogovors.Canvas.Font.Color: = clBlue;
végén;

Ha a cella a „szürke-barna-bíbor”?

A printsepe kiderült, de egy kis valamit, amit én akartam, azt kiemeli majd amikor ez költségek át, és szeretném, hogy elpirult, amikor megjelenik, jól, azaz, ha az alap nyitott celláinak piros színnel kiemelve
A szöveg így vygledit

# XA0 ;. Ha ADOTable1.FieldByName ( "S_DATE") AsString = "", majd
# XA0; # XA0; DBGrid1.Canvas.Font.Color: = clred;

ez OnDrawColumnCell kifogást DbGrid

A kezelés nem szükséges OnDrawData Cell?

ADOTable1.FieldByName ( "S_DATE"). AsString = ""
az aktuális rekord, függetlenül attól, hogy hol a kurzor. Nyilvánvalóan ez a kód még mindig áll benne a ha

hogy Szolovjov
Kösz a linket, úgy döntött, minden kérdésemre elosztását illetően.
Ez a felosztás a módszer, amikor a kurzor a sejt

eljárás TForm1.DBGrid1DrawColumnCell (Sender: TObject; const téglalap: TRect;
# XA0; DataCol: integer; Oszlop: TColumn; Állam: TGridDrawState);
kezdődik
# XA0 ;. Ha ADOTable1.FieldByName ( "S_DATE") AsString = "", majd
# XA0; DBGrid1.Canvas.Font.Color: = clred;
végén;

eljárás TForm1.DBGrid1DrawColumnCell (Sender: TObject; const téglalap: TRect;
# XA0; DataCol: integer; Oszlop: TColumn; Állam: TGridDrawState);
kezdődik
# XA0 ;. Ha ADOTable1.FieldByName ( "S_DATE") AsString = "", majd

kivéve, ha ez szükséges, hogy biztosítsák a sejt egy újabb feltétel

# XA0; ha Column.FieldName = "S_DATE", majd


a # XA0; DBGrid1.Canvas do
kezdődik
# XA0; Brush.Color: = clGreen;
# XA0; Font.Color: = clWhite;
# XA0; FillRect (téglalap);
# XA0; TextOut (Rect.Left + 2, Rect.Top + 2, Column.Field.Text);
végén;
végén;

Yu
van ez a kód bármilyen bolie ha nem vesz részt. (Más beszélgetés más nők is :-))

a _ALEXey_ # XA0, én még nem alakított ki, amíg a végén, de az én rakodók
OnDrawColumnCell - befolyásolja a megjelenését a sejt,
OnDrawDataCell # XA0; - befolyásolja a cella tartalmát,
de ez az én subektivno nem tudja kivenni vége előtt véleményt

Tedd DBGrid1.DefaultDrawing = false, és a végén adjuk hozzá a felvezető:

TDBGrid (Sender) .DefaultDrawColumnCell (téglalap, DataCol, oszlop, állam);