bls000

BigToolTip

May 10th, 2020
1,556
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <GuiToolTip.au3>
  2. #include <WinAPI.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <FontConstants.au3>
  5. #include <SendMessage.au3>
  6. #include <WindowsConstants.au3>
  7.  
  8. BigToolTip("Não foram encontrados arquivos",600)
  9.  
  10.  
  11. Func BigToolTip($btt_MSG,$btt_Temp=1000,$btt_Left=@DesktopWidth / 2,$btt_Top=@DesktopHeight / 2,$btt_Size=22)
  12.    Local $hToolTip = _GUIToolTip_Create(0), $hDC = _WinAPI_GetDC(0)
  13.    Local $hFont = _WinAPI_CreateFont($btt_Size, 0, 0, 0, 800, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, 'Tahoma')
  14.    Local $hOldFont = _WinAPI_SelectObject($hDC, $hFont)
  15.    _SendMessage($hToolTip, $WM_SETFONT, $hFont, True)
  16.    _GUIToolTip_AddTool($hToolTip, 0, $btt_MSG, 0, 0, 0, 0, 0, BitOR($TTF_TRACK, $TTF_ABSOLUTE)) ; <<<<<<<<<<<<<<<
  17.    _GUIToolTip_TrackPosition($hToolTip, $btt_Left, $btt_Top)
  18.    _GUIToolTip_TrackActivate($hToolTip, True, 0, 0)
  19.    Sleep($btt_Temp)
  20.    _GUIToolTip_Destroy($hToolTip)
  21. EndFunc
RAW Paste Data