XProfan

Español

Jac
de
Lad

¡Hola Comunidad.

Für mein aktuelles Projekt bastel Yo a ComboboxEx-Controls (Choiceboxen con Icons). Como Roland el, soweit Yo weiß, no einbauen se y hay algo umständlich es, hier mi Cuestión:

Besteht Interesse, dass veces como Subproc con Serviceprozeduren hier para enviar?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

15.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

Aber siempre

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

15.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Ok...en el nächsten Tagen.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

15.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

Mein Posting: 22.49 Uhr

Su Posting: 22.49 Uhr

¿Puede Usted Gedanken lesen?

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

15.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Jo. Sei en el Hut!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

15.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

I love all Jac-Boys of the world.

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

15.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

16.01.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Hier primero el Grundfunktionen. Seguro todavía verbesser- y erweiterungswürdig.
Kompilieren Marca Separación

subproc create.choiceboxex

    Parameters hwnd&,il&,x&,y&,dx&,dy&
    übergeordnetes Fenster,Imagaliste,Position (x und y),Größe
    declare hdl&
    hdl&=Control(ComboBoxEx32,,$50010007,x&,y&,dx&,dy&,hwnd&,110,%hinstance,0)
    sendmessage(hdl&,$402,0,il&)
    Return hdl&

endproc

proc CBExAddString

    Parameters hdl&,s$,ic1&,ic2&
    Handle,String,Icon für nicht ausgewählt (Index in der Imagelist),Icon für ausgewählt (Index in der Imagelist)
    declare cb1#,cb2#
    Dim cb1#,255
    Dim cb2#,36
    Long cb2#,0=$F,-1
    String cb1#,0=s$
    long cb2#,8=cb1#,255,ic1&,ic2&
    sendmessage(hdl&,$401,0,cb2#)
    Dispose cb1#,cb2#

endproc

proc CBExSetCurSel

    Parameters hdl&,cur&
    Handle,Index des zu wählenden Eintrags
    Return sendmessage(hdl&,$14E,cur&,0)

endproc

proc CBExGetHandle

    ermittelt das Handle der beinhalteten ComboBox (zum Beispiel für Getfocus())
    Parameters hdl&
    Return sendmessage(hdl&,$406,0,0)

endproc

proc CBExGetCurSel

    Handle
    Parameters hdl&
    Return sendmessage(hdl&,$147,0,0)

endproc

proc CBExGetString

    Handle,Index
    Parameters hdl&,i&,p$
    declare cb1#,cb2#
    Dim cb1#,255
    Dim cb2#,36
    Long cb2#,0=$F,i&,cb1#,255
    sendmessage(hdl&,$404,0,cb2#)
    p$=String$(cb1#,0)
    Dispose cb1#,cb2#
    Return p$

'./../../function-references/XProfan/ENDPROC/'>ENDPROC