Größe + Style von ToolTips ändern

[Delle]

Wie kann man den Tooltip ändern?

Hätte gern die Ecken anders und den Abstand von Text zum Rand kürzer...

Gibt es verschiedene ToolTip-Styles?

Code: Alles auswählen

Procedure ToolTip(Handle,Text.s) 
  ObjektBeschreibung=CreateWindowEx_(#WS_EX_TOPMOST,"Tooltips_Class32",0,#TTS_ALWAYSTIP|#TTS_NOPREFIX|#WS_POPUP|$40,#CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,#CW_USEDEFAULT,WindowID(),0,GetModuleHandle_(0),0) 
  SendMessage_(ObjektBeschreibung,#TTM_SETDELAYTIME,#TTDT_INITIAL,100) 
  SendMessage_(ObjektBeschreibung,$413,RGB(255,255,255),0) 
  SendMessage_(ObjektBeschreibung,$414,RGB(0,0,0),0) 
  SendMessage_(ObjektBeschreibung,#WM_SETFONT,LoadFont(0,"Arial",12),#True)  
  Tool.TOOLINFO 
  Tool\cbSize=SizeOf(TOOLINFO) 
  Tool\uFlags=#TTF_SUBCLASS|#TTF_IDISHWND 
  Tool\hwnd=Handle 
  Tool\uID=Handle 
  Tool\hInst=GetModuleHandle_(0) 
  Tool\lpszText=@Text 
  SendMessage_(ObjektBeschreibung,#TTM_ADDTOOL,0,@Tool) 
EndProcedure 

If OpenWindow(0,0,0,222,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ButtonGadgets") And CreateGadgetList(WindowID(0)) 
  ButtonGadget(0, 10, 10, 200, 20, "Standard Button") 
  ToolTip(GadgetID(0),"ToolTip") 
  Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow 
EndIf 

[Justy]

Hi!

Das dürfte das sein was du suchst:
http://msdn.microsoft.com/library/defau ... eflist.asp

Alles, was sich bei einem Tooltip einstellen lässt, findest du dort!

Hier:
http://msdn.microsoft.com/library/defau ... styles.asp
findest du die verschiedenen Styles eines Tooltips!

Ich hoffe, dass ich dir helfen konnte!
mfg. Justy