child windows into window of the program: a demonstration

[TempodiBasic]

Hy guys

programming is like to go on bike, you never forget it but you must empower your coding muscles to travel far...

so I have done a demo for  this thread https://www.qb64.org/forum/index.php?topic=2115.msg113538#msg113538
but when I wanted to empower the demo with multiple windows (yes there are only 3 but code works for more than 3 windows) I loose myself in the hood of my imagination! So for a little but essential change in the order of the operations of the code I have had an hard session of debugging of 4-6 h  ... so it is clear that my Debugging muscles are very weak!

At the end this is the result, what is the content of each window is specific and I leave at your fantasy what put into it.
Originally I wanted to do a monitor of health with BMI and weight. But after all these hours of debugging for now I stop here.

Code: QB64: [Select]

1. ' Question of QB64Forum
2. ' Basically I want to write a program to input data, store the data,  <-- this is DATABASE
3. ' retrieve the data, add to it, etc.
4. ' I would like the ability to have a new window/app, run concurrently <-- this is a graphic plotter
5. ' with the main window/app, but be able to display/plot the data
6. ' I retrieved from the main window/app.
7.  
8.  
9. ' 2020 01 25  A program with child windows into it
10. ' we need a system to manage multiple windows
11. ' and a system to manage input/output
12. ' and a system to make graphic report
13.  
14. ' settings-------------------------------------------------------
15. SCREEN _NEWIMAGE(800, 600, 32)
16. _TITLE "Child windows"
17. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
18. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
19. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
20. CONST Minim = 20, Maxim = 10, Closed = 100, wMin = 3, aNull = 0, aQuit = 9999
21. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
22. CONST Dragging = 300, Focusing = 200
23.  
24. _FULLSCREEN
25.  
26.  
27. 'dataset  -----------------------------------------------
28. TYPE person
29.     name AS STRING * 10
30.     age AS INTEGER
31.     weight AS INTEGER
32.     height AS INTEGER
33.     BMI AS INTEGER
34. END TYPE
35.  
36. TYPE wChild
37.     X AS INTEGER
38.     Y AS INTEGER
39.     Width AS INTEGER
40.     Height AS INTEGER
41.     Zorder AS INTEGER
42.     Status AS INTEGER
43.     Color AS _UNSIGNED LONG
44. END TYPE
45.  
46. REDIM Windows(0 TO wMin) AS wChild
47. DIM SHARED wMax AS INTEGER
48. wMax = UBOUND(windows)
49.  
50. ' windows(0) is for Dragging
51.  
52. Windows(1).X = 1
53. Windows(1).Y = 1
54. Windows(1).Width = 300
55. Windows(1).Height = 400
56. Windows(1).Zorder = 1
57. Windows(1).Status = Minim
58. Windows(1).Color = Blu
59.  
60. Windows(2).X = 100
61. Windows(2).Y = 1
62. Windows(2).Width = 300
63. Windows(2).Height = 400
64. Windows(2).Zorder = 2
65. Windows(2).Status = Minim
66. Windows(2).Color = Yellow
67.  
68. Windows(3).X = 200
69. Windows(3).Y = 1
70. Windows(3).Width = 300
71. Windows(3).Height = 400
72. Windows(3).Zorder = 3
73. Windows(3).Status = Minim
74. Windows(3).Color = Green
75.  
76. DIM Action AS INTEGER
77.  
78.  
79. ' main loop -----------------------------------------------
80. DO
81.     ' set the main window
82.     Action = aNull
83.     CLS , Orange
84.     DrawAllWin
85.  
86.     GetInput Action
87.  
88.     DoAction Action
89.     _LIMIT 20
90. LOOP
91. END
92.  
93. ' SUBs and FUNCTIONs --------------------------------------
94. SUB DrawAllWin
95.     SHARED Windows() AS wChild
96.     DIM Finished AS INTEGER
97.     Finished = wMax
98.     DO
99.         FOR a = 1 TO wMax
100.             IF Windows(a).Zorder = Finished THEN
101.                 DrawWindow Windows(a)
102.                 Finished = Finished - 1
103.                 EXIT FOR
104.             END IF
105.         NEXT a
106.     LOOP UNTIL Finished = 0
107. END SUB
108.  
109. SUB Focus (Index AS INTEGER)
110.     SHARED Windows() AS wChild
111.     DIM b AS INTEGER
112.     FOR b = 1 TO wMax
113.         IF Windows(b).Zorder = 1 THEN EXIT FOR
114.     NEXT b
115.     SWAP Windows(Index).Zorder, Windows(b).Zorder
116.     DrawAllWin
117. END SUB
118.  
119. SUB DoAction (Act AS INTEGER)
120.     SHARED Windows() AS wChild
121.     DIM a AS INTEGER
122.  
123.     SELECT CASE Act
124.         CASE aQuit
125.             END
126.  
127.         CASE Maxim
128.             _FULLSCREEN
129.  
130.         CASE Minim
131.             _FULLSCREEN _OFF
132.  
133.         CASE mLeft
134.             DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER, Actio AS INTEGER
135.             mX = _MOUSEX
136.             mY = _MOUSEY
137.             ' search where and what mouse has touched by leftclick
138.             FOR a = 1 TO wMax ' windows(0) is out of action
139.                 Actio = IsInWindow(mX, mY, Windows(a))
140.                 IF Actio THEN EXIT FOR ' if windows(a) is on the stack it gets the click of mouse
141.             NEXT a
142.  
143.             SELECT CASE Actio
144.                 CASE Dragging
145.                     Focus a
146.                     Windows(0).X = Windows(a).X
147.                     Windows(0).Y = Windows(a).Y
148.                     Windows(0).Width = Windows(a).Width
149.                     Windows(0).Height = Windows(a).Height
150.                     Windows(0).Status = Windows(a).Status
151.                     Windows(0).Color = Windows(a).Color
152.                     OmX = _MOUSEX - Windows(0).X
153.                     OmY = _MOUSEY - Windows(0).Y
154.                     DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
155.                     DO WHILE _MOUSEBUTTON(1)
156.                         IF _MOUSEINPUT THEN
157.                             CLS , Orange
158.                             DrawAllWin
159.                             Windows(0).X = (_MOUSEX - OmX)
160.                             Windows(0).Y = (_MOUSEY - OmY)
161.                             dragWindow Windows(0)
162.                         END IF
163.                     LOOP
164.                     ' new position of window
165.                     Windows(a).X = Windows(0).X
166.                     Windows(a).Y = Windows(0).Y
167.                     Windows(a).Width = Windows(0).Width
168.                     Windows(a).Height = Windows(0).Height
169.                     Windows(a).Status = Windows(0).Status
170.                     Windows(a).Color = Windows(0).Color
171.                     Windows(a).Zorder = 1
172.  
173.                 CASE Focusing
174.                     Focus a
175.             END SELECT
176.         CASE ELSE
177.     END SELECT
178. END SUB
179.  
180. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild)
181.     IsInWindow = mFalse
182.     IF IsInTheRange%(X, Win.X, Win.X + Win.Width) THEN
183.         IF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
184.             IsInWindow = Dragging
185.         ELSEIF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
186.             IsInWindow = Focusing
187.         END IF
188.     END IF
189. END FUNCTION
190.  
191. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER)
192.     IF Min > Max THEN SWAP Min, Max
193.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
194. END FUNCTION
195.  
196. SUB dragWindow (Win AS wChild)
197.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), White, B
198.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), White, BF 'title bar for dragging window
199. END SUB
200.  
201.  
202. SUB DrawWindow (Win AS wChild)
203.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Win.Color, BF
204.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Red, BF 'title bar for dragging window
205. END SUB
206.  
207. SUB GetInput (Act AS INTEGER)
208.     DIM mInput AS INTEGER
209.  
210.  
211.     ' keyboard input
212.     a$ = INKEY$
213.     IF a$ = CHR$(27) THEN Act = aQuit
214.  
215.     'mouse input
216.     mInput = mFalse
217.     IF _MOUSEINPUT THEN mInput = mTrue
218.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
219.     LOOP
220.     IF mInput THEN
221.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
222.             mInput = mLR
223.         ELSEIF _MOUSEBUTTON(1) THEN
224.             mInput = mLeft
225.         ELSEIF _MOUSEBUTTON(2) THEN
226.             mInput = mRight
227.         ELSEIF _MOUSEBUTTON(3) THEN
228.             mInput = mMiddle
229.         END IF
230.     END IF
231.  
232.     IF mInput = mLR THEN
233.         Act = aQuit
234.     ELSEIF mInput = mMiddle THEN
235.         Act = Minim
236.     ELSEIF mInput = mRight THEN
237.         Act = Maxim
238.     ELSEIF mInput = mLeft THEN
239.         Act = mInput
240.     END IF
241. END SUB

Instruction:
Click by right mouse button to _Fullscreen
Click by Middle mouse button to _Minimize to normal window
Click by left mouse button into a child window  to choose a child window (there are 3 windows Blu, Green and Yellow)
click by left mouse button on Red top bar of a child window to move it by dragging in the main window of the program

Thanks to take a look!

[bplus]

Looks like a start, you know that _DISPLAY will stop the annoying blinking.

[TempodiBasic]

Yes but I must remember it! :-)

[bplus]

Yes but I must remember it! :-)

Then remember also, once you start using it, you have to use it ever where OR switch it OFF with _AUTODISPLAY, otherwise you will wonder why nothing seems to be working. ;-)) (like when you want to drag the window)

