Advstringgrid - Zeilen ausblenden

[capo]

Hallo
ich erzeuge hiermit in einem Advstringgrid in dergesamten ersten Spalte eine Checkbox:

Delphi-Quellcode:

  for i := 1 to advstringgrid1.RowCount - 1 do
    advstringgrid1.AddCheckBox(0, i, false, false);

Nun möchte ich die Zeilen mit gecheckten Boxen ausblenden, das mache ich so:

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var
  i, x2: integer;
  state: boolean;
begin
  for i := 1 to AdvStringGrid1.RowCount - 1 do
  begin
    if Advstringgrid1.GetCheckBoxState(0, i, state) then
    begin
      if state then
      begin
        AdvStringGrid1.SetCheckBoxState(0, i, false);
        for x2 := 0 to AdvStringgrid1.ColCount - 1 do
          AdvStringGrid1.HideRow(i);
      end;
    end;
  end;
end;

Mein Problem ist, dass damit immer die letzte Zeile nicht ausgeblendet werden kann, manchmal auch andere Zeilen.
Seht ihr meinen Fehler?

Wenn ich immer die letzte Zeile lösche dann klappts.

gruss vom capo

[m.wollert]

Hi Capo,

eigentlich ganz simpel - wenn ich auch kurz gestutzt habe...

probier es mal mit folgender Zeile

Delphi-Quellcode:

for i := AdvStringGrid1.RowCount-1 downto 1 do
begin
   ...
end;

Nach jedem "hide" ändert sich "von oben" betrachtet der Index. Und damit werden nach unten hin die "hides" immer 'falscher' ;-)
Dagegen hilft: von hinten anfangen ;)

Grüße!
Michael

[capo]

Hallo Michael,
danke für deine Hilfe. irgendwie haut das aber auch noch nicht hin.
Die letzte Zeile bleibt immer noch stehen.
grüsse capo

[raiguen]

Zitat:

Zitat von capo

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
...
    if state then
      begin
        AdvStringGrid1.SetCheckBoxState(0, i, false);
        for x2 := 0 to AdvStringgrid1.ColCount - 1 do
          AdvStringGrid1.HideRow(i);
      end;
...

Hi Capo,
was ich nicht ganz verstehe ist der obige Codeschnippsel :gruebel:
Das sieht für mich doch so aus, dass du die gesetzte(=gecheckde) Box auf ungecheckt setzt (???)
Und was soll die 2.Schleife mit ColCount???? :gruebel:
Du willst doch 'nur' die gecheckten Zeilen unsichtbarmachen oder? Geht das nicht einfacher, so vllt:

Delphi-Quellcode:

for i := AdvStringGrid1.RowCount-1 downto 1 do 
  begin
    Advstringgrid1.GetCheckBoxState(0, i, state);
    if state then
      AdvStringGrid1.HideRow(i);
end;

Ich kenne den AdvStringGrid (noch) nicht, von daher ist es nur ein Lösungsansatz...

[capo]

Hallo,
ja stimmt.
Ich hatte einen Denkfehler.
Merke auch das ich völlig falsch angefangen habe, mein Problem ist doch ein ganz anderes.
Muss dafür aber einen neuen Thread aufmachen.
gruss capo