Skip to content

Instantly share code, notes, and snippets.

@ttetley
ttetley / PDSframe.tpl
Created January 19, 2016 19:42
Template to set background color on Clarion appFrame
#TEMPLATE( PDSFrame, 'Application frame background color' ), FAMILY('ABC')
#EXTENSION (AppFrameBGcolor, 'Set the background color of the application frame'), PROCEDURE
#Declare (%FrameBGColor,LONG)
#SHEET
#TAB ('Specify background color for application frame')
#Prompt ('Background color:',color),%FrameBGColor
#DISPLAY ('')
#DISPLAY ('Specify an equate name, a Hex value, or use the button')
#DISPLAY ('(Do Not select from the "Standard Colors" drop list!)')
#DISPLAY ('("Color:None" will produce a black background)')