XProfan

- page 1 -

Alfred
Wagner

merci pour deine Antwort Rolf

kanns mais malheureusement pas Testen,weil je cet En-tête.inc pas habe

Verwende XProfan 9
ist qui là pas dabei,et si pas wohin bekomme je qui her?

Grüße

Alfred avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jau Rolf
Mir gehts oui c'est ca so

- HEADER.INC et TRV.PCU pas vorhanden et qui cherche était erfolglos -schluchz

Alfred
Wagner

allô Horst habs un peu umgebaut
allez maintenant sans cet HEADER.INC

qui TRV.CPU sollte im Dossier Lib de Rolfs ObjektCreator son
Kompilieren Marque Séparation

 $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

sur cet Procédure Delobjects hätte je aussi selber venons peut

merci nochmals Rolf

Grüße
Alfred avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

allô Alfred

qui TRV.CPU sollte im Dossier Lib de Rolfs ObjektCreator son

merci pour qui Aufklärung

Hätte je aussi selbst savons doit

Dein Text funktioniert ! - Habe mais alles sur un Dialog-la fenêtre gelegt et là klappt alles bestens

Rolf
Koch

Sorry gens, hatte es oublier qc wieder Rückgängig trop faire avec En-tête u.s.w - était à meinen calculateur angepasst.
qui En-tête.inc ist chez mir seulement un Verweis sur alle En-tête de Profan, quelle dans einem anderen Verzeichnis liegen

une seltsame réaction c'est moi aufgefallen: Es laisser sich seulement qui ersten 50 Icônes aus qui SHELL32.DLL einbinden - chez höheren Zahlangaben wird rien gezeigt quoique cet DLL sur 200 Icônes hat ???

Frank
Abbing

Verwendest du Namen ou bien payons pour qui Icônes? Probier la fois den String #200, anstatt qui numéro 200.

Kompilieren Marque Séparation

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)

qui Ur-Text ist de Alfred Wagner - chez Icon-payons UNTER 48 klappt alles. chez grösseren payons volonté entier autre Icônes comment gewünscht ou bien gar keins gezeigt.

Frank
Abbing

Liegt sûrement à qui Grösse qui Icônes. Kleine et grosse Icônes volonté souvent entier unterschiedlich dargestellt. Eventuelle beherrscht deine Laderoutine pas alle Grössen.

peut-être hilfts qui DLL avec usedll

dans den grenier trop magasin.

span class=s2>(Imagelist&) ENDPROC cls tornado_hilfe

- page 2 -

Liegt sûrement à qui Grösse qui Icônes. Kleine et grosse Icônes volonté souvent entier unterschiedlich dargestellt. Eventuelle beherrscht deine Laderoutine pas alle Grössen.

Hi Frank
cela pourrait qui Grund son -

@iF qui Shell32.dll wird doch beim Start de Windows déjà dans den grenier geladen ou bien ?

ici la fois qui lauffähige Text. peut-être écoutes oui la fois einer avec den Icônes et venez sur den faute ...
Kompilieren Marque Séparation

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_destro