I say this not to you particularly TempodiBasic but to all the poor souls who could get fouled up and lost by this one little problem. Oh the frustration... ;-(

[TempodiBasic]

Yes  one of the black beasts is _DISPLAY  vs  _AUTODISPLAY,  followed by  settings of color when you pass from a program written for ASCII screen or Qb45's legacy SCREEN to _NEWIMAGE (Width,Height,32)... remembering the exact sinthax and extension of each color command _RGB _RGBA  _RGB32 _RGBA32  for this case is a good advance the $COLOR of version 1.4 to use HTML code scheme.

[SMcNeill]

Here's a quick and simple demo of how I'd do multiple windows like this:

Code: QB64: [Select]

1. $COLOR:32
2. SCREEN _NEWIMAGE(800, 600, 32) 'the main screen
3. DIM Windows(3) AS _UNSIGNED LONG 'handles to hold extra windows
4. FOR i = 0 TO 3: Windows(i) = _NEWIMAGE(640, 480, 32): NEXT 'make some extra windows
5.  
6. _DEST Windows(0) 'window 0
7. CLS , Blue
8. COLOR Red, 0
9. PRINT
10. PRINT "This is just some text on the first window, which I'm writing as an illustration.  It doesn't really mean anything, and doesn't do anything, except show that this is an independent screen, unaffected by any others."
11.  
12. _DEST Windows(1) 'window 1
13. CLS , Silver
14. LINE (100, 100)-(540, 380), Purple, BF
15. CIRCLE (300, 300), 100, Green
16. PAINT (300, 300), Green
17.  
18. _DEST Windows(2) 'window 2
19. CLS , Yellow
20. COLOR Red
21. PRINT "Once upon a time, long ago and far away, Steve wrote a program in QB64!"
22.  
23. _DEST 0
24. COLOR Black, 0
25. DO
26.     _DEST 0
27.     CLS , 0
28.     FOR i = 0 TO 3
29.         LINE (100 + 163 * i, 70)-STEP(150, 20), Silver, BF
30.         _PRINTSTRING (100 + 163 * i, 72), "      Window" + STR$(i)
31.     NEXT
32.     LINE (100, 100)-(740, 580), Silver, B
33.  
34.     _DEST Windows(3)
35.     CLS , 0
36.     LINE (x, 150)-STEP(100, 100), _RGB32(RND * 256, RND * 256, RND * 256), BF
37.     x = (x + 5) MOD 640
38.  
39.     k = _KEYHIT
40.     SELECT CASE k
41.         CASE 48, 49, 50, 51: W = k - 48
42.         CASE 27: SYSTEM
43.     END SELECT
44.     _PUTIMAGE (100, 100), Windows(W), 0
45.     _LIMIT 30
46.     _DISPLAY
47. LOOP
48. SYSTEM

I didn't bother to code in any mouse handling routine, though they'd be simple enough to add if someone wants them.  For this, just use the number keys for 0, 1, 2, 3 to swap between the 4 different window displays.

Window 0 is just a simple text window which I typed some junk on.
Window 1 is a graphical image, which could represent whatever my program needs.
Window 2 is another independent text window. 
Window 3 is an animated window where there's a simple box which scrolls from one side of the screen to the other.

[TempodiBasic]

Hi Steve

Your alternative way to build child windows as panel/Layer on which build output and to show on the main window is very cool. So I have decided to give another perspective to your idea, instead to use alternatively panels here the panels have different size among them and are on stack and user pressing 0123 can choose how the stack is build up. The program shows all the active panels together following the order of stack.

Code: QB64: [Select]

1. $COLOR:32
2. SCREEN _NEWIMAGE(800, 600, 32) 'the main screen
3. DIM Windows(3) AS _UNSIGNED LONG 'handles to hold extra windows
4. FOR i = 0 TO 3: Windows(i) = _NEWIMAGE(200 + (i * 100), 400, 32): NEXT 'make some extra windows
5.  
6. _DEST Windows(0) 'window 0
7. CLS , Blue
8. COLOR Red, 0
9. PRINT
10. PRINT "This is just some text on the first window, which I'm writing as an illustration.  It doesn't really mean anything, and doesn't do anything, except show that this is an independent screen, unaffected by any others."
11.  
12. _DEST Windows(1) 'window 1
13. CLS , Silver
14. LINE (100, 100)-(540, 380), Purple, BF
15. CIRCLE (300, 300), 100, Green
16. PAINT (300, 300), Green
17.  
18. _DEST Windows(2) 'window 2
19. CLS , Yellow
20. COLOR Red
21. PRINT "Once upon a time, long ago and far away, Steve wrote a program in QB64!"
22.  
23. _DEST 0
24. COLOR Black, 0
25.  
26. DIM Zorder AS STRING
27. Zorder = "0123"
28.  
29. DO
30.     _DEST 0
31.     CLS , Pink
32.     LOCATE 10, 2: PRINT Zorder
33.     FOR i = 0 TO 3
34.         LINE (100 + 163 * i, 70)-STEP(150, 20), Silver, BF
35.         _PRINTSTRING (100 + 163 * i, 72), "      Window" + STR$(i)
36.     NEXT
37.     LINE (100, 100)-(740, 580), Silver, B
38.  
39.     _DEST Windows(3)
40.     CLS , 0
41.     LINE (x, 150)-STEP(100, 100), _RGB32(RND * 256, RND * 256, RND * 256), BF
42.     x = (x + 5) MOD 640
43.  
44.     k = _KEYHIT
45.     SELECT CASE k
46.         CASE 48, 49, 50, 51: W = k - 48
47.  
48.             z = INSTR(Zorder, LTRIM$(STR$(W)))
49.             Zorder = LTRIM$(STR$(W)) + LEFT$(Zorder, z - 1) + RIGHT$(Zorder, 4 - z)
50.  
51.         CASE 27: SYSTEM
52.     END SELECT
53.     FOR z = 0 TO 3
54.         W = VAL(MID$(Zorder, z, 1))
55.         _PUTIMAGE (100, 100), Windows(W), 0
56.     NEXT z
57.     _LIMIT 30
58.     _DISPLAY
59. LOOP
60. SYSTEM
61.  
62.  

 

[TempodiBasic]

@Bplus
Here a no flickering version...
only for your eyes ... also a more smooth aspect of child windows

Code: QB64: [Select]

1. ' Question of QB64Forum
2. ' Basically I want to write a program to input data, store the data,  <-- this is DATABASE
3. ' retrieve the data, add to it, etc.
4. ' I would like the ability to have a new window/app, run concurrently <-- this is a graphic plotter
5. ' with the main window/app, but be able to display/plot the data
6. ' I retrieved from the main window/app.
7.  
8.  
9. ' 2020 01 25  A program with child windows into it
10. ' we need a system to manage multiple windows
11. ' and a system to manage input/output
12. ' and a system to make graphic report
13.  
14. ' settings-------------------------------------------------------
15. SCREEN _NEWIMAGE(800, 600, 32)
16. _TITLE "Child windows"
17. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
18. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
19. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
20. CONST Minim = 20, Maxim = 10, Closed = 100, wMin = 3, aNull = 0, aQuit = 9999
21. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
22. CONST Dragging = 300, Focusing = 200
23.  
24. _FULLSCREEN
25.  
26.  
27. 'dataset  -----------------------------------------------
28. TYPE person
29.     name AS STRING * 10
30.     age AS INTEGER
31.     weight AS INTEGER
32.     height AS INTEGER
33.     BMI AS INTEGER
34. END TYPE
35.  
36. TYPE wChild
37.     X AS INTEGER
38.     Y AS INTEGER
39.     Width AS INTEGER
40.     Height AS INTEGER
41.     Zorder AS INTEGER
42.     Status AS INTEGER
43.     Color AS _UNSIGNED LONG
44. END TYPE
45.  
46. REDIM Windows(0 TO wMin) AS wChild
47. DIM SHARED wMax AS INTEGER
48. wMax = UBOUND(windows)
49.  
50.  
51. ' windows(0) is for Dragging
52.  
53. Windows(1).X = 1
54. Windows(1).Y = 1
55. Windows(1).Width = 300
56. Windows(1).Height = 400
57. Windows(1).Zorder = 1
58. Windows(1).Status = Minim
59. Windows(1).Color = Blu
60.  
61. Windows(2).X = 100
62. Windows(2).Y = 1
63. Windows(2).Width = 300
64. Windows(2).Height = 400
65. Windows(2).Zorder = 2
66. Windows(2).Status = Minim
67. Windows(2).Color = Yellow
68.  
69. Windows(3).X = 200
70. Windows(3).Y = 1
71. Windows(3).Width = 300
72. Windows(3).Height = 400
73. Windows(3).Zorder = 3
74. Windows(3).Status = Minim
75. Windows(3).Color = Green
76.  
77. DIM Action AS INTEGER
78.  
79.  
80. ' main loop -----------------------------------------------
81.  
82. DO
83.     ' set the main window
84.     Action = aNull
85.     CLS , Orange
86.     DrawAllWin
87.     GetInput Action
88.     DoAction Action
89.     _LIMIT 30
90. LOOP
91. END
92.  
93. ' SUBs and FUNCTIONs --------------------------------------
94. SUB DrawAllWin
95.     SHARED Windows() AS wChild
96.     DIM Finished AS INTEGER
97.     Finished = wMax
98.     DO
99.         FOR a = 1 TO wMax
100.             IF Windows(a).Zorder = Finished THEN
101.                 DrawWindow Windows(a)
102.                 Finished = Finished - 1
103.                 EXIT FOR
104.             END IF
105.         NEXT a
106.     LOOP UNTIL Finished = 0
107.     _DISPLAY
108. END SUB
109.  
110. SUB Focus (Index AS INTEGER)
111.     SHARED Windows() AS wChild
112.     DIM b AS INTEGER
113.     FOR b = 1 TO wMax
114.         IF Windows(b).Zorder = 1 THEN EXIT FOR
115.     NEXT b
116.     SWAP Windows(Index).Zorder, Windows(b).Zorder
117.     DrawAllWin
118. END SUB
119.  
120. SUB DoAction (Act AS INTEGER)
121.     SHARED Windows() AS wChild
122.     DIM a AS INTEGER
123.  
124.     SELECT CASE Act
125.         CASE aQuit
126.             END
127.  
128.         CASE Maxim
129.             _FULLSCREEN
130.  
131.         CASE Minim
132.             _FULLSCREEN _OFF
133.  
134.         CASE mLeft
135.             DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER, Actio AS INTEGER
136.             mX = _MOUSEX
137.             mY = _MOUSEY
138.             ' search where and what mouse has touched by leftclick
139.             FOR a = 1 TO wMax ' windows(0) is out of action
140.                 Actio = IsInWindow(mX, mY, Windows(a))
141.                 IF Actio THEN EXIT FOR ' if windows(a) is on the stack it gets the click of mouse
142.             NEXT a
143.             SELECT CASE Actio
144.                 CASE Dragging
145.                     Focus a
146.                     Windows(0).X = Windows(a).X
147.                     Windows(0).Y = Windows(a).Y
148.                     Windows(0).Width = Windows(a).Width
149.                     Windows(0).Height = Windows(a).Height
150.                     Windows(0).Status = Windows(a).Status
151.                     Windows(0).Color = Windows(a).Color
152.                     OmX = _MOUSEX - Windows(0).X
153.                     OmY = _MOUSEY - Windows(0).Y
154.                     DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
155.                     DO WHILE _MOUSEBUTTON(1)
156.                         IF _MOUSEINPUT THEN
157.                             CLS , Orange
158.                             DrawAllWin
159.                             Windows(0).X = (_MOUSEX - OmX)
160.                             Windows(0).Y = (_MOUSEY - OmY)
161.                             dragWindow Windows(0)
162.                         END IF
163.                     LOOP
164.                     ' new position of window
165.                     Windows(a).X = Windows(0).X
166.                     Windows(a).Y = Windows(0).Y
167.                     Windows(a).Width = Windows(0).Width
168.                     Windows(a).Height = Windows(0).Height
169.                     Windows(a).Status = Windows(0).Status
170.                     Windows(a).Color = Windows(0).Color
171.                     Windows(a).Zorder = 1
172.                 CASE Focusing
173.                     Focus a
174.             END SELECT
175.  
176.         CASE ELSE
177.     END SELECT
178. END SUB
179.  
180. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild)
181.     IsInWindow = mFalse
182.     IF IsInTheRange%(X, Win.X, Win.X + Win.Width) THEN
183.         IF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
184.             IsInWindow = Dragging
185.         ELSEIF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
186.             IsInWindow = Focusing
187.         END IF
188.     END IF
189. END FUNCTION
190.  
191. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER)
192.     IF Min > Max THEN SWAP Min, Max
193.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
194. END FUNCTION
195.  
196. SUB dragWindow (Win AS wChild)
197.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), White, B
198.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), White, BF 'title bar for dragging window
199.     _DISPLAY
200. END SUB
201.  
202.  
203. SUB DrawWindow (Win AS wChild)
204.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Win.Color, BF
205.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for dragging window
206.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.Width, Win.Y + 10), Black
207.     LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.Width, Win.Y + Win.Height), Black
208.     LINE (Win.X + Win.Width, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Black
209. END SUB
210.  
211. SUB GetInput (Act AS INTEGER)
212.     DIM mInput AS INTEGER
213.  
214.  
215.     ' keyboard input
216.     a$ = INKEY$
217.     IF a$ = CHR$(27) THEN Act = aQuit
218.  
219.     'mouse input
220.     mInput = mFalse
221.     IF _MOUSEINPUT THEN mInput = mTrue
222.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
223.     LOOP
224.     IF mInput THEN
225.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
226.             mInput = mLR
227.         ELSEIF _MOUSEBUTTON(1) THEN
228.             mInput = mLeft
229.         ELSEIF _MOUSEBUTTON(2) THEN
230.             mInput = mRight
231.         ELSEIF _MOUSEBUTTON(3) THEN
232.             mInput = mMiddle
233.         END IF
234.     END IF
235.  
236.     IF mInput = mLR THEN
237.         Act = aQuit
238.     ELSEIF mInput = mMiddle THEN
239.         Act = Minim
240.     ELSEIF mInput = mRight THEN
241.         Act = Maxim
242.     ELSEIF mInput = mLeft THEN
243.         Act = mInput
244.     END IF
245. END SUB

 

[bplus]

Very nice start TempodiBasic they drag nicely alright and fetching colors too :)

