Using COLOR() function

[BasicCoder2]

In a routine I want to save the current foreground and background color but can't seem to get the background color?
In the code below I can see the &H88 but not the &H99 in the returned value.
Also the Help example uses uinteger instead of ulong

Code: Select all

screenres 640,480,32
color rgb(&H88,0,0),rgb(0,&H99,0)
dim as ulong c
c = color()
print hex(c,16)
sleep

[fxm]

See documentation:

Return Value
Returns a 32-bit value containing the current foreground color in the Low Word and the current background color in the High Word. (In hi/truecolor modes, only the foreground color is returned, taking up the whole 32 bits.)
The old color values can be retrieved at the same time as setting new ones.

[dodicat]

for 32 bits

Code: Select all

screenres 640,480,32
color rgb(&H88,0,0),rgb(0,&H99,0)
dim as integer f,b  'fore,back
screencontrol 13,f,b


print f,b

circle(200,200),50,f,,,,f
circle(500,200),50,b,,,,f

sleep  

[fxm]

Code: Select all

Print Hex(f, 6), Hex(b, 6)

[BasicCoder2]

(In hi/truecolor modes, only the foreground color is returned, taking up the whole 32 bits.]

So is there any way to get the background color in 32 bit mode?

Code: Select all

screenres 640,480,32
color rgb(0,0,0),rgb(255,255,255):cls
sub colorPrint(text as string,fg as ulong,bg as ulong)
    dim as ulong oldColor
    oldColor = color(fg,bg)
    print text
    color oldColor
end sub
colorPrint("hello world",rgb(255,0,0),rgb(0,255,0))
print "hello world"
sleep

[fxm]

See dodicat's post.

[MrSwiss]

Also the Help example uses uinteger instead of ulong

Replace 'Integer' with 'ULong' updated example code

[BasicCoder2]

Thank you for your patience and tolerance.
The FBIDE help I used is out of date and I also forgot about FBWiki which didn't show up when I did a google search for "freebasic color command".

[fxm]

Also the Help example uses uinteger instead of ulong

Replace 'Integer' with 'ULong' updated example code

Thank you for updating the documentation.

[MrSwiss]

No problem, if the problem is 'spelled out' like it was here ...