Tag Archive: icon

get application icon

Clarion Keine Kommentare
Module('WINAPI')
  FindExecutable(LONG,LONG,LONG),LONG,PASCAL,RAW,Name('FindExecutableA')
END
....

DATA
l:Executable         CSTRING(255)
l:FileName           CSTRING(255)

CODE
  ...
  l:FileName = 'test.txt'
  ret# = FindExecutable(address(l:FileName),0 , address(l:Executable))
  if l:Executable then
    ?Image1{Prop:Text} = l:Executable & '[]'
  else
    ?Image1{Prop:Text} = ICON:Hand  ! no icon found
  end
 ...

Clarion Equates for Icons

Clarion Keine Kommentare
ICON:None         EQUATE ('<0FFH,01H,00H,00H>')
ICON:Application  EQUATE ('<0FFH,01H,01H,7FH>')
ICON:Hand         EQUATE ('<0FFH,01H,02H,7FH>')
ICON:Question     EQUATE ('<0FFH,01H,03H,7FH>')
ICON:Exclamation  EQUATE ('<0FFH,01H,04H,7FH>')
ICON:Asterisk     EQUATE ('<0FFH,01H,05H,7FH>')
ICON:Pick         EQUATE ('<0FFH,02H,01H,7FH>')
ICON:Save         EQUATE ('<0FFH,02H,02H,7FH>')
ICON:Print        EQUATE ('<0FFH,02H,03H,7FH>')
ICON:Paste        EQUATE ('<0FFH,02H,04H,7FH>')
ICON:Open         EQUATE ('<0FFH,02H,05H,7FH>')
ICON:New          EQUATE ('<0FFH,02H,06H,7FH>')
ICON:Help         EQUATE ('<0FFH,02H,07H,7FH>')
ICON:Cut          EQUATE ('<0FFH,02H,08H,7FH>')
ICON:Copy         EQUATE ('<0FFH,02H,09H,7FH>')
ICON:Child        EQUATE ('<0FFH,02H,0AH,7FH>')
ICON:Frame        EQUATE ('<0FFH,02H,0BH,7FH>')
ICON:Clarion      EQUATE ('<0FFH,02H,0CH,7FH>')
ICON:NoPrint      EQUATE ('<0FFH,02H,0DH,7FH>')
ICON:Zoom         EQUATE ('<0FFH,02H,0EH,7FH>')
ICON:NextPage     EQUATE ('<0FFH,02H,0FH,7FH>')
ICON:PrevPage     EQUATE ('<0FFH,02H,10H,7FH>')
ICON:JumpPage     EQUATE ('<0FFH,02H,11H,7FH>')
ICON:Thumbnail    EQUATE ('<0FFH,02H,12H,7FH>')
ICON:Tick         EQUATE ('<0FFH,02H,13H,7FH>')
ICON:Cross        EQUATE ('<0FFH,02H,14H,7FH>')
ICON:Connect      EQUATE ('<0FFH,02H,15H,7FH>')
ICON:Print1       EQUATE ('<0FFH,02H,16H,7FH>')
ICON:Ellipsis     EQUATE ('<0FFH,02H,17H,7FH>')