XProfan

Rolf
Koch

Hi Alfred,

quoi hälst Du car de cette Solution?
Kompilieren Marque Séparation

 $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

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.

06.06.2006 ▲

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.

06.06.2006 ▲