Clarion Community Help

Navigation:  Language Reference > App C - PROP: Runtime Properties > Complete Property List >====== PROP:IconList ======

An array that sets or returns the icons displayed in a LIST formatted to display icons (usually a tree control). If the name of the icon file to assign has a number in square brackets appended to its end, this indicates the file contains multiple icons and the number specifies which to assign (zero-based). If the name of the icon file has a tilde (~) prepended to it (~IconFile.ICO), this indicates the file has been linked into the project as a resource and is not on disk.

Example:

  PROGRAM

  MAP

RandomAlphaData  PROCEDURE(*STRING Field)

  END

TreeDemo  QUEUE,PRE() !Data list box FROM queue

FName      STRING(20)

ColorNFG   LONG       !Normal Foreground color for FName

ColorNBG   LONG       !Normal Background color for FName

ColorSFG   LONG       !Selected Foreground color for FName

ColorSBG   LONG       !Selected Background color for FName

IconField  LONG       !Icon number for FName

TreeLevel  LONG       !Tree Level

LName      STRING(20)

Init       STRING(4)

         END

Win  WINDOW('List Box'),AT(0,0,374,314),FONT('Tahoma',8,,FONT:regular,CHARSET:ANSI),|

     SYSTEM,GRAY,DOUBLE

     LIST,AT(3,4,369,306),USE(?Show),HVSCROLL,COLOR(,COLOR:Black,0E7E7E7H),|

     FORMAT('121L(2)|M*IT~First Name~149L(2)|M~Last Name~16C(2)|M~Initials~'), |

     FROM(TreeDemo),GRID(0E7E7E7H)

    END

x    long

CODE

LOOP x = 1 to 20

 RandomAlphaData(FName)

 ColorNFG = COLOR:Black                     !Assign FNAME's colors

 ColorNBG = 0F0FFFFH

 ColorSFG = COLOR:White

 ColorSBG = COLOR:Silver

 IconField = ¹⁾                  !Random fill size

LOOP x# = 1 to y#                           !Fill each character with

 Field[x#] = CHR(RANDOM(97,122))            !a random lower case letter

END