Code: Alles auswählen
Enumeration
#Win
#LVG
EndEnumeration
Procedure LvMausclick(vID.i, *vP.Point)
Protected pLVH.LVHITTESTINFO
GetCursorPos_ (*vP) ;wo ist Maus
MapWindowPoints_(0, vID, *vP, 1)
pLVH\pt\x = *vP\x
pLVH\pt\y = *vP\y
SendMessage_(vID, #LVM_SUBITEMHITTEST, 0, pLVH)
*vP\y = pLVH\iItem ;row ab 0
*vP\x = pLVH\iSubItem ;col ab 0
EndProcedure
OpenWindow(#Win, 0, 0, 300,420,"ListIcon Gadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(#LVG, 10, 10, 280, 400, "Spalte 0", 140, #PB_ListIcon_GridLines);|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#LVG, 1,"Spalte 1",55)
AddGadgetColumn(#LVG,2,"Spalte 2",55)
For n=0 To 16
txt$ = "Text in Zeile " + LSet(Str(n), 3, " ") + " in Spalte 0" + #LF$ + Str(Random(99)) + #LF$ + Str(n)
AddGadgetItem(#LVG, -1, txt$)
Next n
;=====================================================
Repeat
Event = WaitWindowEvent(1)
If (Event=#PB_Event_Gadget) And (EventGadget()=#LVG)
If (EventType()=#PB_EventType_LeftClick)
LvMausclick(GadgetID(#LVG), p.Point)
Debug GetGadgetItemText(#LVG, p\y, p\x)
EndIf
EndIf
Until (Event=#PB_Event_CloseWindow)
End 
Code: Alles auswählen
Case #List_0
If EventType() = #PB_EventType_Focus
ElseIf EventType() = #PB_EventType_RightDoubleClick
; Reihe ermitteln die ausgewählt wird
Reihe.l = GetGadgetState(#List_0) ;Welcher Satz wurde angeklickt
If Reihe.l <> -1
ZeileP = Val(GetGadgetItemText(#List_0,Reihe.l,10)) ;hier wird die 11. Spalte gelesen
.... weiterer code
Endif
Endif
siehe MSDN - LVM_GETSUBITEMRECTbobobo hat geschrieben:geht das auch andersrum ?
ich habe ein Listicongadget und benötige
dort die Koordinaten der einzelnen Felder
Code: Alles auswählen
Procedure LvMausclick(vID.i, *vP.Point)
Protected pLVH.LVHITTESTINFO
GetCursorPos_ (*vP) ;wo ist Maus
MapWindowPoints_(0, vID, *vP, 1)
pLVH\pt\x = *vP\x
pLVH\pt\y = *vP\y
SendMessage_(vID, #LVM_SUBITEMHITTEST, 0, pLVH)
*vP\y = pLVH\iItem ;row ab 0
*vP\x = pLVH\iSubItem ;col ab 0
; --- Ergänzung
Protected rec.RECT , i
SendMessage_(vid, #LVM_GETSUBITEMRECT, *vp\y, rec)
rec\left=0
rec\right=rec\left+GetGadgetItemAttribute(#LVG,-1,#PB_ListIcon_ColumnWidth,0)
If *vP\x >0
For i=1 To *vP\x
rec\left+GetGadgetItemAttribute(#LVG,-1,#PB_ListIcon_ColumnWidth, i-1)
rec\right=rec\left+GetGadgetItemAttribute(#LVG,-1,#PB_ListIcon_ColumnWidth,i)
Next
EndIf
Debug "-----"
Debug rec\left
Debug rec\right
Debug rec\top
Debug rec\bottom
Debug " "
EndProcedure