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 VirtualStringTree CheckState (https://www.delphipraxis.net/120600-virtualstringtree-checkstate.html)

stOrM 13. Sep 2008 13:25


VirtualStringTree CheckState
 
Hi,
ich hab mal eine kurze Frage zu den Checkboxen die man im VST setzen kann...

Sagen wir mal, ich hab 5 Einträge im VST, somit jeweils 5 Checkboxen also pro Eintrag eine, default unchecked.
Jetzt setzt der User sagen wir mal den checkstate auf cheked, für die Einträge 2, 4 und 5

Jetzt muss ich das ermitteln, welche gesetzt sind und irgendwo wegschreiben.

Das brauche ich später, weil ich durch eine Stringliste iterieren muss, die genauso viele Einträge hat, wie das VST.
In der Stringliste sollen nur die Einträge (Index) selektiert werden, die auch in der VST gechecked [index?] sind, die unchecked eben nicht.

Wie mach ich das denn?
Im VST gibt es ja :

Delphi-Quellcode:
Checking(Sender: TBaseVirtualTree; Node: PVirtualNode;
  var NewState: TCheckState; var Allowed: Boolean);

Checked(Sender: TBaseVirtualTree; Node: PVirtualNode);
Viele Grüße
s!

jbg 13. Sep 2008 14:41

Re: VirtualStringTree CheckState
 
Du könntest mit GetFirstChecked und GetNextChecked über die Knoten iterieren.

stOrM 15. Sep 2008 20:11

Re: VirtualStringTree CheckState
 
Hmm soweit schon kla, aber das problem ist etwas anders gelagert bei mir ich versuchs mal anders zu erklären...

fürs vst hab ich da folgendes:

type
RDisplay = ^TDownLoadDisplay;

TDisplay = record
Eintrag: WideString;
isCheckedNode: WideString;

...
Delphi-Quellcode:
procedure TMain.wuaTreeChecked(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
  Data : RDisplay;
begin
  Node := wuaTree.GetFirstSelected;
  data := Sender.GetNodeData(node);
  if not(Assigned(Data)) then
  Exit;
  case Node.CheckState of
  csCheckedNormal:
  begin
    Data.isCheckedNode := BoolToStr(True, True);
    Sender.InvalidateNode(Node);
  end
  else
   Data.isCheckedNode := BoolToStr(false, True);
   Sender.InvalidateNode(Node);
  end;
  node := Sender.GetNextSelected(Node);
end;
Jetzt das Problem für mich:

Sagen wir ich hab eine StringListe, die genau soviele Einträge hat wie das Tree...
Wie extrahiere ich nun, nur die Strings aus der Stringliste, welche im Tree gechecked markiert sind...

Beispiel:

StringListe:

0 Test1
1 Test2
2 Test3

Tree:

[X] Test1 <-gechecked
[] Test2
[x] Test3 <-gechecked

Heisst aus der Stingliste Item 0 und Item 2 extrahieren...

toms 15. Sep 2008 20:15

Re: VirtualStringTree CheckState
 
Nun, du gehst in der StringListe alle Items durch und überprüfst im VST, ob das Item jeweilige Item checked ist.

stOrM 15. Sep 2008 20:40

Re: VirtualStringTree CheckState
 
Mein Gott bin ich bescheuert, logisch!
Sorry im moment bin ich so mit anderen Teilen im Quelltext vertieft das ich auf sowas gar nicht kam, vielen Dank!

s!


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:35 Uhr.

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