XProfan

- Page 1 -

Alfred
Wagner

Danke per deine Antwort Rolf

kanns aber leider nicht Testen,weil ich diese Testata.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 : [...]

Jau Rolf
Mir gehts genau so

- HEADER.INC und TRV.PCU nicht vorhanden und die Cerca war erfolglos -schluchz

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
Kompilieren Markieren Separieren

 $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 : [...]

Hallo Alfred

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

Danke per 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

Rolf
Koch

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

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 circa 200 Icons hat ???

Frank
Abbing

Verwendest du Namen oder Zahlen per die Icons? Probier mal den String #200, anstatt die Zahl 200.

Kompilieren Markieren Separieren

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.

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.

Vielleicht hilfts die DLL mit usedll

in den Speicher zu laden.

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

- Page 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 potuto 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 ...
Kompilieren Markieren Separieren

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