How to Add bitmaps to forms

You can create a regular app form (hiCreateAppForm) and add some custom buttonIcons.

hiCreateButton(
?name 'upButton
?buttonIcon _UP
?callback println("up")
)

procedure(InitArrowIcons()
let((upString ColorArray)
ColorArray = hiCreateColorArray()
ColorArray[0] = hivBackgroundColor
ColorArray[1] = hivTopShadowColor
ColorArray[2] = hivBottomShadowColor
ColorArray[3] = hivForegroundColor 
ColorArray[4] = hivRecessColor
ColorArray[5] = hivForegroundColor
ColorArray[6] = hiMatchColor(list( 746 746 730))

upString = "\
aaaaaaaaaaadaaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaadddddaaaaaaaaa\
aaaaaaaadddddddaaaaaaaa\
aaaaaaadddddddddaaaaaaa\
aaaaaadddddddddddaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa\
aaaaaaaaaadddaaaaaaaaaa"

_UP = hiStringToIcon(ColorArray upString 23 13)
) ; let
)

Thanks to the great formatting on these forum pages, the skill code was corrupted in my last post. In the InitArrowIcons procedure, the ColorArray should look like an array indexed from 0 to 6 rather than greek characters. You should see ColorArray, followed by an open square bracked, a zero and then a closed square bracket. Look up hiStringToIcon to see how this works.

Is it possible to add any gif or images to the buttons other than the above procedure.
In the above way it is limited to very few bitmaps.

Why is it limited to very few bitmaps?

Andrew.