XProfan

Deutsch

Jac
de
Lad

Hallo Community.

Für mein aktuelles Projekt bastel ich an ComboboxEx-Controls (Choiceboxen mit Icons). Da Roland das, soweit ich weiß, nicht einbauen wird und es etwas umständlich ist, hier meine Frage:

Besteht Interesse, dass mal als Subproc mit Serviceprozeduren hier zu posten?

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 zitieren Zeilenweise zitieren

Dietmar
Horn

Aber immer

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 zitieren Zeilenweise zitieren

Jac
de
Lad

Ok...in den 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 zitieren Zeilenweise zitieren

Dietmar
Horn

Mein Posting: 22.49 Uhr

Dein Posting: 22.49 Uhr

Kannst Du 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 zitieren Zeilenweise zitieren

Jac
de
Lad

Jo. Sei auf der 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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

Jac
de
Lad

Hier erstmal die Grundfunktionen. Sicher noch verbesser- und erweiterungswürdig.
Kompilieren Markieren Separieren

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$

endproc