(855)  Anmelden

Deutsch
Forum

Treeview Problem

 
- Seite 1 -



Alfred
Wagner
Hallo zusammen
hab ein problem mit einem Treeview,wenn ich die linke seite(TREEVIEWITEMS) normal anklicke funktioniert das wunderbar,aber bei einem doppelklick verschwinden die objekte die mit @DestroyWindow verschwinden sollten nicht mehr!

woran könnte das wohl liegen ,vielleicht hat jemand eine Idee
KompilierenMarkierenSeparieren
 $P+
SetErrorLevel 0
 $H windows.ph
 $H Messages.ph
DEF AExtractIcon(3) !SHELL32,ExtractIconA--Icon aus der Windows SHELL32DLL - laden...-----
DEF GETSYSCOLOR(1) !USER32,GetSysColor
 $U F:PROGRAMMETOOLSXPROFAN9ROCKLIBTRV.PCU = TRV_ (Treeview Unit... Pfad Anpassen !!!)
DECLARE TRVDLL$,TVITEM0&,TVITEM1&,TVITEM2&,TVITEM3&,TVITEM4&,TREEVIEW&,IMAGELIST&
Declare Button&,static&,Icon$,hIcon&
Declare Checkbox&,Checkbox1&,Checkbox2&,Checkbox3&,Checkbox4&,GROUPBOX1&,GROUPBOX2&
TRVDLL$= shell32.DLL
IMAGELIST&=IMAGELIST_CREATE(16,16,32,3,3) IMAGELIST ERZEUGEN

PROC CREATETREEVIEW

    TRV_CREATETREEVIEW %HWND,10,35,160,350
    TREEVIEW&=&(0)
    REPAINT

ENDPROC

PROC TREEVIEWITEMS

    TRV_SETTEXTCLR TREEVIEW&,0
    TRV_SETBACKCLR TREEVIEW&,RGB(255,255,255)
    TRV_INSERTICON #11,TRVDLL$
    TRV_INSERTITEM TVITEM0&,0,Test 1,TREEVIEW&
    TVITEM0&=&(0)
    TRV_INSERTICON #12,TRVDLL$
    TRV_INSERTITEM TVITEM0&,1,Test 2,TREEVIEW&
    TVITEM1&=&(0)
    TRV_INSERTICON #13,TRVDLL$
    TRV_INSERTITEM TVITEM0&,2,Test 3,TREEVIEW&
    TVITEM2&=&(0)
    TRV_INSERTICON #14,TRVDLL$
    TRV_INSERTITEM TVITEM0&,3,Test 4,TREEVIEW&
    TVITEM3&=&(0)
    TRV_INSERTICON #15,TRVDLL$
    TRV_INSERTITEM TVITEM0&,4,Test 5,TREEVIEW&
    TVITEM4&=&(0)
    TRV_EXPAND TREEVIEW&,TVITEM0&
    TRV_EXPAND TREEVIEW&,TVITEM1&
    TRV_EXPAND TREEVIEW&,TVITEM2&
    TRV_EXPAND TREEVIEW&,TVITEM3&
    TRV_EXPAND TREEVIEW&,TVITEM4&

ENDPROC

PROC GET_TREEVIEW ABFRAGEN DER TREEVIEWITEMS

    IF GETFOCUS(TREEVIEW&)

        IF TRV_GETITEM(TREEVIEW&)=TVITEM0&

            TVITEM0_ONCLICK     (test1)
            SETFOCUS(%HWND)

        ENDIF

        ----------------------------------------------------------

        IF TRV_GETITEM(TREEVIEW&)=TVITEM1&

            TVITEM1_ONCLICK     (test1)
            SETFOCUS(%HWND)

        Endif

        ----------------------------------------------------------

        IF  TRV_GETITEM(TREEVIEW&)=TVITEM2&

            TVITEM2_ONCLICK     (test1)
            SETFOCUS(%HWND)

        Endif

        ----------------------------------------------------------

        IF  TRV_GETITEM(TREEVIEW&)=TVITEM3&

            TVITEM3_ONCLICK     (test1)
            SETFOCUS(%HWND)

        Endif

        ----------------------------------------------------------

        IF  TRV_GETITEM(TREEVIEW&)=TVITEM4&

            TVITEM4_ONCLICK     (test1)
            SETFOCUS(%HWND)

        ENDIF

        ----------------------------------------------------------

    ENDIF

