EXAMPLE 2

TAdvStringGrid

example 2 : Dynamic cell 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.

The project and source files have been written with Delphi 6,7. To use these files in other versions of Delphi, ignore any remarks when opening the form files and save the files. After this, compilation can be done. The error messages are due to properties included in the Delphi 6 form file, but not available in lower versions of Delphi.