ListIconGadget ToolTip

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
uweb
Beiträge: 461
Registriert: 13.07.2005 08:39

Re: ListIconGadget ToolTip

Beitrag von uweb »

Also bei mir (Win7-64, PB 5.60-x86) werden ToolTips angezeigt - so wie erwartet - im ersten Post von HeaderToolTip gezeigt.
Benutzeravatar
marcelx
Beiträge: 424
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: ListIconGadget ToolTip

Beitrag von marcelx »

Danke uweb für deine Rückmeldung.
Liegt es vielleicht an der Version PB 5.31?
Ich werden 5.60 installieren, mal sehen
EDIT: ich habe jetzt die Version 5.61 (Windows - x86) und gleiche Effekt (Keine ToopTip-Fenster erscheint)
Es wäre ein Wunder gewesen, wenn ...
Win-10, PB 5.31 (Windows - x86)
Benutzeravatar
marcelx
Beiträge: 424
Registriert: 19.02.2010 20:19
Wohnort: Darmstadt

Re: ListIconGadget ToolTip

Beitrag von marcelx »

Ich habe #TTS_BUBBLE raus genommen und jetzt funktioniert.
Gruß
MarcelX
Win-10, PB 5.31 (Windows - x86)
Omi
Beiträge: 143
Registriert: 25.03.2013 09:59

Re: ListIconGadget ToolTip

Beitrag von Omi »

Hi,
da die Windows-Version jetzt läuft, es thematisch passt und ich die Linux-gtk2-Version vor kurzem erstellt hab ...
Hier die Version für Linux gtk3: http://www.chabba.de/Linux/ListIconGadg ... er_Gtk3.pb
Und hier für Linux-gtk2:

Code: Alles auswählen

EnableExplicit

ImportC ""
	gtk_tree_view_column_get_widget(*tree_column.GtkTreeViewColumn)
	gtk_widget_get_name(*widget.GtkWidget)
	
	gtk_widget_set_tooltip_text(*widget.GtkWidget, text.p-utf8)
EndImport

;Object constants
#Win_Main= 0

#LIG = 0

Global.i gEvent, gQuit

Procedure TV_ColumnHeaderTooltip_Set(Gadget, Column, ToolTipText.s)
	Protected *Column= gtk_tree_view_get_column_(GadgetID(Gadget), Column)
	Protected *Widget.GtkWidget
	
	If *Column
		*Widget= gtk_tree_view_column_get_widget(*Column)
		If *Widget
			*Widget= gtk_widget_get_parent_(gtk_widget_get_parent_(*Widget))
			If *Widget
				If PeekS(gtk_widget_get_name(*Widget), -1, #PB_UTF8) = "GtkHBox"
					gtk_widget_set_tooltip_text(*Widget, ToolTipText)
				EndIf
			EndIf
		EndIf
	EndIf
EndProcedure

Procedure CreateWindow_Main()
	Protected.i I
	
	If OpenWindow(#Win_Main, 0, 0, 500, 400, "ColumnsHeaderTooltip Gtk2", #PB_Window_SystemMenu |#PB_Window_ScreenCentered)
		ListIconGadget(#LIG, 10, 10, 490, 380, "Column 0", 90, #PB_ListIcon_AlwaysShowSelection | #PB_ListIcon_GridLines)
		For I= 1 To 4
			AddGadgetColumn(#LIG, I, "Column "+Str(I), 90)
		Next I
		For I= 0 To 19
			AddGadgetItem(#LIG, -1, "Cell " + Str(I) + "-0" + #LF$ + "Cell " + Str(I) + "-1" + #LF$ + "Cell " + Str(I) + "-2" + #LF$ + "Cell " + Str(I) + "-3" + #LF$ + "Cell " + Str(I) + "-4")
		Next I
		
		TV_ColumnHeaderTooltip_Set(#LIG, 0, "This is header-column 0");    (GadgetNo, Column, ToolTipText)
		TV_ColumnHeaderTooltip_Set(#LIG, 1, "This is header-column 1")
		TV_ColumnHeaderTooltip_Set(#LIG, 2, "This is header-column 2")
		TV_ColumnHeaderTooltip_Set(#LIG, 3, "This is header-column 3")
		TV_ColumnHeaderTooltip_Set(#LIG, 4, "This is header-column 4")
	EndIf
	
EndProcedure

CreateWindow_Main()

Repeat
	gEvent= WaitWindowEvent()

	Select gEvent
		Case #PB_Event_CloseWindow
			gQuit= #True
			
	EndSelect
	
Until gQuit
Grüße, Charly
PureBasic Linux-API-Library: http://www.chabba.de
Antworten