[keybone]

looks like something I've been trying to accomplish for a long time.

Well, here's my attempt:
http://keybone.epizy.com/files/234178487/winsys.bas

The windows can be moved, resized, maximized, and restored from maximized (if the functionality is enabled on a per-window basis).
Minimize/iconify functionality is not implemented yet.

And I havent figured out how im going to have events handled within the windows yet.
Still a work in progress...

[TempodiBasic]

Fine Keybone!

... I have seen that also rightclick menu is work in progress. Good one!


about

And I havent figured out how im going to have events handled within the windows yet.
Still a work in progress...

I think that there are so many ways to do this....

for interaction among objects of the same window or objects of different windows  I can imagine a timer control that activates a short loop or a message system like windows OS...
for events triggered by I/O of user  I imagine a defauld univocal keypress (keyboard or joystick) or area of screen sensible to mouse events or /and a focus system to address and to react in the right manner to the Input (you get the input and pass it to the focused object)
... well , after lunch these are the results of my imagination...
Good work and Good Imagination!

[TempodiBasic]

Hi
I go on with child windows...
now there are 3 button on the bar of the window to Maximize to the application window or to Restore default dimension or to reduce to the bar of the child window.
Here the code.

Code: QB64: [Select]

1. ' Question of QB64Forum
2. ' Basically I want to write a program to input data, store the data,  <-- this is DATABASE
3. ' retrieve the data, add to it, etc.
4. ' I would like the ability to have a new window/app, run concurrently <-- this is a graphic plotter
5. ' with the main window/app, but be able to display/plot the data
6. ' I retrieved from the main window/app.
7.  
8. ' 2020 02 05 fixed a minor bug on mouse click events
9. '            activated events Maxim Minim and Closed
10.  
11.  
12. ' 2020 02 03 increasing the windows managed and close initialization to SUB
13. '            removed vMax SHARED variable
14. '            added 3 buttons on the rightest site of the bar of the child window
15. '            SUB wClosed, wMaxim, wMinim
16. '            In this version the user can maximize one child window to the application window
17. '            In the status of Maxim the child window has the focus and can be only
18. '            reduced to status Minim, it cannot be dragging or Closed to bar of window
19.  
20.  
21. ' 2020 01 30 fixed bug on focusing a child window
22. '
23.  
24. ' 2020 01 25  A program with child windows into it
25. ' we need a system to manage multiple windows
26. ' and a system to manage input/output
27. ' and a system to make graphic report
28.  
29. ' settings-------------------------------------------------------
30. SCREEN _NEWIMAGE(800, 600, 32)
31. _TITLE "Child windows"
32. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
33. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
34. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
35. CONST Minim = 20, Maxim = 10, Closed = 100, wMin = 5, aNull = 0, aQuit = 9999
36. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
37. CONST Dragging = 300, Focusing = 200, cMinim = 400, cMaxim = 500, cClosed = 600
38.  
39. _FULLSCREEN
40.  
41.  
42. 'dataset  -----------------------------------------------
43. TYPE person
44.     name AS STRING * 10
45.     age AS INTEGER
46.     weight AS INTEGER
47.     height AS INTEGER
48.     BMI AS INTEGER
49. END TYPE
50.  
51. TYPE wChild
52.     X AS INTEGER
53.     Y AS INTEGER
54.     Width AS INTEGER
55.     Height AS INTEGER
56.     Zorder AS INTEGER
57.     Status AS INTEGER
58.     Color AS _UNSIGNED LONG
59. END TYPE
60.  
61. REDIM Windows(0 TO wMin) AS wChild
62.  
63. InitWin
64.  
65. DIM Action AS INTEGER
66.  
67.  
68. ' main loop -----------------------------------------------
69.  
70. DO
71.     ' set the main window
72.     Action = aNull
73.     CLS , Orange
74.     DrawAllWin
75.     GetInput Action
76.     DoAction Action
77.     _LIMIT 30
78. LOOP
79. END
80.  
81. ' SUBs and FUNCTIONs --------------------------------------
82. SUB InitWin
83.     SHARED Windows() AS wChild
84.     ' windows(0) is for Dragging or Maximize
85.     Windows(0).X = 0
86.     Windows(0).Y = 0
87.     Windows(0).Width = 0
88.     Windows(0).Height = 0
89.     Windows(0).Zorder = 0
90.     Windows(0).Status = 0
91.     Windows(0).Color = 0
92.  
93.     Windows(1).X = 1
94.     Windows(1).Y = 1
95.     Windows(1).Width = 300
96.     Windows(1).Height = 400
97.     Windows(1).Zorder = 1
98.     Windows(1).Status = Minim
99.     Windows(1).Color = Blu
100.  
101.     Windows(2).X = 100
102.     Windows(2).Y = 1
103.     Windows(2).Width = 300
104.     Windows(2).Height = 400
105.     Windows(2).Zorder = 2
106.     Windows(2).Status = Minim
107.     Windows(2).Color = Yellow
108.  
109.     Windows(3).X = 200
110.     Windows(3).Y = 1
111.     Windows(3).Width = 300
112.     Windows(3).Height = 400
113.     Windows(3).Zorder = 3
114.     Windows(3).Status = Minim
115.     Windows(3).Color = Green
116.  
117.     Windows(4).X = 300
118.     Windows(4).Y = 1
119.     Windows(4).Width = 300
120.     Windows(4).Height = 400
121.     Windows(4).Zorder = 4
122.     Windows(4).Status = Minim
123.     Windows(4).Color = Red
124.  
125.     Windows(5).X = 400
126.     Windows(5).Y = 1
127.     Windows(5).Width = 300
128.     Windows(5).Height = 400
129.     Windows(5).Zorder = 5
130.     Windows(5).Status = Minim
131.     Windows(5).Color = Cyan
132. END SUB
133.  
134. SUB DrawAllWin
135.     SHARED Windows() AS wChild
136.     DIM Finished AS INTEGER
137.     Finished = wMin
138.     DO
139.         FOR a = 1 TO wMin
140.             IF Windows(a).Zorder = Finished THEN
141.                 DrawWindow Windows(a)
142.                 Finished = Finished - 1
143.                 EXIT FOR
144.             END IF
145.         NEXT a
146.     LOOP UNTIL Finished = 0
147.     _DISPLAY
148. END SUB
149.  
150. SUB Focus (Index AS INTEGER)
151.     SHARED Windows() AS wChild
152.     DIM b AS INTEGER
153.     FOR b = 1 TO wMin
154.         IF Windows(b).Zorder = 1 THEN EXIT FOR
155.     NEXT b
156.     IF Index <> b THEN SWAP Windows(Index).Zorder, Windows(b).Zorder
157.     DrawAllWin
158. END SUB
159.  
160.  
161. SUB DoAction (Act AS INTEGER)
162.     SHARED Windows() AS wChild
163.     DIM a AS INTEGER, Actio AS INTEGER, OldA AS INTEGER, OldActio AS INTEGER
164.     DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER
165.  
166.     SELECT CASE Act
167.         CASE aQuit
168.             END
169.  
170.         CASE Maxim
171.             _FULLSCREEN
172.  
173.         CASE Minim
174.             _FULLSCREEN _OFF
175.  
176.         CASE mLeft
177.             mX = _MOUSEX
178.             mY = _MOUSEY
179.  
180.             ' search where and what mouse has touched by leftclick
181.             OldA = 0
182.             OldActio = 0
183.             FOR a = 1 TO wMin ' windows(0) is out of action
184.                 Actio = IsInWindow(mX, mY, Windows(a))
185.                 IF Actio THEN
186.                     IF OldA <= 0 THEN
187.                         OldA = a
188.                         OldActio = Actio
189.                     ELSEIF Windows(a).Zorder < Windows(OldA).Zorder THEN
190.                         OldA = a
191.                         OldActio = Actio
192.                     END IF
193.                 END IF
194.             NEXT a
195.             IF a > OldA THEN
196.                 a = OldA ' restore the last windows interacting
197.                 Actio = OldActio
198.             END IF
199.             IF OldA = 0 OR OldActio = 0 THEN EXIT SUB
200.  
201.  
202.             Focus a 'set zorder on the (a) window that gets the input
203.  
204.  
205.             SELECT CASE Actio
206.                 CASE cMinim
207.                     ' here restore to  standard status of child window
208.                     IF NOT Windows(a).Status = Minim THEN
209.                         Windows(a).X = Windows(0).X
210.                         Windows(a).Y = Windows(0).Y
211.                         Windows(a).Width = Windows(0).Width
212.                         Windows(a).Height = Windows(0).Height
213.                         Windows(a).Status = Minim
214.                         Windows(a).Zorder = 1
215.                     END IF
216.  
217.                 CASE cMaxim
218.                     ' here convert the window to full size of main window of the program
219.                     IF NOT Windows(a).Status = Maxim THEN
220.                         ' memorize window's data
221.                         Windows(0).X = Windows(a).X
222.                         Windows(0).Y = Windows(a).Y
223.                         Windows(0).Width = Windows(a).Width
224.                         Windows(0).Height = Windows(a).Height
225.                         ' change status
226.                         Windows(a).Status = Maxim
227.                         Windows(a).Width = _WIDTH
228.                         Windows(a).Height = _HEIGHT
229.                         Windows(a).X = 1
230.                         Windows(a).Y = 1
231.                     END IF
232.                 CASE cClosed
233.                     ' here minimize the child window to its window bar
234.                     IF Windows(a).Status = Minim THEN
235.                         ' memorize window's data
236.                         Windows(0).X = Windows(a).X
237.                         Windows(0).Y = Windows(a).Y
238.                         Windows(0).Width = Windows(a).Width
239.                         Windows(0).Height = Windows(a).Height
240.                         ' change status
241.                         Windows(a).Status = Closed
242.                     END IF
243.                 CASE Dragging
244.                     ' dragging is not possible for maximized window
245.                     ' but it is possible for status Minim child window and
246.                     ' for status Closed that shows only Bar window
247.                     IF NOT Windows(a).Status = Maxim THEN
248.                         Windows(0).X = Windows(a).X
249.                         Windows(0).Y = Windows(a).Y
250.                         Windows(0).Width = Windows(a).Width
251.                         Windows(0).Height = Windows(a).Height
252.                         Windows(0).Status = Windows(a).Status
253.                         Windows(0).Color = Windows(a).Color
254.                         OmX = _MOUSEX - Windows(0).X
255.                         OmY = _MOUSEY - Windows(0).Y
256.                         DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
257.                         DO WHILE _MOUSEBUTTON(1)
258.                             IF _MOUSEINPUT THEN
259.                                 CLS , Orange
260.                                 DrawAllWin
261.                                 Windows(0).X = (_MOUSEX - OmX)
262.                                 Windows(0).Y = (_MOUSEY - OmY)
263.                                 dragWindow Windows(0)
264.                             END IF
265.                         LOOP
266.                         ' new position of window
267.                         Windows(a).X = Windows(0).X
268.                         Windows(a).Y = Windows(0).Y
269.                         Windows(a).Width = Windows(0).Width
270.                         Windows(a).Height = Windows(0).Height
271.                         Windows(a).Status = Windows(0).Status
272.                         Windows(a).Color = Windows(0).Color
273.                         Windows(a).Zorder = 1
274.                     END IF
275.                 CASE Focusing
276.                     Focus a
277.             END SELECT
278.  
279.         CASE ELSE
280.     END SELECT
281. END SUB
282.  
283. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild)
284.     IsInWindow = mFalse
285.     IF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
286.         ' if window is closed to its bar it cannot get focus on the window area
287.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width) AND (Win.Status <> Closed) THEN IsInWindow = Focusing
288.     ELSEIF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
289.         ' if is the window bar area
290.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width - 31) THEN
291.             ' if it is to the left of buttons on the bar
292.             ' maximized window cannot be dragged
293.             IF NOT (Win.Status AND Maxim) THEN IsInWindow = Dragging
294.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 30, Win.X + Win.Width - 21) THEN
295.             ' if it is on the leftest button on the bar
296.             IsInWindow = cMinim ' icon minimize--> restore to child default
297.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 20, Win.X + Win.Width - 11) THEN
298.             ' if it is on the middle button on the bar
299.             IsInWindow = cMaxim ' icon maximize--> expand to fullscreen
300.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 10, Win.X + Win.Width) THEN
301.             ' if is on the rightest button on the bar
302.             ' maximized child window cannot become minimized to bar of child window
303.             IF NOT (Win.Status AND Maxim) THEN IsInWindow = cClosed ' icon close-->reduce to the  bar of child window
304.         END IF
305.     END IF
306. END FUNCTION
307.  
308. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER)
309.     IF Min > Max THEN SWAP Min, Max
310.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
311. END FUNCTION
312.  
313. SUB dragWindow (Win AS wChild)
314.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), White, B
315.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), White, BF 'title bar for dragging window
316.     _DISPLAY
317. END SUB
318.  
319. SUB wClosed (Win AS wChild)
320.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
321.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Black, B
322.     LINE (Win.X + Win.Width - 7, Win.Y + 3)-(Win.X + Win.Width - 3, Win.Y + 7), Black
323.     LINE (Win.X + Win.Width - 7, Win.Y + 7)-(Win.X + Win.Width - 3, Win.Y + 3), Black
324. END SUB
325.  
326. SUB wMaxim (win AS wChild)
327.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Pink, BF 'title bar for restore to original dimensions
328.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Black, B
329.     LINE (win.X + win.Width - 17, win.Y + 3)-(win.X + win.Width - 13, win.Y + 7), Black, B
330. END SUB
331.  
332. SUB wMinim (Win AS wChild)
333.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
334.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Black, B
335.     LINE (Win.X + Win.Width - 27, Win.Y + 7)-(Win.X + Win.Width - 23, Win.Y + 7), Black
336. END SUB
337.  
338.  
339. SUB DrawWindow (Win AS wChild)
340.     ' the window
341.     IF Win.Status = Minim OR Win.Status = Maxim THEN
342.         LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Win.Color, BF
343.         LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.Width, Win.Y + Win.Height), Black
344.         LINE (Win.X + Win.Width, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Black
345.     END IF
346.     ' the status bar
347.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for dragging window
348.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.Width, Win.Y + 10), Black
349.     wMinim Win
350.     wMaxim Win
351.     wClosed Win
352. END SUB
353.  
354. SUB GetInput (Act AS INTEGER)
355.     DIM mInput AS INTEGER
356.  
357.  
358.     ' keyboard input
359.     a$ = INKEY$
360.     IF a$ = CHR$(27) THEN Act = aQuit
361.  
362.     'mouse input
363.     mInput = mFalse
364.     IF _MOUSEINPUT THEN mInput = mTrue
365.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
366.     LOOP
367.     IF mInput THEN
368.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
369.             mInput = mLR
370.         ELSEIF _MOUSEBUTTON(1) THEN
371.             mInput = mLeft
372.         ELSEIF _MOUSEBUTTON(2) THEN
373.             mInput = mRight
374.         ELSEIF _MOUSEBUTTON(3) THEN
375.             mInput = mMiddle
376.         END IF
377.     END IF
378.  
379.     IF mInput = mLR THEN
380.         Act = aQuit
381.     ELSEIF mInput = mMiddle THEN
382.         Act = Minim
383.     ELSEIF mInput = mRight THEN
384.         Act = Maxim
385.     ELSEIF mInput = mLeft THEN
386.         Act = mInput
387.     END IF
388. END SUB
389.  

