background color of text

[bman]

Is it possible to write text without a background color so that it looks natural on a bmp image?

[Brandon Parker]

Here is a nice example from Alyce Watson...

See if you can work through her example and use the functions to suit your needs.

alycesrestaurant.com/setbkmode.htm


{:0)

Brandon Parker

[bman]

May 25, 2023 20:32:02 GMT -5 Brandon Parker said:

Here is a nice example from Alyce Watson...

Thanks Brandon.  I've been trying without success to get the code to work on a graphics window.  Any advice for doing that?

[Brandon Parker]

Do you mean like this? I just updated Alyce's code to use a Graphic Window instead of a GraphicBox and changed it enough to post it here...

NoMainWin
WindowWidth     = 400
WindowHeight    = 350

Open "SetBkMode" For Graphics As #Test
#Test "TrapClose quit"
#Test "Font Arial 18 Bold"
#Test "Down; Fill DarkPink"
#Test "BoxFilled 200 350"
#Test "BackColor DarkGreen; Color DarkBlue"
'get handle of graphic window
hGBox = Hwnd(#Test)


'get device context handle of graphicbox
CallDLL #user32, "GetDC", hGBox As ulong, _ 'handle of graphicbox
                         gDC   As ulong    'device context


CallDLL #gdi32, "SetBkMode", gDC            As ulong, _ 'handle of graphicbox
                            _TRANSPARENT   As long, _  'flag for transparent background
                            result         As long     'previous bkmode


'To see the difference, set background mode to opaque
'by un-remming the following lines
'CallDLL #gdi32, "SetBkMode", gDC       As ulong,_  'handle of graphicbox
'                             _OPAQUE   As long,_   'flag for opaque background
'                             result    As long     'previous bkmode


'you must free the device context
callDLL#user32,"ReleaseDC", hGBox   As ulong, _ 'graphicbox handle
                           gDC     As ulong, _ 'device context
                           result  As long


#Test "\\  Transparent BkMode"
#Test "\\  No darkgreen behind text."
#Test "Flush"
Wait


Sub quit handle$
   Close #handle$
   End
End Sub


{:0)

Brandon Parker

[bman]

May 27, 2023 13:59:41 GMT -5 Brandon Parker said:

Do you mean like this?




Thanks Brandon.  Code is working great.  I really appreciate the help.

[Brandon Parker]

bman,
Did you mean to ask a question or make a statement?


{:0)

Brandon Parker