XProfan

Rolf
Koch

Hi Alfred,

was hälst Du denn von dieser Lösung?
Kompilieren Markieren Separieren

 $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

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.

06.06.2006 ▲

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.

06.06.2006 ▲