[bb] Tooltips by plash [ 1+ years ago ]

[BlitzBot]

Title : Tooltips
Author : plash
Posted : 1+ years ago

Description : Snapshot
[img]img482.imageshack.us/img482/1323/tooltipvz2.html">

Code :

Code (blitzbasic) Select Expand

Tooltips.bb

;#Region Color Keys
Const COLOR_SCROLLBAR = 0 ; Scroll bar gray area.

Const COLOR_BACKGROUND = 1 ; Desktop.

Const COLOR_DESKTOP = 1

Const COLOR_ACTIVECAPTION = 2 ; Active window title bar.
; Specifies the left side color in the color gradient of an active window's title bar
; if the gradient effect is enabled.  (Except Windows NT and Windows 95)

Const COLOR_INACTIVECAPTION = 3 ; Inactive window caption.
; Specifies the left side color in the color gradient of an inactive window's
; title bar if the gradient effect is enabled.
; Windows NT and Windows 95:  This remark does not apply.

Const COLOR_MENU = 4 ; Menu background.

Const COLOR_WINDOW = 5 ; Window background.

Const COLOR_WINDOWFRAME = 6 ; Window frame.

Const COLOR_MENUTEXT = 7 ; Text in menus.

Const COLOR_WINDOWTEXT = 8 ; Text in windows.

Const COLOR_CAPTIONTEXT = 9 ; Text in caption, size box, And scroll bar arrow box.

Const COLOR_ACTIVEBORDER = 10 ; Active window border.

Const COLOR_INACTIVEBORDER = 11 ; Inactive window border.

Const COLOR_APPWORKSPACE = 12 ; Background color of multiple document interface (MDI) applications.

Const COLOR_HIGHLIGHT = 13 ; Item(s) selected in a control.

Const COLOR_HIGHLIGHTTEXT = 14 ; Text of item(s) selected in a control.

Const COLOR_3DFACE = 15 ; Face color For three-dimensional display elements and for dialog box backgrounds.

Const COLOR_BTNFACE = 15

Const COLOR_3DSHADOW = 16 ; Shadow color for three-dimensional display elements  

Const COLOR_BTNSHADOW = 16 ; (For edges facing away fromthe light source.)

Const COLOR_GRAYTEXT = 17 ; Grayed (disabled) text. This color is set to 0 if the current display driver
; does not support a solid gray color.

Const COLOR_BTNTEXT = 18 ; Text on push buttons.

Const COLOR_INACTIVECAPTIONTEXT = 19 ; Color of text in an inactive caption.

Const COLOR_3DHILIGHT = 20 ; Highlight color For three-dimensional display elements.

Const COLOR_3DHIGHLIGHT = 20 ; (For edges facing the light source.)

Const COLOR_BTNHILIGHT = 20

Const COLOR_BTNHIGHLIGHT = 20

Const COLOR_3DDKSHADOW = 21 ; Dark shadow for three-dimensional display elements.

Const COLOR_3DLIGHT = 22 ; Light color for three-dimensional display elements
; (For edges facing the light source.)

Const COLOR_INFOTEXT = 23 ; Text color for tooltip controls.

Const COLOR_INFOBK = 24 ; Background color fFor tooltip controls.

Const COLOR_ALTERNATEBTNFACE = 25 ; I could not find this in the windows documenation.  A few websites that have info
; on WINE for Linux listed this contant.  I'm not sure if windows uses it though.

Const COLOR_HOTLIGHT = 26 ; Color For a hot-tracked item. Single clicking a hot-tracked item executes the item.
; Windows NT And Windows 95:  This value is not supported.

Const COLOR_GRADIENTACTIVECAPTION = 27 ; Right side color in the color gradient of an active window's title bar.
; COLOR_ACTIVECAPTION specifies the left side Color.
; Use SPI_GETGRADIENTCAPTIONS with the SystemParametersInfo function
; to determine whether the gradient effect is enabled.
; Windows NT And Windows 95:  This value is not supported.

Const COLOR_GRADIENTINACTIVECAPTION = 28 ; Right side color in the color gradient of an inactive window's title bar.
; COLOR_INACTIVECAPTION specifies the left side Color.
; Windows NT And Windows 95:  This value is not supported.

Const COLOR_MENUHILIGHT = 29 ; The color used to highlight menu items when the menu appears as a flat menu
; (see SystemParametersInfo). The highlighted menu item is outlined with COLOR_HIGHLIGHT.
; Windows 2000/NT and Windows Me/98/95:  This value is not supported.

Const COLOR_MENUBAR = 30 ; The background color for the menu bar when menus appear as flat menus
; (see SystemParametersInfo).  However, COLOR_MENU continues to specify
; the background color of the menu popup.
; Windows 2000/NT and Windows Me/98/95:  This value is not supported.

;#End Region

Type tooltip
Field Msg$
Field Gadget
End Type


Global tooltiptimer = CreateTimer(0.8)
;Global LastMOG; CHANGE THIS TO A VALID GADGET HANDLE IN THE MAIN PROGRAM

Function CreateTooltip(Msg$, Gadget)
Tip.tooltip = New tooltip
TipMsg$ = Msg$
TipGadget = Gadget

End Function

Function UpdateTooltips()

For tip.tooltip = Each tooltip
If MouseOverGadget(tipgadget)
If Not LastMOG = tipgadget

LastMOG = tipgadget

MouseXSpeed():MouseYSpeed()
;buffer% = GraphicsBuffer()

SetBuffer DesktopBuffer()
x = MouseX()
y = MouseY() + 18
wd = StringWidth(tipmsg$) + 6
ht = 20

tmpimage = CreateImage(wd, ht)
CopyRect x, y, wd, ht, 0, 0, DesktopBuffer(), ImageBuffer(tmpimage)

Color 0, 0, 0
Rect x, y, wd, ht

SysColor(COLOR_INFOBK)
Rect x + 1, y + 1, wd - 2, ht - 2

SysColor(COLOR_INFOTEXT)
Text x + 3, y + 3, tipmsg$

While Abs(MouseXSpeed() + MouseYSpeed()) = 0
Delay 80
Wend

Color 0, 0, 0
Rect x, y, wd, ht, 1

DrawImage tmpimage, x, y
FreeImage tmpimage

;If buffer% SetBuffer buffer%
EndIf
EndIf
Next

End Function

Function SysColor(SystemColor)
Color GetSysColorR(SystemColor), GetSysColorG(SystemColor), GetSysColorB(SystemColor)
End Function

Function GetSysColorR(SystemColor)
        Return (api_GetSysColor(SystemColor) And $000000FF)
End Function

Function GetSysColorG(SystemColor)
Return (api_GetSysColor(SystemColor) And $0000FF00) Shr 8
End Function

Function GetSysColorB(SystemColor)
Return (api_GetSysColor(SystemColor) And $00FF0000) Shr 16
End Function

Function MouseOverGadget(Gadget)
If GadgetHidden(Gadget) = False
mx = GMouseX( Gadget )
my = GMouseY( Gadget )

x = 0
y = 0
w = GadgetWidth(Gadget)
h = GadgetHeight(Gadget)

If mx > x And my > y And mx < w And my < h
Return True
Else
Return False
EndIf
Else
Return False
EndIf
End Function

Function GMouseX( Gadget = 0 )

; this mousex function will get the position of the mouse relative to any gadget. by Halo

If Not Gadget Gadget=Desktop()
hwnd=QueryObject(Gadget,1)
buffer=CreateBank (8)
api_GetCursorPos (buffer)
api_ScreenToClient (hwnd, buffer)
x=PeekInt(buffer,0)
FreeBank buffer

Return x

End Function

Function GMouseY( Gadget = 0 )

; this mousey function will get the position of the mouse relative to any gadget. thanks Halo

If Not Gadget Gadget=Desktop()
hwnd=QueryObject(Gadget,1)
buffer=CreateBank(8)
api_GetCursorPos(buffer)
api_ScreenToClient(hwnd, buffer)
y=PeekInt(buffer,4)
FreeBank buffer

Return y

End Function

Function GadgetHidden(gadget)
tmp = Not api_IsWindowVisible (QueryObject (gadget, 1))

;DebugLog "GadgetHidden(Wnd_Cstat) = " + tmp

Return tmp
End Function


Example.bb

Include "Tooltips.bb"

Global win = CreateWindow("Testing!",100,100,200,200,0)

gad = CreateButton("HOne", 20, 20, 50, 21, win)
gad2 = CreateButton("GTEST 2", 40, 40, 80, 21, win)

CreateTooltip "Hello", gad
CreateTooltip "NUMBER 2", gad2
Global LastMOG = win

Repeat
WaitEvent()
If EventID() = $803 Or KeyHit(1) Then End

If EventID() = $4001
If EventSource() = tooltiptimer
If MouseOverGadget(LastMOG) = False Then LastMOG = win Else LastMOG = LastMOG
UpdateTooltips()
EndIf
EndIf

Forever

Comments :


Ked(Posted 1+ years ago)

 Very nice!


General McHonkadonk(Posted 1+ years ago)

 "Function api_getsyscolor not found"Probably being really stupid, I just started coding... am I supposed to change something?


Floyd(Posted 1+ years ago)

 It's a Windows API function. You need the appropriate decls file to make this work. Even then it may not be right on newer versions of Windows. On Windows 7 64-bit I get a message about an incompatible color scheme. The program runs, but the tooltips are displayed as black boxes.If you want to try then look here: <a href="codearcsbcfe.html?code=1179" target="_blank">decls for user32.dll</a>Use this to make a plain text file and save it with the name  user32.decls in your BlitzPlususerlibs folder.The user32.dll is part of Windows.


General McHonkadonk(Posted 1+ years ago)

 Thanks, Floyd! Works on and off on 32-bit Windows 8. No error messages and usually works fine but occasionally just shows the floating text and it's garbled. Better than nothing for now