XProfan

English

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?

Compile Mark Separation

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

bild-08.07.2011-15.09-kopie.png	5 kB

Hochgeladen:	07/08/11

Downloadcounter:
		Download

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

07/08/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

zwischenablage01.png	12 kB

Hochgeladen:	07/08/11

Downloadcounter:
		Download

07/08/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

do time as though You reading can!

07/08/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

@Jörg
hmmmm....Yes the example have I overlooking

@All
How can I The Postion the Trackbar settle

Compile Mark Separation

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 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

what meinsten...

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

hmmmm....presumably is it TBM_SETPOS or TBM_SETSEL.

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

so siehts time from: [...]

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

hmmm...Yes.
now becomes of course The position staid, but the Scroll bar won't moved.
gives it for too a Message? is it TBM_SETSEL?
Compile Mark Separation

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))
SendMessage(slider4&,$0405,0,50)'SetPos

whilenot %scankey=27

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

endwhile

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dieter
Zornow

TBM_setpos = $0405 not $0406
if You $0405 take ought to it weg

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

Dieter Zornow (09.07.11)

TBM_setpos = $0405 not $0406
if You $0405 take ought to it weg

Have I still, or?
Compile Mark Separation

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))
SendMessage(slider4&,$0405,0,50)'SetPos

whilenot %scankey=27

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

endwhile

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

Probier time
Compile Mark Separation

var x%=60
sendmessage(slider3&,$405,30,x%)e>

Gruß Thomas
Windows XP SP2, XProfan X2

07/09/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

hmmm...thanks
Compile Mark Separation

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))'SetRange
Sendmessage(slider3&,$405,1,50)'SetPos

whilenot %scankey=27

    locate 1,1
    print "Trackbar 1:";255-SendMessage(slider1&,$0400,0,0);"  "'GetPos
    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);"  "
    waitinput

endwhile