Code: Select all
@REQUIRE "iconic"
CreateBrush(1, 64, 64, #BLUE)
CreateIcon(1, {{Type=#BRUSH, Image=1}})
SetIconProperties(1, {Type=#AMIGAICON_PROJECT, ToolTypes={{Key="TEST", Value="0"}}})
; SetIconProperties(1, {DefaultTool=""}) ; This is a work-around
SaveIcon(1, "ram:testPNG.info", #ICNFMT_PNG) ; Type is wrong (Tool), ToolTypes are OK
SaveIcon(1, "ram:testOS4.info", #ICNFMT_AMIGAOS) ; Type is OK (Project), ToolTypes are OK