` Printed Icetips Article

Icetips Article



Templates: Template to set default program icon
1998-06-23 -- Andrew Guidroz
 
Newsgroups: topspeed.products.c4

Editors note:  Please note that some lines may wrap in the template code.

> I have the icon already under "library....". It is the only
> icon in their and still I can't get it to display????
>  It is taking an icon I put on a button!
>
    Try this...  add this extension template to your application frame
then select your icon.  It will work.

#TEMPLATE(DefaultIcon,'This sets the default icon for the entire
app'),FAMILY('ABC'),FAMILY('CW20')
#!-------------------------------------------------------------------------
#EXTENSION(DefaultIcon,'Select default icon for the entire app'),DESCRIPTION('Select
default icon for the entire app'),FIRST
#PROMPT('Select Icon File',OPENDIALOG('Select Icon for App','Icons|*.ICO')),%IconFile,REQ
#AT(%CustomGlobalDeclarations)
    #PROJECT(%IconFile)
#ENDAT
#AT(%AfterWindowOpening)
  SYSTEM{PROP:Icon} = '~%IconFile'
  IF CLIP(0{PROP:Icon}) = ''
      0{PROP:Icon} = '~%IconFile'
  END
#ENDAT

 - Andrew Guidroz II (GeeTroze)

Every pint bottle should contain a quart.
http://www.coonass.com  SnowDog Software



Printed May 5, 2024, 6:25 am
This article has been viewed/printed 35113 times.
Google search has resulted in 34 hits on this article since January 25, 2004.