| |
| |
|
Julian
Schmidt | Hi,
i'd gladly a VScroll without these komischen Pfeile left and right create.
I suspect that I which Style Edit must. where find I a Überblick To this. I have already in Konstantinopel geschaut! there find I a entry Scrollable, is the one Scroll bar? Reicht it whom Style with SetStyle To transfer? or must I the element by Create Control?
Windowstyle 24
Window 100,200-200,70
Windowtitle "Scrollbalken"
var Scrollbalken&=Create("HScroll",%hwnd,"",10,10,width(%hwnd)-20,height(%hwnd)-20)
SetScrollRange Scrollbalken&,0,100
SetScrollPos Scrollbalken&,50
while 1
waitkey
case iskey(27) : end
Endwhile
LG
Julian |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 07/08/11 ▲ |
|
| |
|
|
 | me at least isn't famous the one such very How from you beschriebenes Control from the windows-GUI already vorgefertig vorgehalten becomes.
my TIP: Control-Spy: [...] |
|
| |
| |
| |
|
|
Julian
Schmidt | thanks for Tipp.
In ControlSpy find I none suitable Style which such one result bewirkt.
though find I a Message which The Pfeile deaktiviert (at least whom left arrow)
gives it a others Possibility a Scroll bar without such Pfeile to create.
except the Possibility, the element yourself on the dialog to drawing?
so, or similar place I me whom Scroll bar to...
 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07/08/11 ▲ |
|
| |
|
|
| |
| |
| |
| |
|
|
Julian
Schmidt | iF (08.07.11)
look times the Winform.inc ( [...] ) and Ausmasse the Pfeilboxen get z.B. with SM_CXHSCROLL by GetSystemMetrics-function ( [...] ) determined.
hmmmm...the prune the Scrollbalken's alla Winform.inc goes of course for a momentum, though if one above drives is the integrally normal Scroll bar again there.
$I Winform.inc
Windowstyle 24
Window 100,200-200,70
Windowtitle "Scrollbalken"
var Scrollbalken&=Create("HScroll",%hwnd,"",0,10,width(%hwnd),height(%hwnd)-20)
SetScrollRange Scrollbalken&,0,100
SetScrollPos Scrollbalken&,50
shape.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
while 1
shape.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
Endwhile
iF (08.07.11)
Julian57 [...] so, or similar place I me whom Scroll bar to... this is (but) a Trackbar.
hmmmmm....Yes.
Inwiefern can Trackbars The position read, settle, and the 'Reichweite' limit |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07/08/11 ▲ |
|
| |
|
|
| | Verrät you (still) ControlSpy! |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Such time in the RGH-Forum to Trackbar. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 07/08/11 ▲ |
|
| |
|
|
Julian
Schmidt | @iF
iF (08.07.11)
Verrät you (still) ControlSpy!
On what refer You the now?
On?
Julian57 (08.07.11)
iF (08.07.11)look times the Winform.inc ( [...] ) and Ausmasse the Pfeilboxen get z.B. with SM_CXHSCROLL by GetSystemMetrics-function ( [...] ) determined. hmmmm...the prune the Scrollbalken's alla Winform.inc goes of course for a momentum, though if one above drives is the integrally normal Scroll bar again there. $I Winform.inc
Windowstyle 24
Window 100,200-200,70
Windowtitle "Scrollbalken"
var Scrollbalken&=Create("HScroll",%hwnd,"",0,10,width(%hwnd),height(%hwnd)-20)
SetScrollRange Scrollbalken&,0,100
SetScrollPos Scrollbalken&,50
shape.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
while 1
shape.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
Endwhile
or sooner on?
Julian57 (08.07.11)
IF (08.07.11)hmmmmm....Yes. Inwiefern can Trackbars The position read, settle, and the 'Reichweite' limit
@Jörg
Jörg Sellmeyer (08.07.11)
Such time in the RGH-Forum to Trackbar.
in the Forum there no direct Suchergebnisse [...] |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07/08/11 ▲ |
|
| |
|
|
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer |
in the Forum there no direct Suchergebnisse
comic - and wieso find I then same in the first Posting one lauffähiges example...?
 |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 07/08/11 ▲ |
|
| |
|
|
| do time as though You reading can!  |
|
| |
| |
| |
|
|
Julian
Schmidt | @Jörg
hmmmm....Yes the example have I overlooking 
@All
How can I The Postion the Trackbar settle
declare slider1&,slider2&, slider3&,slider4&
cls
Set("decimals",0)
slider1&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54000012, 10, 100, 25, 100, %hwnd, 2011, %hInstance, $00010004)
slider2&=Control("MSCTLS_TRACKBAR32", "Trackbar02", $5400000e, 70, 100, 40, 100, %hwnd, 2011, %hInstance, $00010004)
slider3&=control("MSCTLS_TRACKBAR32","Trackbar03",$50400061,10,210,400,30,%hwnd,0,%hinstance)
slider4&=control("MSCTLS_TRACKBAR32","Trackbar04",$50000010,10,250,400,30,%hwnd,0,%hinstance)
SendMessage(slider1&,$0406,0,MakeLong(0,255))
SendMessage(slider2&,$0406,0,MakeLong(0,100))
SendMessage(slider3&,$0406,0,MakeLong(0,100))
SendMessage(slider4&,$0406,0,MakeLong(0,100))
whilenot %scankey=27
waitinput
locate 1,1
print "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);" "
print "Trackbar 2:";100-SendMessage(slider2&,$0400,0,0);" "
print "Trackbar 3:";SendMessage(slider3&,$0400,0,0);" "
print "Trackbar 4:";SendMessage(slider4&,$0400,0,0);" "
endwhile
|
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07/09/11 ▲ |
|
| |
|
(507)
Deutsch
English
Français
Español
Italia
