[futurebasic] background problem with box fill

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : February 2006 : Group Archive : Group : All Groups

From: Brian Heibert <bheibert@...>
Date: Mon, 06 Feb 2006 15:08:43 -0500
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$