Hello,
is there a way to have an other color (normally black) for the textbox WS_border color?
Hi guys,
anyone has a clue?
I imagine you could handle the painting in the non-client area via processing the WM_NCPAINT message.
Let me try a sample to see if it actually works..... I'll let you know.
Maybe try this. Put it in the CUSTOM handler for the TEXTBOX control you want to change the border color for.
'--------------------------------------------------------------------------------
Function FORM1_TEXT1_CUSTOM ( _
ControlIndex As Long, _ ' index in Control Array
hWndForm As Dword, _ ' handle of Form
hWndControl As Dword, _ ' handle of Control
wMsg As Long, _ ' type of message
wParam As Dword, _ ' first message parameter
lParam As Long _ ' second message parameter
) As Long
Select Case wMsg
Case %WM_NCPAINT
Local hDC As Dword
Local hOldPen As Dword
Local hPen As Dword
Local rc As Rect
' Paint into the Device Context
hDC = GetDC( hWndControl )
' Create a new red pen and put it in the device context
hPen = CreatePen( %PS_SOLID, 2, %Red )
hOldPen = SelectObject( hDC, hPen )
GetWindowRect hWndControl, rc
Rectangle hDC, 0, 0, rc.nRight - rc.nLeft + 1, rc.nBottom - rc.nTop + 1
' Put the old pen back into the device context before deleting our new pen
SelectObject hDC, hOldPen
ReleaseDC hWndControl, hDC
DeleteObject hPen
Function = -1: Exit Function
End Select
End Function