ENDPROC

PROC TVITEM0_ONCLICK     (test1)

    @DestroyWindow (static&),1Icon löschen
    @DestroyWindow (Checkbox1&),1
    @DestroyWindow (Checkbox2&),1
    @DestroyWindow (Checkbox3&),1
    @DestroyWindow (Checkbox4&),1
    @DestroyWindow (GROUPBOX1&),1
    @DestroyWindow (GROUPBOX2&),1
    Checkbox& = @Control(BUTTON,Testcheckbox_1,$50008003,200,50,295,15,%HWND,100,%Hinstance,$10000)
    anderes Icon erstellen
    static& = Control(STATIC,,$50020003,200,90,32,32,%HWND,2000,%hinstance)
    Icon$ = shell32.DLL
    Let hIcon& = AExtractIcon(%Hinstance,Addr(Icon$),9)Hier die Icon Nummer aus der Shell32.DLL ......
    SendMessage(static&,368,hIcon&,0) STM_SETICON

ENDPROC

PROC TVITEM1_ONCLICK     (test1)

    @DestroyWindow (static&),1Icon löschen
    @DestroyWindow (Checkbox&),1
    @DestroyWindow (Checkbox2&),1
    @DestroyWindow (Checkbox3&),1
    @DestroyWindow (Checkbox4&),1
    anderes Icon erstellen
    static& = Control(STATIC,,$50020003,200,250,32,32,%HWND,2000,%hinstance)
    Icon$ = shell32.DLL
    Let hIcon& = AExtractIcon(%Hinstance,Addr(Icon$),12)Hier die Icon Nummer aus der Shell32.DLL ......
    SendMessage(static&,368,hIcon&,0) STM_SETICON
    GROUPBOX1& =@CREATEGROUPBOX(%HWND,GrupBox_1,180,30,355,175)
    GROUPBOX2& =@CREATEGROUPBOX(%HWND,GrupBox_2,180,210,355,175)
    Checkbox1& = @Control(BUTTON,Testcheckbox_2,$50008003,200,70,295,15,%HWND,100,%Hinstance,$10000)

ENDPROC

PROC TVITEM2_ONCLICK     (test1)

    @DestroyWindow (static&),1
    @DestroyWindow (Checkbox&),1
    @DestroyWindow (Checkbox1&),1
    @DestroyWindow (Checkbox3&),1
    @DestroyWindow (Checkbox4&),1
    @DestroyWindow (static&),1
    @DestroyWindow (GROUPBOX1&),1
    @DestroyWindow (GROUPBOX2&),1
    Checkbox2& = @Control(BUTTON,Testcheckbox_3,$50008003,200,90,295,15,%HWND,100,%Hinstance,$10000)

ENDPROC

PROC TVITEM3_ONCLICK     (test1)

    @DestroyWindow (static&),1
    @DestroyWindow (Checkbox&),1
    @DestroyWindow (Checkbox1&),1
    @DestroyWindow (Checkbox2&),1
    @DestroyWindow (Checkbox4&),1
    @DestroyWindow (static&),1
    @DestroyWindow (GROUPBOX1&),1
    @DestroyWindow (GROUPBOX2&),1
    Checkbox3& = @Control(BUTTON,Testcheckbox_4,$50008003,200,110,295,15,%HWND,100,%Hinstance,$10000)

ENDPROC

PROC TVITEM4_ONCLICK     (test1)

    @DestroyWindow (static&),1
    Checkbox4& = @Control(BUTTON,Testcheckbox_5,$50008003,200,130,295,15,%HWND,100,%Hinstance,$10000)
    @DestroyWindow (Checkbox&),1
    @DestroyWindow (Checkbox1&),1
    @DestroyWindow (Checkbox2&),1
    @DestroyWindow (Checkbox3&),1
    @DestroyWindow (static&),1
    @DestroyWindow (GROUPBOX1&),1
    @DestroyWindow (GROUPBOX2&),1

ENDPROC

PROC BUTTON_ONCLICK

    ENDE%= 1

ENDPROC

