XProfan

Español

GDL

Hallöle,

darf el Scrollbereich uno Scrollbalken no de Minus después de Plus ir.
Siehe Ejemplo:
Kompilieren Marca Separación

declare ende%,scrollbalken&
cls
scrollbalken&=create("hscroll",%hwnd,"",10,20,300,25)
SetScrollRange scrollbalken&,-200,200
SetScrollPos scrollbalken&,-10
sleep 300
SetScrollPos scrollbalken&,150
sleep 300
SetScrollPos scrollbalken&,-200
sleep 300
SetScrollPos scrollbalken&,0
'setscrollpos geht im negativen Bereich
'durch Drücken auf den kleinen nach Linkspfeil kann man auch den negativen Bereich anfahren
'mit dem Regler den negativen Bereich anfahren geht nicht. Regler springt immer zum positiven Anschlag

whilenot ende%

wend

Grüßle
Georg

XProfan X3
Windows7 Xprofan 8,9,10 [...]

[...]

19.10.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

RGH

Como war tatsächlich todavía una Bug drin, el allerdings ya siempre drin war:
El entsprechende Message son el Scrollposition como Word (0 ... 65535) zurück. Wenn el Valor größer como 32767 es, muss por lo tanto 65536 abgezogen voluntad, a richtige Position (-32767 ... +32767) a ermitteln. Dieser Schritt fehlte bislang.

Nach nunmehr fast 20 Jahren se auch dieser Bug gefixt!

Saludo
Roland

XProfan X2
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

18.05.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Wenn du negative Werte haben willst, musst du ellos después de el Auslesen quasi calcular:
Kompilieren Marca Separación

declare ende%,scrollbalken&
cls
scrollbalken&=create("hscroll",%hwnd,"",10,30,300,25)'Scroll mit Werten von 0 bis ...
SetScrollRange scrollbalken&,0,400
'SetScrollPos scrollbalken&,-10
'sleep 300
SetScrollPos scrollbalken&,150
sleep 300
SetScrollPos scrollbalken&,-200
sleep 300
SetScrollPos scrollbalken&,0
'setscrollpos geht im negativen Bereich

whilenot ende%

    Waitinput
    Locate 1,1
    Print GetScrollPos(scrollbalken&) - 200," "'Position auslesen und gewünschten Nullpunkt abziehen

wend

Apéndice:
Yo seh gerade, dass laut Ayuda eigentlich auch negative Werte posible ser müssten. Ein alter mitgeschleppter Bug?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

20.10.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Hmm, jau Ayuda sagt: niedrigster Valor ( -32767 ), más alto Valor ( 32767 )

Der Balken springt sowohl en XProfan X2, en XProfan 10.0 como auch en 8.0, sieht una Bug de

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

20.10.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Für deine Zwecke schicker y vielseitiger dürfte ohnehin una Trackbar ser:
Kompilieren Marca Separación

 $H commctrl.ph
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
declare slider1&,slider2&
Set("TrueColor", 1)
cls GETSYSCOLOR(15)
Set("decimals", 0)
slider1&=Control("MSCTLS_TRACKBAR32", "Trackbar01", $54010004, 10, 100, 400, 40, %hwnd, 2011, %hInstance, $00010004)'Horizontale Trackbar
slider2&=Control("MSCTLS_TRACKBAR32", "Trackbar02", $54000017, 50, 200, 40, 100, %hwnd, 2012, %hInstance, $00010004)
SendMessage(slider1&,~TBM_SETRANGE,1,MakeLong(-100,100))'die 1 erzwingt das Neuzeichnen des Sliders
SendMessage(slider2&,~TBM_SETRANGE,1,MakeLong(-200,400))
SendMessage(slider1&,~TBM_SETTIC,1,0)

whilenot %scankey=27

    waitinput
    locate 1,1
    print "Trackbar 1:";SendMessage(slider1&,$0400,0,0);"  "
    print "Trackbar 2:";SendMessage(slider2&,$0400,0,0);"  "