Richard Russell
Administrator
member is offline
 
Posts: 1348
|
 |
Textbox color
« Thread started on: Apr 8th, 2016, 11:32am » |
|
There's a thread at the Liberty BASIC Community Forum describing a trick that allows textboxes and statictext controls, in the same window, to have different foreground colors. This doesn't work in LBB (it relies on undocumented internal behavior) but it's easy enough to achieve an equivalent effect:
Code: nomainwin
WindowWidth = 250
WindowHeight = 160
UpperLeftX = int((DisplayWidth-WindowWidth)/2)
UpperLeftY = int((DisplayHeight-WindowHeight)/2)
statictext #1.st1, "Normal", 10, 70, 50, 17
textbox #1.tb1, 10, 90, 100, 25
stylebits #1.st2, _ES_READONLY, _WS_HSCROLL or _WS_VSCROLL or _
_WS_DLGFRAME or _ES_MULTILINE, 0, 0
texteditor #1.st2, 10, 10, 100, 17
stylebits #1.tb2, _WS_BORDER, _WS_HSCROLL or _WS_VSCROLL or _
_WS_DLGFRAME or _ES_MULTILINE, _WS_EX_CLIENTEDGE, 0
texteditor #1.tb2, 10, 30, 100, 25
stylebits #1.st3, _ES_READONLY, _WS_HSCROLL or _WS_VSCROLL or _
_WS_DLGFRAME or _ES_MULTILINE, 0, 0
texteditor #1.st3, 120, 10, 100, 17
stylebits #1.tb3, _WS_BORDER, _WS_HSCROLL or _WS_VSCROLL or _
_WS_DLGFRAME or _ES_MULTILINE, _WS_EX_CLIENTEDGE, 0
texteditor #1.tb3,120, 30, 100, 25
open "Main GUI" for window as #1
print #1, "font ms_sans_serif 8"
print #1, "trapclose [quit.1]"
hw1 = hwnd(#1)
calldll #user32, "SetMenu", hw1 as ulong, 0 as long, r as long
#1.tb1 "123"
#1.st2 "Red on darkblue"
#1.st2 "!forecolor red"
#1.st2 "!backcolor buttonface"
#1.tb2 "!forecolor red"
#1.tb2 "!backcolor darkblue"
#1.tb2 "123"
#1.st3 "Darkgreen on green"
#1.st3 "!forecolor darkgreen"
#1.st3 "!backcolor buttonface"
#1.tb3 "!forecolor darkgreen"
#1.tb3 "!backcolor green"
#1.tb3 "123"
wait
[quit.1]
close #1
end
Richard.
|
Logged