Platform

Win32, x64

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