| |
|
|
Findus | Image of/ one GridBOX allocate Frank Tretter
'###############################################################################################################################################
'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
|
|
|
| |
|
|