Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
An example of a Tip column in a list box
PROGRAM
OMIT('***')
* Created with Clarion 9.1
* User: Mark Goldberg
* Created: 9/2/2014 @ Time: 2:26 PM
***
MAP
END
Q QUEUE
Description STRING(47)
TipText STRING(100)
END
WINDOW WINDOW('Press ESC to Close'),AT(,,139,170),GRAY,FONT('Microsoft Sans Serif',8)
LIST,AT(16,14,109,135),USE(?LIST1),FROM(Q),FORMAT('20L(2)|MP~Description~')
BUTTON('Close'),AT(53,154),STD(STD:Close)
END
CODE
DO FillQ
OPEN(Window)
ACCEPT
END
FillQ ROUTINE
Q.Description = 'Hi' ; Q.TipText = 'There' ; ADD(Q)
Q.Description = 'My' ; Q.TipText = 'Name' ; ADD(Q)
Q.Description = 'Is' ; Q.TipText = 'Inigo Montoya' ; ADD(Q)
Q.Description = 'You' ; Q.TipText = 'Killed' ; ADD(Q)
Q.Description = 'My' ; Q.TipText = 'Father' ; ADD(Q)
Q.Description = 'Prepare'; Q.TipText = 'To Die' ; ADD(Q)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.