XProfan

'{$ Cleq}
 $H Windows.ph
 $H commctrl.ph
struct HIT=x&,y&,Flags&,Item&,SubItem&
Déclarer Hit#,Item%,Status%
dim Hit#,HIT
cls
var LV&   = Créer("GridBox", %hwnd, "x;1;40;y;1;40;Obj-x;1;60;Obj-y;1;60;LEnd-x;1;60;LEnd-x;1;60;Objekt;0;100", 0, 0, 0, 400, 190)
AddStrings(LV&, "200|100|200|200|0|0|Kreis")
sendmessage(lv&,$1036,0,$20+$1+$4)

tandis que 1

    waitInput

    Si (%wmnotify*%notifycode)=-12

        ~GetCursorPos(Hit#)
        ~ScreenToClient(lv&,Hit#)
        Item%=sendmessage(lv&,~LVM_HITTEST,0,Hit#)
        messagebox str$(item%) , str$(testBit(sendMessage(lv&,~LVM_GETITEMSTATE,item%,~LVIS_STATEIMAGEMASK),13)) , 4096

    endif

Wend