Thanks to try

[TempodiBasic]

another step forward, for each window a shadow of info
it fixs a bug of the previous version that stack the chil windows on the same position if you close more windows at different positions and then you click on restore/minimize button (the first from the left) on the windows bar.

Code: QB64: [Select]

1. ' Question of QB64Forum
2. ' Basically I want to write a program to input data, store the data,  <-- this is DATABASE
3. ' retrieve the data, add to it, etc.
4. ' I would like the ability to have a new window/app, run concurrently <-- this is a graphic plotter
5. ' with the main window/app, but be able to display/plot the data
6. ' I retrieved from the main window/app.
7.  
8.  
9. ' 2020 02 08  using a second array we store windows information indipendently so
10. '             now each window can be modified and restored
11.  
12.  
13. ' 2020 02 06  after dragging or maximize a window, restoring it we gives
14. '             to it the last value used in windows(0) so the info of the last
15. '             window that is dragged or maximize when we use Minimize button on
16. '             another child window
17. '             the fix can be got using a shadow array that stores windows informations
18. '             or windows(0) as the child window that takes the information of the
19. '             child window that must be acted (Minimize, Maximize and Closed)
20. '             and we use it as template to make graphic output
21.  
22. ' 2020 02 05 fixed a minor bug on mouse click events
23. '            activated events Maxim Minim and Closed
24.  
25.  
26. ' 2020 02 03 increasing the windows managed and close initialization to SUB
27. '            removed vMax SHARED variable
28. '            added 3 buttons on the rightest site of the bar of the child window
29. '            SUB wClosed, wMaxim, wMinim
30. '            In this version the user can maximize one child window to the application window
31. '            In the status of Maxim the child window has the focus and can be only
32. '            reduced to status Minim, it cannot be dragging or Closed to bar of window
33.  
34.  
35. ' 2020 01 30 fixed bug on focusing a child window
36. '
37.  
38. ' 2020 01 25  A program with child windows into it
39. ' we need a system to manage multiple windows
40. ' and a system to manage input/output
41. ' and a system to make graphic report
42.  
43. ' settings-------------------------------------------------------
44. SCREEN _NEWIMAGE(800, 600, 32)
45. _TITLE "Child windows"
46. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
47. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
48. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
49. CONST Minim = 20, Maxim = 10, Closed = 100, wMin = 5, aNull = 0, aQuit = 9999
50. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
51. CONST Dragging = 300, Focusing = 200, cMinim = 400, cMaxim = 500, cClosed = 600
52.  
53. _FULLSCREEN
54.  
55.  
56. 'dataset  -----------------------------------------------
57. TYPE person
58.     name AS STRING * 10
59.     age AS INTEGER
60.     weight AS INTEGER
61.     height AS INTEGER
62.     BMI AS INTEGER
63. END TYPE
64.  
65. TYPE wChild
66.     X AS INTEGER
67.     Y AS INTEGER
68.     Width AS INTEGER
69.     Height AS INTEGER
70.     Zorder AS INTEGER
71.     Status AS INTEGER
72.     Color AS _UNSIGNED LONG
73. END TYPE
74.  
75. REDIM Windows(1 TO wMin) AS wChild, OldW(1 TO wMin) AS wChild
76.  
77. InitWin
78.  
79. DIM Action AS INTEGER
80.  
81.  
82. ' main loop -----------------------------------------------
83.  
84. DO
85.     ' set the main window
86.     Action = aNull
87.     CLS , Orange
88.     DrawAllWin
89.     GetInput Action
90.     DoAction Action
91.     _DISPLAY
92.     _LIMIT 30
93. LOOP
94. END
95.  
96. ' SUBs and FUNCTIONs --------------------------------------
97. SUB InitWin
98.     SHARED Windows() AS wChild, OldW() AS wChild
99.     DIM a AS INTEGER
100.  
101.     Windows(1).X = 1
102.     Windows(1).Y = 1
103.     Windows(1).Width = 300
104.     Windows(1).Height = 400
105.     Windows(1).Zorder = 1
106.     Windows(1).Status = Minim
107.     Windows(1).Color = Blu
108.  
109.     Windows(2).X = 100
110.     Windows(2).Y = 1
111.     Windows(2).Width = 300
112.     Windows(2).Height = 400
113.     Windows(2).Zorder = 2
114.     Windows(2).Status = Minim
115.     Windows(2).Color = Yellow
116.  
117.     Windows(3).X = 200
118.     Windows(3).Y = 1
119.     Windows(3).Width = 300
120.     Windows(3).Height = 400
121.     Windows(3).Zorder = 3
122.     Windows(3).Status = Minim
123.     Windows(3).Color = Green
124.  
125.     Windows(4).X = 300
126.     Windows(4).Y = 1
127.     Windows(4).Width = 300
128.     Windows(4).Height = 400
129.     Windows(4).Zorder = 4
130.     Windows(4).Status = Minim
131.     Windows(4).Color = Red
132.  
133.     Windows(5).X = 400
134.     Windows(5).Y = 1
135.     Windows(5).Width = 300
136.     Windows(5).Height = 400
137.     Windows(5).Zorder = 5
138.     Windows(5).Status = Minim
139.     Windows(5).Color = Cyan
140.  
141.     FOR a = 1 TO wMin STEP 1
142.         AdjournWin a
143.     NEXT a
144. END SUB
145.  
146. SUB RestoreWin (a AS INTEGER)
147.     SHARED Windows() AS wChild, OldW() AS wChild
148.  
149.     Windows(a).X = OldW(a).X
150.     Windows(a).Y = OldW(a).Y
151.     Windows(a).Width = OldW(a).Width
152.     Windows(a).Height = OldW(a).Height
153.     Windows(a).Zorder = OldW(a).Zorder
154.     Windows(a).Color = OldW(a).Color
155. END SUB
156.  
157. SUB AdjournWin (a AS INTEGER)
158.     SHARED Windows() AS wChild, OldW() AS wChild
159.  
160.     OldW(a).X = Windows(a).X
161.     OldW(a).Y = Windows(a).Y
162.     OldW(a).Width = Windows(a).Width
163.     OldW(a).Height = Windows(a).Height
164.     OldW(a).Zorder = Windows(a).Zorder
165.     OldW(a).Color = Windows(a).Color
166. END SUB
167.  
168. SUB DrawAllWin
169.     SHARED Windows() AS wChild
170.     DIM Finished AS INTEGER
171.     Finished = wMin
172.     DO
173.         FOR a = 1 TO wMin
174.             IF Windows(a).Zorder = Finished THEN
175.                 DrawWindow Windows(a)
176.                 Finished = Finished - 1
177.                 EXIT FOR
178.             END IF
179.         NEXT a
180.     LOOP UNTIL Finished = 0
181. END SUB
182.  
183. SUB Focus (Index AS INTEGER)
184.     SHARED Windows() AS wChild
185.     DIM b AS INTEGER
186.     FOR b = 1 TO wMin
187.         IF Windows(b).Zorder = 1 THEN EXIT FOR
188.     NEXT b
189.     IF Index <> b THEN SWAP Windows(Index).Zorder, Windows(b).Zorder
190.     DrawAllWin
191. END SUB
192.  
193.  
194. SUB DoAction (Act AS INTEGER)
195.     SHARED Windows() AS wChild, OldW() AS wChild
196.     DIM a AS INTEGER, Actio AS INTEGER, OldA AS INTEGER, OldActio AS INTEGER
197.     DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER
198.  
199.     SELECT CASE Act
200.         CASE aQuit
201.             END
202.  
203.         CASE Maxim
204.             _FULLSCREEN
205.  
206.         CASE Minim
207.             _FULLSCREEN _OFF
208.  
209.         CASE mLeft
210.             mX = _MOUSEX
211.             mY = _MOUSEY
212.  
213.             ' search where and what mouse has touched by leftclick
214.             OldA = 0
215.             OldActio = 0
216.             FOR a = 1 TO wMin ' windows(0) is out of action
217.                 Actio = IsInWindow(mX, mY, Windows(a))
218.                 IF Actio THEN
219.                     IF OldA <= 0 THEN
220.                         OldA = a
221.                         OldActio = Actio
222.                     ELSEIF Windows(a).Zorder < Windows(OldA).Zorder THEN
223.                         OldA = a
224.                         OldActio = Actio
225.                     END IF
226.                 END IF
227.             NEXT a
228.             IF a > OldA THEN
229.                 a = OldA ' restore the last windows interacting
230.                 Actio = OldActio
231.             END IF
232.             IF OldA = 0 OR OldActio = 0 THEN EXIT SUB
233.  
234.  
235.             Focus a 'set zorder on the (a) window that gets the input
236.  
237.  
238.             SELECT CASE Actio
239.                 CASE cMinim
240.                     ' here restore to  standard status of child window
241.                     IF NOT Windows(a).Status = Minim THEN
242.                         RestoreWin a
243.                         Windows(a).Status = Minim
244.                     END IF
245.  
246.                 CASE cMaxim
247.                     ' here convert the window to full size of main window of the program
248.                     IF NOT Windows(a).Status = Maxim THEN
249.                         ' memorize window's data
250.                         AdjournWin a
251.                         ' change status
252.                         Windows(a).Status = Maxim
253.                         Windows(a).Width = _WIDTH
254.                         Windows(a).Height = _HEIGHT
255.                         Windows(a).X = 1
256.                         Windows(a).Y = 1
257.                     END IF
258.                 CASE cClosed
259.                     ' here minimize the child window to its window bar
260.                     IF Windows(a).Status = Minim THEN
261.                         'save data of window
262.                         AdjournWin a
263.                         ' change status
264.                         Windows(a).Status = Closed
265.                     END IF
266.                 CASE Dragging
267.                     ' dragging is not possible for maximized window
268.                     ' but it is possible for status Minim child window and
269.                     ' for status Closed that shows only Bar window
270.                     IF NOT Windows(a).Status = Maxim THEN
271.                         AdjournWin a
272.                         OmX = _MOUSEX - OldW(a).X
273.                         OmY = _MOUSEY - OldW(a).Y
274.                         DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
275.                         DO WHILE _MOUSEBUTTON(1)
276.                             IF _MOUSEINPUT THEN
277.                                 CLS , Orange
278.  
279.                                 OldW(a).X = (_MOUSEX - OmX)
280.                                 OldW(a).Y = (_MOUSEY - OmY)
281.                                 DrawAllWin
282.                                 dragWindow OldW(a)
283.                             END IF
284.                         LOOP
285.                         ' new position of window
286.                         RestoreWin a
287.                     END IF
288.                 CASE Focusing
289.                     Focus a
290.             END SELECT
291.  
292.         CASE ELSE
293.     END SELECT
294. END SUB
295.  
296. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild)
297.     IsInWindow = mFalse
298.     IF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
299.         ' if window is closed to its bar it cannot get focus on the window area
300.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width) AND (Win.Status <> Closed) THEN IsInWindow = Focusing
301.     ELSEIF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
302.         ' if is the window bar area
303.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width - 31) THEN
304.             ' if it is to the left of buttons on the bar
305.             ' maximized window cannot be dragged
306.             IF NOT (Win.Status AND Maxim) THEN IsInWindow = Dragging
307.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 30, Win.X + Win.Width - 21) THEN
308.             ' if it is on the leftest button on the bar
309.             IsInWindow = cMinim ' icon minimize--> restore to child default
310.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 20, Win.X + Win.Width - 11) THEN
311.             ' if it is on the middle button on the bar
312.             IsInWindow = cMaxim ' icon maximize--> expand to fullscreen
313.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 10, Win.X + Win.Width) THEN
314.             ' if is on the rightest button on the bar
315.             ' maximized child window cannot become minimized to bar of child window
316.             IF NOT (Win.Status AND Maxim) THEN IsInWindow = cClosed ' icon close-->reduce to the  bar of child window
317.         END IF
318.     END IF
319. END FUNCTION
320.  
321. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER)
322.     IF Min > Max THEN SWAP Min, Max
323.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
324. END FUNCTION
325.  
326. SUB dragWindow (Win AS wChild)
327.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), White, B
328.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), White, BF 'title bar for dragging window
329.     _DISPLAY
330. END SUB
331.  
332. SUB wClosed (Win AS wChild)
333.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
334.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Black, B
335.     LINE (Win.X + Win.Width - 7, Win.Y + 3)-(Win.X + Win.Width - 3, Win.Y + 7), Black
336.     LINE (Win.X + Win.Width - 7, Win.Y + 7)-(Win.X + Win.Width - 3, Win.Y + 3), Black
337. END SUB
338.  
339. SUB wMaxim (win AS wChild)
340.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Pink, BF 'title bar for restore to original dimensions
341.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Black, B
342.     LINE (win.X + win.Width - 17, win.Y + 3)-(win.X + win.Width - 13, win.Y + 7), Black, B
343. END SUB
344.  
345. SUB wMinim (Win AS wChild)
346.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
347.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Black, B
348.     LINE (Win.X + Win.Width - 27, Win.Y + 7)-(Win.X + Win.Width - 23, Win.Y + 7), Black
349. END SUB
350.  
351.  
352. SUB DrawWindow (Win AS wChild)
353.     ' the window
354.     IF Win.Status = Minim OR Win.Status = Maxim THEN
355.         LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Win.Color, BF
356.         LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.Width, Win.Y + Win.Height), Black
357.         LINE (Win.X + Win.Width, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Black
358.     END IF
359.     ' the status bar
360.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for dragging window
361.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.Width, Win.Y + 10), Black
362.     wMinim Win
363.     wMaxim Win
364.     wClosed Win
365. END SUB
366.  
367. SUB GetInput (Act AS INTEGER)
368.     DIM mInput AS INTEGER
369.  
370.  
371.     ' keyboard input
372.     a$ = INKEY$
373.     IF a$ = CHR$(27) THEN Act = aQuit
374.  
375.     'mouse input
376.     mInput = mFalse
377.     IF _MOUSEINPUT THEN mInput = mTrue
378.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
379.     LOOP
380.     IF mInput THEN
381.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
382.             mInput = mLR
383.         ELSEIF _MOUSEBUTTON(1) THEN
384.             mInput = mLeft
385.         ELSEIF _MOUSEBUTTON(2) THEN
386.             mInput = mRight
387.         ELSEIF _MOUSEBUTTON(3) THEN
388.             mInput = mMiddle
389.         END IF
390.     END IF
391.  
392.     IF mInput = mLR THEN
393.         Act = aQuit
394.     ELSEIF mInput = mMiddle THEN
395.         Act = Minim
396.     ELSEIF mInput = mRight THEN
397.         Act = Maxim
398.     ELSEIF mInput = mLeft THEN
399.         Act = mInput
400.     END IF
401. END SUB

