Silverfrost Logo About Us | Contact Us
 

MAKE_ICON@

Platform

Win32(ClearWin+)

Purpose

To embed an icon in program code.

Syntax

INTEGER(7) FUNCTION MAKE_ICON@( ICON_DATA )
CHARACTER*32 ICON_DATA(32)

Description

This routine allows an icon to be embedded in the program code. A 32x32 character array must be defined to accommodate the icon data. The characters can be defined as any of the following:

 

 

- (minus)

Black

 

b

Dark blue

 

r

Dark red

 

g

Dark green

 

y

Dark yellow (brown)

 

m

Dark magenta

 

c

Dark cyan

 

w

Grey

 

B

Blue

 

R

Red

 

G

Green

 

Y

Yellow

 

M

Magenta

 

C

Cyan

 

W

White


 

 

If any other character is used then a transparent colour is assumed which will allow the background to show through. A (HICON) handle to the icon is returned which may be used for example with %`ic. The icon is automatically discarded at program termination.

Return value

Returns a handle to the new icon.

See also

MAKE_BITMAP@

Example

    INCLUDE <windows.ins>
    CHARACTER*32 icon(32)
    INTEGER hicon
    hicon=make_icon@(ICON)
    DATA  icon(1)/'RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR'/
    DATA  icon(2)/'RYYBBYYBBYYBBYYBBYYBBYYBBYYBBYYR'/
    ...
    ...
    DATA icon(30)/'RYYBBYYBBYYBBYYBBYYBBYYBBYYBBYYR'/
    DATA icon(31)/'RYYBBYYBBYYBBYYBBYYBBYYBBYYBBYYR'/
    DATA icon(32)/'RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR'/
    k=winio@('%ca[Make icon]%nl%`ic',HICON)
    END

 

 

Copyright © 1999-2017 Silverfrost Limited