XProfan

'###############################################################################################################################################
'Bild uno Gridbox zuweisen
'Parámetros Gridwnd&  = Handle el Gridbox
'           Imagewnd& = Handle el Imageliste
'           z%        = Línea en el Gridbox
'           s%        = Spalte en el Gridbox
'           bn%       = Bildnummer en el Imageliste
'###############################################################################################################################################

Proc ?_AddInfo

    Parámetros Gridwnd&,Imagewnd&,z%,s%,bn%
    Declarar Lv#
    Struct Lv = Mask&,Item&,SubItem&,State&,StateMask&,Text&,TextMax&,Image&
    Dim Lv#,Lv
    'Bild el Línea y Spalte zuweisen
    Lv#.Item&    = z%
    Lv#.SubItem& = s%
    Lv#.Mask&    = ~LVIF_IMAGE
    Lv#.Image&   = bn%
    SendMessage(Gridwnd&,~LVM_SETITEM,0,Lv#)
    Disponer Lv#

ENDPROC