Anyone know what's wrong here? (Rho knows!)

[bplus]

Here is another oddity: I changed the Window System.BI

Code: QB64: [Select]

1. DIM SHARED Windows AS Window_Type
2. DIM SHARED Captions AS Caption_Type
3. DIM SHARED WindowCount AS INTEGER, DisplayCount AS INTEGER
4. DIM SHARED CaptionsCount AS INTEGER
5. _DEFINE A-Z AS LONG
6.  

From DIM SHARED to COMMON SHARED, got an error so I switched them back to DIM SHARED and now line 35 is showing error
  [ You are not allowed to view this attachment ]  

I did this twice to make sure I did return the .BI back to what it was. So now it won't get past line 35.

Did it again only with first, Windows to COMMON and then back to DIM and again it's stuck on line 35.

[SMcNeill]

Okies, I thought I was baffled before, but now I'm just....

/SIGH!!!!!!!!

WTF type of glitch have I managed to stumble across in QB64???  The more I try and sort out what the BLEEP is going on, the worse my brain breaks.  I'm now getting impossible errors:

Code: QB64: [Select]

1.     x = Captions(n).FontHandle
2.     COLOR Red
3.     LOCATE 10, 1: PRINT x, F, x = F; "Before IF"
4.     IF x <> F THEN
5.         LOCATE 11, 1: PRINT x, F, x = F; "In IF"
6.         _FONT x
7.     END IF
8.     COLOR Black

The issue is in the _FONT statement, right??

So I test the little code above, and I want to see how the value of X changes, or what the BLEEP the value the _FONT statement is receiving, at least...  When we start the SUB, the font value is 16 (which is F).  We get the value for X, which is 16.  The "Before IF" print statement works, saying the values are equal...

We don't print the "In IF" statement, so we should be skipping the code inside that IF block completely...

AND YET....

We get an Invalid Handler error message for the _FONT x line, which is inside the IF block we're not even entering?!!


Here's the whole code for testing, with the '$INCLUDE statements merged into the main program, and with all of the variable length STRINGs removed from the TYPEs.  Anything someone suggests which might be the source of this glitch, I'm testing to try and rule it out, and so far nothing has changed the behavior one bit.

Code: QB64: [Select]

1. $LET COLOR = 32
2. $LET COMMONCONST = TRUE
3. $LET KEYCODES = TRUE
4. $LET MINMAX = TRUE
5.  
6. $IF COMMONCONST = TRUE THEN
7.     CONST True = -1, False = 0
8. $END IF
9.  
10. $IF MINMAX = TRUE THEN
11.     CONST Bit_Min` = -1`, Bit_Max = 0`
12.     CONST Byte_Min%% = -128%%, Byte_Max = 127%%
13.     CONST Integer_Min% = -32768%, Integer_Max = 32767%
14.     CONST Long_Min& = -2147483648&, Long_Max = 2147483647&
15.     CONST Integer64_Min&& = -9223372036854775808&&, Integer64_Max = 9223372036854775807&&
16.  
17.     CONST Single_Min! = -2.802597E-45, Single_Max = 3.402823E+38
18.     CONST Double_Min# = -4.490656458412465E-324, Double_Max = 1.797693134862310E+308
19.     CONST Float_Min## = -1.18E-4932, Float_Max = 1.18E+4932
20.  
21.     CONST U_Bit_Min~` = 0, U_Bit_Max = 1
22.     CONST U_Byte_Min~%% = 0, U_Byte_Max = 256
23.     CONST U_Integer_Min~% = 0, U_Integer_Max = 65535
24.     CONST U_Long_Min~& = 0, U_Long_Max = 4294967295
25.     CONST U_Integer64_Min~&& = 0, U_Integer64_Max = 18446744073709551615
26.  
27.     CONST String_Min& = 0, String_Max& = 2147483647
28. $END IF
29.  
30. $IF KEYCODES = TRUE THEN
31.     CONST Key_Uppercase = 0, Key_LowerCase = 32, Key_UC = 0, Key_LC = 32
32.  
33.     CONST Key_Backspace = 8, Key_Bksp = 8
34.     CONST Key_Tab = 9, Key_Enter = 13, Key_ESC = 27, Key_Space = 32
35.     CONST Key_Exclamation = 33, Key_Quote = 34, Key_Number = 35, Key_Dollar = 36
36.     CONST Key_Percent = 37, Key_And = 38, Key_Apostrophe = 39
37.     CONST Key_Left_Parenthese = 40, Key_Right_Parenthese = 41
38.     CONST Key_Times = 42, Key_Star = 42, Key_Plus = 43, Key_Comma = 44
39.     CONST Key_Minus = 45, Key_Dash = 45, Key_Period = 46, Key_Divide = 47, Key_Slash = 47
40.     CONST Key_0 = 48, Key_1 = 49, Key_2 = 50, Key_3 = 51, Key_4 = 52
41.     CONST Key_5 = 53, Key_6 = 54, Key_7 = 55, Key_8 = 56, Key_9 = 57
42.     CONST Key_Colon = 58, Key_Semicolon = 59, Key_LessThan = 60, Key_Equal = 61
43.     CONST Key_GreaterThan = 62, Key_Question = 63, Key_QuestionMark = 63, Key_At = 64
44.     CONST Key_A = 65, Key_B = 66, Key_C = 67, Key_D = 68, Key_E = 69, Key_F = 70
45.     CONST Key_G = 71, Key_H = 72, Key_I = 73, Key_J = 74, Key_K = 75, Key_L = 76
46.     CONST Key_M = 77, Key_N = 78, Key_O = 79, Key_P = 80, Key_Q = 81, Key_R = 82
47.     CONST Key_S = 83, Key_T = 84, Key_U = 85, Key_V = 86, Key_W = 87, Key_X = 88
48.     CONST Key_Y = 89, Key_Z = 90
49.     CONST Key_LeftBrace = 91, Key_BackSlash = 92, Key_RightBrace = 92
50.     CONST Key_Power = 94, Key_Underscore = 95, Key_BackQuote = 96
51.     'Lowercase A to Z are Key_A + Key_LowerCase to Key_Z + Key_LowerCase
52.  
53.     CONST Key_F1 = 15104, Key_F2 = 15360, Key_F3 = 15616, Key_F4 = 15872, Key_F5 = 16128
54.     CONST Key_F6 = 16384, Key_F7 = 16640, Key_F8 = 16896, Key_F9 = 17152, Key_F10 = 17408
55.     CONST Key_F11 = 34048, Key_F12 = 34304
56.  
57.     CONST Key_Pause = 100019
58.     CONST Key_NumLock = 100300, Key_CapsLock = 100301, Key_ScrollLock = 100302
59.     CONST Key_RightShift = 100303, Key_LeftShift = 100304
60.     CONST Key_RightControl = 100305, Key_RightCtrl = 100305, Key_LeftControl = 100306, Key_LeftCtrl = 100306
61.     CONST Key_RightAlt = 100307, Key_LeftAlt = 100308
62.     CONST Key_LeftApple = 100309, Key_RightApple = 100310
63.     CONST Key_LeftWin = 100311, Key_RightWin = 100312
64.     CONST Key_Sys = 100316, Key_Menu = 100319
65.  
66.     CONST Key_Up = 18432, Key_Left = 19200, Key_Down = 20480, Key_Right = 19712
67.     CONST Key_Ins = 20992, Key_Home = 18176, Key_PageUp = 18688
68.     CONST Key_Del = 21248, Key_End = 20224, Key_PageDown = 20736
69. $END IF
70.  
71. $IF COLOR = 32 THEN
72.     CONST AliceBlue = &HFFF0F8FF~& ' _RGB32(240,248,255)
73.     CONST Almond = &HFFEFDECD~& '_RGB32(239,222,205)
74.     CONST AntiqueBrass = &HFFCD9575~& '_RGB32(205,149,117)
75.     CONST AntiqueWhite = &HFFFAEBD7~& ' _RGB32(250,235,215)
76.     CONST Apricot = &HFFFDD9B5~& '_RGB32(253,217,181)
77.     CONST Aqua = &HFF00FFFF~& ' _RGB32(0,255,255)
78.     CONST Aquamarine = &HFF7FFFD4~& ' _RGB32(127,255,212)
79.     CONST Asparagus = &HFF87A96B~& '_RGB32(135,169,107)
80.     CONST AtomicTangerine = &HFFFFA474~& '_RGB32(255,164,116)
81.     CONST Azure = &HFFF0FFFF~& ' _RGB32(240,255,255)
82.     CONST BananaMania = &HFFFAE7B5~& '_RGB32(250,231,181)
83.     CONST Beaver = &HFF9F8170~& '_RGB32(159,129,112)
84.     CONST Beige = &HFFF5F5DC~& ' _RGB32(245,245,220)
85.     CONST Bisque = &HFFFFE4C4~& ' _RGB32(255,228,196)
86.     CONST Bittersweet = &HFFFD7C6E~& '_RGB32(253,124,110)
87.     CONST Black = &HFF000000~& ' _RGB32(0,0,0)
88.     CONST BlanchedAlmond = &HFFFFEBCD~& ' _RGB32(255,235,205)
89.     CONST BlizzardBlue = &HFFACE5EE~& '_RGB32(172,229,238)
90.     CONST Blue = &HFF0000FF~& ' _RGB32(0,0,255)
91.     CONST BlueBell = &HFFA2A2D0~& '_RGB32(162,162,208)
92.     CONST BlueGray = &HFF6699CC~& '_RGB32(102,153,204)
93.     CONST BlueGreen = &HFF0D98BA~& '_RGB32(13,152,186)
94.     CONST BlueViolet = &HFF8A2BE2~& ' _RGB32(138,43,226)
95.     CONST Blush = &HFFDE5D83~& '_RGB32(222,93,131)
96.     CONST BrickRed = &HFFCB4154~& '_RGB32(203,65,84)
97.     CONST Brown = &HFFA52A2A~& ' _RGB32(165,42,42)
98.     CONST BurlyWood = &HFFDEB887~& ' _RGB32(222,184,135)
99.     CONST BurntOrange = &HFFFF7F49~& '_RGB32(255,127,73)
100.     CONST BurntSienna = &HFFEA7E5D~& '_RGB32(234,126,93)
101.     CONST CadetBlue = &HFF5F9EA0~& ' _RGB32(95,158,160)
102.     CONST Canary = &HFFFFFF99~& '_RGB32(255,255,153)
103.     CONST CaribbeanGreen = &HFF1CD3A2~& '_RGB32(28,211,162)
104.     CONST CarnationPink = &HFFFFAACC~& '_RGB32(255,170,204)
105.     CONST Cerise = &HFFDD4492~& '_RGB32(221,68,146)
106.     CONST Cerulean = &HFF1DACD6~& '_RGB32(29,172,214)
107.     CONST ChartReuse = &HFF7FFF00~& ' _RGB32(127,255,0)
108.     CONST Chestnut = &HFFBC5D58~& '_RGB32(188,93,88)
109.     CONST Chocolate = &HFFD2691E~& ' _RGB32(210,105,30)
110.     CONST Copper = &HFFDD9475~& '_RGB32(221,148,117)
111.     CONST Coral = &HFFFF7F50~& ' _RGB32(255,127,80)
112.     CONST Cornflower = &HFF9ACEEB~& '_RGB32(154,206,235)
113.     CONST CornflowerBlue = &HFF6495ED~& ' _RGB32(100,149,237)
114.     CONST Cornsilk = &HFFFFF8DC~& ' _RGB32(255,248,220)
115.     CONST CottonCandy = &HFFFFBCD9~& '_RGB32(255,188,217)
116.     CONST CrayolaAquamarine = &HFF78DBE2~& '_RGB32(120,219,226)
117.     CONST CrayolaBlue = &HFF1F75FE~& '_RGB32(31,117,254)
118.     CONST CrayolaBlueViolet = &HFF7366BD~& '_RGB32(115,102,189)
119.     CONST CrayolaBrown = &HFFB4674D~& '_RGB32(180,103,77)
120.     CONST CrayolaCadetBlue = &HFFB0B7C6~& '_RGB32(176,183,198)
121.     CONST CrayolaForestGreen = &HFF6DAE81~& '_RGB32(109,174,129)
122.     CONST CrayolaGold = &HFFE7C697~& '_RGB32(231,198,151)
123.     CONST CrayolaGoldenrod = &HFFFCD975~& '_RGB32(252,217,117)
124.     CONST CrayolaGray = &HFF95918C~& '_RGB32(149,145,140)
125.     CONST CrayolaGreen = &HFF1CAC78~& '_RGB32(28,172,120)
126.     CONST CrayolaGreenYellow = &HFFF0E891~& '_RGB32(240,232,145)
127.     CONST CrayolaIndigo = &HFF5D76CB~& '_RGB32(93,118,203)
128.     CONST CrayolaLavender = &HFFFCB4D5~& '_RGB32(252,180,213)
129.     CONST CrayolaMagenta = &HFFF664AF~& '_RGB32(246,100,175)
130.     CONST CrayolaMaroon = &HFFC8385A~& '_RGB32(200,56,90)
131.     CONST CrayolaMidnightBlue = &HFF1A4876~& '_RGB32(26,72,118)
132.     CONST CrayolaOrange = &HFFFF7538~& '_RGB32(255,117,56)
133.     CONST CrayolaOrangeRed = &HFFFF2B2B~& '_RGB32(255,43,43)
134.     CONST CrayolaOrchid = &HFFE6A8D7~& '_RGB32(230,168,215)
135.     CONST CrayolaPlum = &HFF8E4585~& '_RGB32(142,69,133)
136.     CONST CrayolaRed = &HFFEE204D~& '_RGB32(238,32,77)
137.     CONST CrayolaSalmon = &HFFFF9BAA~& '_RGB32(255,155,170)
138.     CONST CrayolaSeaGreen = &HFF9FE2BF~& '_RGB32(159,226,191)
139.     CONST CrayolaSilver = &HFFCDC5C2~& '_RGB32(205,197,194)
140.     CONST CrayolaSkyBlue = &HFF80DAEB~& '_RGB32(128,218,235)
141.     CONST CrayolaSpringGreen = &HFFECEABE~& '_RGB32(236,234,190)
142.     CONST CrayolaTann = &HFFFAA76C~& '_RGB32(250,167,108)
143.     CONST CrayolaThistle = &HFFEBC7DF~& '_RGB32(235,199,223)
144.     CONST CrayolaViolet = &HFF926EAE~& '_RGB32(146,110,174)
145.     CONST CrayolaYellow = &HFFFCE883~& '_RGB32(252,232,131)
146.     CONST CrayolaYellowGreen = &HFFC5E384~& '_RGB32(197,227,132)
147.     CONST Crimson = &HFFDC143C~& ' _RGB32(220,20,60)
148.     CONST Cyan = &HFF00FFFF~& ' _RGB32(0,255,255)
149.     CONST Dandelion = &HFFFDDB6D~& '_RGB32(253,219,109)
150.     CONST DarkBlue = &HFF00008B~& ' _RGB32(0,0,139)
151.     CONST DarkCyan = &HFF008B8B~& ' _RGB32(0,139,139)
152.     CONST DarkGoldenRod = &HFFB8860B~& ' _RGB32(184,134,11)
153.     CONST DarkGray = &HFFA9A9A9~& ' _RGB32(169,169,169)
154.     CONST DarkGreen = &HFF006400~& ' _RGB32(0,100,0)
155.     CONST DarkKhaki = &HFFBDB76B~& ' _RGB32(189,183,107)
156.     CONST DarkMagenta = &HFF8B008B~& ' _RGB32(139,0,139)
157.     CONST DarkOliveGreen = &HFF556B2F~& ' _RGB32(85,107,47)
158.     CONST DarkOrange = &HFFFF8C00~& ' _RGB32(255,140,0)
159.     CONST DarkOrchid = &HFF9932CC~& ' _RGB32(153,50,204)
160.     CONST DarkRed = &HFF8B0000~& ' _RGB32(139,0,0)
161.     CONST DarkSalmon = &HFFE9967A~& ' _RGB32(233,150,122)
162.     CONST DarkSeaGreen = &HFF8FBC8F~& ' _RGB32(143,188,143)
163.     CONST DarkSlateBlue = &HFF483D8B~& ' _RGB32(72,61,139)
164.     CONST DarkSlateGray = &HFF2F4F4F~& ' _RGB32(47,79,79)
165.     CONST DarkTurquoise = &HFF00CED1~& ' _RGB32(0,206,209)
166.     CONST DarkViolet = &HFF9400D3~& ' _RGB32(148,0,211)
167.     CONST DeepPink = &HFFFF1493~& ' _RGB32(255,20,147)
168.     CONST DeepSkyBlue = &HFF00BFFF~& ' _RGB32(0,191,255)
169.     CONST Denim = &HFF2B6CC4~& '_RGB32(43,108,196)
170.     CONST DesertSand = &HFFEFCDB8~& '_RGB32(239,205,184)
171.     CONST DimGray = &HFF696969~& ' _RGB32(105,105,105)
172.     CONST DodgerBlue = &HFF1E90FF~& ' _RGB32(30,144,255)
173.     CONST Eggplant = &HFF6E5160~& '_RGB32(110,81,96)
174.     CONST ElectricLime = &HFFCEFF1D~& '_RGB32(206,255,29)
175.     CONST Fern = &HFF71BC78~& '_RGB32(113,188,120)
176.     CONST FireBrick = &HFFB22222~& ' _RGB32(178,34,34)
177.     CONST Floralwhite = &HFFFFFAF0~& ' _RGB32(255,250,240)
178.     CONST ForestGreen = &HFF228B22~& ' _RGB32(34,139,34)
179.     CONST Fuchsia = &HFFC364C5~& '_RGB32(195,100,197)
180.     CONST FuzzyWuzzy = &HFFCC6666~& '_RGB32(204,102,102)
181.     CONST Gainsboro = &HFFDCDCDC~& ' _RGB32(220,220,220)
182.     CONST GhostWhite = &HFFF8F8FF~& ' _RGB32(248,248,255)
183.     CONST Gold = &HFFFFD700~& ' _RGB32(255,215,0)
184.     CONST GoldenRod = &HFFDAA520~& ' _RGB32(218,165,32)
185.     CONST GrannySmithApple = &HFFA8E4A0~& '_RGB32(168,228,160)
186.     CONST Gray = &HFF808080~& ' _RGB32(128,128,128)
187.     CONST Green = &HFF008000~& ' _RGB32(0,128,0)
188.     CONST GreenBlue = &HFF1164B4~& '_RGB32(17,100,180)
189.     CONST GreenYellow = &HFFADFF2F~& ' _RGB32(173,255,47)
190.     CONST HoneyDew = &HFFF0FFF0~& ' _RGB32(240,255,240)
191.     CONST HotMagenta = &HFFFF1DCE~& '_RGB32(255,29,206)
192.     CONST HotPink = &HFFFF69B4~& ' _RGB32(255,105,180)
193.     CONST Inchworm = &HFFB2EC5D~& '_RGB32(178,236,93)
194.     CONST IndianRed = &HFFCD5C5C~& ' _RGB32(205,92,92)
195.     CONST Indigo = &HFF4B0082~& ' _RGB32(75,0,130)
196.     CONST Ivory = &HFFFFFFF0~& ' _RGB32(255,255,240)
197.     CONST JazzberryJam = &HFFCA3767~& '_RGB32(202,55,103)
198.     CONST JungleGreen = &HFF3BB08F~& '_RGB32(59,176,143)
199.     CONST Khaki = &HFFF0E68C~& ' _RGB32(240,230,140)
200.     CONST LaserLemon = &HFFFEFE22~& '_RGB32(254,254,34)
201.     CONST Lavender = &HFFE6E6FA~& ' _RGB32(230,230,250)
202.     CONST LavenderBlush = &HFFFFF0F5~& ' _RGB32(255,240,245)
203.     CONST LawnGreen = &HFF7CFC00~& ' _RGB32(124,252,0)
204.     CONST LemonChiffon = &HFFFFFACD~& ' _RGB32(255,250,205)
205.     CONST LemonYellow = &HFFFFF44F~& '_RGB32(255,244,79)
206.     CONST LightBlue = &HFFADD8E6~& ' _RGB32(173,216,230)
207.     CONST LightCoral = &HFFF08080~& ' _RGB32(240,128,128)
208.     CONST LightCyan = &HFFE0FFFF~& ' _RGB32(224,255,255)
209.     CONST LightGoldenRodYellow = &HFFFAFAD2~& ' _RGB32(250,250,210)
210.     CONST LightGray = &HFFD3D3D3~& ' _RGB32(211,211,211)
211.     CONST LightGreen = &HFF90EE90~& ' _RGB32(144,238,144)
212.     CONST LightPink = &HFFFFB6C1~& ' _RGB32(255,182,193)
213.     CONST LightSalmon = &HFFFFA07A~& ' _RGB32(255,160,122)
214.     CONST LightSeaGreen = &HFF20B2AA~& ' _RGB32(32,178,170)
215.     CONST LightSkyBlue = &HFF87CEFA~& ' _RGB32(135,206,250)
216.     CONST LightSlateGray = &HFF778899~& ' _RGB32(119,136,153)
217.     CONST LightSteelBlue = &HFFB0C4DE~& ' _RGB32(176,196,222)
218.     CONST LightYellow = &HFFFFFFE0~& ' _RGB32(255,255,224)
219.     CONST Lime = &HFF00FF00~& ' _RGB32(0,255,0)
220.     CONST LimeGreen = &HFF32CD32~& ' _RGB32(50,205,50)
221.     CONST Linen = &HFFFAF0E6~& ' _RGB32(250,240,230)
222.     CONST MacaroniAndCheese = &HFFFFBD88~& '_RGB32(255,189,136)
223.     CONST Magenta = &HFFFF00FF~& ' _RGB32(255,0,255)
224.     CONST MagicMint = &HFFAAF0D1~& '_RGB32(170,240,209)
225.     CONST Mahogany = &HFFCD4A4C~& '_RGB32(205,74,76)
226.     CONST Maize = &HFFEDD19C~& '_RGB32(237,209,156)
227.     CONST Manatee = &HFF979AAA~& '_RGB32(151,154,170)
228.     CONST MangoTango = &HFFFF8243~& '_RGB32(255,130,67)
229.     CONST Maroon = &HFF800000~& ' _RGB32(128,0,0)
230.     CONST Mauvelous = &HFFEF98AA~& '_RGB32(239,152,170)
231.     CONST MediumAquamarine = &HFF66CDAA~& ' _RGB32(102,205,170)
232.     CONST MediumBlue = &HFF0000CD~& ' _RGB32(0,0,205)
233.     CONST MediumOrchid = &HFFBA55D3~& ' _RGB32(186,85,211)
234.     CONST MediumPurple = &HFF9370DB~& ' _RGB32(147,112,219)
235.     CONST MediumSeaGreen = &HFF3CB371~& ' _RGB32(60,179,113)
236.     CONST MediumSlateBlue = &HFF7B68EE~& ' _RGB32(123,104,238)
237.     CONST MediumSpringGreen = &HFF00FA9A~& ' _RGB32(0,250,154)
238.     CONST MediumTurquoise = &HFF48D1CC~& ' _RGB32(72,209,204)
239.     CONST MediumVioletRed = &HFFC71585~& ' _RGB32(199,21,133)
240.     CONST Melon = &HFFFDBCB4~& '_RGB32(253,188,180)
241.     CONST MidnightBlue = &HFF191970~& ' _RGB32(25,25,112)
242.     CONST MintCream = &HFFF5FFFA~& ' _RGB32(245,255,250)
243.     CONST MistyRose = &HFFFFE4E1~& ' _RGB32(255,228,225)
244.     CONST Moccasin = &HFFFFE4B5~& ' _RGB32(255,228,181)
245.     CONST MountainMeadow = &HFF30BA8F~& '_RGB32(48,186,143)
246.     CONST Mulberry = &HFFC54B8C~& '_RGB32(197,75,140)
247.     CONST NavajoWhite = &HFFFFDEAD~& ' _RGB32(255,222,173)
248.     CONST Navy = &HFF000080~& ' _RGB32(0,0,128)
249.     CONST NavyBlue = &HFF1974D2~& '_RGB32(25,116,210)
250.     CONST NeonCarrot = &HFFFFA343~& '_RGB32(255,163,67)
251.     CONST OldLace = &HFFFDF5E6~& ' _RGB32(253,245,230)
252.     CONST Olive = &HFF808000~& ' _RGB32(128,128,0)
253.     CONST OliveDrab = &HFF6B8E23~& ' _RGB32(107,142,35)
254.     CONST OliveGreen = &HFFBAB86C~& '_RGB32(186,184,108)
255.     CONST Orange = &HFFFFA500~& ' _RGB32(255,165,0)
256.     CONST OrangeRed = &HFFFF4500~& ' _RGB32(255,69,0)
257.     CONST OrangeYellow = &HFFF8D568~& '_RGB32(248,213,104)
258.     CONST Orchid = &HFFDA70D6~& ' _RGB32(218,112,214)
259.     CONST OuterSpace = &HFF414A4C~& '_RGB32(65,74,76)
260.     CONST OutrageousOrange = &HFFFF6E4A~& '_RGB32(255,110,74)
261.     CONST PacificBlue = &HFF1CA9C9~& '_RGB32(28,169,201)
262.     CONST PaleGoldenRod = &HFFEEE8AA~& ' _RGB32(238,232,170)
263.     CONST PaleGreen = &HFF98FB98~& ' _RGB32(152,251,152)
264.     CONST PaleTurquoise = &HFFAFEEEE~& ' _RGB32(175,238,238)
265.     CONST PaleVioletRed = &HFFDB7093~& ' _RGB32(219,112,147)
266.     CONST PapayaWhip = &HFFFFEFD5~& ' _RGB32(255,239,213)
267.     CONST Peach = &HFFFFCFAB~& '_RGB32(255,207,171)
268.     CONST PeachPuff = &HFFFFDAB9~& ' _RGB32(255,218,185)
269.     CONST Periwinkle = &HFFC5D0E6~& '_RGB32(197,208,230)
270.     CONST Peru = &HFFCD853F~& ' _RGB32(205,133,63)
271.     CONST PiggyPink = &HFFFDDDE6~& '_RGB32(253,221,230)
272.     CONST PineGreen = &HFF158078~& '_RGB32(21,128,120)
273.     CONST Pink = &HFFFFC0CB~& ' _RGB32(255,192,203)
274.     CONST PinkFlamingo = &HFFFC74FD~& '_RGB32(252,116,253)
275.     CONST PinkSherbet = &HFFF78FA7~& '_RGB32(247,143,167)
276.     CONST Plum = &HFFDDA0DD~& ' _RGB32(221,160,221)
277.     CONST PowderBlue = &HFFB0E0E6~& ' _RGB32(176,224,230)
278.     CONST Purple = &HFF800080~& ' _RGB32(128,0,128)
279.     CONST PurpleHeart = &HFF7442C8~& '_RGB32(116,66,200)
280.     CONST PurpleMountainsMajesty = &HFF9D81BA~& '_RGB32(157,129,186)
281.     CONST PurplePizzazz = &HFFFE4EDA~& '_RGB32(254,78,218)
282.     CONST RadicalRed = &HFFFF496C~& '_RGB32(255,73,108)
283.     CONST RawSienna = &HFFD68A59~& '_RGB32(214,138,89)
284.     CONST RawUmber = &HFF714B23~& '_RGB32(113,75,35)
285.     CONST RazzleDazzleRose = &HFFFF48D0~& '_RGB32(255,72,208)
286.     CONST Razzmatazz = &HFFE3256B~& '_RGB32(227,37,107)
287.     CONST Red = &HFFFF0000~& ' _RGB32(255,0,0)
288.     CONST RedOrange = &HFFFF5349~& '_RGB32(255,83,73)
289.     CONST RedViolet = &HFFC0448F~& '_RGB32(192,68,143)
290.     CONST RobinsEggBlue = &HFF1FCECB~& '_RGB32(31,206,203)
291.     CONST RosyBrown = &HFFBC8F8F~& ' _RGB32(188,143,143)
292.     CONST RoyalBlue = &HFF4169E1~& ' _RGB32(65,105,225)
293.     CONST RoyalPurple = &HFF7851A9~& '_RGB32(120,81,169)
294.     CONST SaddleBrown = &HFF8B4513~& ' _RGB32(139,69,19)
295.     CONST Salmon = &HFFFA8072~& ' _RGB32(250,128,114)
296.     CONST SandyBrown = &HFFF4A460~& ' _RGB32(244,164,96)
297.     CONST Scarlet = &HFFFC2847~& '_RGB32(252,40,71)
298.     CONST ScreaminGreen = &HFF76FF7A~& '_RGB32(118,255,122)
299.     CONST SeaGreen = &HFF2E8B57~& ' _RGB32(46,139,87)
300.     CONST SeaShell = &HFFFFF5EE~& ' _RGB32(255,245,238)
301.     CONST Sepia = &HFFA5694F~& '_RGB32(165,105,79)
302.     CONST Shadow = &HFF8A795D~& '_RGB32(138,121,93)
303.     CONST Shamrock = &HFF45CEA2~& '_RGB32(69,206,162)
304.     CONST ShockingPink = &HFFFB7EFD~& '_RGB32(251,126,253)
305.     CONST Sienna = &HFFA0522D~& ' _RGB32(160,82,45)
306.     CONST Silver = &HFFC0C0C0~& ' _RGB32(192,192,192)
307.     CONST SkyBlue = &HFF87CEEB~& ' _RGB32(135,206,235)
308.     CONST SlateBlue = &HFF6A5ACD~& ' _RGB32(106,90,205)
309.     CONST SlateGray = &HFF708090~& ' _RGB32(112,128,144)
310.     CONST Snow = &HFFFFFAFA~& ' _RGB32(255,250,250)
311.     CONST SpringGreen = &HFF00FF7F~& ' _RGB32(0,255,127)
312.     CONST SteelBlue = &HFF4682B4~& ' _RGB32(70,130,180)
313.     CONST Sunglow = &HFFFFCF48~& '_RGB32(255,207,72)
314.     CONST SunsetOrange = &HFFFD5E53~& '_RGB32(253,94,83)
315.     CONST Tann = &HFFD2B48C~& ' _RGB32(210,180,140)
316.     CONST Teal = &HFF008080~& ' _RGB32(0,128,128)
317.     CONST TealBlue = &HFF18A7B5~& '_RGB32(24,167,181)
318.     CONST Thistle = &HFFD8BFD8~& ' _RGB32(216,191,216)
319.     CONST TickleMePink = &HFFFC89AC~& '_RGB32(252,137,172)
320.     CONST Timberwolf = &HFFDBD7D2~& '_RGB32(219,215,210)
321.     CONST Tomato = &HFFFF6347~& ' _RGB32(255,99,71)
322.     CONST TropicalRainForest = &HFF17806D~& '_RGB32(23,128,109)
323.     CONST Tumbleweed = &HFFDEAA88~& '_RGB32(222,170,136)
324.     CONST Turquoise = &HFF40E0D0~& ' _RGB32(64,224,208)
325.     CONST TurquoiseBlue = &HFF77DDE7~& '_RGB32(119,221,231)
326.     CONST UnmellowYellow = &HFFFFFF66~& '_RGB32(255,255,102)
327.     CONST Violet = &HFFEE82EE~& ' _RGB32(238,130,238)
328.     CONST VioletBlue = &HFF324AB2~& '_RGB32(50,74,178)
329.     CONST VioletRed = &HFFF75394~& '_RGB32(247,83,148)
330.     CONST VividTangerine = &HFFFFA089~& '_RGB32(255,160,137)
331.     CONST VividViolet = &HFF8F509D~& '_RGB32(143,80,157)
332.     CONST Wheat = &HFFF5DEB3~& ' _RGB32(245,222,179)
333.     CONST White = &HFFFFFFFF~& ' _RGB32(255,255,255)
334.     CONST Whitesmoke = &HFFF5F5F5~& ' _RGB32(245,245,245)
335.     CONST WildBlueYonder = &HFFA2ADD0~& '_RGB32(162,173,208)
336.     CONST WildStrawberry = &HFFFF43A4~& '_RGB32(255,67,164)
337.     CONST WildWatermelon = &HFFFC6C85~& '_RGB32(252,108,133)
338.     CONST Wisteria = &HFFCDA4DE~& '_RGB32(205,164,222)
339.     CONST Yellow = &HFFFFFF00~& ' _RGB32(255,255,0)
340.     CONST YellowGreen = &HFF9ACD32~& ' _RGB32(154,205,50)
341.     CONST YellowOrange = &HFFFFAE42~& '_RGB32(255,174,66)
342. $END IF
343.  
344. TYPE Font_Type
345.     Handle AS LONG
346.     Color AS _UNSIGNED LONG
347.     Background AS _UNSIGNED LONG
348. END TYPE
349.  
350. TYPE Border_Type
351.     Width AS INTEGER
352.     Color AS _UNSIGNED LONG
353. END TYPE
354.  
355.  
356. TYPE Window_Type 'Type 100000
357.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
358.     LinksTo AS STRING * 1024 'What this object is anchored to
359.     LinksFrom AS STRING * 1024 'What links to this object and is anchored to it
360.     Visible AS INTEGER 'Is it visible?
361.     Active AS INTEGER 'Is it active
362.     Top AS INTEGER 'X1
363.     Left AS INTEGER 'Y1
364.     Wide AS INTEGER 'X1 + Wide = X2
365.     High AS INTEGER 'Y1 + High = Y1
366.     Background AS _INTEGER64 'is it a color, or an image handle?
367.     Border AS Border_Type
368. END TYPE
369.  
370.  
371.  
372. TYPE Button_Type 'Type 200000
373.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
374.     Visible AS INTEGER 'Is it visible?
375.     Active AS INTEGER 'Is it active
376.     Top AS INTEGER 'X1
377.     Left AS INTEGER 'Y1
378.     Wide AS INTEGER 'X1 + Wide = X2
379.     High AS INTEGER 'Y1 + High = Y1
380.     Background AS _INTEGER64 'is it a color, or an image handle?
381.     Border AS Border_Type
382.     Font AS Font_Type
383. END TYPE
384.  
385.  
386. TYPE Caption_Type 'Type 300000
387.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
388.     LinksTo AS STRING * 1024 'What this object is anchored to
389.     Visible AS INTEGER 'Is it visible?
390.     Active AS INTEGER 'Is it active
391.     Top AS INTEGER 'X1
392.     Left AS INTEGER 'Y1
393.     Wide AS INTEGER 'X1 + Wide = X2
394.     High AS INTEGER 'Y1 + High = Y1
395.     Background AS _INTEGER64 'is it a color, or an image handle?
396.     Border AS Border_Type
397.     '    Font AS Font_Type
398.     FontHandle AS LONG
399.     FontColor AS _UNSIGNED LONG
400.     FontBackground AS _UNSIGNED LONG
401.     Text AS STRING * 1024
402. END TYPE
403.  
404. DIM SHARED Windows(256) AS Window_Type
405. DIM SHARED Captions(256) AS Caption_Type
406. DIM SHARED WindowCount AS INTEGER, DisplayCount AS INTEGER
407. DIM SHARED CaptionsCount AS INTEGER
408. _DEFINE A-Z AS LONG
409.  
410.  
411. DisplayScreen = CreateScreen(1024, 720) 'This creates a screen for us.  Think of it as DisplayScreen = _NEWIMAGE(1024,720,32)
412. SetScreen DisplayScreen 'This sets the screen we created as the active display.  Think of this as SCREEN DisplayScreen
413.  
414. SetBackground DisplayScreen, SkyBlue
415. SetBorder DisplayScreen, 5, Silver
416.  
417. MainWindow = CreateWindow(DisplayScreen, 100, 100, 400, 400)
418. 'Marble = _LOADIMAGE("marble.jpg", 32)
419. SetBackground MainWindow, Violet
420. SetBorder MainWindow, 5, Gold
421.  
422. MainWindowCaption = CreateCaption(MainWindow, 0, 0, 400, 30)
423. SetBorder MainWindowCaption, 5, Gold
424. SetText MainWindowCaption, "A Window"
425.  
426.  
427.  
428.  
429.  
430. UpdateScreen
431.  
432.  
433.  
434.  
435. SUB UpdateScreen
436.     Display = Windows(0).Defined 'the active screen when we want to draw to
437.     _DONTBLEND
438.     DrawWindow Display
439.     _BLEND
440.     lf$ = Windows(Display).LinksFrom
441.     FOR i = 1 TO LEN(lf$) STEP 4
442.         p = _CV(LONG, MID$(lf$, i, 4))
443.         n = p MOD 100000
444.         SELECT CASE p \ 100000
445.             CASE 1 'it's a whole window which we want to display
446.                 _PUTIMAGE (Windows(n).Left, Windows(n).Top)-STEP(Windows(n).Wide, Windows(n).High), Windows(n).Defined
447.             CASE 2 'it's a caption which we want to display
448.                 'copy/paste from the window code here later.
449.         END SELECT
450.     NEXT
451. END SUB
452.  
453.  
454. SUB SetBorder (Handle AS LONG, Wide AS INTEGER, Kolor AS _UNSIGNED LONG)
455.     num = Handle MOD 100000
456.     SELECT CASE Handle \ 100000
457.         CASE 1 'It's a window
458.             Windows(num).Border.Width = Wide
459.             Windows(num).Border.Color = Kolor
460.             DrawWindow num 'We need to redraw the window
461.         CASE 2 'It's a caption
462.             Captions(num).Border.Width = Wide
463.             Captions(num).Border.Color = Kolor
464.             p = _CV(LONG, Captions(num).LinksTo)
465.             SELECT CASE p \ 100000
466.                 CASE 1: DrawWindow p
467.             END SELECT
468.     END SELECT
469. END SUB
470. SUB SetBackground (Handle AS LONG, Background AS _INTEGER64)
471.     num = Handle MOD 100000
472.     SELECT CASE Handle \ 100000
473.         CASE 1 'It's a window
474.             Windows(num).Background = Background
475.             DrawWindow num 'We need to redraw the window
476.         CASE 2
477.             Captions(num).Background = Background
478.             p = _CV(LONG, Captions(num).LinksTo)
479.             SELECT CASE p \ 100000
480.                 CASE 1: DrawWindow p
481.             END SELECT
482.     END SELECT
483. END SUB
484. SUB SetText (Handle AS LONG, Text$)
485.     num = Handle MOD 100000
486.     SELECT CASE Handle \ 100000
487.         CASE 1 'It's a window.  Windows don't have a text property
488.         CASE 2
489.             Captions(num).Text = Text$
490.             p = _CV(LONG, Captions(num).LinksTo)
491.             SELECT CASE p \ 100000
492.                 CASE 1: DrawWindow p
493.             END SELECT
494.     END SELECT
495. END SUB
496.  
497.  
498.  
499. SUB SetScreen (Handle AS LONG)
500.     FOR i = 1 TO 100 'only one screen can be active at a time.
501.         Windows(i).Visible = False
502.         Windows(i).Active = False
503.     NEXT
504.     num = Handle MOD 100000
505.     Windows(0).Defined = num
506.     Windows(num).Visible = True
507.     Windows(num).Active = True
508.     SCREEN Windows(num).Defined
509. END SUB
510.  
511.  
512. SUB DrawWindow (TempHandle AS LONG)
513.     D = _DEST
514.     Handle = TempHandle MOD 100000
515.     w = Windows(Handle).Wide: h = Windows(Handle).High
516.  
517.     _DEST Windows(Handle).Defined
518.  
519.     SELECT CASE Windows(Handle).Background
520.         CASE IS < 0 'it's an image handle which we want to use for the background
521.             _PUTIMAGE (0, 0)-(w, h), Windows(Handle).Background
522.         CASE 0 'we just want a transparent background
523.         CASE IS > 0 'it's a color fill background
524.             LINE (0, 0)-(w, h), Windows(Handle).Background, BF
525.     END SELECT
526.     FOR i = 0 TO Windows(Handle).Border.Width - 1
527.         LINE (0 + i, 0 + i)-(w - i, h - i), Windows(Handle).Border.Color, B
528.     NEXT
529.     lf$ = Windows(Handle).LinksFrom
530.     FOR i = 1 TO LEN(lf$) STEP 4
531.         p = _CV(LONG, MID$(lf$, i, 4))
532.         n = p MOD 100000
533.         SELECT CASE p \ 100000
534.             CASE 1 'it's a whole window which we want to display
535.                 _PUTIMAGE (Windows(n).Left, Windows(n).Top)-STEP(Windows(n).Wide, Windows(n).High), Windows(n).Defined
536.             CASE 2 'it's a caption which we want to display
537.                 DrawCaption n
538.             CASE ELSE
539.         END SELECT
540.     NEXT
541.     _DEST D
542. END SUB
543.  
544. SUB DrawCaption (n AS INTEGER)
545.     F = _FONT
546.     x = Captions(n).Left: y = Captions(n).Top
547.     w = Captions(n).Wide: h = Captions(n).High
548.     'SELECT CASE Captions(n).Background
549.     '    CASE IS < 0 'it's an image handle which we want to use for the background
550.     '        _PUTIMAGE (x, y)-STEP(w, h), Captions(n).Background
551.     '    CASE 0 'we just want a transparent background
552.     '    CASE IS > 0 'it's a color fill background
553.     '        LINE (x, y)-STEP(w, h), Captions(n).Background, BF
554.     'END SELECT
555.     'FOR j = 0 TO Captions(n).Border.Width - 1
556.     '    LINE (x + j, y + j)-(w - j, h - j), Captions(n).Border.Color, B
557.     'NEXT
558.     'text$ = _TRIM$(Captions(n).Text)
559.     x = Captions(n).FontHandle
560.     COLOR Red
561.     LOCATE 10, 1: PRINT x, F, x = F; "Before IF"
562.     IF x <> F THEN
563.         LOCATE 11, 1: PRINT x, F, x = F; "In IF"
564.         _FONT x
565.     END IF
566.     COLOR Black
567.  
568.     pw = _PRINTWIDTH(text$): ph = _FONTHEIGHT
569.  
570.     _PRINTSTRING (x + (w - pw) \ 2, y + (h - ph) \ 2), text$
571.     _FONT F
572. END SUB
573.  
574.  
575. FUNCTION CreateScreen (x AS INTEGER, y AS INTEGER) 'all screens are 32-bit, no exceptions
576.     FOR i = 1 TO 100 'first 100 windows are reserved for screens
577.         IF Windows(i).Defined = False THEN EXIT FOR
578.     NEXT
579.     IF i > 100 THEN ERROR 5: PRINT "Program can not have more than 100 screens in memory at a single time!": END
580.     Windows(i).Defined = _NEWIMAGE(x, y, 32)
581.     CreateScreen = 100000 + i
582.     Windows(i).Top = 0
583.     Windows(i).Left = 0
584.     Windows(i).Wide = x
585.     Windows(i).High = y
586.     Windows(i).LinksTo = ""
587.     Windows(i).LinksFrom = ""
588.     Windows(i).Visible = False
589.     Windows(i).Active = False
590. END FUNCTION
591.  
592. FUNCTION CreateWindow (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
593.     FOR i = 101 TO WindowCount
594.         'check for an open spot where we may have freed a past window
595.         'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
596.         IF Windows(i).Defined = False THEN EXIT FOR
597.     NEXT
598.     IF i > WindowCount THEN WindowCount = i
599.     Windows(i).Defined = _NEWIMAGE(Wide, High, 32)
600.     Windows(i).LinksTo = _MK$(LONG, Anchor MOD 100000) 'This is what we link to
601.     Windows(i).LinksFrom = "" 'and nothing is linking to a new window, at the moment
602.     Windows(Anchor MOD 100000).LinksFrom = _TRIM$(Windows(Anchor MOD 100000).LinksFrom) + _MK$(LONG, 100000 + i) 'And this lets the other window know we're linked to it.
603.     Windows(i).Top = Top
604.     Windows(i).Left = Left
605.     Windows(i).Wide = Wide
606.     Windows(i).High = High
607.     Windows(i).Visible = True 'we default to being visible and active
608.     Windows(i).Active = True
609.     Windows(i).Border.Width = 0
610.     Windows(i).Border.Color = 0
611.     CreateWindow = 100000 + i
612. END SUB
613.  
614. FUNCTION CreateCaption (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
615.     d = _DEST
616.     FOR i = 1 TO CaptionCount
617.         'check for an open spot where we may have freed a past window
618.         'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
619.         IF Captions(i).Defined = False THEN EXIT FOR
620.     NEXT
621.     IF i > CaptionCount THEN CaptionCount = i
622.     Captions(i).Defined = _NEWIMAGE(Wide, High, 32)
623.     Captions(i).LinksTo = _MK$(LONG, Anchor) 'This is what we link to
624.     SELECT CASE Anchor \ 100000
625.         CASE 1 'we're linking this to a window
626.             Windows(Anchor MOD 100000).LinksFrom = _TRIM$(Windows(Anchor MOD 100000).LinksFrom) + _MK$(LONG, 200000 + i)
627.             DrawWindow Anchor
628.     END SELECT
629.  
630.     Captions(i).Top = Top
631.     Captions(i).Left = Left
632.     Captions(i).Wide = Wide
633.     Captions(i).High = High
634.     Captions(i).Visible = True 'we default to being visible and active
635.     Captions(i).Active = True
636.     Captions(i).Border.Width = 0
637.     Captions(i).Border.Color = 0
638.     Captions(i).Background = Black 'default to a solid black background
639.     Captions(i).FontHandle = 16
640.     Captions(i).FontColor = White
641.     Captions(i).FontBackground = 0
642.     Captions(i).Text = ""
643.     CreateCaption = 200000 + i
644. END SUB
645.  

I've even removed any reference to the image handle which I was using as a texture for a background on the window, so what's here should copy/paste into any version of QB64 and work without any issues...

Except it doesn't. 

[SMcNeill]

Code has been cleaned up even more, and I can definitely rule out any recent changes to QB64 being at the fault for this glitch.

Code: QB64: [Select]

1. CONST True = -1, False = 0
2.  
3. CONST Black = &HFF000000~& ' _RGB32(0,0,0)
4. CONST Gold = &HFFFFD700~& ' _RGB32(255,215,0)
5. CONST Red = &HFFFF0000~& ' _RGB32(255,0,0)
6. CONST Silver = &HFFC0C0C0~& ' _RGB32(192,192,192)
7. CONST SkyBlue = &HFF87CEEB~& ' _RGB32(135,206,235)
8. CONST Violet = &HFFEE82EE~& ' _RGB32(238,130,238)
9. CONST White = &HFFFFFFFF~&
10.  
11. TYPE Font_Type
12.     Handle AS LONG
13.     Color AS _UNSIGNED LONG
14.     Background AS _UNSIGNED LONG
15. END TYPE
16.  
17. TYPE Border_Type
18.     Width AS INTEGER
19.     Color AS _UNSIGNED LONG
20. END TYPE
21.  
22.  
23. TYPE Window_Type 'Type 100000
24.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
25.     LinksTo AS STRING * 1024 'What this object is anchored to
26.     LinksFrom AS STRING * 1024 'What links to this object and is anchored to it
27.     Visible AS INTEGER 'Is it visible?
28.     Active AS INTEGER 'Is it active
29.     Top AS INTEGER 'X1
30.     Left AS INTEGER 'Y1
31.     Wide AS INTEGER 'X1 + Wide = X2
32.     High AS INTEGER 'Y1 + High = Y1
33.     Background AS _INTEGER64 'is it a color, or an image handle?
34.     Border AS Border_Type
35. END TYPE
36.  
37.  
38.  
39. TYPE Button_Type 'Type 200000
40.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
41.     Visible AS INTEGER 'Is it visible?
42.     Active AS INTEGER 'Is it active
43.     Top AS INTEGER 'X1
44.     Left AS INTEGER 'Y1
45.     Wide AS INTEGER 'X1 + Wide = X2
46.     High AS INTEGER 'Y1 + High = Y1
47.     Background AS _INTEGER64 'is it a color, or an image handle?
48.     Border AS Border_Type
49.     Font AS Font_Type
50. END TYPE
51.  
52.  
53. TYPE Caption_Type 'Type 300000
54.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
55.     LinksTo AS STRING * 1024 'What this object is anchored to
56.     Visible AS INTEGER 'Is it visible?
57.     Active AS INTEGER 'Is it active
58.     Top AS INTEGER 'X1
59.     Left AS INTEGER 'Y1
60.     Wide AS INTEGER 'X1 + Wide = X2
61.     High AS INTEGER 'Y1 + High = Y1
62.     Background AS _INTEGER64 'is it a color, or an image handle?
63.     Border AS Border_Type
64.     '    Font AS Font_Type
65.     FontHandle AS LONG
66.     FontColor AS _UNSIGNED LONG
67.     FontBackground AS _UNSIGNED LONG
68.     Text AS STRING * 1024
69. END TYPE
70.  
71. DIM SHARED Windows(256) AS Window_Type
72. DIM SHARED Captions(256) AS Caption_Type
73. DIM SHARED WindowCount AS INTEGER, DisplayCount AS INTEGER
74. DIM SHARED CaptionsCount AS INTEGER
75. _DEFINE A-Z AS LONG
76.  
77.  
78. DisplayScreen = CreateScreen(1024, 720) 'This creates a screen for us.  Think of it as DisplayScreen = _NEWIMAGE(1024,720,32)
79. SetScreen DisplayScreen 'This sets the screen we created as the active display.  Think of this as SCREEN DisplayScreen
80.  
81. SetBackground DisplayScreen, SkyBlue
82. SetBorder DisplayScreen, 5, Silver
83.  
84. MainWindow = CreateWindow(DisplayScreen, 100, 100, 400, 400)
85. 'Marble = _LOADIMAGE("marble.jpg", 32)
86. SetBackground MainWindow, Violet
87. SetBorder MainWindow, 5, Gold
88.  
89. MainWindowCaption = CreateCaption(MainWindow, 0, 0, 400, 30)
90. SetBorder MainWindowCaption, 5, Gold
91. SetText MainWindowCaption, "A Window"
92.  
93.  
94.  
95.  
96.  
97. UpdateScreen
98.  
99.  
100.  
101.  
102. SUB UpdateScreen
103. Display = Windows(0).Defined 'the active screen when we want to draw to
104. _DONTBLEND
105. DrawWindow Display
106. _BLEND
107. lf$ = Windows(Display).LinksFrom
108. FOR i = 1 TO LEN(lf$) STEP 4
109.     p = _CV(LONG, MID$(lf$, i, 4))
110.     n = p MOD 100000
111.     SELECT CASE p \ 100000
112.         CASE 1 'it's a whole window which we want to display
113.             _PUTIMAGE (Windows(n).Left, Windows(n).Top)-STEP(Windows(n).Wide, Windows(n).High), Windows(n).Defined
114.         CASE 2 'it's a caption which we want to display
115.             'copy/paste from the window code here later.
116.     END SELECT
117. NEXT
118. END SUB
119.  
120.  
121. SUB SetBorder (Handle AS LONG, Wide AS INTEGER, Kolor AS _UNSIGNED LONG)
122. num = Handle MOD 100000
123. SELECT CASE Handle \ 100000
124.     CASE 1 'It's a window
125.         Windows(num).Border.Width = Wide
126.         Windows(num).Border.Color = Kolor
127.         DrawWindow num 'We need to redraw the window
128.     CASE 2 'It's a caption
129.         Captions(num).Border.Width = Wide
130.         Captions(num).Border.Color = Kolor
131.         p = _CV(LONG, Captions(num).LinksTo)
132.         SELECT CASE p \ 100000
133.             CASE 1: DrawWindow p
134.         END SELECT
135. END SELECT
136. END SUB
137. SUB SetBackground (Handle AS LONG, Background AS _INTEGER64)
138. num = Handle MOD 100000
139. SELECT CASE Handle \ 100000
140.     CASE 1 'It's a window
141.         Windows(num).Background = Background
142.         DrawWindow num 'We need to redraw the window
143.     CASE 2
144.         Captions(num).Background = Background
145.         p = _CV(LONG, Captions(num).LinksTo)
146.         SELECT CASE p \ 100000
147.             CASE 1: DrawWindow p
148.         END SELECT
149. END SELECT
150. END SUB
151. SUB SetText (Handle AS LONG, Text$)
152. num = Handle MOD 100000
153. SELECT CASE Handle \ 100000
154.     CASE 1 'It's a window.  Windows don't have a text property
155.     CASE 2
156.         Captions(num).Text = Text$
157.         p = _CV(LONG, Captions(num).LinksTo)
158.         SELECT CASE p \ 100000
159.             CASE 1: DrawWindow p
160.         END SELECT
161. END SELECT
162. END SUB
163.  
164.  
165.  
166. SUB SetScreen (Handle AS LONG)
167. FOR i = 1 TO 100 'only one screen can be active at a time.
168.     Windows(i).Visible = False
169.     Windows(i).Active = False
170. NEXT
171. num = Handle MOD 100000
172. Windows(0).Defined = num
173. Windows(num).Visible = True
174. Windows(num).Active = True
175. SCREEN Windows(num).Defined
176. END SUB
177.  
178.  
179. SUB DrawWindow (TempHandle AS LONG)
180. D = _DEST
181. Handle = TempHandle MOD 100000
182. w = Windows(Handle).Wide: h = Windows(Handle).High
183.  
184. _DEST Windows(Handle).Defined
185.  
186. SELECT CASE Windows(Handle).Background
187.     CASE IS < 0 'it's an image handle which we want to use for the background
188.         _PUTIMAGE (0, 0)-(w, h), Windows(Handle).Background
189.     CASE 0 'we just want a transparent background
190.     CASE IS > 0 'it's a color fill background
191.         LINE (0, 0)-(w, h), Windows(Handle).Background, BF
192. END SELECT
193. FOR i = 0 TO Windows(Handle).Border.Width - 1
194.     LINE (0 + i, 0 + i)-(w - i, h - i), Windows(Handle).Border.Color, B
195. NEXT
196. lf$ = Windows(Handle).LinksFrom
197. FOR i = 1 TO LEN(lf$) STEP 4
198.     p = _CV(LONG, MID$(lf$, i, 4))
199.     n = p MOD 100000
200.     SELECT CASE p \ 100000
201.         CASE 1 'it's a whole window which we want to display
202.             _PUTIMAGE (Windows(n).Left, Windows(n).Top)-STEP(Windows(n).Wide, Windows(n).High), Windows(n).Defined
203.         CASE 2 'it's a caption which we want to display
204.             DrawCaption n
205.         CASE ELSE
206.     END SELECT
207. NEXT
208. _DEST D
209. END SUB
210.  
211. SUB DrawCaption (n AS INTEGER)
212. F = _FONT
213. x = Captions(n).Left: y = Captions(n).Top
214. w = Captions(n).Wide: h = Captions(n).High
215. 'SELECT CASE Captions(n).Background
216. '    CASE IS < 0 'it's an image handle which we want to use for the background
217. '        _PUTIMAGE (x, y)-STEP(w, h), Captions(n).Background
218. '    CASE 0 'we just want a transparent background
219. '    CASE IS > 0 'it's a color fill background
220. '        LINE (x, y)-STEP(w, h), Captions(n).Background, BF
221. 'END SELECT
222. 'FOR j = 0 TO Captions(n).Border.Width - 1
223. '    LINE (x + j, y + j)-(w - j, h - j), Captions(n).Border.Color, B
224. 'NEXT
225. 'text$ = _TRIM$(Captions(n).Text)
226. x = Captions(n).FontHandle
227. COLOR Red
228. LOCATE 10, 1: PRINT x, F, x = F; "Before IF"
229. IF x <> F THEN
230.     LOCATE 11, 11: PRINT x, F, x = F; "In IF"
231.     _FONT x
232. END IF
233. COLOR Black
234.  
235. pw = _PRINTWIDTH(text$): ph = _FONTHEIGHT
236.  
237. _PRINTSTRING (x + (w - pw) \ 2, y + (h - ph) \ 2), text$
238. _FONT F
239. END SUB
240.  
241.  
242. FUNCTION CreateScreen (x AS INTEGER, y AS INTEGER) 'all screens are 32-bit, no exceptions
243. FOR i = 1 TO 100 'first 100 windows are reserved for screens
244.     IF Windows(i).Defined = False THEN EXIT FOR
245. NEXT
246. IF i > 100 THEN ERROR 5: PRINT "Program can not have more than 100 screens in memory at a single time!": END
247. Windows(i).Defined = _NEWIMAGE(x, y, 32)
248. CreateScreen = 100000 + i
249. Windows(i).Top = 0
250. Windows(i).Left = 0
251. Windows(i).Wide = x
252. Windows(i).High = y
253. Windows(i).LinksTo = ""
254. Windows(i).LinksFrom = ""
255. Windows(i).Visible = False
256. Windows(i).Active = False
257. END FUNCTION
258.  
259. FUNCTION CreateWindow (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
260. FOR i = 101 TO WindowCount
261.     'check for an open spot where we may have freed a past window
262.     'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
263.     IF Windows(i).Defined = False THEN EXIT FOR
264. NEXT
265. IF i > WindowCount THEN WindowCount = i
266. Windows(i).Defined = _NEWIMAGE(Wide, High, 32)
267. Windows(i).LinksTo = _MK$(LONG, Anchor MOD 100000) 'This is what we link to
268. Windows(i).LinksFrom = "" 'and nothing is linking to a new window, at the moment
269. Windows(Anchor MOD 100000).LinksFrom = RTRIM$(Windows(Anchor MOD 100000).LinksFrom) + _MK$(LONG, 100000 + i) 'And this lets the other window know we're linked to it.
270. Windows(i).Top = Top
271. Windows(i).Left = Left
272. Windows(i).Wide = Wide
273. Windows(i).High = High
274. Windows(i).Visible = True 'we default to being visible and active
275. Windows(i).Active = True
276. Windows(i).Border.Width = 0
277. Windows(i).Border.Color = 0
278. CreateWindow = 100000 + i
279. END SUB
280.  
281. FUNCTION CreateCaption (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
282. d = _DEST
283. FOR i = 1 TO CaptionCount
284.     'check for an open spot where we may have freed a past window
285.     'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
286.     IF Captions(i).Defined = False THEN EXIT FOR
287. NEXT
288. IF i > CaptionCount THEN CaptionCount = i
289. Captions(i).Defined = _NEWIMAGE(Wide, High, 32)
290. Captions(i).LinksTo = _MK$(LONG, Anchor) 'This is what we link to
291. SELECT CASE Anchor \ 100000
292.     CASE 1 'we're linking this to a window
293.         Windows(Anchor MOD 100000).LinksFrom = RTRIM$(Windows(Anchor MOD 100000).LinksFrom) + _MK$(LONG, 200000 + i)
294.         DrawWindow Anchor
295. END SELECT
296.  
297. Captions(i).Top = Top
298. Captions(i).Left = Left
299. Captions(i).Wide = Wide
300. Captions(i).High = High
301. Captions(i).Visible = True 'we default to being visible and active
302. Captions(i).Active = True
303. Captions(i).Border.Width = 0
304. Captions(i).Border.Color = 0
305. Captions(i).Background = Black 'default to a solid black background
306. Captions(i).FontHandle = 16
307. Captions(i).FontColor = White
308. Captions(i).FontBackground = 0
309. Captions(i).Text = ""
310. CreateCaption = 200000 + i
311. END SUB
312.  

Take the above, copy/paste it in any version of QB64 you want -- even all the way back to the SDL version -- and it STILL generates an error for the same _FONT statement, which we shouldn't even be calling as it's excluded in the IF Statement!

How am I the only lucky person who somehow manages to find these impossible issues with my code??  /CRY

[RhoSigma]

Hi Steve,
I suspect a severe program flow error in your code, which you might want to check. I've added 4 lines (91-94) to see, if the Captions().FontHandle is really initialized. And even as line 94 says END, the program runs happily until it runs into the handle error. So I was digging deeper and found the following:

1. function CreateCaption() calls sub DrawWindow() and that even before .FontHandle is set to 16
2. sub DrawWindow() calls sub DrawCaption() and runs into the error, because .FontHandle wasn't initialized yet, it enters the IF condition and so runs into the handle error.

I've to admit, that I didn't check all conditionals for the above mentioned sub calls, but obviously they are called, because the program never reaches the END in line 94.

Code: QB64: [Select]

1. CONST True = -1, False = 0
2.  
3. CONST Black = &HFF000000~& ' _RGB32(0,0,0)
4. CONST Gold = &HFFFFD700~& ' _RGB32(255,215,0)
5. CONST Red = &HFFFF0000~& ' _RGB32(255,0,0)
6. CONST Silver = &HFFC0C0C0~& ' _RGB32(192,192,192)
7. CONST SkyBlue = &HFF87CEEB~& ' _RGB32(135,206,235)
8. CONST Violet = &HFFEE82EE~& ' _RGB32(238,130,238)
9. CONST White = &HFFFFFFFF~&
10.  
11. TYPE Font_Type
12.     Handle AS LONG
13.     COLOR AS _UNSIGNED LONG
14.     Background AS _UNSIGNED LONG
15. END TYPE
16.  
17. TYPE Border_Type
18.     WIDTH AS INTEGER
19.     COLOR AS _UNSIGNED LONG
20. END TYPE
21.  
22.  
23. TYPE Window_Type 'Type 100000
24.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
25.     LinksTo AS STRING * 1024 'What this object is anchored to
26.     LinksFrom AS STRING * 1024 'What links to this object and is anchored to it
27.     Visible AS INTEGER 'Is it visible?
28.     Active AS INTEGER 'Is it active
29.     Top AS INTEGER 'X1
30.     Left AS INTEGER 'Y1
31.     Wide AS INTEGER 'X1 + Wide = X2
32.     High AS INTEGER 'Y1 + High = Y1
33.     Background AS _INTEGER64 'is it a color, or an image handle?
34.     Border AS Border_Type
35. END TYPE
36.  
37.  
38.  
39. TYPE Button_Type 'Type 200000
40.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
41.     Visible AS INTEGER 'Is it visible?
42.     Active AS INTEGER 'Is it active
43.     Top AS INTEGER 'X1
44.     Left AS INTEGER 'Y1
45.     Wide AS INTEGER 'X1 + Wide = X2
46.     High AS INTEGER 'Y1 + High = Y1
47.     Background AS _INTEGER64 'is it a color, or an image handle?
48.     Border AS Border_Type
49.     Font AS Font_Type
50. END TYPE
51.  
52.  
53. TYPE Caption_Type 'Type 300000
54.     Defined AS INTEGER 'has this particular object been defined, or freed yet?
55.     LinksTo AS STRING * 1024 'What this object is anchored to
56.     Visible AS INTEGER 'Is it visible?
57.     Active AS INTEGER 'Is it active
58.     Top AS INTEGER 'X1
59.     Left AS INTEGER 'Y1
60.     Wide AS INTEGER 'X1 + Wide = X2
61.     High AS INTEGER 'Y1 + High = Y1
62.     Background AS _INTEGER64 'is it a color, or an image handle?
63.     Border AS Border_Type
64.     '    Font AS Font_Type
65.     FontHandle AS LONG
66.     FontColor AS _UNSIGNED LONG
67.     FontBackground AS _UNSIGNED LONG
68.     Text AS STRING * 1024
69. END TYPE
70.  
71. DIM SHARED Windows(256) AS Window_Type
72. DIM SHARED Captions(256) AS Caption_Type
73. DIM SHARED WindowCount AS INTEGER, DisplayCount AS INTEGER
74. DIM SHARED CaptionsCount AS INTEGER
75. _DEFINE A-Z AS LONG
76.  
77.  
78. DisplayScreen = CreateScreen(1024, 720) 'This creates a screen for us.  Think of it as DisplayScreen = _NEWIMAGE(1024,720,32)
79. SetScreen DisplayScreen 'This sets the screen we created as the active display.  Think of this as SCREEN DisplayScreen
80.  
81. SetBackground DisplayScreen, SkyBlue
82. SetBorder DisplayScreen, 5, Silver
83.  
84. MainWindow = CreateWindow(DisplayScreen, 100, 100, 400, 400)
85. 'Marble = _LOADIMAGE("marble.jpg", 32)
86. SetBackground MainWindow, Violet
87. SetBorder MainWindow, 5, Gold
88.  
89. MainWindowCaption = CreateCaption(MainWindow, 0, 0, 400, 30)
90.  
91. _DEST 0: COLOR Red
92. PRINT MainWindowCaption
93. PRINT Captions(MainWindowCaption).FontHandle
94. END
95.  
96. SetBorder MainWindowCaption, 5, Gold
97. SetText MainWindowCaption, "A Window"
98.  
99.  
100.  
101.  
102.  
103. UpdateScreen
104.  
105.  
106.  
107.  
108. SUB UpdateScreen
109.     Display = Windows(0).Defined 'the active screen when we want to draw to
110.     _DONTBLEND
111.     DrawWindow Display
112.     _BLEND
113.     lf$ = Windows(Display).LinksFrom
114.     FOR i = 1 TO LEN(lf$) STEP 4
115.         p = _CV(LONG, MID$(lf$, i, 4))
116.         n = p MOD 100000
117.         SELECT CASE p \ 100000
118.             CASE 1 'it's a whole window which we want to display
119.                 _PUTIMAGE (Windows(n).Left, Windows(n).Top)-STEP(Windows(n).Wide, Windows(n).High), Windows(n).Defined
120.             CASE 2 'it's a caption which we want to display
121.                 'copy/paste from the window code here later.
122.         END SELECT
123.     NEXT
124. END SUB
125.  
126.  
127. SUB SetBorder (Handle AS LONG, Wide AS INTEGER, Kolor AS _UNSIGNED LONG)
128.     num = Handle MOD 100000
129.     SELECT CASE Handle \ 100000
130.         CASE 1 'It's a window
131.             Windows(num).Border.WIDTH = Wide
132.             Windows(num).Border.COLOR = Kolor
133.             DrawWindow num 'We need to redraw the window
134.         CASE 2 'It's a caption
135.             Captions(num).Border.WIDTH = Wide
136.             Captions(num).Border.COLOR = Kolor
137.             p = _CV(LONG, Captions(num).LinksTo)
138.             SELECT CASE p \ 100000
139.                 CASE 1: DrawWindow p
140.             END SELECT
141.     END SELECT
142. END SUB
143. SUB SetBackground (Handle AS LONG, Background AS _INTEGER64)
144.     num = Handle MOD 100000
145.     SELECT CASE Handle \ 100000
146.         CASE 1 'It's a window
147.             Windows(num).Background = Background
148.             DrawWindow num 'We need to redraw the window
149.         CASE 2
150.             Captions(num).Background = Background
151.             p = _CV(LONG, Captions(num).LinksTo)
152.             SELECT CASE p \ 100000
153.                 CASE 1: DrawWindow p
154.             END SELECT
155.     END SELECT
156. END SUB
157. SUB SetText (Handle AS LONG, Text$)
158.     num = Handle MOD 100000
159.     SELECT CASE Handle \ 100000
160.         CASE 1 'It's a window.  Windows don't have a text property
161.         CASE 2
162.             Captions(num).Text = Text$
163.             p = _CV(LONG, Captions(num).LinksTo)
164.             SELECT CASE p \ 100000
165.                 CASE 1: DrawWindow p
166.             END SELECT
167.     END SELECT
168. END SUB
169.  
170.  
171.  
172. SUB SetScreen (Handle AS LONG)
173.     FOR i = 1 TO 100 'only one screen can be active at a time.
174.         Windows(i).Visible = False
175.         Windows(i).Active = False
176.     NEXT
177.     num = Handle MOD 100000
178.     Windows(0).Defined = num
179.     Windows(num).Visible = True
180.     Windows(num).Active = True
181.     SCREEN Windows(num).Defined
182. END SUB
183.  
184.  
185. SUB DrawWindow (TempHandle AS LONG)
186.     D = _DEST
187.     Handle = TempHandle MOD 100000
188.     w = Windows(Handle).Wide: h = Windows(Handle).High
189.  
190.     _DEST Windows(Handle).Defined
191.  
192.     SELECT CASE Windows(Handle).Background
193.         CASE IS < 0 'it's an image handle which we want to use for the background
194.             _PUTIMAGE (0, 0)-(w, h), Windows(Handle).Background
195.         CASE 0 'we just want a transparent background
196.         CASE IS > 0 'it's a color fill background
197.             LINE (0, 0)-(w, h), Windows(Handle).Background, BF
198.     END SELECT
199.     FOR i = 0 TO Windows(Handle).Border.WIDTH - 1
200.         LINE (0 + i, 0 + i)-(w - i, h - i), Windows(Handle).Border.COLOR, B
201.     NEXT
202.     lf$ = Windows(Handle).LinksFrom
203.     FOR i = 1 TO LEN(lf$) STEP 4
204.         p = _CV(LONG, MID$(lf$, i, 4))
205.         n = p MOD 100000
206.         SELECT CASE p \ 100000
207.             CASE 1 'it's a whole window which we want to display
208.                 _PUTIMAGE (Windows(n).Left, Windows(n).Top)-STEP(Windows(n).Wide, Windows(n).High), Windows(n).Defined
209.             CASE 2 'it's a caption which we want to display
210.                 DrawCaption n
211.             CASE ELSE
212.         END SELECT
213.     NEXT
214.     _DEST D
215. END SUB
216.  
217. SUB DrawCaption (n AS INTEGER)
218.     F = _FONT
219.     x = Captions(n).Left: y = Captions(n).Top
220.     w = Captions(n).Wide: h = Captions(n).High
221.     'SELECT CASE Captions(n).Background
222.     '    CASE IS < 0 'it's an image handle which we want to use for the background
223.     '        _PUTIMAGE (x, y)-STEP(w, h), Captions(n).Background
224.     '    CASE 0 'we just want a transparent background
225.     '    CASE IS > 0 'it's a color fill background
226.     '        LINE (x, y)-STEP(w, h), Captions(n).Background, BF
227.     'END SELECT
228.     'FOR j = 0 TO Captions(n).Border.Width - 1
229.     '    LINE (x + j, y + j)-(w - j, h - j), Captions(n).Border.Color, B
230.     'NEXT
231.     'text$ = _TRIM$(Captions(n).Text)
232.     x = Captions(n).FontHandle
233.     COLOR Red
234.     LOCATE 10, 1: PRINT x, F, x = F; "Before IF"
235.     IF x <> F THEN
236.         LOCATE 11, 11: PRINT x, F, x = F; "In IF"
237.         _FONT x
238.     END IF
239.     COLOR Black
240.  
241.     pw = _PRINTWIDTH(text$): ph = _FONTHEIGHT
242.  
243.     _PRINTSTRING (x + (w - pw) \ 2, y + (h - ph) \ 2), text$
244.     _FONT F
245. END SUB
246.  
247.  
248. FUNCTION CreateScreen (x AS INTEGER, y AS INTEGER) 'all screens are 32-bit, no exceptions
249.     FOR i = 1 TO 100 'first 100 windows are reserved for screens
250.         IF Windows(i).Defined = False THEN EXIT FOR
251.     NEXT
252.     IF i > 100 THEN ERROR 5: PRINT "Program can not have more than 100 screens in memory at a single time!": END
253.     Windows(i).Defined = _NEWIMAGE(x, y, 32)
254.     CreateScreen = 100000 + i
255.     Windows(i).Top = 0
256.     Windows(i).Left = 0
257.     Windows(i).Wide = x
258.     Windows(i).High = y
259.     Windows(i).LinksTo = ""
260.     Windows(i).LinksFrom = ""
261.     Windows(i).Visible = False
262.     Windows(i).Active = False
263. END FUNCTION
264.  
265. FUNCTION CreateWindow (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
266.     FOR i = 101 TO WindowCount
267.         'check for an open spot where we may have freed a past window
268.         'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
269.         IF Windows(i).Defined = False THEN EXIT FOR
270.     NEXT
271.     IF i > WindowCount THEN WindowCount = i
272.     Windows(i).Defined = _NEWIMAGE(Wide, High, 32)
273.     Windows(i).LinksTo = _MK$(LONG, Anchor MOD 100000) 'This is what we link to
274.     Windows(i).LinksFrom = "" 'and nothing is linking to a new window, at the moment
275.     Windows(Anchor MOD 100000).LinksFrom = RTRIM$(Windows(Anchor MOD 100000).LinksFrom) + _MK$(LONG, 100000 + i) 'And this lets the other window know we're linked to it.
276.     Windows(i).Top = Top
277.     Windows(i).Left = Left
278.     Windows(i).Wide = Wide
279.     Windows(i).High = High
280.     Windows(i).Visible = True 'we default to being visible and active
281.     Windows(i).Active = True
282.     Windows(i).Border.WIDTH = 0
283.     Windows(i).Border.COLOR = 0
284.     CreateWindow = 100000 + i
285. END SUB
286.  
287. FUNCTION CreateCaption (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
288.     d = _DEST
289.     FOR i = 1 TO CaptionCount
290.         'check for an open spot where we may have freed a past window
291.         'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
292.         IF Captions(i).Defined = False THEN EXIT FOR
293.     NEXT
294.     IF i > CaptionCount THEN CaptionCount = i
295.     Captions(i).Defined = _NEWIMAGE(Wide, High, 32)
296.     Captions(i).LinksTo = _MK$(LONG, Anchor) 'This is what we link to
297.     SELECT CASE Anchor \ 100000
298.         CASE 1 'we're linking this to a window
299.             Windows(Anchor MOD 100000).LinksFrom = RTRIM$(Windows(Anchor MOD 100000).LinksFrom) + _MK$(LONG, 200000 + i)
300.             DrawWindow Anchor
301.     END SELECT
302.  
303.     Captions(i).Top = Top
304.     Captions(i).Left = Left
305.     Captions(i).Wide = Wide
306.     Captions(i).High = High
307.     Captions(i).Visible = True 'we default to being visible and active
308.     Captions(i).Active = True
309.     Captions(i).Border.WIDTH = 0
310.     Captions(i).Border.COLOR = 0
311.     Captions(i).Background = Black 'default to a solid black background
312.     Captions(i).FontHandle = 16
313.     Captions(i).FontColor = White
314.     Captions(i).FontBackground = 0
315.     Captions(i).Text = ""
316.     CreateCaption = 200000 + i
317. END SUB
318.  
319.  

[Petr]

Seems like you're trying to assign a font to a different screen than the one you're on?  (after rewriting COLOR RED to COLOR &HFFFF0000 is nothing passed, and _DEST return -2 for me. Color is applied, if i use _DEST 0 before next run). Also, what is PRINT x = F on row 230? Its logical operation, 0 = false, 1 = true?

I see no reason why the program should not crash. X is zero. F is sixteen. The condition that 16 <> 0 is true. And FONT x actually calls FONT 0. But valid values for FONT are positive numbers.
The whole thing is that Captions (n).FontHandle does not contain a valid font value.

[bplus]

Steve did you catch my note about the missing s in createCaption sub? The shared variable is CaptionsCount with an s and the variable in the sub is CaptionCount without an s. I don't know if this is causing original error but it will cause problems somewhere down the line.

[SMcNeill]

I suspect a severe program flow error in your code, which you might want to check.

Indeed!  As I was expanding on what the caption contained, I added new reset/defaults values to the end of the SUB one after another.  Once I added the font option there, the flow was off with the DrawWindow which refreshes the window for us.  A simple change to the routine order corrects this problem.

Code: QB64: [Select]

1. FUNCTION CreateCaption (Anchor AS LONG, Top AS INTEGER, Left AS INTEGER, Wide AS INTEGER, High AS INTEGER)
2.     d = _DEST
3.     STATIC CaptionCount
4.     FOR i = 1 TO CaptionCount
5.         'check for an open spot where we may have freed a past window
6.         'windows 1 to 100 are for screens which we might create (they're basically full screen windows)
7.         IF Captions(i).Defined = False THEN EXIT FOR
8.     NEXT
9.     IF i > CaptionCount THEN CaptionCount = i
10.     Captions(i).Defined = _NEWIMAGE(Wide, High, 32)
11.     Captions(i).LinksTo = _MK$(LONG, Anchor) 'This is what we link to
12.  
13.     Captions(i).Top = Top
14.     Captions(i).Left = Left
15.     Captions(i).Wide = Wide
16.     Captions(i).High = High
17.     Captions(i).Visible = True 'we default to being visible and active
18.     Captions(i).Active = True
19.     Captions(i).Border.Width = 0
20.     Captions(i).Border.Color = 0
21.     Captions(i).Background = Black 'default to a solid black background
22.     Captions(i).Font.Handle = 16
23.     Captions(i).Font.Color = White
24.     Captions(i).Font.Background = 0
25.     Captions(i).Text = ""
26.     SELECT CASE Anchor \ 100000
27.         CASE 1 'we're linking this to a window
28.             Windows(Anchor MOD 100000).LinksFrom = Windows(Anchor MOD 100000).LinksFrom + _MK$(LONG, 200000 + i)
29.             DrawWindow Anchor 'refresh the window with the updated caption
30.     END SELECT
31.     CreateCaption = 200000 + i
32. END SUB

It also explains why it would sometimes have one value and sometimes not have that same value.  When it glitches the first time, the value is 0.  The next call to DrawWindow (which, as I say, is more of a refresh Window which updates the specific window when we make a change to it) then has the proper value for Captions(n).Font.Handle and prints to the screen as we'd expect.

It's this behavior which had me utterly baffled.  I think you've found the largest problem with the code here.  Many thanks for helping to locate the issue out.  I've pounded my head on the keyboard countless times today, unable to see the glitch.  I'm glad someone with fresher eyes than mine could help track it down for me.  Many thanks!

I'd almost managed to convince myself that QB64 itself was mistranslating the code somehow, with a cross between the Array, type, and sub-type all mixed in there together.  :) 

[SMcNeill]

Seems like you're trying to assign a font to a different screen than the one you're on?  (after rewriting COLOR RED to COLOR &HFFFF0000 is nothing passed, and _DEST return -2 for me. Color is applied, if i use _DEST 0 before next run).

It does change the font for a different screen.  Each window is an independent screen, and DrawCaption draws itself on the relative screen where it's called from.

Code: [Select]

SUB DrawWindow (TempHandle AS LONG)
    D = _DEST
    Handle = TempHandle MOD 100000
    w = Windows(Handle).Wide: h = Windows(Handle).High

    _DEST Windows(Handle).Defined
^The above is what changes our _DEST to the proper screen, which isn't necessarily the visible screen.  Later, we take the various individual windows and then stack them onto the current display in a Z-order to create layering between them.  In an attempt to make certain that my program isn't going to get bogged down and slow redrawing 1000's of various windows and components each cycle, our windows are each independent screens and predrawn for us.  Only when we change something on the window, do we need to redraw that window.  Otherwise, we just leave it alone and put it as it currently exists back to the visible display. 

Also, what is PRINT x = F on row 230? Its logical operation, 0 = false, 1 = true?

(0 for false, and -1 for true.)

That was part of the issue.  The routine is called more than once, and the glitch is only there on the initial run (which called the update before the font value was set).  We got an error.  Then we clicked continued.  Then we got a successful redraw...  Which printed out results saying, "All is good!", making it hard to decipher the point at which "something isn't good". 

[SMcNeill]

Steve did you catch my note about the missing s in createCaption sub? The shared variable is CaptionsCount with an s and the variable in the sub is CaptionCount without an s. I don't know if this is causing original error but it will cause problems somewhere down the line.

I did, and I've corrected that issue as well.  Truthfully, it'd never cause us a problem, as CaptionsCount never actually needs to be used anywhere except inside of the function which creates them -- but at the same time, it's not doing what it's actually supposed to do:  Reduce the maximum number of times we have to loop to get our next available caption, rather than going all the way to the UBOUND limits in that loop.

Code: [Select]

    FOR i = 1 TO CaptionCount
        'check for an open spot where we may have freed a past caption
        IF Captions(i).Defined = False THEN EXIT FOR
    NEXT
    IF i > CaptionCount THEN CaptionCount = i

I've swapped them all over from SHARED variables to STATIC ones now, which are local only to the sub which they're relevant to.  ;)

[Cobalt]

if its figured out all good, but does Rho's answer explain why the value was changing mid routine? showing 0 before the error line but 16 after? I get the program flow issue, but this was literally  printing the variable before the  _FONT line and getting a 0 then printing the variable after the _FONT line and getting a 16.

Just curious. :)

[RhoSigma]

You're welcome Steve,
just see it as my Christmas present for you :), Enjoy the holiday(s).

[TempodiBasic]

Hi  Merry Christmas
and I see here an hard session of debugging!

But stop now it is time to eat and drink and dance and smile with family and friends...
Happy holidays and more over Happy life wonderful QB64 community...

PS be afraid  to wish because wishes become reality  ;-)