[futurebasic] Length of the thumb

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : July 2006 : Group Archive : Group : All Groups

From: Yoshiyuki Hasegawa <hase44@...>
Date: Thu, 20 Jul 2006 08:29:59 +0900
Hi All,

Can the length of the thumb of the scroll bar be specified for the
way above by the numerical value?
Without the link with the edit field.

Yoshiyuki

Reference code
'---------------------------------------
_scrollBtn = 1

local fn Window1
dim as WindowAttributes wa
dim As Rect r

wa = _kWindowStandardDocumentAttributes

SetRect(r, 100, 100, 500, 500)
appearance window -1, "Scroll Bar", @r, _kDocumentWindowClass, wa

scroll button _scrollBtn,1,1,20,,(0,0),_scrollVert//_scrollOther

appearance window 1
end fn

local fn doDialog
dim as long evnt,id
evnt = dialog(0)
id   = dialog(evnt)
select evnt
case _wndClose
end
case _btnClick
select id
case _scrollBtn
text _geneva, 14, 0
print%(50,50) Button(_scrollBtn)
end select
case _wndResized
beep
end select
end fn

fn Window1

on dialog fn doDialog

do
HandleEvents
until gFBQuit
'------------------------------------------------

Attachments: