XProfan

Rolf
Koch

Hi Alfred,

what hälst Thou of this Solution?
Compile Mark Separation

 $P+
SetErrorLevel 0
 $I C:ProfanincludesHeader.inc
DEF AExtractIcon(3) !SHELL32,ExtractIconA--Icon aus der Windows SHELL32DLL - laden...-----
DEF GETSYSCOLOR(1) !USER32,GetSysColor
 $U C:PROFANAKTUELLE PROJEKTEROCLIBTRV.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_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 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)

    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)

    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)

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

ENDPROC

PROC TVITEM3_ONCLICK  (test1)

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

ENDPROC

PROC TVITEM4_ONCLICK  (test1)

    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)
CREATETREEVIEW TREEVIEW ERSTELLEN
TREEVIEWITEMS ITEMS IN TREEVIEW EINFÜGEN
GET_TREEVIEW TREEVIEW ABFRAGE

WHILENOT ENDE%

    WAITINPUT
    DELOBJECTS
    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&)

06/03/06 ▲

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.

06/06/06 ▲

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.

06/06/06 ▲