BBB GUI - Draw text - GameCreators Forum

Author

Message

CodeTrasher

13

Years of Service

User Offline

Joined: 18th Jul 2012

Location: Tampere, Finland

Posted: 20th Feb 2015 12:41

Link

Hi all,

this a simple question: how do I draw text when using BBB GUI plugin in a way that it has the same background color as the child view it is applied to?

I have tried to make it like this but it doesn't work:

+ Code Snippet

BBB Draw_SetFillColor rgb(120, 120, 120)
BBB Draw_Text child_w, "Project path: ", 0, 0, 100, 20, DT_LEFT || DT_SINGLELINE

Any suggestions how to get past this?

Back to top

Profile PM Email

Admiral MH

15

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 21st Feb 2015 07:41 Edited at: 24th Feb 2015 02:37

Link

Hello CodeTrasher,

Unfortunately, the BBB GUI plugin does not provide that functionality. The 'BBB Draw_SetFillColor' command only changes the color for drawing shapes. In order to change the text foreground/background color, you have to make calls to the Win32/Windows API.

Calling the Windows API from DBPro is not that hard though. Here is a sample program with a function that can change the foreground/background color of the draw text.

Rem The Matrix1Utils plugins are required to compile this code. It can be downloaded here if needed: http://forum.thegamecreators.com/?m=forum_view&t=85209&b=18

Rem BBBGUI_CONSTANTS
#constant DT_LEFT                     0x00000000
#constant DT_SINGLELINE               0x00000020

Rem Dll numbers
#Constant User32Dll 1
#Constant Gdi32Dll 2

Rem Initialization
Sync On
Sync Rate 60
Sync
BBB App_Start

Load Dll "user32.dll", User32Dll
Load Dll "gdi32.dll", Gdi32Dll
DBProWindow = BBB App_GetDBProWindow()

BBB Draw_Text DBProWindow, "Project path: ", 0, 10, 100, 30, DT_LEFT || DT_SINGLELINE

BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 40, 100, 60, DT_LEFT || DT_SINGLELINE, Rgb(255,0,0), Rgb(0,255,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 70, 100, 90, DT_LEFT || DT_SINGLELINE, Rgb(0,255,0), Rgb(255,0,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 100, 100, 120, DT_LEFT || DT_SINGLELINE, Rgb(255,255,255), Rgb(0,0,0) )

Wait Key
End

Rem MSDN Documentation: https://msdn.microsoft.com/en-us/library/dd162498%28v=vs.85%29.aspx
Rem Summary: The DrawText function draws formatted text in the specified rectangle
Function BBBGUIEX_Draw_Text( windowHandle As Integer, drawText As String, left As Integer, top As Integer, right As Integer, bottom As Integer, style As Integer, foregroundColor As Dword, backgroundColor As Dword )
    Local deviceContext : deviceContext = Call Dll( User32Dll, "GetDC", windowHandle )
    If Not deviceContext Then ExitFunction // Alternatively, handle error or terminate the application...
        
    Rem Extra buffer space is required if DT_MODIFYSTRING is specified
    drawTextPtr = Alloc( Len(drawText) + 5 )
    Poke String drawTextPtr, drawText
    
    Rem RECT structure
    Local rectStructPtr : rectStructPtr = Alloc(16)
    Poke Integer rectStructPtr, left
    Poke Integer rectStructPtr + 4, top
    Poke Integer rectStructPtr + 8, right
    Poke Integer rectStructPtr + 12, bottom
    
    Rem The 'Rgb' command returns the dword value of '0xFFrrggbb'. The colorref type requires the format '0x00bbggrr'.
    foregroundColor = ( ( foregroundColor && 0x00FF0000 ) >> 16 ) || ( foregroundColor && 0x0000FF00 ) || ( ( foregroundColor && 0x000000FF ) << 16 )
    backgroundColor = ( ( backgroundColor && 0x00FF0000 ) >> 16 ) || ( backgroundColor && 0x0000FF00 ) || ( ( backgroundColor && 0x000000FF ) << 16 )
    
    Call Dll Gdi32Dll, "SetTextColor", deviceContext, foregroundColor
    Call Dll Gdi32Dll, "SetBkColor", deviceContext, backgroundColor
    Call Dll User32Dll, "DrawTextA", deviceContext, drawTextPtr, -1, rectStructPtr, style
    
    Rem Clean up
    Call Dll User32Dll, "ReleaseDC", windowHandle, deviceContext
    
    Free rectStructPtr
    rectStructPtr = 0
    
    Free drawTextPtr
    drawTextPtr = 0
EndFunction

+ Code Snippet

Rem The Matrix1Utils plugins are required to compile this code. It can be downloaded here if needed: http://forum.thegamecreators.com/?m=forum_view&t=85209&b=18

Rem BBBGUI_CONSTANTS
#constant DT_LEFT                     0x00000000
#constant DT_SINGLELINE               0x00000020

Rem Dll numbers
#Constant User32Dll 1
#Constant Gdi32Dll 2

Rem Initialization
Sync On
Sync Rate 60
Sync
BBB App_Start

Load Dll "user32.dll", User32Dll
Load Dll "gdi32.dll", Gdi32Dll
DBProWindow = BBB App_GetDBProWindow()


BBB Draw_Text DBProWindow, "Project path: ", 0, 10, 100, 30, DT_LEFT || DT_SINGLELINE

BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 40, 100, 60, DT_LEFT || DT_SINGLELINE, Rgb(255,0,0), Rgb(0,255,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 70, 100, 90, DT_LEFT || DT_SINGLELINE, Rgb(0,255,0), Rgb(255,0,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 100, 100, 120, DT_LEFT || DT_SINGLELINE, Rgb(255,255,255), Rgb(0,0,0) )

Wait Key
End

Rem MSDN Documentation: https://msdn.microsoft.com/en-us/library/dd162498%28v=vs.85%29.aspx
Rem Summary: The DrawText function draws formatted text in the specified rectangle
Function BBBGUIEX_Draw_Text( windowHandle As Integer, drawText As String, left As Integer, top As Integer, right As Integer, bottom As Integer, style As Integer, foregroundColor As Dword, backgroundColor As Dword )
    Local deviceContext : deviceContext = Call Dll( User32Dll, "GetDC", windowHandle )
    If Not deviceContext Then ExitFunction // Alternatively, handle error or terminate the application...
        
    Rem Extra buffer space is required if DT_MODIFYSTRING is specified
    drawTextPtr = Alloc( Len(drawText) + 5 )
    Poke String drawTextPtr, drawText
    
    Rem RECT structure
    Local rectStructPtr : rectStructPtr = Alloc(16)
    Poke Integer rectStructPtr, left
    Poke Integer rectStructPtr + 4, top
    Poke Integer rectStructPtr + 8, right
    Poke Integer rectStructPtr + 12, bottom
    
    Rem The 'Rgb' command returns the dword value of '0xFFrrggbb'. The colorref type requires the format '0x00bbggrr'.
    foregroundColor = ( ( foregroundColor && 0x00FF0000 ) >> 16 ) || ( foregroundColor && 0x0000FF00 ) || ( ( foregroundColor && 0x000000FF ) << 16 )
    backgroundColor = ( ( backgroundColor && 0x00FF0000 ) >> 16 ) || ( backgroundColor && 0x0000FF00 ) || ( ( backgroundColor && 0x000000FF ) << 16 )
    
    Call Dll Gdi32Dll, "SetTextColor", deviceContext, foregroundColor
    Call Dll Gdi32Dll, "SetBkColor", deviceContext, backgroundColor
    Call Dll User32Dll, "DrawTextA", deviceContext, drawTextPtr, -1, rectStructPtr, style
    
    Rem Clean up
    Call Dll User32Dll, "ReleaseDC", windowHandle, deviceContext
    
    Free rectStructPtr
    rectStructPtr = 0
    
    Free drawTextPtr
    drawTextPtr = 0
EndFunction

Alternate version

Type StringUDT
    Str As String
EndType

Type RectangleUDT
    Left As Integer
    Top As Integer
    Right As Integer
    Bottom As Integer
EndType

Rem BBBGUI_CONSTANTS
#constant DT_LEFT                     0x00000000
#constant DT_SINGLELINE               0x00000020
#constant DT_END_ELLIPSIS             0x00008000
#constant DT_MODIFYSTRING             0x00010000

Rem Dll numbers
#Constant User32Dll 1
#Constant Gdi32Dll 2

Rem Initialization
Sync On
Sync Rate 60
Sync
BBB App_Start

Load Dll "user32.dll", User32Dll
Load Dll "gdi32.dll", Gdi32Dll
DBProWindow = BBB App_GetDBProWindow()

BBB Draw_Text DBProWindow, "Project path: ", 0, 10, 100, 30, DT_LEFT || DT_SINGLELINE

BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 40, 100, 60, DT_LEFT || DT_SINGLELINE, Rgb(255,0,0), Rgb(0,255,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 70, 100, 90, DT_LEFT || DT_SINGLELINE, Rgb(0,255,0), Rgb(255,0,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 100, 80, 120, DT_LEFT || DT_SINGLELINE || DT_MODIFYSTRING || DT_END_ELLIPSIS, Rgb(255,255,255), Rgb(0,0,0) )

Wait Key
End

Rem MSDN Documentation: https://msdn.microsoft.com/en-us/library/dd162498%28v=vs.85%29.aspx
Rem Summary: The DrawText function draws formatted text in the specified rectangle
Function BBBGUIEX_Draw_Text( windowHandle As Integer, drawText As String, left As Integer, top As Integer, right As Integer, bottom As Integer, style As Integer, foregroundColor As Dword, backgroundColor As Dword )
    Local deviceContext : deviceContext = Call Dll( User32Dll, "GetDC", windowHandle )
    If Not deviceContext Then ExitFunction // Alternatively, handle error or terminate the application...
    
    Rem Extra buffer space is required if DT_MODIFYSTRING is specified
    Local Dim drawTextStr(0) As StringUDT : drawTextStr().Str = drawText
    Local drawTextStrPtr As Dword : drawTextStrPtr = drawTextStr()
    drawTextPtr = Make Memory( Len(drawText) + 5 )
    
    Rem DBPro stores strings in a UDT as a pointer. Since the address of a UDT points to the first field, the value has to be dereferenced to get the string pointer.
    Copy Memory drawTextPtr, *drawTextStrPtr, Len(drawText) + 1

Local Dim rectangle(0) As RectangleUDT
    rectangle().Left = left
    rectangle().Top = top
    rectangle().Right = right
    rectangle().Bottom = bottom
    
    Rem The 'Rgb' command returns the dword value of '0xFFrrggbb'. The colorref type requires the format '0x00bbggrr'.
    foregroundColor = ( ( foregroundColor && 0x00FF0000 ) >> 16 ) || ( foregroundColor && 0x0000FF00 ) || ( ( foregroundColor && 0x000000FF ) << 16 )
    backgroundColor = ( ( backgroundColor && 0x00FF0000 ) >> 16 ) || ( backgroundColor && 0x0000FF00 ) || ( ( backgroundColor && 0x000000FF ) << 16 )
    
    Call Dll Gdi32Dll, "SetTextColor", deviceContext, foregroundColor
    Call Dll Gdi32Dll, "SetBkColor", deviceContext, backgroundColor
    Call Dll User32Dll, "DrawTextA", deviceContext, drawTextPtr, -1, rectangle(), style
    
    Rem Clean up
    Call Dll User32Dll, "ReleaseDC", windowHandle, deviceContext
    
    Undim rectangle()
    Undim drawTextStr()
EndFunction

+ Code Snippet

Type StringUDT
    Str As String
EndType

Type RectangleUDT
    Left As Integer
    Top As Integer
    Right As Integer
    Bottom As Integer
EndType

Rem BBBGUI_CONSTANTS
#constant DT_LEFT                     0x00000000
#constant DT_SINGLELINE               0x00000020
#constant DT_END_ELLIPSIS             0x00008000
#constant DT_MODIFYSTRING             0x00010000

Rem Dll numbers
#Constant User32Dll 1
#Constant Gdi32Dll 2

Rem Initialization
Sync On
Sync Rate 60
Sync
BBB App_Start

Load Dll "user32.dll", User32Dll
Load Dll "gdi32.dll", Gdi32Dll
DBProWindow = BBB App_GetDBProWindow()


BBB Draw_Text DBProWindow, "Project path: ", 0, 10, 100, 30, DT_LEFT || DT_SINGLELINE

BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 40, 100, 60, DT_LEFT || DT_SINGLELINE, Rgb(255,0,0), Rgb(0,255,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 70, 100, 90, DT_LEFT || DT_SINGLELINE, Rgb(0,255,0), Rgb(255,0,0) )
BBBGUIEX_Draw_Text( DBProWindow, "Project path: ", 0, 100, 80, 120, DT_LEFT || DT_SINGLELINE || DT_MODIFYSTRING || DT_END_ELLIPSIS, Rgb(255,255,255), Rgb(0,0,0) )

Wait Key
End


Rem MSDN Documentation: https://msdn.microsoft.com/en-us/library/dd162498%28v=vs.85%29.aspx
Rem Summary: The DrawText function draws formatted text in the specified rectangle
Function BBBGUIEX_Draw_Text( windowHandle As Integer, drawText As String, left As Integer, top As Integer, right As Integer, bottom As Integer, style As Integer, foregroundColor As Dword, backgroundColor As Dword )
    Local deviceContext : deviceContext = Call Dll( User32Dll, "GetDC", windowHandle )
    If Not deviceContext Then ExitFunction // Alternatively, handle error or terminate the application...
    
    Rem Extra buffer space is required if DT_MODIFYSTRING is specified
    Local Dim drawTextStr(0) As StringUDT : drawTextStr().Str = drawText
    Local drawTextStrPtr As Dword : drawTextStrPtr = drawTextStr()
    drawTextPtr = Make Memory( Len(drawText) + 5 )
    
    Rem DBPro stores strings in a UDT as a pointer. Since the address of a UDT points to the first field, the value has to be dereferenced to get the string pointer.
    Copy Memory drawTextPtr, *drawTextStrPtr, Len(drawText) + 1

    Local Dim rectangle(0) As RectangleUDT
    rectangle().Left = left
    rectangle().Top = top
    rectangle().Right = right
    rectangle().Bottom = bottom
    
    Rem The 'Rgb' command returns the dword value of '0xFFrrggbb'. The colorref type requires the format '0x00bbggrr'.
    foregroundColor = ( ( foregroundColor && 0x00FF0000 ) >> 16 ) || ( foregroundColor && 0x0000FF00 ) || ( ( foregroundColor && 0x000000FF ) << 16 )
    backgroundColor = ( ( backgroundColor && 0x00FF0000 ) >> 16 ) || ( backgroundColor && 0x0000FF00 ) || ( ( backgroundColor && 0x000000FF ) << 16 )
    
    Call Dll Gdi32Dll, "SetTextColor", deviceContext, foregroundColor
    Call Dll Gdi32Dll, "SetBkColor", deviceContext, backgroundColor
    Call Dll User32Dll, "DrawTextA", deviceContext, drawTextPtr, -1, rectangle(), style
    
    Rem Clean up
    Call Dll User32Dll, "ReleaseDC", windowHandle, deviceContext
    
    Undim rectangle()
    Undim drawTextStr()
EndFunction

Edit: Forgot to free memory allocations in code

. Changed code snippet.
Edit2: Added alternate version without using Matrix1Utils.

BBB GUI Windows Designer

Back to top

Profile PM

CodeTrasher

13

Years of Service

User Offline

Joined: 18th Jul 2012

Location: Tampere, Finland

Posted: 23rd Feb 2015 10:05

Link

Hi, and sorry for my late response!

Thank you very much for your answer, Admiral MH! I wasn't aware of this kind of possibility. I'm going to have a look at this later, but for now I'll cope with my text having white background

It's not big of an issue, I was just wondering if it's possible to change the color using BBB commands.

But thanks again, your example snippet was very precise

Back to top

Profile PM Email

Admiral MH

15

Years of Service

User Offline

Joined: 10th Feb 2011

Location: TX, USA

Posted: 23rd Feb 2015 19:45

Link

Your welcome, glad to be of help. In case you do not want to use the memory allocation commands from Matrix1Utils plugins, the code can be rewritten using DBPro's memblocks commands (although using those commands would require mode code).

BBB GUI Windows Designer

Back to top

Profile PM