XProfan

Français

GDL

Hallöle,

darf qui Scrollbereich eines Scrollbalken pas de Minus pour Plus aller.
Siehe Beispiel:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

RGH

là était réellement encore un Bug drin, qui allerdings déjà toujours drin était:
qui entsprechende Message gibt qui Scrollposition comme Word (0 ... 65535) zurück. si qui Wert größer comme 32767 ist, muss daher 65536 abgezogen volonté, à richtige Position (-32767 ... +32767) trop ermitteln. cette Schritt fehlte jusqu'alors.

Pour nunmehr presque 20 Jahren wird aussi cette Bug gefixt!

Salut
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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

si du negative Werte avons veux, musst du vous pour dem Lecture quasi errechnen:
Kompilieren Marque Séparation

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

Nachtrag:
je seh justement, dass le son Aider eigentlich aussi negative Werte possible son müssten. un alter mitgeschleppter Bug?

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

20.10.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Georg
Teles

Hmm, jau Aider sagt: niedrigster Wert ( -32767 ), höchster Wert ( 32767 )

qui poutre springt sowohl dans XProfan X2, dans XProfan 10.0 comme aussi dans 8.0, sieht pour einem Bug aus

XProfan X2
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

20.10.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Pour deine Zwecke schicker et vielseitiger pourrait de toute façon une Trackbar son:
Kompilieren Marque Séparation

 $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);"  "