Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Clarion - Set Color on Listbox Header
PROGRAM
MAP
END
Q QUEUE
First STRING(6)
Second STRING(6)
END
Window WINDOW('Caption'),AT(,,257,175),GRAY,FONT('Segoe UI',8),AUTO,SYSTEM
LIST,AT(13,14,238,152),USE(?LIST1),FROM(Q),FORMAT('33L(2)|M~First~@S5@20L(2)|M~Second~@S5@')
END
CODE
DO FillQueue
OPEN(Window)
?LIST1{PROPLIST:HdrTextColor, 1} = COLOR:Red
?LIST1{PROPLIST:HdrBackColor, 1} = COLOR:Blue
ACCEPT
END
FillQueue ROUTINE
LOOP 10 TIMES
Q.First = ALL( CHR(65 + RECORDS(Q)) )
Q.Second = ALL( CHR(97 + RECORDS(Q)) )
ADD(Q)
END
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.