WINDOWSTYLE 16 +8 +2
WINDOWTITLE TREEVIEW Problem
WINDOW SUB(DIV(%MAXX,2),DIV(545,2)),SUB(DIV(%MAXY,2),DIV(477,2))-545,477
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
Button& = @Control(Button,Beenden,$50000001,450,400,70,0022,%HWND,1002,%Hinstance)
****************************#ToDo 1:Hauptschleife
SETFOCUS(%HWND)
CREATETREEVIEW TREEVIEW ERSTELLEN
TREEVIEWITEMS ITEMS IN TREEVIEW EINFÜGEN
GET_TREEVIEW TREEVIEW ABFRAGE

WHILENOT ENDE%

    WAITINPUT
    GET_TREEVIEW TREEVIEW ABFRAGE / Wechsel

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

        ***************************#ToDo 1:Hauptschleife

    ELSEIF GETFOCUS(BUTTON&) Ende

        BUTTON_ONCLICK

    ENDIF

WEND

IMAGELIST_DESTROY(IMAGELIST&)

schönen dank schon mal im vorhinein

Grüße

Alfred mit Familie
 
WinXP-Home ,XProfan10

Alfreds ... Freeware :  [...] 
02.06.2006  ▲
Vollständiges Zitat
Absatzweise zitierenZeilenweise zitieren
 



 
- Seite 1 -



Alfred
Wagner
Danke für deine Antwort Rolf

kanns aber leider nicht Testen,weil ich diese Header.inc nicht habe

Verwende XProfan 9
ist die da nicht dabei,und wenn nicht wo bekomme ich die her?

Grüße

Alfred mit Familie
 
WinXP-Home ,XProfan10

Alfreds ... Freeware :  [...] 
05.06.2006  ▲
 



Jau Rolf
Mir gehts genau so - HEADER.INC und TRV.PCU nicht vorhanden und die Suche war erfolglos -schluchz
 
05.06.2006  ▲
 




Alfred
Wagner
Hallo Horst habs ein wenig umgebaut
Geht jetzt ohne diese HEADER.INC

Die TRV.CPU sollte im Ordner Lib von Rolfs ObjektCreator sein
KompilierenMarkierenSeparieren
 $P+
Seterrorlevel 0
 $I F:ProgrammeToolsXProfan9Header.inc
Def Aextracticon(3) !SHELL32,ExtractIconA--Icon aus der Windows SHELL32DLL - laden...-----
Def Getsyscolor(1) !USER32,GetSysColor
 $U F:ProgrammeToolsXProfan9RockLibTrv.pcu = Trv_(Treeview Unit...)
Declare Trvdll$,Tvitem0&,Tvitem1&,Tvitem2&,Tvitem3&,Tvitem4&,Treeview&,Imagelist&
Declare Button&,Static&,Icon$,Hicon&
Declare Checkbox&,Checkbox1&,Checkbox2&,Checkbox3&,Checkbox4&,Groupbox1&,Groupbox2&
Trvdll$= shell32.DLL
Imagelist&=Imagelist_create(16,16,32,3,3)IMAGELIST ERZEUGEN

Proc Createtreeview

    Trv_createtreeview %Hwnd,10,35,160,350
    Treeview&=&(0)
    Repaint

Endproc

Proc Treeviewitems

    Trv_settextclr Treeview&,0
    Trv_setbackclr Treeview&,Rgb(255,255,255)
    Trv_inserticon #11,Trvdll$
    Trv_insertitem Tvitem0&,0,Test 1,Treeview&
    Tvitem0&=&(0)
    Trv_inserticon #12,Trvdll$
    Trv_insertitem Tvitem0&,1,Test 2,Treeview&
    Tvitem1&=&(0)
    Trv_inserticon #13,Trvdll$
    Trv_insertitem Tvitem0&,2,Test 3,Treeview&
    Tvitem2&=&(0)
    Trv_inserticon #14,Trvdll$
    Trv_insertitem Tvitem0&,3,Test 4,Treeview&
    Tvitem3&=&(0)
    Trv_inserticon #15,Trvdll$
    Trv_insertitem Tvitem0&,4,Test 5,Treeview&
    Tvitem4&=&(0)
    Trv_expand Treeview&,Tvitem0&
    Trv_expand Treeview&,Tvitem1&
    Trv_expand Treeview&,Tvitem2&
    Trv_expand Treeview&,Tvitem3&
    Trv_expand Treeview&,Tvitem4&

Endproc

