` Controlling horizontal scroll bar in code ( Maarten ) - Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Icetips Article

Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

Par2: Controlling horizontal scroll bar in code
2000-06-14 -- Maarten
 
I'm getting a DejaVu feeling from this message > Somehow I need to control the horizontal scrollbar in a list box from a Since you want to solve this the hard way...... Your biggest problem is that the horizontal scrollbar doesn't fire an event whatsoever (with or without the IMM-atrib on the listbox), so we'll have to make those ourselves;) On the Window (not the listbox) Alrt() the LeftKey and the RightKey. Activate the horizontal scrollbar on the listbox. Place a region over the scrollable part of this scrollbar. Place buttons exactly over the horizontal scroll-buttons with ICON:VCRplay on the left- and ICON:VCRback on the right-button, so you won't see any difference with the original horizontal scrollbar. Those buttons plus the region must be *before* the listbox in the window control order. In the accepted embed for the left-button enter: PRESSKEY(LeftKey) SELECT(?List1) In the accepted embed for the right-button enter: PRESSKEY(RightKey) SELECT(?List1) And finally in the EVENT:AlertKey embed of the Window: LOC:HorScr = ?List1{PROP:HScrollPos} IF KeyCode() = RightKey IF LOC:HorScr < 50 LOC:HorScr += 7 ?List1{PROP:HScrollPos} = LOC:HorScr ELSE CYCLE END END IF KeyCode() = LeftKey IF LOC:HorScr > 6 LOC:HorScr -= 7 ?List1{PROP:HScrollPos} = LOC:HorScr ELSE CYCLE END END DISPLAY(?List1) And you're done:) (tested code!) Now when the user presses Cursor_Right, the listbox will scroll 7 columns to the left. This also happens when he presses the right-arrow on your horizontal scrollbar (well... he presses your button but he doesn't know that). And, the thumb on the scroll bar goes to the right as well:)


Today is November 23, 2024, 3:56 am
This article has been viewed 35396 times.



Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password: