AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi VST mit Objekten, Alle Nodes einer Spalte Durchlaufen
Thema durchsuchen
Ansicht
Themen-Optionen

VST mit Objekten, Alle Nodes einer Spalte Durchlaufen

Ein Thema von Metal_Snake2 · begonnen am 25. Mär 2006 · letzter Beitrag vom 29. Mär 2006
 
Metal_Snake2

Registriert seit: 19. Nov 2004
134 Beiträge
 
Delphi 7 Personal
 
#10

Re: VST mit Objekten, Alle Nodes einer Spalte Durchlaufen

  Alt 29. Mär 2006, 00:12
Danke für die antwort.

Wie kann ich den jetzt z.B. herausfinden ob auf das "plus"(Expandier) Symbol geklickt wurde,
weil ich erst dan die neue struktur erzeugen möchte.

hmmm, irgendwie krieg ich dass jetzt immer noch nicht ganz gebacken.
Also mein Ereignis sieht jetzt so aus:

Delphi-Quellcode:
procedure TForm1.VSTClick(Sender: TObject);
var
  TreeObject : TTreeDataClass;
  node,Childnode : PVirtualNode;
  Data : PTreeData;
  ME : TModuleEntry32;
  hME : THandle;
begin

           Vst.NodeDataSize:=SizeOf(TTreeData);
           Vst.BeginUpdate;

            try
              hME := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, (GetProcID('Explorer.exe')));
              ME.dwSize := sizeof(TModuleEntry32);
              Module32First(hMe, ME);
            repeat
              TreeObject := TTreeDataClass.Create;
              with TreeObject do
                begin
                  Modulename:= ME.szModule;
                  ModulePath:= ME.szExePath;
                  ProcUseCount:= ME.ProccntUsage;
                  ModuleIconindex:= GetIconIndex(ME.szExePath, SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_OPENICON);

                  //Aus dem Modulenamen nur den typ beibehalten
                  ms:= ME.szModule;
                  ts:= Copy(ms,Pos('.',ms)+1,length(ms));

                  ModuleFileTyp:= ts;
              end;
              Childnode:= FindPLANNodeByGroupID(Vst,0); //Mit 0 mein ich ja das ich den ersten child node des rootnodes will
              AddVSTStructure(VST,Childnode:= ,TreeObject);
            until (not Module32Next(hMe, ME));
            CloseHandle(hME);
            Vst.EndUpdate;
         except
           TreeObject.free; //Object der Module
         end;

end;

////////// und in diesem ereignis möchte ich halt die einzelnen childnodes unterscheiden können, um den Text darstellen zu ///////// können

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Data: PTreeData;
begin
  Data := Sender.GetNodeData(Node);
      case Column of
        0: begin
             if (Sender.GetNodeLevel(Node) = 0) Then
               CellText := TTreeDataClass(Data.FObject).ProcName
             else if (Sender.GetNodeLevel(Node) = 1) Then
               CellText := TTreeDataClass(Data.FObject).FLevelHeader
             else if (Sender.GetNodeLevel(Node) = 2) and (Vst.ChildCount[Node] = 0) Then //Das funktioniert halt nicht
               CellText := TTreeDataClass(Data.FObject).Modulename
             else if (Sender.GetNodeLevel(Node) = 2) and (Vst.ChildCount[Node] = 1) Then
               CellText := TTreeDataClass(Data.FObject).FunktionsName
             else if (Sender.GetNodeLevel(Node) = 2) and (Vst.ChildCount[Node] = 2) Then
               CellText := TTreeDataClass(Data.FObject).Exportdll;
           end;
       end;
end;
Im Screenshot kann mans villeicht besser erkennen.
Die jeweiligen Childnodes die man sieht müßen noch geüllt werden. Sie sollen einzeln gefüllt werden wenn man auf das expandier symbol klickt, auf dem screen sieht man schon die colapsed situation jedoch sind die childnodes noch nicht geüllt.

kann man das machen?
Angehängte Grafiken
Dateityp: gif screen_171.gif (4,8 KB, 25x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:07 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