keyTMS ALL-ACCESS
local_offerOne money and time saving bundle
mouseCross Platform UI
bar_chartReporting
languageWeb
swap_horizCommunication
storageData
mouseWindows UI
  •  
  •  
  •  
  1. Home
  2. Products
  3. VCL Components
  4. TAdvStringGrid
  5. Example 2

TAdvStringGrid

Example 2 : Dynamic cell colors

vcl grid colors

Often, there is a need to draw the attention to special values calculated and presented in a grid. In this example, attention is drawn to some cells by changing the cell background and text color depending on the values in the cell. The grid is filled with random values between -500 and +500. Foreground and background color of positive and negative numbers can be specified with 2 TColorGrid components. Setting colors is done in the OnGetCellColor event handler : 

procedure TForm1.AdvStringGrid1GetCellColor(Sender: TObject; 
ARow,
 ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: 
 TFont);
begin
  if advstringgrid1.cells[acol,arow]<>'' then
  if advstringgrid1.ints[acol,arow]<0 then
  begin
    abrush.color:=colorgrid2.backgroundcolor;
    afont.color:=colorgrid2.foregroundcolor;
  end
  else
  begin
    abrush.color:=colorgrid1.backgroundcolor;
    afont.color:=colorgrid1.foregroundcolor;
    afont.style:=[fsBold]
  end;
end;
First a test is done to check if the cell contains data, then this data is accessed as an integer data type with the Ints property of TAdvStringGrid. The background color is specified in "abrush" and font color in "afont.color". The test could be much more elaborated, as well as the font itself could be changed depending on the cell value. Finally, one more event handler is used to let the grid repaint when other colors are selected in the ColorGrid components. Therefore, the OnChange event handler is for both ColorGrid1 and ColorGrid2 :

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
  advstringgrid1.Repaint;
end;

Delphi project & source files for downloading included in the main demos distribution for Delphi.