XProfan

'###############################################################################################################################################
'Image of/ one GridBOX allocate
'Parameters Gridwnd&  = lever the GridBOX
'           Imagewnd& = lever the Image List
'           z%        = Line in the GridBOX
'           s%        = slot in the GridBOX
'           bn%       = Bildnummer in the Image List
'###############################################################################################################################################

Proc ?_AddInfo

    Parameters Gridwnd&,Imagewnd&,z%,s%,bn%
    Declare Lv#
    Struct Lv = Mask&,Item&,SubItem&,State&,StateMask&,Text&,TextMax&,Image&
    Dim Lv#,Lv
    'Image the out at allocate
    Lv#.Item&    = z%
    Lv#.SubItem& = s%
    Lv#.Mask&    = ~LVIF_IMAGE
    Lv#.Image&   = bn%
    SendMessage(Gridwnd&,~LVM_SETITEM,0,Lv#)
    Dispose Lv#

ENDPROC