Proc Get_treeviewABFRAGEN DER TREEVIEWITEMS

    If Getfocus(Treeview&)

        If Trv_getitem(Treeview&)=Tvitem0&

            Tvitem0_onclick(test1)
            Setfocus(%Hwnd)

        Endif

        ----------------------------------------------------------

        If Trv_getitem(Treeview&)=Tvitem1&

            Tvitem1_onclick(test1)
            Setfocus(%Hwnd)

        Endif

        ----------------------------------------------------------

        If Trv_getitem(Treeview&)=Tvitem2&

            Tvitem2_onclick(test1)
            Setfocus(%Hwnd)

        Endif

        ----------------------------------------------------------

        If Trv_getitem(Treeview&)=Tvitem3&

            Tvitem3_onclick(test1)
            Setfocus(%Hwnd)

        Endif

        ----------------------------------------------------------

        If Trv_getitem(Treeview&)=Tvitem4&

            Tvitem4_onclick(test1)
            Setfocus(%Hwnd)

        Endif

        ----------------------------------------------------------

    Endif

Endproc

Proc Delobjects

    @Destroywindow (Static&),1Icon löschen
    @Destroywindow (Checkbox&),1
    @Destroywindow (Checkbox1&),1
    @Destroywindow (Checkbox2&),1
    @Destroywindow (Checkbox3&),1
    @Destroywindow (Checkbox4&),1
    @Destroywindow (Groupbox1&),1
    @Destroywindow (Groupbox2&),1

Endproc

Proc Tvitem0_onclick(test1)

    Delobjects
    Checkbox& = @Control(BUTTON,Testcheckbox_1,$50008003,200,50,295,15,%Hwnd,100,%Hinstance,$10000)
    anderes Icon erstellen
    Static& = Control(STATIC,,$50020003,200,90,32,32,%Hwnd,2000,%Hinstance)
    Icon$ = shell32.DLL
    Let Hicon& = Aextracticon(%Hinstance,Addr(Icon$),9)Hier die Icon Nummer aus der Shell32.DLL ......
    Sendmessage(Static&,368,Hicon&,0)STM_SETICON

Endproc

Proc Tvitem1_onclick(test1)

    Delobjects
    anderes Icon erstellen
    Static& = Control(STATIC,,$50020003,200,250,32,32,%Hwnd,2000,%Hinstance)
    Icon$ = shell32.DLL
    Let Hicon& = Aextracticon(%Hinstance,Addr(Icon$),12)Hier die Icon Nummer aus der Shell32.DLL ......
    Sendmessage(Static&,368,Hicon&,0)STM_SETICON
    Groupbox1& =@Creategroupbox(%Hwnd,GrupBox_1,180,30,355,175)
    Groupbox2& =@Creategroupbox(%Hwnd,GrupBox_2,180,210,355,175)
    Checkbox1& = @Control(BUTTON,Testcheckbox_2,$50008003,200,70,295,15,%Hwnd,100,%Hinstance,$10000)

Endproc

Proc Tvitem2_onclick(test1)

    Delobjects
    Checkbox2& = @Control(BUTTON,Testcheckbox_3,$50008003,200,90,295,15,%Hwnd,100,%Hinstance,$10000)

Endproc

Proc Tvitem3_onclick(test1)

    Delobjects
    Checkbox3& = @Control(BUTTON,Testcheckbox_4,$50008003,200,110,295,15,%Hwnd,100,%Hinstance,$10000)

Endproc

Proc Tvitem4_onclick(test1)

    Delobjects
    Checkbox4& = @Control(BUTTON,Testcheckbox_5,$50008003,200,130,295,15,%Hwnd,100,%Hinstance,$10000)

Endproc

Proc Button_onclick

    Ende%= 1

Endproc

Windowstyle 16 +8 +2
Windowtitle TREEVIEW Problem
Window Sub(Div(%Maxx,2),Div(545,2)),Sub(Div(%Maxy,2),Div(477,2))-545,477
Settruecolor 1
Declare Ende%
Cls Getsyscolor(15)
Usefont MS Sans Serif,13,0,0,0,0
Setdialogfont 1
Button& = @Control(Button,Beenden,$50000001,450,400,70,0022,%Hwnd,1002,%Hinstance)
****************************#ToDo 1:Hauptschleife
Setfocus(%Hwnd)
CreatetreeviewTREEVIEW ERSTELLEN
TreeviewitemsITEMS IN TREEVIEW EINFÜGEN
Get_treeviewTREEVIEW ABFRAGE

Whilenot Ende%

    Waitinput
    Delobjects
    Get_treeviewTREEVIEW ABFRAGE / Wechsel

    If @Equ(%Key,2)

        Let Ende%= 1

    Elseif @Equ(%Key,4)

        ***************************#ToDo 1:Hauptschleife

    Elseif Getfocus(Button&)Ende

        Button_onclick

    Endif

Wend

Imagelist_destroy(Imagelist&)

Somit funktioniert es einwandfrei

Auf diese Prozedur Delobjects hätte ich auch selber kommen können

Danke nochmals Rolf

Grüße
Alfred mit Familie
 
WinXP-Home ,XProfan10

Alfreds ... Freeware :  [...] 
05.06.2006  ▲
 



Hallo Alfred


Die TRV.CPU sollte im Ordner Lib von Rolfs ObjektCreator sein


Danke für die Aufklärung Hätte ich auch selbst wissen müssen
Dein Text funktioniert ! - Habe aber alles auf ein Dialog-Fenster gelegt und auch da klappt alles bestens
 
05.06.2006  ▲
 




Rolf
Koch
Sorry Leute, hatte es vergessen wieder Rückgängig zu machen mit Header u.s.w - war an meinen Rechner angepasst.
Die Header.inc ist bei mir nur ein Verweis auf alle Header von Profan, welche in einem anderen Verzeichnis liegen
 
05.06.2006  ▲
 



Eine seltsame Reaktion ist mir aufgefallen: Es lassen sich nur die ersten 50 Icons aus der SHELL32.DLL einbinden - Bei höheren Zahlangaben wird nichts gezeigt obwohl diese DLL über 200 Icons hat ???
 
05.06.2006  ▲
 




Frank
Abbing
Verwendest du Namen oder Zahlen für die Icons? Probier mal den String #200, anstatt die Zahl 200.
 
05.06.2006  ▲
 




KompilierenMarkierenSeparieren
Trv_inserticon #36,Trvdll$
Trv_insertitem Tvitem0&,1,Einstellungen...,Treeview&
Tvitem1&=&(0)
Trv_inserticon #182,Trvdll$
Trv_insertitem Tvitem0&,2,die Oberfläche...,Treeview&
Tvitem2&=&(0)
Trv_inserticon #22,Trvdll$
Trv_insertitem Tvitem0&,3,die Markierungen,Treeview&
Tvitem3&=&(0)
Trv_inserticon #45,Trvdll$
Trv_insertitem Tvitem0&,4,der Schreibschutz,Treeview&
Tvitem4&=&(0)
Trv_inserticon #200,Trvdll$
Trv_insertitem Tvitem0&,5,Löschen...!!!,Treeview&
Tvitem5&=&(0)

Der Ur-Text ist von Alfred Wagner - bei Icon-Zahlen UNTER 48 klappt alles. Bei grösseren Zahlen werden ganz andere Icons wie gewünscht oder gar keins gezeigt.
 
06.06.2006  ▲
 




Frank
Abbing
Liegt sicher an der Grösse der Icons. Kleine und grosse Icons werden oft ganz unterschiedlich dargestellt. Eventuelle beherrscht deine Laderoutine nicht alle Grössen.
 
06.06.2006  ▲
 



Vielleicht hilfts die DLL mit usedll  in den Speicher zu laden.
 
06.06.2006  ▲
 



 
- Seite 2 -



Liegt sicher an der Grösse der Icons. Kleine und grosse Icons werden oft ganz unterschiedlich dargestellt. Eventuelle beherrscht deine Laderoutine nicht alle Grössen.


Hi Frank
Das könnte der Grund sein -

@iF die Shell32.dll wird doch beim Start von Windows schon in den Speicher geladen oder ?

Hier mal der lauffähige Text. Vielleicht spielt ja mal einer mit den Icons und kommt auf den Fehler ...
KompilierenMarkierenSeparieren
PROC HILFE_START

    Addstring
    Addstring  ...was ist +programm$+ +vers$+ ?
    Addstring

ENDPROC

Declare programm$,vers$,font0%
font0%=CREATE(FONT,ARIAL,16,6,0,0,0)
programm$=TORNADO:vers$=1.0

