XProfan

- page 2 -

Rolf
Koch

parent contient la valeur 0

Kompilieren Marque Séparation

- page 3 -

var PARENT&=call(__cf1&,65556,0,ComboLBox,0)

Zur Info: ici wird FindWindowExA aufgerufen. Pour 65556 pourrait on aussi %Desktop écrivons et sur %Desktop befinden sich dans qui règle plusieurs la fenêtre cette super (siehe Tasks and Token).

là je ne...aucune XProfan10 habe, gebe je qui weitere Ursachenforschung seulement la fois à qui anderen ab.

ah oui - et %Desktop ist naturellement pas sur chaque System 65556 - comment gesasgt, quelque chose windig qui Code....

Ralph
Theobald

allô ,

qui wird car juste dans qui air aller .

Vielen Dank erstmal à alle pour qui actif Teilnahme à dem Problem.

Si j'ai deinen Code quelque chose modifiziert. Im Interpreter courir qui beiden Versionen
zwar unterschiedlich, mais vous courir.
Kompiliert vous êtes glaube je pas trop gebrauchen
Kompilieren Marque Séparation

DECLARE __cf1&,__cf2&
Def __cf1(2) !KERNEL32,GetProcAddress
Def __cf2(1) !KERNEL32,GetModuleHandleA
__cf1&=__cf1(__cf2(user32.dll),FindWindowExA)
__cf2&=__cf1(__cf2(user32.dll),GetAsyncKeyState)
CLS
var STATIC&=CREATE(choicebox,%HWND,Choicebox,16,16,560,180)
USERMESSAGES 16,$0134

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF 16

        BREAK

        CASEOF $0134

        PROCEEDCHOICEBOX
        OTHERWISE

    ENDSELECT

ENDWHILE

end

proc PROCEEDCHOICEBOX

    var TITEL$=Links;0;80;Mitte;2;100;Rechts;1;80
    var PARENT&=call(__cf1&,65556,0,ComboLBox,0)
    var HGRID&=CREATE(GridBox,%HWND, TITEL$, 3,16,40,WIDTH(PARENT&),HEIGHT(PARENT&))
    SENDKEY(PARENT&,27)
    ADDSTRING(HGRID&,AB|DEF|0123)
    ADDSTRING(HGRID&,GHI|J23KL|012345)
    WAITINPUT
    var S$=

    IF GETCURSEL(HGRID&)>-1

        S$=GETSTRING$(HGRID&,GETCURSEL(HGRID&))

    ENDIF

    DESTROYWINDOW(HGRID&)
    Combobox_if1          DESTROYWINDOW(HGRID&)  auskommentiert
    Combobox_if2          DESTROYWINDOW(HGRID&) im code enthalten

    IFNOT S$=

        LOCATE 20,1
        PRINT Ausgewählt: ,S$

    ENDIF

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

Salut Ralph

Combobox_if.zip	645 kB

Hochgeladen:	08.03.2007

Downloadcounter:
		Download

Xprofan 10 , AMD Athlon 3000+, 1GB

Ralph
Theobald

à alle,

qui beiden obigen Versionen courir seulement sous Win XP, Xprofan 10
chez einer Version erscheint qui Listview, on klickt une Eintrag à,cela Ergebnis wird
angezeigt.qui Box klappt wieder un.

chez qui anderen Version peux on qui Spaltenbreite verstellen , un Ergebnis wird
ausgegeben, mais seulement einmal.

Beides zusammen wäre ideal.

Compilat: 1: LV wird angezeigt, Einträge laisser sich auswählen , volonté mais
pas ausgegeben

Compilat 2: Ausgabe erfolgt seulement pour chaque 3. Klick,

sous Xprofan 8 , w2k klappt qui box seulement kurz sur

Salut Ralph

Xprofan 10 , AMD Athlon 3000+, 1GB

RGH

Ralph Theobald

sous Win2k , Xprofan 8 comment chez Andreas .

Mich wundert es pas, qui Gridboxen pas sous XProfan 8 marcher, là es qui seulement depuis XProfan 10 gibt!

Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

RGH

Mich wundert es pas, qui Gridboxen pas sous XProfan 8 marcher, là es qui seulement depuis XProfan 10 gibt!

Roland

aussi qui avec XProfan10 compilierte EXE allez là pas (du Scherzkecks du

)

Herjeh es ging mir dans erster ligne number tout autor sur une Solution avec Usermessages

umzustellen, %desktop

habe je pas avec 65556 gemeint - hab ici dans qui la hâte trop flüchtig recherchiert.

Ralph
Theobald

si je un gridbox z.B. dans un Rebar mets, übernimmt Windows qui
Verwaltung des Controls , sobald je es anklicke.

j'ai mir cela Handle qui Listbox par cela Callback besorgt.si quelqu'un
une autre Possibilité kennt , ensuite her avec cela.

je werde es la fois encore avec qui Listview.dll essayer, mais cela allez wahrscheinlich aussi pas.

comme Solution peux je mir seulement présenter:

1. Ausgabe dedans qui Callbackroutine. (trop aufwendig)
2. cela Handle qui Listbox sans Callback (comment?) ,ensuite devrait Ifs Methode sans
cette ominösen Call marcher !?

Es wundert mich pas ,dass es chez qui Programmation qui Controls dans Windoof offensichtlich keinen roten fil gibt. Beim Rebar mets on cela Contrôle ins ruban , Windows passt automatisch qui Taille des Controls à qui Taille des Bandes à.chez qui Choicebox funktioniert cela so pas. quoi pour une Sinn pouvoir ensuite qui Befehl
Setparent ?

Salut Ralph

Xprofan 10 , AMD Athlon 3000+, 1GB

cela Handle qui Listbox sans Callback (comment?) ,ensuite devrait Ifs Methode sans
cette ominösen Call marcher !?

je wüsste peut-être. comment, peux je mais pas testen - ne...aucune XP et ne...aucune XProfan10, sorry. et si on sur mon Bemühungen de denen je personnelle rien habe pas reagiert, habe je aussi irgendwann aucun Lust plus - mais est einsehbar - ou bien? Tschau.

PS: un Tool, cela zum Beispiel chez qui Entwicklung solcher solchen très gute Dienste Leisten pourrait, wäre Tasks and Token - là sieht on assez oui c'est ca wohin es windig wird et pourquoi.

Ralph
Theobald

allô Andreas,
pardon , mais je voulais toi pas übergehen.j'ai mich chez allen bedankt
qui mir geholfen avons.avec cela meinte je aussi toi.
malheureusement suis je pas so un begnadeter Programmierer comment qui meisten ici, c'est pourquoi
frage je oui.
trop Task & Token : j'ai mir cela Programme installiert, mais je betreibe Profan seulement
comme Hobby, c'est pourquoi brauche je toujours quelque chose länger um mich dans qui neuen
Programme einzuarbeiten.j'ai avec Spy++ versucht qui Messages abzufangen,
mais sans Erfolg.
je vois cela Ganze incidemment oui c'est ca comment Du, possible aucun undokumentierten Befehle
ou bien Tricksereien, qui seulement sur einem calculateur,einem Betriebssystem ou bien einer
xprofanversion courir herzustellen.

Vielen Dank

Ralph

Xprofan 10 , AMD Athlon 3000+, 1GB