Slider Bar

This forum allows developers to post programming tips and coding techniques that may be useful to other Visual LANSA developers. The information contained in this forum has not been validated by LANSA and, as such, LANSA cannot guarantee the accuracy of the information.
Post Reply
User avatar
Stewart Marshall
Posts: 417
Joined: Thu Nov 05, 2015 5:25 pm

Slider Bar

Post by Stewart Marshall » Thu Nov 03, 2016 1:09 pm

Simple percentage based slider bar reusable part.

Here's a simple page showing its use

Code: Select all

Begin_Com Role(*EXTENDS #PRIM_WEB) Height(752) Width(1032) Theme(#SYS_THEME<2015Blue>)

Define_Com Class(#xDemoWebSliderBar) Name(#SliderBar) Left(8) Parent(#COM_OWNER) TabStop(False) Top(16) Width(729)
Define_Com Class(#PRIM_SPDT) Name(#gPercentage) DisplayPosition(2) Left(752) Parent(#COM_OWNER) ShowSelection(False) ShowSelectionHilight(False) TabPosition(2) Top(16) Height(49) Width(105) ThemeDrawStyle('Title')

Evtroutine Handling(#SliderBar.Changed) Percentage(#Percentage)

#gPercentage := #Percentage

Endroutine

Evtroutine Handling(#gPercentage.Changed)

#SliderBar.Percentage := #gPercentage

Endroutine

End_Com
Regards
Attachments
SliderBar.zip
(11.31 KiB) Downloaded 314 times
Stewart Marshall

Independent IT Consultant
www.marshallfloyd.com.au

Post Reply