| |
|
|
Rainer Hoefs | Salut,
habe mir gestern qui XProfanX4s gekauft. qui Hauptgrund était cela schönere SpinEdit-Contrôle.
eh bien lieu je fest, qui on y la valeur pas plus avec dem MouseWheel einstellen peux.
Kennt quelqu'un une Solution?
et ensuite encore une Frage: je voudrais im SpinEdit aucun Eingabe sur qui clavier zulassen.
qui Wert soll seulement sur qui UpDown-Arrows ou bien sur cela MouseWheel eingestellt volonté peut.
Habe déjà dans den Messages gesucht, mais rien trouvé. (peut-être aussi avec einer falschen concept gesucht.)
Pour Aider toujours reconnaissant Rainer
[OFFTOPIC]Hab la fois den Titel quelque chose ergänzt Jörg [/OFFTOPIC] |
|
|
| |
|
|
|
H.Brill | sofern cela Mausrad wieder allez, wird assez schwierig.
l'autre l'affaire, qui es seulement sur qui Pfeile allez, ist machbar.
Hab je aussi pas gewußt, mais ausprobiert :
SendMessage(spin, $00CF, 1, 0)
simple cela Modifier le champ de des Spins sur READ_ONLY mettons.
Siehe Messages pour Editfelder.
comment on so joli sagt :
VERSUCH MACHT KLUCH !!!!!!!!!!!!!!! |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 10.03.2018 ▲ |
|
|
|
|
Rainer Hoefs | |
|
| |
|
|
|
H.Brill | j'ai quelque chose gesucht et pourrait dir quelque chose comme anbieten :
Déclarer Handle spin, Long ende
Fenêtre 600, 400
spin = Créer("SpinEdit",%HWnd,"0;0;100",10,10,48,24)
SendMessage(spin, $00CF, 1, 0)
Utilisateur Messages $20A, $010
ende = 0
WhileNot ende
WaitInput
Select %UMessage
CaseOf $20A
Si HiWord(&UWPARAM) = 120
Si Val(GetText $(spin)) < 100
SetText spin, Str$(Val(GetText $(spin)) + 1)' hoch
EndIf
D'autre
Si Val(GetText $(spin)) > 0
SetText spin, Str$(Val(GetText $(spin)) - 1)' runter
EndIf
EndIf
CaseOf $010' wm_close
ende = 1
EndSelect
Endwhile
Fin
eh bien allez beides. Einziges Manko : cela Mausrad allez aussi im Hauptfenster, alors aussi außerhalb des Editfeldes vom SpinEdit. Quelque chose comme devrait on ensuite avec SubClassing intercepter. mais peut-être suffisant dir cela oui déjà. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 10.03.2018 ▲ |
|
|
|
|
H.Brill | là es mir aucun Ruhe ließ, maintenant aussi avec SubClassing :
Déclarer Handle spin, Long ende
Fenêtre 600, 400
spin = Créer("SpinEdit",%HWnd,"0;0;100",10,10,48,24)
SendMessage(spin, $00CF, 1, 0)
Utilisateur Messages $20A, $010
ende = 0
SubClassProc
Si SubClassMessage(spin, $20A)
Si HiWord(&sWParam) = 120
Si Val(GetText $(spin)) < 100
SetText spin, Str$(Val(GetText $(spin)) + 1)' hoch
EndIf
D'autre
Si Val(GetText $(spin)) > 0
SetText spin, Str$(Val(GetText $(spin)) - 1)' runter
EndIf
EndIf
Set("WinProc", 0)
EndIf
ENDPROC
SubClass spin, 1
WhileNot ende
WaitInput
/*
Sonstige Abfragen
*/
Cas %UMessage = $10 : ende = 1
Endwhile
SubClass spin, 0
Fin
comment es scheint, erreicht qui MouseWheel - nouvelle pas seulement cela Hauptfenster, mais aussi qui anderen Controls.
si on plusieurs SpinEdits hat, ist cet Methode besser. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 10.03.2018 ▲ |
|
|
|