[TempodiBasic]

Hi
here a more complex but versatle system of windowing child windows

Code: QB64: [Select]

1. ' Question of QB64Forum
2. ' Basically I want to write a program to input data, store the data,  <-- this is DATABASE
3. ' retrieve the data, add to it, etc.
4. ' I would like the ability to have a new window/app, run concurrently <-- this is a graphic plotter
5. ' with the main window/app, but be able to display/plot the data
6. ' I retrieved from the main window/app.
7.  
8. ' 2020 02 09  with the power of the second array we implement a different
9. '             child windows' system:
10. '             all child windows can be Closed to window's bar
11. '             all child windows can be dragged on the screen
12.  
13. ' 2020 02 08  using a second array we store windows information indipendently so
14. '             now each window can be modified and restored
15.  
16.  
17. ' 2020 02 06  after dragging or maximize a window, restoring it we gives
18. '             to it the last value used in windows(0) so the info of the last
19. '             window that is dragged or maximize when we use Minimize button on
20. '             another child window
21. '             the fix can be got using a shadow array that stores windows informations
22. '             or windows(0) as the child window that takes the information of the
23. '             child window that must be acted (Minimize, Maximize and Closed)
24. '             and we use it as template to make graphic output
25.  
26. ' 2020 02 05 fixed a minor bug on mouse click events
27. '            activated events Maxim Minim and Closed
28.  
29.  
30. ' 2020 02 03 increasing the windows managed and close initialization to SUB
31. '            removed vMax SHARED variable
32. '            added 3 buttons on the rightest site of the bar of the child window
33. '            SUB wClosed, wMaxim, wMinim
34. '            In this version the user can maximize one child window to the application window
35. '            In the status of Maxim the child window has the focus and can be only
36. '            reduced to status Minim, it cannot be dragging or Closed to bar of window
37.  
38.  
39. ' 2020 01 30 fixed bug on focusing a child window
40. '
41.  
42. ' 2020 01 25  A program with child windows into it
43. ' we need a system to manage multiple windows
44. ' and a system to manage input/output
45. ' and a system to make graphic report
46.  
47. ' settings-------------------------------------------------------
48. SCREEN _NEWIMAGE(800, 600, 32)
49. _TITLE "Child windows"
50. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
51. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
52. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
53. CONST Minim = 10, Maxim = 20, Closed = 100
54. CONST wMin = 5, aNull = 0, aQuit = 9999
55. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
56. CONST Dragging = 300, Focusing = 200, cMinim = 400, cMaxim = 500, cClosed = 600
57.  
58. _FULLSCREEN
59.  
60.  
61. 'dataset  -----------------------------------------------
62. TYPE person
63.     name AS STRING * 10
64.     age AS INTEGER
65.     weight AS INTEGER
66.     height AS INTEGER
67.     BMI AS INTEGER
68. END TYPE
69.  
70. TYPE wChild
71.     X AS INTEGER
72.     Y AS INTEGER
73.     Width AS INTEGER
74.     Height AS INTEGER
75.     Zorder AS INTEGER
76.     Status AS INTEGER
77.     Color AS _UNSIGNED LONG
78. END TYPE
79.  
80. REDIM Windows(1 TO wMin) AS wChild, OldW(0 TO wMin) AS wChild
81.  
82. InitWin
83.  
84. DIM Action AS INTEGER
85.  
86.  
87. ' main loop -----------------------------------------------
88.  
89. DO
90.     ' set the main window
91.     Action = aNull
92.     CLS , Orange
93.     DrawAllWin
94.     GetInput Action
95.     DoAction Action
96.     _DISPLAY
97.     _LIMIT 30
98. LOOP
99. END
100.  
101. ' SUBs and FUNCTIONs --------------------------------------
102. SUB InitWin
103.     SHARED Windows() AS wChild, OldW() AS wChild
104.     DIM a AS INTEGER
105.  
106.     Windows(1).X = 1
107.     Windows(1).Y = 1
108.     Windows(1).Width = 300
109.     Windows(1).Height = 400
110.     Windows(1).Zorder = 1
111.     Windows(1).Status = Minim
112.     Windows(1).Color = Blu
113.  
114.     Windows(2).X = 100
115.     Windows(2).Y = 1
116.     Windows(2).Width = 300
117.     Windows(2).Height = 400
118.     Windows(2).Zorder = 2
119.     Windows(2).Status = Minim
120.     Windows(2).Color = Yellow
121.  
122.     Windows(3).X = 200
123.     Windows(3).Y = 1
124.     Windows(3).Width = 300
125.     Windows(3).Height = 400
126.     Windows(3).Zorder = 3
127.     Windows(3).Status = Minim
128.     Windows(3).Color = Green
129.  
130.     Windows(4).X = 300
131.     Windows(4).Y = 1
132.     Windows(4).Width = 300
133.     Windows(4).Height = 400
134.     Windows(4).Zorder = 4
135.     Windows(4).Status = Minim
136.     Windows(4).Color = Red
137.  
138.     Windows(5).X = 400
139.     Windows(5).Y = 1
140.     Windows(5).Width = 300
141.     Windows(5).Height = 400
142.     Windows(5).Zorder = 5
143.     Windows(5).Status = Minim
144.     Windows(5).Color = Cyan
145.  
146.     FOR a = 1 TO wMin STEP 1
147.         AdjournWin a
148.     NEXT a
149. END SUB
150.  
151. SUB RestoreWin (a AS INTEGER)
152.     SHARED Windows() AS wChild, OldW() AS wChild
153.  
154.     Windows(a).X = OldW(a).X
155.     Windows(a).Y = OldW(a).Y
156.     Windows(a).Width = OldW(a).Width
157.     Windows(a).Height = OldW(a).Height
158.     Windows(a).Zorder = OldW(a).Zorder
159.     Windows(a).Color = OldW(a).Color
160. END SUB
161.  
162. SUB AdjournWin (a AS INTEGER)
163.     SHARED Windows() AS wChild, OldW() AS wChild
164.  
165.     OldW(a).X = Windows(a).X
166.     OldW(a).Y = Windows(a).Y
167.     OldW(a).Width = Windows(a).Width
168.     OldW(a).Height = Windows(a).Height
169.     OldW(a).Zorder = Windows(a).Zorder
170.     OldW(a).Color = Windows(a).Color
171. END SUB
172.  
173. SUB DrawAllWin
174.     SHARED Windows() AS wChild
175.     DIM Finished AS INTEGER
176.     Finished = wMin
177.     DO
178.         FOR a = 1 TO wMin
179.             IF Windows(a).Zorder = Finished THEN
180.                 DrawWindow Windows(a)
181.                 Finished = Finished - 1
182.                 EXIT FOR
183.             END IF
184.         NEXT a
185.     LOOP UNTIL Finished = 0
186. END SUB
187.  
188. SUB Focus (Index AS INTEGER)
189.     SHARED Windows() AS wChild
190.     DIM b AS INTEGER
191.     FOR b = 1 TO wMin
192.         IF Windows(b).Zorder = 1 THEN EXIT FOR
193.     NEXT b
194.     IF Index <> b THEN SWAP Windows(Index).Zorder, Windows(b).Zorder
195.     DrawAllWin
196. END SUB
197.  
198.  
199. SUB DoAction (Act AS INTEGER)
200.     SHARED Windows() AS wChild, OldW() AS wChild
201.     DIM a AS INTEGER, Actio AS INTEGER, OldA AS INTEGER, OldActio AS INTEGER
202.     DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER
203.  
204.     SELECT CASE Act
205.         CASE aQuit
206.             END
207.  
208.         CASE Maxim
209.             _FULLSCREEN
210.  
211.         CASE Minim
212.             _FULLSCREEN _OFF
213.  
214.         CASE mLeft
215.             mX = _MOUSEX
216.             mY = _MOUSEY
217.  
218.             ' search where and what mouse has touched by leftclick
219.             OldA = 0
220.             OldActio = 0
221.             FOR a = 1 TO wMin ' windows(0) is out of action
222.                 Actio = IsInWindow(mX, mY, Windows(a))
223.                 IF Actio THEN
224.                     IF OldA <= 0 THEN
225.                         OldA = a
226.                         OldActio = Actio
227.                     ELSEIF Windows(a).Zorder < Windows(OldA).Zorder THEN
228.                         OldA = a
229.                         OldActio = Actio
230.                     END IF
231.                 END IF
232.             NEXT a
233.             IF a > OldA THEN
234.                 a = OldA ' restore the last windows interacting
235.                 Actio = OldActio
236.             END IF
237.             IF OldA = 0 OR OldActio = 0 THEN EXIT SUB
238.  
239.  
240.             Focus a 'set zorder on the (a) window that gets the input
241.  
242.  
243.             SELECT CASE Actio
244.                 CASE cMinim
245.                     ' here restore to  standard (bar + area of window) status of child window
246.                     IF Windows(a).Status = Closed + Maxim THEN
247.                         ' if windows is a closed maximized window
248.                         ' we restore its status of maximized
249.                         Windows(a).Status = Maxim
250.                     ELSEIF Windows(a).Status = Closed + Minim THEN
251.                         ' if windows is a closed minimized window
252.                         ' we restore its status of minimized
253.                         Windows(a).Status = Minim
254.                     ELSEIF Windows(a).Status = Maxim THEN
255.                         ' if is a window maximized it gets back all info setting
256.                         ' we restore its status of minimized
257.                         RestoreWin a
258.                         Windows(a).Status = Minim
259.                     END IF
260.  
261.  
262.                 CASE cMaxim
263.                     ' here convert the window to full size of main window of the program
264.                     ' OR gives 1 if both parameter are true or al last one is true
265.                     IF (Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim) THEN
266.                         ' it acts if windows if not still maximized
267.                         ' it is minimized window opened or closed
268.                         ' memorize window's data when it is not maximized
269.                         '                        IF Windows(a).Width < _WIDTH THEN
270.                         AdjournWin a
271.                         ' it sets maximized status
272.                         Windows(a).Width = _WIDTH
273.                         Windows(a).Height = _HEIGHT
274.                         Windows(a).X = 1
275.                         Windows(a).Y = 1
276.                         ' change status
277.                         Windows(a).Status = Maxim
278.                     END IF
279.  
280.                 CASE cClosed
281.                     ' here minimize the child window to its window bar
282.                     IF NOT Windows(a).Status > Closed THEN
283.                         Windows(a).Status = Windows(a).Status + Closed
284.                     END IF
285.  
286.                 CASE Dragging
287.                     ' dragging is possible for all status of windows
288.                     '
289.                     ' if minimized or Closed and minimized window we save data info
290.                     IF Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim THEN AdjournWin a
291.                     ' it sets variables for dragging
292.                     OldW(0).X = Windows(a).X
293.                     OldW(0).Y = Windows(a).Y
294.                     OldW(0).Width = Windows(a).Width
295.                     OldW(0).Height = Windows(a).Height
296.  
297.                     OmX = _MOUSEX - OldW(0).X
298.                     OmY = _MOUSEY - OldW(0).Y
299.                     DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
300.                     DO WHILE _MOUSEBUTTON(1)
301.                         IF _MOUSEINPUT THEN
302.                             CLS , Orange
303.  
304.                             OldW(0).X = (_MOUSEX - OmX)
305.                             OldW(0).Y = (_MOUSEY - OmY)
306.                             DrawAllWin
307.                             dragWindow OldW(0)
308.                         END IF
309.                     LOOP
310.                     ' new position of window
311.                     Windows(a).X = OldW(0).X
312.                     Windows(a).Y = OldW(0).Y
313.                     OldW(a).X = Windows(a).X
314.                     OldW(a).Y = Windows(a).Y
315.  
316.                 CASE Focusing
317.                     Focus a
318.             END SELECT
319.  
320.         CASE ELSE
321.     END SELECT
322. END SUB
323.  
324. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild)
325.     IsInWindow = mFalse
326.     IF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
327.         ' if window is closed to its bar it cannot get focus on the window area
328.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width) AND (Win.Status < Closed) THEN IsInWindow = Focusing
329.     ELSEIF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
330.         ' if is the window bar area
331.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width - 31) THEN
332.             ' if it is to the left of buttons on the bar
333.             IsInWindow = Dragging
334.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 30, Win.X + Win.Width - 21) THEN
335.             ' if it is on the leftest button on the bar
336.             IsInWindow = cMinim ' icon minimize--> restore to child default
337.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 20, Win.X + Win.Width - 11) THEN
338.             ' if it is on the middle button on the bar
339.             IsInWindow = cMaxim ' icon maximize--> expand to fullscreen
340.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 10, Win.X + Win.Width) THEN
341.             ' if is on the rightest button on the bar
342.             IsInWindow = cClosed ' icon close-->reduce to the  bar of child window
343.         END IF
344.     END IF
345. END FUNCTION
346.  
347. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER)
348.     IF Min > Max THEN SWAP Min, Max
349.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
350. END FUNCTION
351.  
352. SUB dragWindow (Win AS wChild)
353.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), White, B ' windows size
354.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), White, BF 'title bar for dragging window
355.     _DISPLAY
356. END SUB
357.  
358. SUB wClosed (Win AS wChild)
359.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
360.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Black, B
361.     LINE (Win.X + Win.Width - 7, Win.Y + 3)-(Win.X + Win.Width - 3, Win.Y + 7), Black
362.     LINE (Win.X + Win.Width - 7, Win.Y + 7)-(Win.X + Win.Width - 3, Win.Y + 3), Black
363. END SUB
364.  
365. SUB wMaxim (win AS wChild)
366.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Pink, BF 'title bar for restore to original dimensions
367.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Black, B
368.     LINE (win.X + win.Width - 17, win.Y + 3)-(win.X + win.Width - 13, win.Y + 7), Black, B
369. END SUB
370.  
371. SUB wMinim (Win AS wChild)
372.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
373.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Black, B
374.     LINE (Win.X + Win.Width - 27, Win.Y + 7)-(Win.X + Win.Width - 23, Win.Y + 7), Black
375. END SUB
376.  
377.  
378. SUB DrawWindow (Win AS wChild)
379.     ' the window
380.     IF Win.Status = Minim OR Win.Status = Maxim THEN
381.         LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Win.Color, BF
382.         LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.Width, Win.Y + Win.Height), Black
383.         LINE (Win.X + Win.Width, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Black
384.     END IF
385.     ' the status bar
386.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for dragging window
387.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.Width, Win.Y + 10), Black
388.     wMinim Win
389.     wMaxim Win
390.     wClosed Win
391. END SUB
392.  
393. SUB GetInput (Act AS INTEGER)
394.     DIM mInput AS INTEGER
395.  
396.  
397.     ' keyboard input
398.     a$ = INKEY$
399.     IF a$ = CHR$(27) THEN Act = aQuit
400.  
401.     'mouse input
402.     mInput = mFalse
403.     IF _MOUSEINPUT THEN mInput = mTrue
404.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
405.     LOOP
406.     IF mInput THEN
407.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
408.             mInput = mLR
409.         ELSEIF _MOUSEBUTTON(1) THEN
410.             mInput = mLeft
411.         ELSEIF _MOUSEBUTTON(2) THEN
412.             mInput = mRight
413.         ELSEIF _MOUSEBUTTON(3) THEN
414.             mInput = mMiddle
415.         END IF
416.     END IF
417.  
418.     IF mInput = mLR THEN
419.         Act = aQuit
420.     ELSEIF mInput = mMiddle THEN
421.         Act = Minim
422.     ELSEIF mInput = mRight THEN
423.         Act = Maxim
424.     ELSEIF mInput = mLeft THEN
425.         Act = mInput
426.     END IF
427. END SUB

