IMPORT util
MAIN
DEFINE arr DYNAMIC ARRAY OF RECORD
    col1, col2 INTEGER
END RECORD
DEFINE i INTEGER

    FOR i = 1 TO 100
        LET arr[i].col1 = i
        LET arr[i].col2 = util.Math.rand(100000)
    END FOR
    
    CALL ui.Interface.loadStyles("buttonimageandstyle.4st")
    CALL ui.Interface.loadActionDefaults("buttonimageandstyle.4ad")
    CALL ui.Interface.loadToolBar("buttonimageandstyle.4tb")

    CLOSE WINDOW SCREEN
    OPEN WINDOW w WITH FORM "buttonimageandstyle"

    DISPLAY ARRAY arr TO scr.*
        ON ACTION action1 ATTRIBUTES(IMAGE="fa-cog")
        ON ACTION action2 ATTRIBUTES(IMAGE="fa-info")
    END DISPLAY

END MAIN