TAdvStringGrid
Example 60 : Using data dependent images with TAdvStringGrid
The method
grid.AddDataImage(col,row,index,horizAlign,vertAlign) adds an imagelist image to
a cell. The index of this imagelist image is dependent of the data in the cell
where the image is added. By default, this means that when the cell has the
value 0, the first image of the imagelist will be displayed, when the value is
1, the second image will be displayed etc...
Not in all circumstances it is convenient that
the cell data should be a number. Suppose that we want to display a Yes / No
field with textual representation 'Y' and 'N' as two distinct images in the grid
from an imagelist. Normally, this would not be possible, but thanks to the
OnGetDisplText, a solution is easily implemented. This OnGetDisplText will
convert the values 'Y' and 'N' to the imagelist index values that are needed to
display the proper images. The code snippet that takes care of this is:
procedure TForm1.AdvStringGrid1GetDisplText(Sender: TObject; ACol,
ARow: Integer; var Value: String);
var
oldvalue: string;
begin
oldvalue := value;
if (ACol = 1) and (ARow > 0) then
begin
if value = 'Y' then
value := '1'
else
value := '0';
end;
end;
With this one event handler, we can set images through:
advstringgrid1.Cells[1,1] := 'N'; advstringgrid1.Cells[1,2] := 'Y';
and just use the text that is most convenient for maintaining in the rest of the application.
Delphi project & source files for downloading included in the main demos distribution for Delphi.