FB 1.06.0 - 32 (GFX-lib), shows white (on black background), while the same program compiles
and runs *as expected* in the 64bit version ... (also no problems, in both FBC 1.05.0 versions).
FB 1.06.0 - 64 (GFX-lib), a regression bug, it seems (as it is also in the 1.05.0 - 64 version):
when doing a compile+run (from IDE) the program does not *have the focus*, unlike 32bit ver.
The code used for testing (giving above problems):
Code: Select all
' GFX_MATH_Test2.bas -- 2017-05-06, by MrSwiss
' last update: 2017-05-06 changed: ---
' compile with: -s GUI
#Include Once "GFX_MATH.bi" ' see: https://freebasic.net/forum/viewtopic.php?f=7&p=231423#p231423
' for program execution control
Dim As Boolean quit = FALSE ' flag(s)
' ===== MAIN =====
ScreenRes(641, 641, 32, 2, 64) ' GFX_ALPHA_PRIMITIVES = &h40 / 64 dec; double buffer
Do
For j As UInteger = 0 To 10 ' rows (steps vertical)
Var y = j * 55 ' calc. y-axis pos.
For i As UInteger = 0 To 10 ' columns (steps horizontal)
Var x = i * 55 ' calc. x-axis pos.
Var h = IRange(25, 85) ' get a random height between 25 and 85
Var w = IRange(35, 150) ' get a random width between 35 and 150
Line (x, y)-Step(w, h), RndARGB, BF ' random color full ARGB range
Next
If Len(InKey()) Then quit = TRUE : Exit For ' exit outer For loop (only)
Next
Flip
If quit Then Exit Do ' end prog. (if quit = TRUE)
Sleep 1000, 1 : Cls ' give user some time, to 'look at it'
Loop
' ===== END-MAIN ===== ' ----- EOF -----