Colorarea și modificarea conținutului celulelor tcxgrid (din setul de expres dev)

Delphi. Componente și clase. TStringGrid și TDrawGrid

Procedura TDirectoryClientsListContracts.grClientsCodeDBTableView1CustomDrawCell (Expeditor: TcxCustomGridTableView; ACanvas: TcxCanvas;






AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); // instalați următorul handler pe CustomDrawCell al TcxGrid
var
lTextToDraw. șir de caractere;
lColFont. TFont;
începe
lColFont: = ACanvas.Font; // salvați setările implicite pentru fonturi pentru celula curentă

lTextToDraw: = trim (AViewInfo.GridRecord.DisplayTexts [5]); // citiți conținutul coloanei a 5-a, coloana ar trebui adăugată în tabelul TcxGrid, dar poate să nu fie vizibilă






dacă lTextToDraw = 'Adevărat' atunci lColFont.Style: = [fsItalic]; // verificați valoarea celulei citite și setați italic

lTextToDraw: = trim (AViewInfo.GridRecord.DisplayTexts [6]);
dacă lTextToDraw = 'False' atunci lColFont.Color: = clRed; // verificați valoarea celulei citite și colorați-o în roșu

ACanvas.Font: = lColFont; // setați selecția rezultată pentru întreaga linie

if ((AViewInfo.Item.Index = 4) și (tăiați (AViewInfo.GridRecord.DisplayTexts [4]) = .12.1899 '30 „)), atunci // dacă ne uităm la coloana 4, compară conținutul cu data de zero
începe
ACanvas.Canvas.FillRect (AViewInfo.Bounds); // dacă se dorește, putem schimba formatarea celulei așa cum este descris mai devreme, dar lăsăm formatarea comună pentru șir
ACanvas.DrawText ('-', AViewInfo.Bounds, 0); // ieșire în loc de data zero "-" (minus)
ADone: = adevărat; // să rescriem valoarea celulei
se încheie;

În mod similar, funcționează TStringGrid și TBDGrid standard.







Trimiteți-le prietenilor: