Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Tadvstringgrid, Thumbnails vorhanden = Checkboxen gecheckt (https://www.delphipraxis.net/120642-tadvstringgrid-thumbnails-vorhanden-%3D-checkboxen-gecheckt.html)

capo 14. Sep 2008 10:56


Tadvstringgrid, Thumbnails vorhanden = Checkboxen gecheckt
 
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:
Delphi-Quellcode:
AdvStringGrid1.SetCheckBoxState(2,iRow,true);
Ich hoffe ihr habt verstanden was ich machen will!

Freundliche Grüße vom Capo

capo 15. Sep 2008 07:33

Re: Tadvstringgrid, Thumbnails vorhanden = Checkboxen gechec
 
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.
Delphi-Quellcode:
AdvStringGrid1.SetCheckBoxState(2,iRow,true);
Grüße
Capo

capo 16. Sep 2008 18:39

Re: Tadvstringgrid, Thumbnails vorhanden = Checkboxen gechec
 
Hallo,
ich brauche dringend Hilfe von euch.
Habe ich meine Frage zu undeutlich gestellt?


Viele Grüße
Capo

toms 16. Sep 2008 18:56

Re: Tadvstringgrid, Thumbnails vorhanden = Checkboxen gechec
 
Zitat:

Zitat von capo
Bei iRow werden alle Checkboxen gecheckt.
Delphi-Quellcode:
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:

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.

capo 16. Sep 2008 19:11

Re: Tadvstringgrid, Thumbnails vorhanden = Checkboxen gechec
 
Ja, es funktioniert nun.
Du hattest recht.
:dance:


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz