ListView: Tooltip bei überlangem Text

[c4s]

Zuerst suchte ich die Lösung hierfür ... und nun endlich habe ich auch eine
gefunden:

Code: Alles auswählen

#Window = 1
#ListIcon = 2
#Text = 3
#ListView = 4
#LVS_EX_LABELTIP = $4000


If OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 200, 420, "ListView Tooltip", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(#Window))
	ListIconGadget(#ListIcon, 0, 0, 200, 200, "ListIconGadget:", 200)
	 SendMessage_(GadgetID(#ListIcon), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, #LVS_EX_LABELTIP)
	TextGadget(#Text, 0, 200, 200, 20, "'ListViewGadget':")
	ListIconGadget(#ListView, 0, 220, 200, 200, "", 170, #LVS_NOCOLUMNHEADER)
	 SendMessage_(GadgetID(#ListView), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, #LVS_EX_LABELTIP)
EndIf

For i = 1 To 100
	Text.s = RSet("", i, Chr(Random(95) + 32))
	AddGadgetItem(#ListIcon, -1, Text)
	AddGadgetItem(#ListView, -1, Text)
Next i

Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow: End

Bei einem klassischen ListViewGadget von PB funktioniert das leider nicht.
Aber kein Problem: Mit dem ListIconGadget kann man sich auch prima ein
ListViewGadget basteln (siehe Beispiel)!


Also ich wünsche euch viel Freude damit
mfg c4s

P.S.
Sollte wohl in PB per Flag-Option eingefügt werden, da ich diesen Tooltip
als äußerst (!) wichtig empfinde..

[hjbremer]

klitzekleine Verbesserung damit die bestehenden Exstyles erhalten bleiben, wie z.B. Gridlines

Code: Alles auswählen

   exstyle = SendMessage_(GadgetID(#ListView), #LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
   exstyle | #LVS_EX_LABELTIP
   SendMessage_(GadgetID(#ListView), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, exstyle) 

[Andesdaf]

danke benutz ich schon für viele Sachen.