XProfan

'###############################################################################################################################################
'Bild einer Gridbox zuweisen
'Paramètres Gridwnd&  = Handle qui Gridbox
'           Imagewnd& = Handle qui Imageliste
'           z%        = la ligne dans qui Gridbox
'           s%        = Spalte dans qui Gridbox
'           bn%       = Bildnummer dans qui Imageliste
'###############################################################################################################################################

Proc ?_AddInfo

    Paramètres Gridwnd&,Imagewnd&,z%,s%,bn%
    Déclarer Lv#
    Struct Lv = Mask&,Item&,SubItem&,State&,StateMask&,Text&,TextMax&,Image&
    Faible Lv#,Lv
    'Bild qui la ligne et Spalte zuweisen
    Lv#.Item&    = z%
    Lv#.SubItem& = s%
    Lv#.Mask&    = ~LVIF_IMAGE
    Lv#.Image&   = bn%
    SendMessage(Gridwnd&,~LVM_SETITEM,0,Lv#)
    Dispose Lv#

ENDPROC