XProfan

- Page 1 -

Alfred
Wagner

thanks for your response Rolf

kanns but unfortunately not testing,because I these Header.inc not have

Verwende XProfan 9
is the there not thereby,and unless where can I get The since?

Regards

Alfred with family

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jau Rolf
me GEHTS very so

- HEADER.INC and TRV.PCU No and the Search was erfolglos -schluchz

Alfred
Wagner

Hello Horst habs a little bit rebuilt
goes now without these HEADER.INC

The TRV.CPU ought to in the Ordner Lib of Rolfs ObjektCreator his
Compile Mark Separation

 $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&)

accordingly functions it correct

On these procedure Delobjects had so did i yourself come can

thanks over again Rolf

Regards
Alfred with family

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Hello Alfred

The TRV.CPU ought to in the Ordner Lib of Rolfs ObjektCreator his

thanks for resolution

would have been so did i self know must

your Text functions ! - have but everything on one dialog-Window laid and there works everything fine

Rolf
Koch

Sorry people, having it forget again Rückgängig To make with Header u.s.w - was with empty computer adjusted.
The Header.inc is by me only one Verweis on any Header of Profan, which in another directory lying

an seltsame reaction is me noticed: it can only the first 50 Icons from the SHELL32.DLL integrate - with higher Zahlangaben becomes nothing viewed though these DLL over 200 Icons has ???

Frank
Abbing

Verwendest You names or numbers for Icons? Probier time whom String #200, instead of The number 200.

Compile Mark Separation

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)

The Ur-Text is of Alfred wainwright - with Icon-numbers UNTER 48 works everything. with grösseren numbers go integrally others Icons How desired or quite keins viewed.

Frank
Abbing

lying sure on the Size the Icons. small and grosse Icons go often integrally different displayed. possible rule your Laderoutine not any Grössen.

Perhaps hilfts The DLL usedll

into Memory loading.

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

- Page 2 -

lying sure on the Size the Icons. small and grosse Icons go often integrally different displayed. possible rule your Laderoutine not any Grössen.

Hi Frank
the could the reason his -

@iF The Shell32.dll becomes still at Start Windows already into memory loaded or ?

here time the lauffähige Text. Perhaps game Yes time of/ one with the Icons and comes on the Error ...
Compile Mark Separation

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