XProfan

Rolf
Koch

Hi Alfred,

qué hälst Usted porque de dieser Solución?
Kompilieren Marca Separación

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

03.06.2006 ▲

Alfred
Wagner

Gracias para deine Antwort Rolf

kanns aber por desgracia, no Testen,porque Yo esta Encabezamiento.inc no habe

Verwende XProfan 9
Es el como no esta,y si no donde puedo conseguir el her?

Grüße

Alfred con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

Jau Rolf
Mir gehts genau así

- HEADER.INC y TRV.PCU no disponible y el Búsqueda war erfolglos -schluchz

Alfred
Wagner

¡Hola Horst habs una wenig umgebaut
Geht ahora sin esta HEADER.INC

El TRV.CPU debería en el Ordner Lib de Rolfs ObjektCreator ser
Kompilieren Marca Separación

 $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 lo einwandfrei

Auf esta Procedimiento Delobjects hätte Yo auch selber kommen puede

Gracias nochmals Rolf

Grüße
Alfred con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

¡Hola Alfred

El TRV.CPU debería en el Ordner Lib de Rolfs ObjektCreator ser

Gracias para el Aufklärung

Hätte Yo auch incluso wissen necesario

Su Texto funktioniert ! - Posesiones aber alles en una Diálogo-Ventana gelegt y como klappt alles bestens

Rolf
Koch

Sorry Personas, hatte lo vergessen otra vez Rückgängig a hacer con Encabezamiento u.s.w - war a media Rechner adaptado.
El Encabezamiento.inc es en me sólo una Verweis en todos Encabezamiento de Profano, welche en un otro Directorio mentira

Un seltsame Reacción me está aufgefallen: Lo dejar se sólo el ersten 50 Icons de el SHELL32.DLL einbinden - En höheren Zahlangaben se nichts gezeigt obwohl esta DLL encima 200 Icons ha ???

Frank
Abbing

Verwendest du Namen oder Pagar para el Icons? Probier veces el String #200, anstatt el Zahl 200.

Kompilieren Marca Separación

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-Texto es de Alfred Wagner - en Icon-Pagar UNTER 48 klappt alles. En grösseren Pagar voluntad bastante otro Icons como gewünscht oder gar keins gezeigt.

06.06.2006 ▲

Frank
Abbing

Liegt sicher a el Grösse el Icons. Kleine y grosse Icons voluntad oft bastante unterschiedlich dargestellt. Eventuelle beherrscht deine Laderoutine no todos Grössen.

06.06.2006 ▲