(524)  S'inscrire

Français
Forum

ComoboxEx Contrôle avec Profan² 6.6

 
qui unten stehende Code soll une Combobox avec Icônes sous Profan 6.6 erzeugen. Frage: sur welchem XP System fonctionne cette Code (sous Profan² 6.6) et wohin fonctionne qui pas (ServicePack et Prozessorgeschwindigkeit)? und dir pas à faute, qui je ici gemacht habe...
KompilierenMarqueSéparation
Declaring new functions for Profan² 6.6 through windows API
Def @InitCommonControlsEx(1) !COMCTL32,InitCommonControlsEx
DEF @ImageList_Create(5) !COMCTL32,ImageList_Create
DEF @ImageList_AddIcon(2) !COMCTL32,ImageList_AddIcon
DEF @ImageList_Destroy(1) !COMCTL32,ImageList_Destroy
DEF @GetModuleHandle(1) !KERNEL32,GetModuleHandleA
DEF @LoadIcon(2) ! USER32,LoadIconA
DEF @GetProcAddress(2) !KERNEL32,GetProcAddress
Declare INITC#,ComoBoxEx&,Imagelist&,Iconname#
Declare ExecuteHandle&,Hicon&,M_Present&
Declare Proc_Name#,MHandle&,M_NAME#
Declare CBTEXT#,CBINSERT#
This peace of code is for looking, if icons can be placed in ComboBox.

If InitCommonControlsEx doesnt exist in the system-dll COMCTL32.DLL, there is displayed

    a normal combobox without icons
    DIM PROC_NAME#,256
    DIM M_NAME#,256
    String PROC_NAME#,0=InitCommonControlsEx
    String M_NAME#,0=$SYSPATH+COMCTL32.DLL
    LET MHANDLE&=@GetModuleHandle(M_NAME#)
    LET M_Present&=@GetProcAddress(MHANDLE&,PROC_NAME#)
    Dispose PROC_NAME#
    Dispose M_NAME#

    Proc ComBoBoxInsertEx

        You can place other icons for selected items, but in the code it is not done (that why there are 3 icons)
        Parameters Inserttext$,CBHandle&,Icon1&,Icon2&,Icon3&
        DIM CBINSERT#,36
        DIM CBTEXT#,256
        Clear CBINSERT#
        String CBTEXT#,0=Inserttext$
        Long CBINSERT#,0=$1+$2+$4+$8
        Long CBINSERT#,4=-1
        Long CBINSERT#,8=CBTEXT#
        Long CBINSERT#,12=Icon1&
        Long CBINSERT#,16=Icon2&
        Long CBINSERT#,20=Icon3&

        IF M_Present&=0

            @ADDCHOICE(CBHandle&,Inserttext$)

        else

            @SendMessage(CBHandle&,$401,0,CBINSERT#)

        endif

        Dispose CBINSERT#
        Dispose CBTEXT#

    EndProc

    DIM INITC#,8
    long INITC#,0=8
    long INITC#,4=$200
    Windowstyle 31+512
    Windowtitle ComboboxEx
    Window 0,0-640,440

    If M_Present&=0

        Print NO
        LET ComoBoxEx&=@Control(ComboBox,,$40000000+$10000000+$200000+$100000+2+$40,0,100,150,180,%HWND,2615,%HINSTANCE)

    else

        @InitCommonControlsEx(INITC#)
        DIM Iconname#,256
        Let Imagelist&=@ImageList_Create(16,16,$0001,3,3) create imagelist
        Let ExecuteHandle&=@GetModuleHandle(0)  Handle of the Profan-exe
        String ICONNAME#,0=Weg
        Let Hicon&=@loadicon(Executehandle&,Iconname#) Get the handle of the icon weg
        @ImageList_AddIcon(Imagelist&,HIcon&) put the icon into the imagelist
        String ICONNAME#,0=Windows
        Let Hicon&=@loadicon(Executehandle&,Iconname#) Get the handle of the icon windows
        @ImageList_AddIcon(Imagelist&,HIcon&) put the icon into the imagelist
        String ICONNAME#,0=Editor
        Let Hicon&=@loadicon(Executehandle&,Iconname#) Get the handle of the icon editor
        @ImageList_AddIcon(Imagelist&,HIcon&) put the icon into the imagelist
        LET ComoBoxEx&=@Control(ComboBoxEx32,,$40000000+$10000000+$200000+$100000+2+$40,0,100,150,180,%HWND,2115,%HINSTANCE)
        @Sendmessage(ComoBoxEx&,$402,0,Imagelist&)
        dispose Iconname#

    endif

    ComBoBoxInsertEx Claudia,ComoBoxEx&,0,0,0 put the item Claudia with the icon weg into the combobox
    ComBoBoxInsertEx Andreas,ComoBoxEx&,1,1,1 put the item Andreas with the icon windows into the combobox
    ComBoBoxInsertEx Dennis,ComoBoxEx&,2,2,2 put the item Dennis with the icon editor into the combobox

    While %Key<>2

        Waitinput
        Drawtext 0,0,@Gettext$(ComoBoxEx&)+@Space$(255)

    Wend

    @ImageList_Destroy(Imagelist&)
    Dispose INITC#
 
18.02.2007  ▲
 




Dieter
Zornow
chez mir volonté aucun Icônes dans qui Box gezeigt, alles autre funktioniert

Windows XP home SP2, XProfan 10

gruß

Dieter
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
18.02.2007  ▲
 



XProfan ist bien sûr, là peux cela pas courir à cause de des Manifests! und dir um 6.6.
 
18.02.2007  ▲
 




Dieter
Zornow
Habe deinen Code la fois abgeändert, ensuite fonctionne il aussi sous Xprofan 10, habe eh bien justement plan avec 6.6 getestet, avec cela funktioniert il aussi im Original . je denke qui COMCTL32.DLL hat chacun standardmäßig sur dem PC, sonst serait oui vieles dans Windows
pas marcher, cela muss pas abgeprüft volonté. peut-être wäre seulement qui Version intéressant
KompilierenMarqueSéparation
Declaring new functions for Profan² 6.6 through windows API
Def @InitCommonControlsEx(1) !COMCTL32,InitCommonControlsEx
DEF @ImageList_Create(5) !COMCTL32,ImageList_Create
DEF @ImageList_AddIcon(2) !COMCTL32,ImageList_AddIcon
DEF @ImageList_Destroy(1) !COMCTL32,ImageList_Destroy
DEF @GetModuleHandle(1) !KERNEL32,GetModuleHandleA
DEF @LoadIcon(2) ! USER32,LoadIconA
DEF @GetProcAddress(2) !KERNEL32,GetProcAddress
Declare INITC#,ComoBoxEx&,Imagelist&,Iconname#
Declare ExecuteHandle&,Hicon&,M_Present&
Declare Proc_Name#,MHandle&,M_NAME#
Declare CBTEXT#,CBINSERT#
This peace of code is for looking, if icons can be placed in ComboBox.

If InitCommonControlsEx doesnt exist in the system-dll COMCTL32.DLL, there is displayed

    a normal combobox without icons

    Proc ComBoBoxInsertEx

        You can place other icons for selected items, but in the code it is not done (that why there are 3 icons)
        Parameters Inserttext$,CBHandle&,Icon1&,Icon2&,Icon3&
        DIM CBINSERT#,36
        DIM CBTEXT#,256
        Clear CBINSERT#
        String CBTEXT#,0=Inserttext$
        Long CBINSERT#,0=$1+$2+$4+$8
        Long CBINSERT#,4=-1
        Long CBINSERT#,8=CBTEXT#
        Long CBINSERT#,12=Icon1&
        Long CBINSERT#,16=Icon2&
        Long CBINSERT#,20=Icon3&
        @SendMessage(CBHandle&,$401,0,CBINSERT#)
        Dispose CBINSERT#
        Dispose CBTEXT#

    EndProc

    DIM INITC#,8
    long INITC#,0=8
    long INITC#,4=$4000
    Windowstyle 31+512
    Windowtitle ComboboxEx
    Window 0,0-640,440
    @InitCommonControlsEx(INITC#)
    DIM Iconname#,256
    Let Imagelist&=@ImageList_Create(16,16,$0001,3,3)create imagelist
    Let ExecuteHandle&=@GetModuleHandle(0)Handle of the Profan-exe
    String ICONNAME#,0=Weg
    Let Hicon&=@loadicon(Executehandle&,Iconname#)Get the handle of the icon weg
    @ImageList_AddIcon(Imagelist&,HIcon&)put the icon into the imagelist
    String ICONNAME#,0=Windows
    Let Hicon&=@loadicon(Executehandle&,Iconname#)Get the handle of the icon windows
    @ImageList_AddIcon(Imagelist&,HIcon&)put the icon into the imagelist
    String ICONNAME#,0=Editor
    Let Hicon&=@loadicon(Executehandle&,Iconname#)Get the handle of the icon editor
    @ImageList_AddIcon(Imagelist&,HIcon&)put the icon into the imagelist
    LET ComoBoxEx&=@Control(ComboBoxEx32,,$40000000+$10000000+$200000+$100000+2+$40,0,100,150,180,%HWND,2115,%HINSTANCE)
    @Sendmessage(ComoBoxEx&,$402,0,Imagelist&)
    dispose Iconname#
    ComBoBoxInsertEx Claudia,ComoBoxEx&,0,0,0put the item Claudia with the icon weg into the combobox
    ComBoBoxInsertEx Andreas,ComoBoxEx&,1,1,1put the item Andreas with the icon windows into the combobox
    ComBoBoxInsertEx Dennis,ComoBoxEx&,2,2,2put the item Dennis with the icon editor into the combobox

    While %Key<>2

        Waitinput
        Drawtext 0,0,@Gettext$(ComoBoxEx&)+@Space$(255)

    Wend

    @ImageList_Destroy(Imagelist&)
    ='./../../references-fonction/XProfan/dispose/'>Dispose INITC#
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
18.02.2007  ▲
 



Lies doch la fois entier dessus - tout autor ca va pas!

pourquoi qui chez dir sous XProfan10 pas fonctionne, pourrait wohl chaque bien sûr son - cela liegt am Manifest (exposition la fois avec TNT pour). und dir mir tout autor, si qui so comment qui de mir posté wurde sous 6.6 pas fonctionne.
 
18.02.2007  ▲
 




Dieter
Zornow
je hatte cela dessus déjà posté, wurde mais abgeschnitten.
sous 6.6 fonctionne il chez mir
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
18.02.2007  ▲
 



merci, cela stellt mon Weltbild wieder her .
 
18.02.2007  ▲
 




Jörg
Sellmeyer
allô Andreas,
XP Pro, SP2, Profan 6.6: Es fonctionne et dans qui Combobox sommes 3 Icônes avec Namen trop voyons.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
18.02.2007  ▲
 



merci, wunderbar. Test hat sich avec cela erledigt.
 
18.02.2007  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

627 Views

Untitledvor 0 min.
iF01.07.2012

Themeninformationen

cet Thema hat 3 participant:

unbekannt (5x)
Dieter Zornow (3x)
Jörg Sellmeyer (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie