I am attempting to build a OS in FB just for fun
I know if I was serious I'd need C++
But the problem I am having is the text has a black background when
printed that I want rid of
I want the background to be the same as of the BOX FILL
is this possible?
#if cpuPPC
#if CarbonLib == 0
library "MenusLib"
#endif
toolbox fn IsMenuBarVisible = boolean
toolbox ShowMenuBar
toolbox HideMenuBar
library
#endif
HideMenubar
'1024x768
dim s1,s2
s1 = SYSTEM(_scrnWidth)
s2 = SYSTEM(_scrnHeight)
long if s1 <> 1024 and s2 <> 768
stxt$ = "BriX requires a monitor size of 1024x768 to run. Click Exit
to return to MacOS."
ShowMenubar
CALL PARAMTEXT (stxt$,"","","")
i = FN ALERT (128,0)
end
end if
begin enum 1
_fullscreen
end enum
local fn Buildfullscreen
dim as Rect r
'~'<
//SetRect(r, 0, 0, 1024, 768)// Optional FB auto-centre
SetRect(r, 0, 0, 1024, 791)// w: 1024 h: 768
appearance window -_fullscreen,¬
"screen", @r,¬
_kPlainWindowClass
//def SetWindowBackground(_kThemeActiveDialogBackgroundBrush, _zTrue)
'~'<
appearance window _fullscreen
end fn
HIDECURSOR
FN Buildfullscreen
CALL BACKCOLOR(_zBlack)
CLS
dim a$
color=_zWhite
delay 100
color=_zWhite
box 5,5 to s1-5,s2-5
color=_zBlue
box fill 6,6 to s1-6,s2-6
print
TEXT _Times,30
AUTOCLIP=0
COLOR=_zWhite
PRINT " BriX 1.0"
input "";a$