Делфи. Компоненти и класове. TStringGrid и TDrawGrid

процедура TDirectoryClientsListContracts.grClientsCodeDBTableView1CustomDrawCell (подателя: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; Var ADone: булеви); // избран sleduyushy манипулатор на CustomDrawCell kompanent TcxGrid
Var
lTextToDraw. низ;
lColFont. TFont;
започвам
lColFont: = ACanvas.Font; // запишете настройките на шрифтовете по подразбиране за текущата клетка

lTextToDraw: = подреден (AViewInfo.GridRecord.DisplayTexts [5]); // прочете съдържанието на петата колона, колоната трябва да се добави TcxGrid маса, но може да не се вижда
ако lTextToDraw = True, след lColFont.Style: = [fsItalic]; // проверка на стойността на четене клетката и определя хода

lTextToDraw: = подреден (AViewInfo.GridRecord.DisplayTexts [6]);
ако lTextToDraw = "фалшиви" след lColFont.Color: = clRed; // проверка на стойността на четене клетката, и боя червено

ACanvas.Font: = lColFont; // избран получената средства за целия ред

ако ((AViewInfo.Item.Index = 4) и (подреден (AViewInfo.GridRecord.DisplayTexts [4]) = '30 .12.1899 ")), след това // ако погледнем четвърти колона, сравни съдържанието с нула дата
започвам
ACanvas.Canvas.FillRect (AViewInfo.Bounds); // ако се желае, може да променя клетъчната формат, както е описано по-горе, но е общ за резерви форматиране
ACanvas.DrawText ( "-", AViewInfo.Bounds, 0); // дисплей вместо датата нула "-" (минус)
ADone: = True; // позволи да пренаписване стойността на клетка
приключи;

По същия начин, има работа със стандартна TStringGrid и TBDGrid.