| |
| |
|
Rainer
Hoefs | Hi,
have me yesterday The XProfanX4s bought.
The Hauptgrund was schönere SpinEdits-Control.
now place I solid, that one therein the value not any more with the MouseWheel take on can.
knows someone a Solution?
And then another question:
i want in the SpinEdits no input over The keyboard to permit.
The worth should only over The UpDown-Arrows or over the MouseWheel tuned go can.
have already into Messages sought, but nothing found. (Perhaps too with of/ one incorrect idea sought.)
for Help always grateful
Rainer
[OFFTOPIC]Have time whom cover something complement
Jörg
[/OFFTOPIC] |
|
| |
| |
| |
|
|
H.Brill | that the Mausrad again goes, becomes quite
difficult.
The others thing, that it only over The Pfeile
goes, is machbar.
Have so did i not known, separate ausprobiert :
SendMessage(spin, $00CF, 1, 0)
simply the Editfeld the Spins on READ_ONLY settle.
See Messages for Editfields.
How one so beautiful says :
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. | 03/10/18 ▲ |
|
| |
|
|
Rainer
Hoefs | |
| |
| |
| |
|
|
H.Brill | I have something sought and could you something like
offer :
Declare lever spin, Long end
Window 600, 400
spin = Create("SpinEdits",%HWnd,"0;0;100",10,10,48,24)
SendMessage(spin, $00CF, 1, 0)
User Messages $20A, $010
end = 0
WhileNot end
WaitInput
Select %UMessage
CaseOf $20A
If HiWord(&UWPARAM) = 120
If Val(GetText$(spin)) < 100
SetText spin, Str $(Val(GetText$(spin)) + 1)' high
EndIf
Else
If Val(GetText$(spin)) > 0
SetText spin, Str $(Val(GetText$(spin)) - 1)' down
EndIf
EndIf
CaseOf $010' wm_close
end = 1
EndSelect
EndWhile
End
now goes both.
Einziges Manko :
the Mausrad goes in Mainwindow, means too outside
the Editfeldes of SpinEdits.
Something like should one then with SubClassing intercepting.
but Perhaps sufficient you the already. |
|
| |
| 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. | 03/10/18 ▲ |
|
| |
|
|
H.Brill | there it me no silence let, now too with
SubClassing :
Declare lever spin, Long end
Window 600, 400
spin = Create("SpinEdits",%HWnd,"0;0;100",10,10,48,24)
SendMessage(spin, $00CF, 1, 0)
User Messages $20A, $010
end = 0
SubClassProc
If SubClassMessage(spin, $20A)
If HiWord(&sWParam) = 120
If Val(GetText$(spin)) < 100
SetText spin, Str $(Val(GetText$(spin)) + 1)' high
EndIf
Else
If Val(GetText$(spin)) > 0
SetText spin, Str $(Val(GetText$(spin)) - 1)' down
EndIf
EndIf
Set("WinProc", 0)
EndIf
ENDPROC
SubClass spin, 1
WhileNot end
WaitInput
/*
other inquire
*/
Case %UMessage = $10 : end = 1
EndWhile
SubClass spin, 0
End
How it shining, access The MouseWheel - Message not
only the Mainwindow, separate too The others Controls.
If one several SpinEdits has, is these method
rather. |
|
| |
| 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. | 03/10/18 ▲ |
|
| |
|
(850)
Deutsch
English
Français
Español
Italia