Hallo,
Ich verwende folgenden Code um Thumbnails in ein TadvStringgrid hinzuzufügen. (danke an marabu)
Delphi-Quellcode:
...
for iRow := 0 to Pred(AdvStringGrid1.RowCount) do
begin
imgName := AdvStringGrid1.Cells[0, {AdvStringGrid1.}iRow];
imgPath := AdvStringGrid2.Cells[0, AdvStringGrid2.Row];
fn := exePath + IncludeTrailingPathDelimiter(imgPath) + imgName + '.jpg';
if FileExists(fn)
then
advstringgrid1.AddDataImage(3,iRow,0,habeforetext,vaTop);
// >>>>>> AdvStringGrid1.SetCheckBoxState(2,iRow,true); ????
end;
end;
Vor der Spalte mit den Thumbnails werden Checkboxen eingefügt:
Delphi-Quellcode:
for i := 1 to AdvStringGrid1.RowCount - 1 do
AdvStringGrid1.AddCheckBox(2, i, false, false);
Nun hätte ich gerne jeweils die Checkbox gecheckt in dessen Zeile (Row) sich ein Thumbnail befindet.
So werden alle Checkboxen gecheckt:
AdvStringGrid1.SetCheckBoxState(2,iRow,true);
Ich hoffe ihr habt verstanden was ich machen will!
Freundliche Grüße vom Capo