XProfan

'###############################################################################################################################################
'Bild einer Gridbox zuweisen
'Parameters Gridwnd&  = Handle der Gridbox
'           Imagewnd& = Handle der Imageliste
'           z%        = Zeile in der Gridbox
'           s%        = Spalte in der Gridbox
'           bn%       = Bildnummer in der Imageliste
'###############################################################################################################################################

Proc ?_AddInfo

    Parameters Gridwnd&,Imagewnd&,z%,s%,bn%
    Declare Lv#
    Struct Lv = Mask&,Item&,SubItem&,State&,StateMask&,Text&,TextMax&,Image&
    Dim Lv#,Lv
    'Bild der Zeile und Spalte zuweisen
    Lv#.Item&    = z%
    Lv#.SubItem& = s%
    Lv#.Mask&    = ~LVIF_IMAGE
    Lv#.Image&   = bn%
    SendMessage(Gridwnd&,~LVM_SETITEM,0,Lv#)
    Dispose Lv#

EndProc