Hallo,
Ich verwende folgenden Code um Thumbnails in ein TadvStringgrid hinzuzufügen. (danke an marabu)

zusammenfalten · markieren

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:

markieren

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

Das mit dem einfügen der Checkboxen ist natürlich quatsch.

Ich weiß nur nicht was ich für iRow einsetzen muss um die Checkboxen gecheckt zu setzen.
Bei iRow werden alle Checkboxen gecheckt.
AdvStringGrid1.SetCheckBoxState(2,iRow,true); Grüße
Capo

Hallo,
ich brauche dringend Hilfe von euch.
Habe ich meine Frage zu undeutlich gestellt?


Viele Grüße
Capo

Zitat von capo:

Bei iRow werden alle Checkboxen gecheckt.
AdvStringGrid1.SetCheckBoxState(2,iRow,true);

So werden nicht alle auf Checked gesetzt. Nur immer die Checkbox in Zeile iRow.
Ich denke der Fehler liegt eher hier:

markieren

Delphi-Quellcode:

if FileExists(fn)
      then
       advstringgrid1.AddDataImage(3,iRow,0,habeforetext,vaTop);
       // >>>>>> AdvStringGrid1.SetCheckBoxState(2,iRow,true); ????
   end;

da fehlt wohl ein begin .. end bei der Bedingung, so dass "AdvStringGrid1.SetCheckBoxState(2,iRow,true); " in jedem Fall ausgeführt wird.

Ja, es funktioniert nun.
Du hattest recht.