load-icon / Progress 9

[roettgermann]

Progress 9
Can anyone tell me how I can determine the icon of my running Application shown in the windows/session handle. Does anyone have a short example to use the method 'load-Icon'?
Thank you very much.
Matthias Röttgermann

 

[fuehrera]

Procedure IconSet

PROCEDURE icon_set :
/*------------------------------------------------------------------------------
Purpose: procedure set´s the icon for this window
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER c_Icon AS CHAR NO-UNDO.

{&WINDOW-NAME}:LOAD-ICON(c_Icon).

END PROCEDURE.

kind regards
andi

 

[roettgermann]

Thanks

Hello,

thanks very much, it works fine.

With kind regards

Matthias Röttgermann

PROCEDURE icon_set :
/*------------------------------------------------------------------------------
Purpose: procedure set´s the icon for this window
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER c_Icon AS CHAR NO-UNDO.

{&WINDOW-NAME}:LOAD-ICON(c_Icon).

END PROCEDURE.

kind regards
andi