Par2: Create scrolling buttons (template) 2001-10-24 -- Al Sierra Here's a simple template I wrote a while back
#CONTROL(ToolStrip,'Toolbar On Window'),REQ(BrowseBox(ABC))
#Prompt('Select ListBox',FROM(%Control,%ControlType='LIST')),%WhichList
Controls
BUTTON(''),USE(?Button:Top),AT(1,2,16,29),ICON('Tstop.ico'),LEFT
BUTTON(''),USE(?Button:Prev),AT(1,32,16,21),ICON('Tsprev.ico'),LEFT
BUTTON(''),USE(?Button:Up),AT(1,54,16,13),ICON('Tsup.ico'),LEFT
BUTTON(''),USE(?Button:Find),AT(1,68,16,14),ICON('Tsball.ico'),LEFT
BUTTON(''),USE(?Button:Down),AT(1,84,16,13),ICON('TsDown.ico'),LEFT
BUTTON(''),USE(?Button:Next),AT(1,98,16,21),ICON('TsNext.ico'),LEFT
BUTTON(''),USE(?Button:Bottom),AT(1,120,16,29),ICON('TsBottom.ico'),LEFT
END
#! Embeded Code to Control Browse Button
#AT(%ControlEventHandling,'?Button:Find','Accepted'),PRIORITY(5000)
Select(?LocateName)
#ENDAT
#AT(%ControlEventHandling,'?Button:Bottom','Accepted'),PRIORITY(5000)
Post(Event:ScrollBottom,%WhichList)
#ENDAT
#AT(%ControlEventHandling,'?Button:Down','Accepted'),PRIORITY(4999)
Post(Event:ScrollDown,%WhichList)
#ENDAT
#AT(%ControlEventHandling,'?Button:Next','Accepted'),PRIORITY(5000)
Post(Event:PageDown,%WhichList)
#ENDAT
#AT(%ControlEventHandling,'?Button:Top','Accepted'),PRIORITY(4999)
Post(Event:ScrollTop,%WhichList)
#ENDAT
#AT(%ControlEventHandling,'?Button:Up','Accepted'),PRIORITY(4999)
Post(Event:ScrollUp,%WhichList)
#ENDAT
#AT(%ControlEventHandling,'?Button:Prev','Accepted'),PRIORITY(4499)
Post(Event:PageUp,%WhichList)
#ENDAT
Printed May 10, 2024, 1:12 pm This article has been viewed/printed 35122 times. |