Thanks to take a look!

[TempodiBasic]

another little step:
resizing wchild into main program's window

Code: QB64: [Select]

1. ' Question of QB64Forum
2. ' Basically I want to write a program to input data, store the data,  <-- this is DATABASE
3. ' retrieve the data, add to it, etc.
4. ' I would like the ability to have a new window/app, run concurrently <-- this is a graphic plotter
5. ' with the main window/app, but be able to display/plot the data
6. ' I retrieved from the main window/app.
7.  
8. ' 2020 02 12  with the power of the second array we implement the feature
9. '             of resizable of child window
10.  
11. ' 2020 02 09  with the power of the second array we implement a different
12. '             child windows' system:
13. '             all child windows can be Closed to window's bar
14. '             all child windows can be dragged on the screen
15.  
16. ' 2020 02 08  using a second array we store windows information indipendently so
17. '             now each window can be modified and restored
18.  
19.  
20. ' 2020 02 06  after dragging or maximize a window, restoring it we gives
21. '             to it the last value used in windows(0) so the info of the last
22. '             window that is dragged or maximize when we use Minimize button on
23. '             another child window
24. '             the fix can be got using a shadow array that stores windows informations
25. '             or windows(0) as the child window that takes the information of the
26. '             child window that must be acted (Minimize, Maximize and Closed)
27. '             and we use it as template to make graphic output
28.  
29. ' 2020 02 05 fixed a minor bug on mouse click events
30. '            activated events Maxim Minim and Closed
31.  
32.  
33. ' 2020 02 03 increasing the windows managed and close initialization to SUB
34. '            removed vMax SHARED variable
35. '            added 3 buttons on the rightest site of the bar of the child window
36. '            SUB wClosed, wMaxim, wMinim
37. '            In this version the user can maximize one child window to the application window
38. '            In the status of Maxim the child window has the focus and can be only
39. '            reduced to status Minim, it cannot be dragging or Closed to bar of window
40.  
41.  
42. ' 2020 01 30 fixed bug on focusing a child window
43. '
44.  
45. ' 2020 01 25  A program with child windows into it
46. ' we need a system to manage multiple windows
47. ' and a system to manage input/output
48. ' and a system to make graphic report
49.  
50. ' settings-------------------------------------------------------
51. SCREEN _NEWIMAGE(800, 600, 32)
52. _TITLE "Child windows"
53. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
54. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
55. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
56. CONST Minim = 10, Maxim = 20, Closed = 100
57. CONST wMin = 5, aNull = 0, aQuit = 9999
58. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
59. CONST Dragging = 300, Focusing = 200, cMinim = 400, cMaxim = 500, cClosed = 600
60. CONST cResize = 700, LResize = 710, RResize = 720, StopResize = 730
61.  
62. _FULLSCREEN
63.  
64.  
65. 'dataset  -----------------------------------------------
66. TYPE person
67.     name AS STRING * 10
68.     age AS INTEGER
69.     weight AS INTEGER
70.     height AS INTEGER
71.     BMI AS INTEGER
72. END TYPE
73.  
74. TYPE wChild
75.     X AS INTEGER
76.     Y AS INTEGER
77.     Width AS INTEGER
78.     Height AS INTEGER
79.     Zorder AS INTEGER
80.     Status AS INTEGER
81.     Color AS _UNSIGNED LONG
82. END TYPE
83.  
84. REDIM Windows(1 TO wMin) AS wChild, OldW(0 TO wMin) AS wChild
85.  
86. InitWin
87.  
88. DIM Action AS INTEGER
89.  
90.  
91. ' main loop -----------------------------------------------
92.  
93. DO
94.     ' set the main window
95.     Action = aNull
96.     CLS , Orange
97.     DrawAllWin
98.     GetInput Action
99.     DoAction Action
100.     _DISPLAY
101.     _LIMIT 30
102. LOOP
103. END
104.  
105. ' SUBs and FUNCTIONs --------------------------------------
106. SUB InitWin
107.     SHARED Windows() AS wChild, OldW() AS wChild
108.     DIM a AS INTEGER
109.  
110.     Windows(1).X = 1
111.     Windows(1).Y = 1
112.     Windows(1).Width = 300
113.     Windows(1).Height = 400
114.     Windows(1).Zorder = 1
115.     Windows(1).Status = Minim
116.     Windows(1).Color = Blu
117.  
118.     Windows(2).X = 100
119.     Windows(2).Y = 1
120.     Windows(2).Width = 300
121.     Windows(2).Height = 400
122.     Windows(2).Zorder = 2
123.     Windows(2).Status = Minim
124.     Windows(2).Color = Yellow
125.  
126.     Windows(3).X = 200
127.     Windows(3).Y = 1
128.     Windows(3).Width = 300
129.     Windows(3).Height = 400
130.     Windows(3).Zorder = 3
131.     Windows(3).Status = Minim
132.     Windows(3).Color = Green
133.  
134.     Windows(4).X = 300
135.     Windows(4).Y = 1
136.     Windows(4).Width = 300
137.     Windows(4).Height = 400
138.     Windows(4).Zorder = 4
139.     Windows(4).Status = Minim
140.     Windows(4).Color = Red
141.  
142.     Windows(5).X = 400
143.     Windows(5).Y = 1
144.     Windows(5).Width = 300
145.     Windows(5).Height = 400
146.     Windows(5).Zorder = 5
147.     Windows(5).Status = Minim
148.     Windows(5).Color = Cyan
149.  
150.     FOR a = 1 TO wMin STEP 1
151.         AdjournWin a
152.     NEXT a
153. END SUB
154.  
155. SUB RestoreWin (a AS INTEGER)
156.     SHARED Windows() AS wChild, OldW() AS wChild
157.  
158.     Windows(a).X = OldW(a).X
159.     Windows(a).Y = OldW(a).Y
160.     Windows(a).Width = OldW(a).Width
161.     Windows(a).Height = OldW(a).Height
162.     Windows(a).Zorder = OldW(a).Zorder
163.     Windows(a).Color = OldW(a).Color
164. END SUB
165.  
166. SUB AdjournWin (a AS INTEGER)
167.     SHARED Windows() AS wChild, OldW() AS wChild
168.  
169.     OldW(a).X = Windows(a).X
170.     OldW(a).Y = Windows(a).Y
171.     OldW(a).Width = Windows(a).Width
172.     OldW(a).Height = Windows(a).Height
173.     OldW(a).Zorder = Windows(a).Zorder
174.     OldW(a).Color = Windows(a).Color
175. END SUB
176.  
177. SUB DrawAllWin
178.     SHARED Windows() AS wChild
179.     DIM Finished AS INTEGER
180.     Finished = wMin
181.     DO
182.         FOR a = 1 TO wMin
183.             IF Windows(a).Zorder = Finished THEN
184.                 DrawWindow Windows(a)
185.                 Finished = Finished - 1
186.                 EXIT FOR
187.             END IF
188.         NEXT a
189.     LOOP UNTIL Finished = 0
190. END SUB
191.  
192. SUB Focus (Index AS INTEGER)
193.     SHARED Windows() AS wChild
194.     DIM b AS INTEGER
195.     FOR b = 1 TO wMin
196.         IF Windows(b).Zorder = 1 THEN EXIT FOR
197.     NEXT b
198.     IF Index <> b THEN SWAP Windows(Index).Zorder, Windows(b).Zorder
199.     DrawAllWin
200. END SUB
201.  
202.  
203. SUB DoAction (Act AS INTEGER)
204.     SHARED Windows() AS wChild, OldW() AS wChild
205.     DIM a AS INTEGER, Actio AS INTEGER, OldA AS INTEGER, OldActio AS INTEGER
206.     DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER
207.  
208.     SELECT CASE Act
209.         CASE aQuit
210.             END
211.  
212.         CASE Maxim
213.             _FULLSCREEN
214.  
215.         CASE Minim
216.             _FULLSCREEN _OFF
217.  
218.         CASE mLeft
219.             mX = _MOUSEX
220.             mY = _MOUSEY
221.  
222.             ' search where and what mouse has touched by leftclick
223.             OldA = 0
224.             OldActio = 0
225.             FOR a = 1 TO wMin ' windows(0) is out of action
226.                 Actio = IsInWindow(mX, mY, Windows(a))
227.                 IF Actio THEN
228.                     IF OldA <= 0 THEN
229.                         OldA = a
230.                         OldActio = Actio
231.                     ELSEIF Windows(a).Zorder < Windows(OldA).Zorder THEN
232.                         OldA = a
233.                         OldActio = Actio
234.                     END IF
235.                 END IF
236.             NEXT a
237.             IF a > OldA THEN
238.                 a = OldA ' restore the last windows interacting
239.                 Actio = OldActio
240.             END IF
241.             IF OldA = 0 OR OldActio = 0 THEN EXIT SUB
242.  
243.  
244.             Focus a 'set zorder on the (a) window that gets the input
245.  
246.  
247.             SELECT CASE Actio
248.                 CASE cMinim
249.                     ' here restore to  standard (bar + area of window) status of child window
250.                     IF Windows(a).Status = Closed + Maxim THEN
251.                         ' if windows is a closed maximized window
252.                         ' we restore its status of maximized
253.                         Windows(a).Status = Maxim
254.                     ELSEIF Windows(a).Status = Closed + Minim THEN
255.                         ' if windows is a closed minimized window
256.                         ' we restore its status of minimized
257.                         Windows(a).Status = Minim
258.                     ELSEIF Windows(a).Status = Maxim THEN
259.                         ' if is a window maximized it gets back all info setting
260.                         ' we restore its status of minimized
261.                         RestoreWin a
262.                         Windows(a).Status = Minim
263.                     END IF
264.  
265.  
266.                 CASE cMaxim
267.                     ' here convert the window to full size of main window of the program
268.                     ' OR gives 1 if both parameter are true or al last one is true
269.                     IF (Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim) THEN
270.                         ' it acts if windows if not still maximized
271.                         ' it is minimized window opened or closed
272.                         ' memorize window's data when it is not maximized
273.                         '                        IF Windows(a).Width < _WIDTH THEN
274.                         AdjournWin a
275.                         ' it sets maximized status
276.                         Windows(a).Width = _WIDTH
277.                         Windows(a).Height = _HEIGHT
278.                         Windows(a).X = 1
279.                         Windows(a).Y = 1
280.                         ' change status
281.                         Windows(a).Status = Maxim
282.                     END IF
283.  
284.                 CASE cClosed
285.                     ' here minimize the child window to its window bar
286.                     IF NOT Windows(a).Status > Closed THEN
287.                         Windows(a).Status = Windows(a).Status + Closed
288.                     END IF
289.  
290.                 CASE Dragging
291.                     ' dragging is possible for all status of windows
292.                     '
293.                     ' if minimized or Closed and minimized window we save data info
294.                     IF Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim THEN AdjournWin a
295.                     ' it sets variables for dragging
296.                     OldW(0).X = Windows(a).X
297.                     OldW(0).Y = Windows(a).Y
298.                     OldW(0).Width = Windows(a).Width
299.                     OldW(0).Height = Windows(a).Height
300.  
301.                     OmX = _MOUSEX - OldW(0).X
302.                     OmY = _MOUSEY - OldW(0).Y
303.                     DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
304.                     DO WHILE _MOUSEBUTTON(1)
305.                         IF _MOUSEINPUT THEN
306.                             CLS , Orange
307.  
308.                             OldW(0).X = (_MOUSEX - OmX)
309.                             OldW(0).Y = (_MOUSEY - OmY)
310.                             DrawAllWin
311.                             dragWindow OldW(0)
312.                         END IF
313.                     LOOP
314.                     ' new position of window
315.                     Windows(a).X = OldW(0).X
316.                     Windows(a).Y = OldW(0).Y
317.                     OldW(a).X = Windows(a).X
318.                     OldW(a).Y = Windows(a).Y
319.  
320.                 CASE Focusing
321.                     Focus a
322.  
323.                 CASE cResize
324.                     ' resizing is possible only for minimized opened child windows
325.                     IF Windows(a).Status = Minim THEN
326.                         Windows(a).Status = cResize
327.                         DO WHILE _MOUSEBUTTON(1) OR _MOUSEINPUT: LOOP
328.                         DO WHILE Windows(a).Status = cResize
329.                             CLS , Orange
330.                             DrawAllWin
331.                             ShowDimension Windows(a)
332.  
333.  
334.                             IF _MOUSEINPUT AND _MOUSEBUTTON(1) THEN
335.                                 DO WHILE _MOUSEINPUT: LOOP ' clear mouse buffer
336.                                 IsResizing Windows(a), _MOUSEX, _MOUSEY
337.                             END IF
338.                             _DISPLAY
339.                         LOOP
340.                     END IF
341.  
342.             END SELECT
343.         CASE ELSE
344.     END SELECT
345. END SUB
346.  
347. SUB IsResizing (Win AS wChild, mX AS INTEGER, mY AS INTEGER)
348.     SHARED Windows() AS wChild, OldW() AS wChild
349.     DIM Actio AS INTEGER, OldmX AS INTEGER, OldmY AS INTEGER
350.     Actio = 0
351.  
352.     IF IsInTheRange%(mX, Win.X, Win.X + Win.Width) THEN
353.         IF IsInTheRange%(mY, Win.Y, Win.Y + Win.Height) THEN
354.             ' do nothing if is in the range of window
355.         ELSE
356.             ' user click out of area  of window to resize
357.             Actio = StopResize
358.         END IF
359.     ELSE
360.         ' user click out of area  of window to resize
361.         Actio = StopResize
362.     END IF
363.  
364.  
365.  
366.  
367.  
368.     IF IsInTheRange%(mX, Win.X, Win.X + 10) THEN
369.         IF IsInTheRange%(mY, Win.Y, Win.Y + 10) THEN
370.             ' user click on lefttop square to resize
371.             Actio = LResize
372.         END IF
373.     END IF
374.  
375.     IF IsInTheRange%(mX, Win.X + Win.Width - 10, Win.X + Win.Width) THEN
376.         IF IsInTheRange%(mY, Win.Y + Win.Height - 10, Win.Y + Win.Height) THEN
377.             ' user click on the rightbottom square to resize
378.             Actio = RResize
379.         END IF
380.     END IF
381.  
382.     IF Actio = 0 THEN
383.         ' no action done
384.     ELSEIF Actio = LResize THEN
385.         ' choosen LeftTop buttom to resize
386.         OldW(0).X = Win.X
387.         OldW(0).Y = Win.Y
388.         OldW(0).Width = Win.Width
389.         OldW(0).Height = Win.Height
390.         OldmX = _MOUSEX
391.         OldmY = _MOUSEY
392.         DO WHILE Actio = LResize
393.             IF _MOUSEINPUT THEN
394.                 IF (OldW(0).X + OldW(0).Width - OldmX) >= 50 THEN OldW(0).Width = OldW(0).X + OldW(0).Width - OldmX
395.                 IF (OldW(0).Y + OldW(0).Height - OldmY) >= 30 THEN OldW(0).Height = OldW(0).Y + OldW(0).Height - OldmY
396.                 CLS , Orange
397.                 DrawAllWin
398.                 ShowDimension OldW(0)
399.                 OldW(0).X = OldmX
400.                 OldW(0).Y = OldmY
401.  
402.                 OldmX = _MOUSEX
403.                 OldmY = _MOUSEY
404.             ELSE
405.                 IF _MOUSEBUTTON(1) THEN Actio = 0
406.             END IF
407.         LOOP
408.         Win.X = OldW(0).X
409.         Win.Y = OldW(0).Y
410.         Win.Width = OldW(0).Width
411.         Win.Height = OldW(0).Height
412.  
413.  
414.     ELSEIF Actio = RResize THEN
415.         ' choosen bottomright square
416.         OldW(0).X = Win.X
417.         OldW(0).Y = Win.Y
418.         OldW(0).Width = Win.Width
419.         OldW(0).Height = Win.Height
420.         OldmX = _MOUSEX
421.         OldmY = _MOUSEY
422.         DO WHILE Actio = RResize
423.             IF _MOUSEINPUT THEN
424.                 IF OldmX - OldW(0).X >= 50 THEN OldW(0).Width = OldmX - OldW(0).X
425.                 IF OldmY - OldW(0).Y >= 30 THEN OldW(0).Height = OldmY - OldW(0).Y
426.                 CLS , Orange
427.                 DrawAllWin
428.                 ShowDimension OldW(0)
429.                 OldmX = _MOUSEX
430.                 OldmY = _MOUSEY
431.             ELSE
432.                 IF _MOUSEBUTTON(1) THEN Actio = 0
433.             END IF
434.         LOOP
435.         Win.X = OldW(0).X
436.         Win.Y = OldW(0).Y
437.         Win.Width = OldW(0).Width
438.         Win.Height = OldW(0).Height
439.  
440.     ELSEIF Actio = StopResize THEN
441.         ' click out of window to stop resize action
442.         Win.Status = Minim
443.     END IF
444. END SUB
445.  
446. SUB ShowDimension (win AS wChild)
447.     LINE (win.X, win.Y)-(win.X + win.Width, win.Y + win.Height), White, B ' windows size
448.     LINE (win.X, win.Y)-(win.X + 10, win.Y + 10), White, BF 'button for resizing window
449.     LINE (win.X + win.Width - 10, win.Y + win.Height - 10)-(win.X + win.Width, win.Y + win.Height), White, BF 'button for resizing window
450.     _DISPLAY
451. END SUB
452.  
453. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild)
454.     IsInWindow = mFalse
455.     IF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
456.         ' if window is closed to its bar it cannot get focus on the window area
457.         IF IsInTheRange%(X, Win.X, Win.X + Win.Width) AND (Win.Status < Closed) THEN IsInWindow = Focusing
458.     ELSEIF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
459.         ' if is the window bar area
460.         IF IsInTheRange%(X, Win.X + 10, Win.X + Win.Width - 31) THEN
461.             ' if it is to the left of buttons on the bar
462.             IsInWindow = Dragging
463.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 30, Win.X + Win.Width - 21) THEN
464.             ' if it is on the leftest button on the bar
465.             IsInWindow = cMinim ' icon minimize--> restore to child default
466.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 20, Win.X + Win.Width - 11) THEN
467.             ' if it is on the middle button on the bar
468.             IsInWindow = cMaxim ' icon maximize--> expand to fullscreen
469.         ELSEIF IsInTheRange%(X, Win.X + Win.Width - 10, Win.X + Win.Width) THEN
470.             ' if is on the rightest button on the bar
471.             IsInWindow = cClosed ' icon close-->reduce to the  bar of child window
472.         ELSEIF IsInTheRange%(X, Win.X, Win.X + 10) THEN
473.             IsInWindow = cResize
474.         END IF
475.     END IF
476. END FUNCTION
477.  
478. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER)
479.     IF Min > Max THEN SWAP Min, Max
480.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
481. END FUNCTION
482.  
483. SUB dragWindow (Win AS wChild)
484.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), White, B ' windows size
485.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), White, BF 'title bar for dragging window
486.     _DISPLAY
487. END SUB
488.  
489. SUB wClosed (Win AS wChild)
490.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
491.     LINE (Win.X + Win.Width - 10, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Black, B
492.     LINE (Win.X + Win.Width - 7, Win.Y + 3)-(Win.X + Win.Width - 3, Win.Y + 7), Black
493.     LINE (Win.X + Win.Width - 7, Win.Y + 7)-(Win.X + Win.Width - 3, Win.Y + 3), Black
494. END SUB
495.  
496. SUB wMaxim (win AS wChild)
497.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Pink, BF 'title bar for restore to original dimensions
498.     LINE (win.X + win.Width - 20, win.Y)-(win.X + win.Width - 10, win.Y + 10), Black, B
499.     LINE (win.X + win.Width - 17, win.Y + 3)-(win.X + win.Width - 13, win.Y + 7), Black, B
500. END SUB
501.  
502. SUB wMinim (Win AS wChild)
503.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
504.     LINE (Win.X + Win.Width - 30, Win.Y)-(Win.X + Win.Width - 20, Win.Y + 10), Black, B
505.     LINE (Win.X + Win.Width - 27, Win.Y + 7)-(Win.X + Win.Width - 23, Win.Y + 7), Black
506. END SUB
507.  
508. SUB wResize (Win AS wChild)
509.     LINE (Win.X, Win.Y)-(Win.X + 10, Win.Y + 10), Pink, BF 'title bar for restore to original dimensions
510.     LINE (Win.X, Win.Y)-(Win.X + 10, Win.Y + 10), Black, B
511.     LINE (Win.X + 2, Win.Y + 2)-(Win.X + 7, Win.Y + 7), Black, B , &B1010101010101010
512. END SUB
513.  
514. SUB DrawWindow (Win AS wChild)
515.     ' the window
516.     IF Win.Status = Minim OR Win.Status = Maxim THEN
517.         LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Win.Color, BF
518.         LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.Width, Win.Y + Win.Height), Black
519.         LINE (Win.X + Win.Width, Win.Y)-(Win.X + Win.Width, Win.Y + Win.Height), Black
520.     END IF
521.     ' the status bar
522.     LINE (Win.X, Win.Y)-(Win.X + Win.Width, Win.Y + 10), Pink, BF 'title bar for dragging window
523.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.Width, Win.Y + 10), Black
524.     wMinim Win
525.     wMaxim Win
526.     wClosed Win
527.     wResize Win
528. END SUB
529.  
530. SUB GetInput (Act AS INTEGER)
531.     DIM mInput AS INTEGER
532.  
533.  
534.     ' keyboard input
535.     a$ = INKEY$
536.     IF a$ = CHR$(27) THEN Act = aQuit
537.  
538.     'mouse input
539.     mInput = mFalse
540.     IF _MOUSEINPUT THEN mInput = mTrue
541.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
542.     LOOP
543.     IF mInput THEN
544.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
545.             mInput = mLR
546.         ELSEIF _MOUSEBUTTON(1) THEN
547.             mInput = mLeft
548.         ELSEIF _MOUSEBUTTON(2) THEN
549.             mInput = mRight
550.         ELSEIF _MOUSEBUTTON(3) THEN
551.             mInput = mMiddle
552.         END IF
553.     END IF
554.  
555.     IF mInput = mLR THEN
556.         Act = aQuit
557.     ELSEIF mInput = mMiddle THEN
558.         Act = Minim
559.     ELSEIF mInput = mRight THEN
560.         Act = Maxim
561.     ELSEIF mInput = mLeft THEN
562.         Act = mInput
563.     END IF
564. END SUB

here 2 screenshot