| |
| |
|
Julian
Schmidt | Hallo,
ich würde gerne einen VScroll ohne diese komischen Pfeile links und rechts erstellen.
Ich vermute das ich dessen Stil bearbeiten muss. Wo finde ich einen Überblick zu diesen. Ich habe bereits in Konstantinopel geschaut! Dort finde ich einen Eintrag Scrollbar, ist das ein Scrollbalken? Reicht es den Stil mit SetStyle zu übergeben? Oder muss ich das Element per Control erstellen?
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 [...]  | 08.07.2011 ▲ |
|
| |
|
|
 | Mir zumindest ist nicht bekannt das ein solch genau wie von Dir beschriebenes Control von der Windows-GUI bereits vorgefertig vorgehalten wird.
Mein TIP: Control-Spy: [...] |
|
| |
| |
| |
|
|
Julian
Schmidt | Danke für den Tipp.
In ControlSpy finde ich keinen passenden Stil welcher solch ein Resultat bewirkt.
Allerdings finde ich eine Message welche die Pfeile deaktiviert (zumindest den linken Pfeil)
Gibt es eine andere Möglichkeit einen Scrollbalken ohne solche Pfeile zu erstellen.
Ausgenommen der Möglichkeit, das Element selber auf dem Dialog zu zeichnen?
So, oder ähnlich stelle ich mir den Scrollbalken vor...
 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.07.2011 ▲ |
|
| |
|
|
| |
| |
| |
| |
|
|
Julian
Schmidt | iF (08.07.11)
schau mal die winform.inc ( [...] ) und Ausmasse der Pfeilboxen bekommst z.B. mit SM_CXHSCROLL per GetSystemMetrics-Funktion ( [...] ) ermittelt.
hmmmm...das beschneiden des Scrollbalken's alla Winform.inc geht zwar für einen Moment, allerdings wenn man darüber fährt ist der ganz normale Scrollbalken wieder da.
$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
form.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
while 1
form.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
Endwhile
iF (08.07.11)
Julian57 [...] So, oder ähnlich stelle ich mir den Scrollbalken vor... Das ist (aber) eine Trackbar.
hmmmmm....ja.
Inwiefern kann man Trackbars die Position auslesen, setzen, und die 'Reichweite' begrenzen |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.07.2011 ▲ |
|
| |
|
|
| | Verrät Dir (doch) ControlSpy! |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | | Such mal im RGH-Forum nach Trackbar. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.07.2011 ▲ |
|
| |
|
|
Julian
Schmidt | @iF
iF (08.07.11)
Verrät Dir (doch) ControlSpy!
Auf was beziehst du das nun?
Auf?
Julian57 (08.07.11)
iF (08.07.11)schau mal die winform.inc ( [...] ) und Ausmasse der Pfeilboxen bekommst z.B. mit SM_CXHSCROLL per GetSystemMetrics-Funktion ( [...] ) ermittelt. hmmmm...das beschneiden des Scrollbalken's alla Winform.inc geht zwar für einen Moment, allerdings wenn man darüber fährt ist der ganz normale Scrollbalken wieder da. $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
form.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
while 1
form.hdl(Scrollbalken&,10,0,width(Scrollbalken&)-15,height(%hwnd)-0)
Endwhile
Oder eher auf?
Julian57 (08.07.11)
IF (08.07.11)Julian57 (08.07.11)So, oder ähnlich stelle ich mir den Scrollbalken vor... Das ist (aber) eine Trackbar. hmmmmm....ja. Inwiefern kann man Trackbars die Position auslesen, setzen, und die 'Reichweite' begrenzen
@Jörg
Jörg Sellmeyer (08.07.11)
Such mal im RGH-Forum nach Trackbar.
Im Forum gibt es keine direkten Suchergebnisse [...] |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 08.07.2011 ▲ |
|
| |
|
|
|
|
| |
| |
| |
|
|
Jörg
Sellmeyer |
Im Forum gibt es keine direkten Suchergebnisse
Komisch - und wieso finde ich dann gleich im ersten Beitrag ein lauffähiges Beispiel...?
 |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08.07.2011 ▲ |
|
| |
|
|
| Tust mal als ob Du lesen kannst!  |
|
| |
| |
| |
|
|
Julian
Schmidt | @Jörg
hmmmm....ja das Beispiel habe ich übersehen 
@All
Wie kann ich die Postion der Trackbar setzen
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 [...] | 09.07.2011 ▲ |
|
| |
|
(444)
Deutsch
English
Français
Español
Italia