PROC TORNADO_HILFE

    DECLARE T_win&,T_list&
    DEF ExtractIcon(3) ! SHELL32,ExtractIconA
    Def Getsyscolor(1) !USER32,GetSysColor
    Declare Trvdll$
    DECLARE Trvdll&
    Trvdll&=UseDLL(pfad$+\COMM_DATAS\meine_xp.dll)
     $U Trv.pcu = Trv_(Treeview Unit...)
    Declare Tvitem0&,Tvitem1&,Tvitem2&,Tvitem3&,Tvitem4&,Tvitem5&
    Declare Tvitem6&,Tvitem7&,Tvitem8&,Tvitem9&,Tvitem10&
    Declare Treeview&,Imagelist&
    Declare Button&,Static&,Icon$,Hicon&
    Declare Checkbox&,Checkbox1&,Checkbox2&,Checkbox3&,Checkbox4&,Groupbox1&,Groupbox2&
    Trvdll$= shell32.DLL
    Imagelist&=Imagelist_create(24,24,32,3,3)IMAGELIST ERZEUGEN

    PROC ANZEIGE_BOX

        DesTroyWindow(T_list&)
        CLEARLIST
        T_list&=CREATE(LISTBOX,T_win&,,200,15,480,440)
        SetFont T_list&,font0%

    ENDPROC

    Proc Createtreeview

        Trv_createtreeview T_win&,10,15,180,350
        Treeview&=&(0)
        Repaint

    Endproc

    Proc Treeviewitems

        Trv_settextclr Treeview&,0
        Trv_setbackclr Treeview&,Rgb(255,255,255)
        Trv_inserticon #24,Trvdll$
        Trv_insertitem Tvitem0&,0,TORNADO-Hilfe,Treeview&
        Tvitem0&=&(0)
        Trv_inserticon #36,Trvdll$
        Trv_insertitem Tvitem0&,1,Einstellungen...,Treeview&
        Tvitem1&=&(0)
        Trv_inserticon #182,Trvdll$
        Trv_insertitem Tvitem0&,2,die Oberfläche...,Treeview&
        Tvitem2&=&(0)
        Trv_inserticon #26,Trvdll$
        Trv_insertitem Tvitem0&,3,Favoriten wählen,Treeview&
        Tvitem3&=&(0)
        Trv_inserticon #22,Trvdll$
        Trv_insertitem Tvitem0&,4,die Markierungen,Treeview&
        Tvitem4&=&(0)
        Trv_inserticon #45,Trvdll$
        Trv_insertitem Tvitem0&,5,der Schreibschutz,Treeview&
        Tvitem5&=&(0)
        Trv_inserticon #200,Trvdll$
        Trv_insertitem Tvitem0&,6,Löschen...!!!,Treeview&
        Tvitem6&=&(0)
        Trv_inserticon #25,Trvdll$
        Trv_insertitem Tvitem0&,7,Umbewegen...,Treeview&
        Tvitem7&=&(0)
        Trv_inserticon #39,Trvdll$
        Trv_insertitem Tvitem0&,8,Attribute...,Treeview&
        Tvitem8&=&(0)
        Trv_inserticon #44,Trvdll$
        Trv_insertitem Tvitem0&,9,Was war noch ?,Treeview&
        Tvitem9&=&(0)
        Trv_inserticon #28,Trvdll$
        Trv_insertitem Tvitem0&,10,Programm-Info...,Treeview&
        Tvitem10&=&(0)
        -----------------------------------------------------
        Trv_expand Treeview&,Tvitem0&
        Trv_expand Treeview&,Tvitem1&
        Trv_expand Treeview&,Tvitem2&
        Trv_expand Treeview&,Tvitem3&
        Trv_expand Treeview&,Tvitem4&
        Trv_expand Treeview&,Tvitem5&
        Trv_expand Treeview&,Tvitem6&
        Trv_expand Treeview&,Tvitem7&
        Trv_expand Treeview&,Tvitem8&
        Trv_expand Treeview&,Tvitem9&
        Trv_expand Treeview&,Tvitem10&

    Endproc

    Proc Get_treeviewABFRAGEN DER TREEVIEWITEMS

        If Getfocus(Treeview&)

            If Trv_getitem(Treeview&)=Tvitem0&

                Tvitem0_onclick
                Setfocus(T_win&)

            Endif

            ----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem1&

                Tvitem1_onclick
                Setfocus(T_win&)

            Endif

            ----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem2&

                Tvitem2_onclick
                Setfocus(T_win&)

            Endif

            ----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem3&

                Tvitem3_onclick
                Setfocus(T_win&)

            Endif

            ----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem4&

                Tvitem4_onclick
                Setfocus(T_win&)

            Endif

            ----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem5&

                Tvitem5_onclick
                Setfocus(T_win&)

            Endif

            -----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem6&

                Tvitem6_onclick
                Setfocus(T_win&)

            Endif

            -----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem7&

                Tvitem7_onclick
                Setfocus(T_win&)

            Endif

            -----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem8&

                Tvitem8_onclick
                Setfocus(T_win&)

            Endif

            -----------------------------------------------------------

            If Trv_getitem(Treeview&)=Tvitem9&

                Tvitem9_onclick
                Setfocus(T_win&)

            Endif

            -----------------------------------------------------------

        Endif

    Endproc

    Proc Delobjects

        @Destroywindow (T_list&),1
        @Destroywindow (Static&),1Icon löschen
        @Destroywindow (Checkbox&),1
        @Destroywindow (Checkbox1&),1
        @Destroywindow (Checkbox2&),1
        @Destroywindow (Checkbox3&),1
        @Destroywindow (Checkbox4&),1
        @Destroywindow (Groupbox1&),1
        @Destroywindow (Groupbox2&),1

    Endproc

    Proc Tvitem0_onclick

        DelObjects
        ANZEIGE_BOX
        HILFE_START
        MoveListToList(T_list&)

    Endproc

    Proc Tvitem1_onclick

        DelObjects
        ANZEIGE_BOX

    Endproc

    Proc Tvitem2_onclick

        DelObjects
        ANZEIGE_BOX

    Endproc

    Proc Tvitem3_onclick

        DelObjects
        ANZEIGE_BOX

    Endproc

    Proc Tvitem4_onclick

        DelObjects
        ANZEIGE_BOX

    Endproc

    Proc Tvitem5_onclick

        DelObjects
        ANZEIGE_BOX
        MoveListToList(T_list&)

    Endproc

    T_win&=CREATE(DIALOG,%HWnd, TORNADO +vers$+ - Hilfetext,Sub(Div(%Maxx,2),350),SUB(DIV(%MaxY,2),250),700,500)
    Settruecolor 1
    Declare Ende%
    Usefont MS Sans Serif,13,0,0,0,0
    Setdialogfont 1
    CREATE(ICON,T_win&,A,75,375)
    Button& = @Control(Button,Beenden,$50000001,40,420,100,25,T_win&,1002,%Hinstance)
    ****************************#ToDo 1:Hauptschleife
    Setfocus(T_win&)
    CreatetreeviewTREEVIEW ERSTELLEN
    TreeviewitemsITEMS IN TREEVIEW EINFÜGEN
    Get_treeviewTREEVIEW ABFRAGE
    Tvitem0_onclick

    Whilenot Ende%

        Waitinput
        DelObjects
        Get_treeviewTREEVIEW ABFRAGE / Wechsel

        If @Equ(%Key,2)

            Let Ende%= 1

        Elseif @Equ(%Key,4)

            ***************************#ToDo 1:Hauptschleife

        Elseif Getfocus(Button&)Ende

            ende%=1

        Endif

    Wend

    Imagelist_destroy(Imagelist&)

ENDPROC

cls
tornado_hilfe
 
06.06.2006  ▲
 




@iF die Shell32.dll wird doch beim Start von Windows schon in den Speicher geladen oder ?


Nicht in den Prozessspeicher. Ich meine ja nur das es einen Test wert sein könnte, ich bin aber auch nicht davon überzeugt das sich besonders in diesem Fall dadurch Änderungen ergeben. Aber schad ja nix.
 
06.06.2006  ▲
 



◄
12

Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

2.409 Betrachtungen

Unbenanntvor 0 min.
Member 862464114.04.2024
RudiB.07.04.2022
Manfred Barei29.02.2020
Andreas Koch12.04.2012
Mehr...

Themeninformationen

Dieses Thema hat 5 Teilnehmer:

unbekannt (5x)
Alfred Wagner (3x)
Rolf Koch (2x)
Frank Abbing (2x)
iF (2x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie