child windows into window of the program: a demonstration

[TerryRitchie]

Hi Terry,

As keybone says "awesome!" I have a question about the resizing, when making a new window instance, is there some limit put on how big the window can be made? I ask because the smallest window in your demo doesn't allow getting bigger but is willing to get smaller easy enough.

I have not played with this code in over 4 years. I would need to go back through the code and read my comments to get a feel for it again.

[TerryRitchie]

Would anyone happen to have the GUI demo Galleon posted on [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] back around 2012?

[TempodiBasic]

@Bplus
so

It is my understanding to resize a window in your code:
1) Click top right box and that activates the 2 white resize boxes
2) Click one of those and that tells your code which corner is anchor and which corner will be moved, this activatees the dashed outline border

these 2 steps are ok (dashed lines are added only to give more feedback to user, each anchor has its dashed line)
after got dashed line you must
3) move the pointer of mouse without any mouse button pressed (like mouse was locked in dragging mode)
4) left click another time to escape from this situation of dragging anchor without any mouse button pressed
now you get the new dimensioned window.


@Terry
Thanks
and thanks for this http://qb64sourcecode.com/

[TerryRitchie]

and thanks for this http://qb64sourcecode.com/

I never did finish the last 4 lessons on that site. When the school I was working for forced me to start teaching Python I never found the time to finish.

I'm glad you like it and you are welcome. I've had quite a few people tell me that it helped them get a start in QB64.

[bplus]

@Bplus
sothese 2 steps are ok (dashed lines are added only to give more feedback to user, each anchor has its dashed line)
after got dashed line you must
3) move the pointer of mouse without any mouse button pressed (like mouse was locked in dragging mode)
4) left click another time to escape from this situation of dragging anchor without any mouse button pressed
now you get the new dimensioned window.

...

Ah... It does work better, when I click the white box and if it does not respond, it usually responds with a 2nd try after I click the interior of box. I am in such a habit of mouse down and drag to resize, it's hard to test a different way.

[TempodiBasic]

Hi

@Keybone
I have tried my code in QB64 1.3 in Lubuntu 16.4 and I have had your same experience!
I don't know why the click is not detected in the little white boxes.... the same code works on Windows 10.

Please try this
1. go in the code to the line 334 of the code

Code: QB64: [Select]

1.                             IF _MOUSEINPUT AND _MOUSEBUTTON(1) THEN  'this one line
2.                                 DO WHILE _MOUSEINPUT: LOOP ' clear mouse buffer
3.                                 IsResizing Windows(a), _MOUSEX, _MOUSEY
4.                             END IF

and cancel the second condition of the IF, you'll find the resizing but with the issue to not be able to choose the bottomright white square.

Please gimme feedback when you can do it.

@Bplus
thanks, this is a problem of bad communication from me...

@QB64 coders
who can give me feedback on MacOs?
Thanks

[keybone]

Hi

@Keybone
I have tried my code in QB64 1.3 in Lubuntu 16.4 and I have had your same experience!
I don't know why the click is not detected in the little white boxes.... the same code works on Windows 10.

Please try this
1. go in the code to the line 334 of the code

Code: QB64: [Select]

1.                             IF _MOUSEINPUT AND _MOUSEBUTTON(1) THEN  'this one line
2.                                 DO WHILE _MOUSEINPUT: LOOP ' clear mouse buffer
3.                                 IsResizing Windows(a), _MOUSEX, _MOUSEY
4.                             END IF

and cancel the second condition of the IF, you'll find the resizing but with the issue to not be able to choose the bottomright white square.

Please gimme feedback when you can do it.

@Bplus
thanks, this is a problem of bad communication from me...

@QB64 coders
who can give me feedback on MacOs?
Thanks

Yeah thats kind odd that it works on windows and not linux.
I have no idea why it's not working. Maybe you need to simplify your mouse input routines.
Other than the mouse not working properly, it looks pretty decent.

I'm going to say though that the way this window manager works is pretty unstandard.
It is very different from how it would be expected to work compared to others.

For example the minimize button restores the window from maximized, and the close button minimizes it.
You might want to rethink it a little bit, but not saying its bad or anything, just different. :-)

[TempodiBasic]

@keybone

I'm thinking that the only difference between the executable compiled in Windows 10 and that compiled in Lubuntu 16.04 is QB64 !
Yes  the translator from QB to C++ to compile with GCC.
So about this

Yeah thats kind odd that it works on windows and not linux.
I have no idea why it's not working. Maybe you need to simplify your mouse input routines.

I think that the same QB64 code is translated into 2 different ways in the 2 different OSes.
in fact if you cut out 

Code: QB64: [Select]

1.      AND _MOUSEBUTTON(1)

  from line
 

Code: QB64: [Select]

1.                      IF _MOUSEINPUT AND _MOUSEBUTTON(1) THEN  'this one line

the code works with the original glicth that you can use only the leftest white square of the resizing tool.

about

For example the minimize button restores the window from maximized, and the close button minimizes it.
You might want to rethink it a little bit, but not saying its bad or anything, just different. :-)

yes the will to build something just different is behind this demonstration...
1. the X to close to the minimum size (the only bar of window) 
2. the maximize button not switching between maximize and restore to normal size
3. the dotted square for resize the window

I agree that the button to restore the area of the window brings a picture that is not intuitive! I'll change this picture with another more clear.

About resizing routine: it is a choice to not use the continue state of left button of mouse down as signal to resize but to use a lock system that can be disactivated clicking outer of the shape of resizing.

Thanks for your feedbacks


Good hearing

[TempodiBasic]

Hy guys
just a little feedback

I have found as to fix the issue on Linux!
it seems that the translation in C++ on Linux's ship makes faster the execution of code...
so if you put a delay not littler than .1 you got the code working well

Code: QB64: [Select]

1. _DELAY 0.1

under the .1 ( as .08 .05 .02)  the issue comes back!
What fine thing....

As i can recover the rest of fixing I'll post the code with no scattering of window resized and a demo of a module with input in a window and output into another.
Thanks to read

[TempodiBasic]

Hi guys
here a first fixed version of wchild demonstration with its original method for  get resizing, fullscreen, fullwindow and normalwindow child windows into a main window program.

 

 

Here the code 

Code: QB64: [Select]

1. ' HELP:
2. ' click by left button of mouse on the title bar and drag and drop to move a child window
3. ' click by left button of mouse on the leftest button on the title bar of a child window to resize window
4. '   and then click on one of two white squares  and when white border  of window is changed
5. '   move mouse and the border follow pointerofmouse resizing window.
6. '   To stop resizing and fix the new dimensions click again on white square
7. ' click by left button of mouse on the rightest button on the title bar  of window to minimize window to its title bar
8. ' click by left button of mouse on the second rightest button on the title bar  to maximize window occupying the whole main window
9. '      in fullscreen mode you get the fullscreen area with wchild choosen
10. ' click by left button of mouse on the third rightest button on the title bar  to restore the window from minimized_to_bar  to previous status Normal or Maximized
11. ' click by third (wheel) button of mouse to pass from fullscreen to window status of main window of the program
12. ' click by second (right) button of mouse to pass from window to fullscreen status of main window of the program
13.  
14.  
15.  
16. ' settings-------------------------------------------------------
17. SCREEN _NEWIMAGE(800, 600, 32)
18. _TITLE "Child windows"
19. ' the CONST with colors is better to declare after screen definition
20. ' also if _RGBA32 is indipendent form screen definition
21. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
22. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
23. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
24.  
25. ' these constants have the role of commands to execute from windows' engine
26. CONST Minim = 10, Maxim = 20, Closed = 100
27. CONST wMin = 5, aNull = 0, aQuit = 9999
28. CONST Dragging = 300, Focusing = 200, cMinim = 400, cMaxim = 500, cClosed = 600
29. CONST cResize = 700, LResize = 710, RResize = 720, StopResize = 730
30. ' these constants are universal
31. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
32.  
33. _FULLSCREEN ' app starts at fullscreen state
34. RANDOMIZE TIMER ' to support randomizing
35.  
36. 'dataset  -----------------------------------------------
37. ' components' type
38. REM here declaration for components used into wchild
39. REM  for large components you can use an $include file
40.  
41. ' window's type
42. TYPE wChild
43.     X AS INTEGER ' x of window
44.     Y AS INTEGER 'y of window
45.     WIDTH AS INTEGER ' width of window
46.     Height AS INTEGER 'height of window
47.     Zorder AS INTEGER 'order along z axis 1 = on top , lower value = at bottom
48.     Status AS INTEGER 'status maximized/fullscreen, minimized/normal or StatusBar/Closed
49.     COLOR AS _UNSIGNED LONG ' color of background of window
50.     Name AS STRING
51. END TYPE
52.  
53. ' 2 arrays one for windows and one for operation with windows
54. ' like to manage temporary data or store original data
55. REDIM Windows(1 TO wMin) AS wChild, OldW(0 TO wMin) AS wChild
56. DIM Action AS INTEGER ' flag of actions for engine
57.  
58.  
59. InitWin ' it creates some windows
60.  
61.  
62.  
63. ' main loop -----------------------------------------------
64.  
65. DO
66.     ' set the main window's background
67.     CLS , Orange
68.     ' reset the flag of engine
69.     Action = aNull
70.  
71.     DrawAllWin ' output windows in Zorder
72.     GetInput Action ' this SUB takes keyboard and mouse input from user and translate it as engine's command
73.     DoAction Action ' it executes command of getinput
74.     _DISPLAY ' retracing the video
75.     _LIMIT 30 'fps 30
76. LOOP
77. END
78.  
79. ' SUBs and FUNCTIONs --------------------------------------
80.  
81.  
82. SUB InitWin ' it creates  windows and save their data in oldW
83.     SHARED Windows() AS wChild, OldW() AS wChild
84.     DIM a AS INTEGER
85.  
86.     Windows(1).X = 1
87.     Windows(1).Y = 1
88.     Windows(1).WIDTH = 300
89.     Windows(1).Height = 400
90.     Windows(1).Zorder = 1
91.     Windows(1).Status = Minim
92.     Windows(1).COLOR = Blu
93.     Windows(1).Name = "Blu"
94.  
95.     Windows(2).X = 100
96.     Windows(2).Y = 1
97.     Windows(2).WIDTH = 300
98.     Windows(2).Height = 400
99.     Windows(2).Zorder = 2
100.     Windows(2).Status = Minim
101.     Windows(2).COLOR = Yellow
102.     Windows(2).Name = "Yellow"
103.  
104.     Windows(3).X = 200
105.     Windows(3).Y = 1
106.     Windows(3).WIDTH = 300
107.     Windows(3).Height = 400
108.     Windows(3).Zorder = 3
109.     Windows(3).Status = Minim
110.     Windows(3).COLOR = Green
111.     Windows(3).Name = "Green"
112.  
113.     Windows(4).X = 300
114.     Windows(4).Y = 1
115.     Windows(4).WIDTH = 300
116.     Windows(4).Height = 400
117.     Windows(4).Zorder = 4
118.     Windows(4).Status = Minim
119.     Windows(4).COLOR = Red
120.     Windows(4).Name = "Red"
121.     Windows(5).X = 400
122.     Windows(5).Y = 1
123.     Windows(5).WIDTH = 300
124.     Windows(5).Height = 400
125.     Windows(5).Zorder = 5
126.     Windows(5).Status = Minim
127.     Windows(5).COLOR = Cyan
128.     Windows(5).Name = "Cyan"
129.  
130.     FOR a = 1 TO wMin STEP 1
131.         AdjournWin a 'it stores informations of  windows into OldW
132.     NEXT a
133. END SUB
134.  
135. SUB RestoreWin (a AS INTEGER) ' it restores data of a windows from OldW
136.     SHARED Windows() AS wChild, OldW() AS wChild
137.  
138.     Windows(a).X = OldW(a).X
139.     Windows(a).Y = OldW(a).Y
140.     Windows(a).WIDTH = OldW(a).WIDTH
141.     Windows(a).Height = OldW(a).Height
142.     Windows(a).Zorder = OldW(a).Zorder
143.     Windows(a).COLOR = OldW(a).COLOR
144. END SUB
145.  
146. SUB AdjournWin (a AS INTEGER) 'it saves data of a window into OldW
147.     SHARED Windows() AS wChild, OldW() AS wChild
148.  
149.     OldW(a).X = Windows(a).X
150.     OldW(a).Y = Windows(a).Y
151.     OldW(a).WIDTH = Windows(a).WIDTH
152.     OldW(a).Height = Windows(a).Height
153.     OldW(a).Zorder = Windows(a).Zorder
154.     OldW(a).COLOR = Windows(a).COLOR
155. END SUB
156.  
157. SUB DrawAllWin ' it draws all windows starting from bottom of Zorder stack
158.     SHARED Windows() AS wChild ' here parameters of wchild and components
159.     DIM Finished AS INTEGER 'target to draw
160.     DIM a AS INTEGER ' counter of FOR
161.     Finished = wMin ' it starts from the bottom of Zorder
162.     DO
163.         FOR a = 1 TO wMin 'for all windows created (wMin)
164.             IF Windows(a).Zorder = Finished THEN ' if the window is that we are searching
165.                 DrawWindow Windows(a), a 'we draw window
166.                 Finished = Finished - 1 'we decrease the pointer from bottom to up until the first window
167.                 EXIT FOR ' next window
168.             END IF
169.         NEXT a
170.     LOOP UNTIL Finished = 0
171. END SUB
172.  
173. SUB Focus (Index AS INTEGER) ' it puts a windows at top of Zorder and the previous top window to the bottom
174.     SHARED Windows() AS wChild
175.     DIM b AS INTEGER
176.     FOR b = 1 TO wMin
177.         IF Windows(b).Zorder = 1 THEN EXIT FOR
178.     NEXT b
179.     ' here it changes the position between the new Ontpo window and the last Ontop Window
180.     IF Index <> b THEN SWAP Windows(Index).Zorder, Windows(b).Zorder
181.     DrawAllWin
182. END SUB
183.  
184.  
185. SUB DoAction (Act AS INTEGER) ' it is the engine of the manager of windows
186.     SHARED Windows() AS wChild, OldW() AS wChild
187.     ' engine's variables
188.     DIM a AS INTEGER, Actio AS INTEGER, OldA AS INTEGER, OldActio AS INTEGER
189.  
190.     ' mouse's variables
191.     DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER
192.     ' it executes Act's content
193.     SELECT CASE Act
194.         CASE aQuit
195.             END
196.  
197.         CASE Maxim
198.             _FULLSCREEN
199.  
200.         CASE Minim
201.             _FULLSCREEN _OFF
202.  
203.         CASE mLeft ' Left Click of mouse
204.             mX = _MOUSEX ' we store the actual X and Y of mouse
205.             mY = _MOUSEY
206.  
207.             ' search where and what mouse has touched by leftclick
208.             OldA = 0
209.             OldActio = 0
210.             FOR a = 1 TO wMin ' windows(0) is out of action
211.                 Actio = IsInWindow(mX, mY, Windows(a)) ' what window on the top of stack is interacting with mouse
212.                 IF Actio THEN
213.                     IF OldA <= 0 THEN ' if no previous window has interact with mouse
214.                         OldA = a 'we memorize action and index of window
215.                         OldActio = Actio
216.                     ELSEIF Windows(a).Zorder < Windows(OldA).Zorder THEN ' if actual window has a Zorder less the previouse
217.                         OldA = a ' we memorize action and  index of window
218.                         OldActio = Actio
219.                     END IF
220.                 END IF
221.             NEXT a
222.             IF a > OldA THEN
223.                 a = OldA ' restore the last windows interacting
224.                 Actio = OldActio
225.             END IF
226.             IF OldA = 0 OR OldActio = 0 THEN EXIT SUB ' no action out of SUB
227.  
228.  
229.             Focus a 'set zorder on the (a) window that gets the input
230.  
231.  
232.             SELECT CASE Actio
233.                 CASE cMinim
234.                     ' here restore to  standard (bar + area of window) status of child window
235.                     IF Windows(a).Status = Closed + Maxim THEN
236.                         ' if windows is a closed maximized window
237.                         ' we restore its status of maximized
238.                         Windows(a).Status = Maxim
239.                     ELSEIF Windows(a).Status = Closed + Minim THEN
240.                         ' if windows is a closed minimized window
241.                         ' we restore its status of minimized
242.                         Windows(a).Status = Minim
243.                     ELSEIF Windows(a).Status = Maxim THEN
244.                         ' if is a window maximized it gets back all info setting
245.                         ' we restore its status of minimized
246.                         RestoreWin a
247.                         Windows(a).Status = Minim
248.                     END IF
249.  
250.  
251.                 CASE cMaxim
252.                     ' here convert the window to full size of main window of the program
253.                     ' OR gives 1 if both parameter are true or al last one is true
254.                     IF (Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim) THEN
255.                         ' it acts if windows if not still maximized
256.                         ' it is minimized window opened or closed
257.                         ' memorize window's data when it is not maximized
258.                         '                        IF Windows(a).Width < _WIDTH THEN
259.                         AdjournWin a
260.                         ' it sets maximized status
261.                         Windows(a).WIDTH = _WIDTH
262.                         Windows(a).Height = _HEIGHT
263.                         Windows(a).X = 1
264.                         Windows(a).Y = 1
265.                         ' change status
266.                         Windows(a).Status = Maxim
267.                     END IF
268.  
269.                 CASE cClosed
270.                     ' here minimize the child window to its window bar
271.                     IF NOT Windows(a).Status > Closed THEN
272.                         Windows(a).Status = Windows(a).Status + Closed
273.                     END IF
274.  
275.                 CASE Dragging
276.                     ' dragging is possible for all status of windows
277.                     '
278.                     ' if minimized or Closed and minimized window we save data info
279.                     IF Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim THEN AdjournWin a
280.                     ' it sets variables for dragging
281.                     OldW(0).X = Windows(a).X
282.                     OldW(0).Y = Windows(a).Y
283.                     OldW(0).WIDTH = Windows(a).WIDTH
284.                     OldW(0).Height = Windows(a).Height
285.  
286.                     OmX = _MOUSEX - OldW(0).X ' we store actual value of X and Y of mouse
287.                     OmY = _MOUSEY - OldW(0).Y
288.                     DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
289.                     DO WHILE _MOUSEBUTTON(1) ' while left mouse is pressed down
290.                         IF _MOUSEINPUT THEN ' if there is a mouseinput
291.                             CLS , Orange 'reset background
292.  
293.                             OldW(0).X = (_MOUSEX - OmX) 'it adjourns window X and Y
294.                             OldW(0).Y = (_MOUSEY - OmY)
295.                             DrawAllWin ' it shows all windows
296.                             dragWindow OldW(0) ' it shows white skeleton of window
297.                         END IF
298.                     LOOP
299.                     ' new position of window
300.                     Windows(a).X = OldW(0).X
301.                     Windows(a).Y = OldW(0).Y
302.                     OldW(a).X = Windows(a).X
303.                     OldW(a).Y = Windows(a).Y
304.  
305.                 CASE Focusing
306.                     Focus a ' it puts at the top of stack of windows
307.  
308.                 CASE cResize
309.                     ' resizing is possible only for minimized opened child windows
310.                     IF Windows(a).Status = Minim THEN
311.                         Windows(a).Status = cResize
312.                         DO WHILE _MOUSEBUTTON(1) OR _MOUSEINPUT: LOOP ' it waits if there is a mouse input
313.                         DO WHILE Windows(a).Status = cResize ' while window is in resize mode
314.                             CLS , Orange ' it redraws background of main window
315.                             DrawAllWin ' it draws all mouse  windows
316.                             ShowDimension Windows(a), 0
317.  
318.                             ' if mouse move or left mouse button is down
319.                             IF _MOUSEINPUT AND _MOUSEBUTTON(1) THEN
320.                                 DO WHILE _MOUSEINPUT: LOOP ' clear mouse buffer
321.                                 _DELAY 0.1 ' <---- this fixs Linus issue
322.                                 IsResizing Windows(a), _MOUSEX, _MOUSEY
323.                             END IF
324.                             _DISPLAY
325.                         LOOP
326.                     END IF
327.  
328.             END SELECT
329.         CASE ELSE
330.     END SELECT
331. END SUB
332.  
333. SUB IsResizing (Win AS wChild, mX AS INTEGER, mY AS INTEGER) ' this resize window by mouse
334.     SHARED Windows() AS wChild, OldW() AS wChild
335.     DIM Actio AS INTEGER, OldmX AS INTEGER, OldmY AS INTEGER
336.     Actio = 0
337.     'if mouse X is in the X range of the window
338.     IF IsInTheRange%(mX, Win.X, Win.X + Win.WIDTH) THEN
339.         ' if mouse Y is in the y range of the window
340.         IF IsInTheRange%(mY, Win.Y, Win.Y + Win.Height) THEN
341.             ' do nothing if it is in the range of window
342.         ELSE
343.             ' user click out of area  of window to resize
344.             Actio = StopResize
345.         END IF
346.     ELSE
347.         ' user click out of area  of window to resize
348.         Actio = StopResize
349.     END IF
350.  
351.  
352.  
353.  
354.     ' if mouse X is in the x range  of the leftest button on the window's bar
355.     IF IsInTheRange%(mX, Win.X, Win.X + 10) THEN
356.         ' if mouse Y is in the y range of the window's bar
357.         IF IsInTheRange%(mY, Win.Y, Win.Y + 10) THEN
358.             ' user click on lefttop square to resize
359.             Actio = LResize
360.         END IF
361.     END IF
362.     ' if mouse X is in the range of rightest button of window's bar
363.     IF IsInTheRange%(mX, Win.X + Win.WIDTH - 10, Win.X + Win.WIDTH) THEN
364.         ' if mouse Y is in the y range of the bottom of window
365.         IF IsInTheRange%(mY, Win.Y + Win.Height - 10, Win.Y + Win.Height) THEN
366.             ' user click on the rightbottom square to resize
367.             Actio = RResize
368.         END IF
369.     END IF
370.  
371.     IF Actio = 0 THEN
372.         ' no action done
373.     ELSEIF Actio = LResize THEN
374.         ' choosen LeftTop buttom to resize
375.         OldW(0).X = Win.X
376.         OldW(0).Y = Win.Y
377.         OldW(0).WIDTH = Win.WIDTH
378.         OldW(0).Height = Win.Height
379.         OldmX = _MOUSEX
380.         OldmY = _MOUSEY
381.         DO WHILE Actio = LResize
382.             IF _MOUSEINPUT THEN ' if mouse moves it adapts the dimension to the minimun default value for X and Y
383.                 IF (OldW(0).X + OldW(0).WIDTH - OldmX) >= 70 THEN OldW(0).WIDTH = OldW(0).X + OldW(0).WIDTH - OldmX ELSE OldW(0).WIDTH = 70: OldW(0).X = Win.X + Win.WIDTH - 70: OldmX = OldW(0).X
384.                 IF (OldW(0).Y + OldW(0).Height - OldmY) >= 30 THEN OldW(0).Height = OldW(0).Y + OldW(0).Height - OldmY ELSE OldW(0).Height = 30: OldW(0).Y = Win.Y + Win.Height - 30: OldmY = OldW(0).Y
385.                 CLS , Orange
386.                 DrawAllWin
387.                 ShowDimension OldW(0), Actio
388.                 OldW(0).X = OldmX ' it stores new Oldmx and OldmY
389.                 OldW(0).Y = OldmY
390.  
391.                 OldmX = _MOUSEX
392.                 OldmY = _MOUSEY
393.             ELSE
394.                 IF _MOUSEBUTTON(1) THEN Actio = 0 ' a second leftclick stops the resize action
395.             END IF
396.         LOOP
397.         Win.X = OldW(0).X 'the new dimension of windows are stored
398.         Win.Y = OldW(0).Y
399.         Win.WIDTH = OldW(0).WIDTH
400.         Win.Height = OldW(0).Height
401.  
402.  
403.     ELSEIF Actio = RResize THEN
404.         ' choosen bottomright square
405.         OldW(0).X = Win.X ' it gets the window dimensions
406.         OldW(0).Y = Win.Y
407.         OldW(0).WIDTH = Win.WIDTH
408.         OldW(0).Height = Win.Height
409.         OldmX = _MOUSEX 'actual mouse X and Y
410.         OldmY = _MOUSEY
411.         DO WHILE Actio = RResize ' while is active resize from right
412.             IF _MOUSEINPUT THEN ' if mouse moves it adapts the dimension of window to mouse position
413.                 IF OldmX - OldW(0).X >= 70 THEN OldW(0).WIDTH = OldmX - OldW(0).X
414.                 IF OldmY - OldW(0).Y >= 30 THEN OldW(0).Height = OldmY - OldW(0).Y
415.                 CLS , Orange
416.                 DrawAllWin
417.                 ShowDimension OldW(0), Actio
418.                 OldmX = _MOUSEX
419.                 OldmY = _MOUSEY
420.             ELSE
421.                 IF _MOUSEBUTTON(1) THEN Actio = 0 ' il mouse leftclick it stops resize
422.             END IF
423.         LOOP
424.         Win.X = OldW(0).X 'it adjusts the dimensions of window to the new status
425.         Win.Y = OldW(0).Y
426.         Win.WIDTH = OldW(0).WIDTH
427.         Win.Height = OldW(0).Height
428.  
429.     ELSEIF Actio = StopResize THEN
430.         ' click out of window to stop resize action
431.         Win.Status = Minim
432.     END IF
433. END SUB
434.  
435. SUB ShowDimension (win AS wChild, Actio AS INTEGER) ' it shows skeleton of window with 2 buttons for dimensioning
436.     IF win.Status = cResize AND Actio = 0 THEN
437.         LINE (win.X, win.Y)-(win.X + win.WIDTH, win.Y + win.Height), White, B ' windows size
438.     ELSEIF Actio = LResize THEN
439.         LINE (win.X, win.Y)-(win.X + win.WIDTH, win.Y + win.Height), White, B , 45 ' windows size
440.     ELSEIF Actio = RResize THEN
441.         LINE (win.X, win.Y)-(win.X + win.WIDTH, win.Y + win.Height), White, B , 200 ' windows size
442.     END IF
443.     LINE (win.X, win.Y)-(win.X + 10, win.Y + 10), White, BF 'button for resizing window
444.     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
445.     _DISPLAY
446. END SUB
447.  
448. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild) 'it searches if mouse is in window passed as Win
449.     IsInWindow = mFalse
450.     IF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
451.         ' if window is closed to its bar it cannot get focus on the window area
452.         IF IsInTheRange%(X, Win.X, Win.X + Win.WIDTH) AND (Win.Status < Closed) THEN IsInWindow = Focusing
453.     ELSEIF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
454.         ' if it is the window bar area
455.         IF IsInTheRange%(X, Win.X + 10, Win.X + Win.WIDTH - 31) THEN
456.             ' if it is to the left of buttons on the bar
457.             IsInWindow = Dragging
458.         ELSEIF IsInTheRange%(X, Win.X + Win.WIDTH - 30, Win.X + Win.WIDTH - 21) THEN
459.             ' if it is on the leftest button on the bar
460.             IsInWindow = cMinim ' icon minimize--> restore to child default
461.         ELSEIF IsInTheRange%(X, Win.X + Win.WIDTH - 20, Win.X + Win.WIDTH - 11) THEN
462.             ' if it is on the middle button on the bar
463.             IsInWindow = cMaxim ' icon maximize--> expand to fullscreen
464.         ELSEIF IsInTheRange%(X, Win.X + Win.WIDTH - 10, Win.X + Win.WIDTH) THEN
465.             ' if is on the rightest button on the bar
466.             IsInWindow = cClosed ' icon close-->reduce to the  bar of child window
467.         ELSEIF IsInTheRange%(X, Win.X, Win.X + 10) THEN ' if is on the left side of bar on Resize button
468.             IsInWindow = cResize
469.         END IF
470.     END IF
471. END FUNCTION
472.  
473. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER) ' it tests if What is between Min and Max
474.     IF Min > Max THEN SWAP Min, Max
475.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
476. END FUNCTION
477.  
478. SUB dragWindow (Win AS wChild) ' this draw the white skeleton of a window
479.     LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + Win.Height), White, B ' windows size
480.     LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), White, BF 'title bar for dragging window
481.     _DISPLAY
482. END SUB
483.  
484. SUB wClosed (Win AS wChild) 'title bar button for show only title bar of window
485.     LINE (Win.X + Win.WIDTH - 10, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), Pink, BF
486.     LINE (Win.X + Win.WIDTH - 10, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), Black, B
487.     LINE (Win.X + Win.WIDTH - 7, Win.Y + 3)-(Win.X + Win.WIDTH - 3, Win.Y + 7), Black
488.     LINE (Win.X + Win.WIDTH - 7, Win.Y + 7)-(Win.X + Win.WIDTH - 3, Win.Y + 3), Black
489. END SUB
490.  
491. SUB wMaxim (win AS wChild) 'title bar  button for maximize to the whole main window
492.     LINE (win.X + win.WIDTH - 20, win.Y)-(win.X + win.WIDTH - 10, win.Y + 10), Pink, BF
493.     LINE (win.X + win.WIDTH - 20, win.Y)-(win.X + win.WIDTH - 10, win.Y + 10), Black, B
494.     LINE (win.X + win.WIDTH - 17, win.Y + 3)-(win.X + win.WIDTH - 13, win.Y + 7), Black, B
495. END SUB
496.  
497. SUB wMinim (Win AS wChild) 'title bar button for restore to original dimensions
498.     LINE (Win.X + Win.WIDTH - 30, Win.Y)-(Win.X + Win.WIDTH - 20, Win.Y + 10), Pink, BF
499.     LINE (Win.X + Win.WIDTH - 30, Win.Y)-(Win.X + Win.WIDTH - 20, Win.Y + 10), Black, B
500.     LINE (Win.X + Win.WIDTH - 27, Win.Y + 3)-(Win.X + Win.WIDTH - 23, Win.Y + 4), Black, BF
501.     LINE (Win.X + Win.WIDTH - 27, Win.Y + 3)-(Win.X + Win.WIDTH - 23, Win.Y + 7), Black, B , &B1010101010101010
502. END SUB
503.  
504. SUB wResize (Win AS wChild) 'title bar button for resize  dimensions of window
505.     LINE (Win.X, Win.Y)-(Win.X + 10, Win.Y + 10), Pink, BF
506.     LINE (Win.X, Win.Y)-(Win.X + 10, Win.Y + 10), Black, B
507.     LINE (Win.X + 2, Win.Y + 2)-(Win.X + 7, Win.Y + 7), Black, B , &B1010101010101010
508. END SUB
509.  
510. SUB DrawWindow (Win AS wChild, a AS INTEGER) ' it draws a window aspect following its status
511.  
512.     ' the window
513.     IF Win.Status = Minim OR Win.Status = Maxim THEN
514.         LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + Win.Height), Win.COLOR, BF
515.         LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.WIDTH, Win.Y + Win.Height), Black
516.         LINE (Win.X + Win.WIDTH, Win.Y)-(Win.X + Win.WIDTH, Win.Y + Win.Height), Black
517.     END IF
518.     ' the title bar
519.     LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), Pink, BF 'title bar for dragging window
520.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.WIDTH, Win.Y + 10), Black
521.     wMinim Win
522.     wMaxim Win
523.     wClosed Win
524.     wResize Win
525.  
526.     ' the content of the window
527.     REM here the draw routine of components
528.  
529.  
530. END SUB
531.  
532. SUB GetInput (Act AS INTEGER) ' manager of input by keyboard & mouse
533.     DIM mInput AS INTEGER ' flag of commands of mouse
534.  
535.  
536.     ' keyboard input
537.     a$ = INKEY$
538.     IF a$ = CHR$(27) THEN Act = aQuit 'keyboard's command in feedback by Act
539.  
540.     'mouse input
541.     mInput = mFalse
542.     IF _MOUSEINPUT THEN mInput = mTrue
543.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
544.     LOOP
545.     IF mInput THEN ' here flag of mouse gets the command's values
546.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
547.             mInput = mLR
548.         ELSEIF _MOUSEBUTTON(1) THEN
549.             mInput = mLeft
550.         ELSEIF _MOUSEBUTTON(2) THEN
551.             mInput = mRight
552.         ELSEIF _MOUSEBUTTON(3) THEN
553.             mInput = mMiddle
554.         END IF
555.     END IF
556.     'mouse's command in feedback by Act
557.     IF mInput = mLR THEN
558.         Act = aQuit
559.     ELSEIF mInput = mMiddle THEN
560.         Act = Minim
561.     ELSEIF mInput = mRight THEN
562.         Act = Maxim
563.     ELSEIF mInput = mLeft THEN
564.         Act = mInput
565.     END IF
566. END SUB
567.  
568.  
569.  

[TempodiBasic]

Hi
it is just an update to show how to manage a content of child windows.
Here there is a simple label into windows... coming soon a BMI database for people

Code: QB64: [Select]

1. ' 2020 04 18  Fixed Linux issue about selection of resizing white buttons
2.  
3. ' 2020 04 03  creating label as component of window (label is from 1 to 100 characters on one line)
4. '             to be visible in a window it is printed only for the inner width of window
5.  
6. ' 2020 03 25  fixing  window undraggable if it has been put lefter  to
7. ' the left border of main window
8.  
9. ' 2020 02 17  fixing resize from left bug with scattering of window resized
10.  
11. ' 2020 02 12  with the power of the second array we implement the feature
12. '             of resizable of child window
13.  
14. ' 2020 02 09  with the power of the second array we implement a different
15. '             child windows' system:
16. '             all child windows can be Closed to window's bar
17. '             all child windows can be dragged on the screen
18.  
19. ' 2020 02 08  using a second array we store windows information indipendently so
20. '             now each window can be modified and restored
21.  
22.  
23. ' 2020 02 06  after dragging or maximize a window, restoring it we gives
24. '             to it the last value used in windows(0) so the info of the last
25. '             window that is dragged or maximize when we use Minimize button on
26. '             another child window
27. '             the fix can be got using a shadow array that stores windows informations
28. '             or windows(0) as the child window that takes the information of the
29. '             child window that must be acted (Minimize, Maximize and Closed)
30. '             and we use it as template to make graphic output
31.  
32. ' 2020 02 05 fixed a minor bug on mouse click events
33. '            activated events Maxim Minim and Closed
34.  
35.  
36. ' 2020 02 03 increasing the windows managed and close initialization to SUB
37. '            removed vMax SHARED variable
38. '            added 3 buttons on the rightest site of the bar of the child window
39. '            SUB wClosed, wMaxim, wMinim
40. '            In this version the user can maximize one child window to the application window
41. '            In the status of Maxim the child window has the focus and can be only
42. '            reduced to status Minim, it cannot be dragging or Closed to bar of window
43.  
44.  
45. ' 2020 01 30 fixed bug on focusing a child window
46. '
47.  
48. ' 2020 01 25  A program with child windows into it
49. ' we need a system to manage multiple windows
50. ' and a system to manage input/output
51. ' and a system to make graphic report
52.  
53.  
54. ' settings-------------------------------------------------------
55. SCREEN _NEWIMAGE(800, 600, 32)
56. _TITLE "Child windows"
57. ' the CONST with colors is better to declare after screen definition
58. ' also if _RGBA32 is indipendent form screen definition
59. CONST Black = _RGBA32(0, 0, 0, 255), White = _RGBA32(255, 255, 255, 255), Red = _RGBA32(200, 0, 0, 255)
60. CONST Green = _RGBA32(0, 200, 0, 255), Blu = _RGBA32(0, 0, 200, 255), Yellow = _RGBA32(200, 200, 20, 255)
61. CONST Cyan = _RGBA32(20, 140, 230, 255), Orange = _RGBA32(200, 100, 20, 255), Pink = _RGBA32(227, 80, 120, 255)
62.  
63. ' these constants have the role of commands to execute from windows' engine
64. CONST Minim = 10, Maxim = 20, Closed = 100
65. CONST wMin = 5, aNull = 0, aQuit = 9999
66. CONST Dragging = 300, Focusing = 200, cMinim = 400, cMaxim = 500, cClosed = 600
67. CONST cResize = 700, LResize = 710, RResize = 720, StopResize = 730
68. ' these constants are universal
69. CONST mTrue = 1, mFalse = 0, mLeft = 2, mRight = 3, mMiddle = 4, mLR = 5
70.  
71. _FULLSCREEN ' app starts at fullscreen state
72. RANDOMIZE TIMER ' to support randomizing
73.  
74. 'dataset  -----------------------------------------------
75. ' components type
76. TYPE Label
77.     X AS INTEGER ' x relative to x of parent window
78.     Y AS INTEGER ' y relative to y of parent window
79.     Parent AS STRING ' the name of window   if=" Desktop" it is the main window
80.     Lenght AS INTEGER ' lenght of label
81.     Caption AS STRING ' the text of label
82.     Color AS _UNSIGNED LONG ' foreground color of text of label
83.     font AS LONG ' it is handle of font
84. END TYPE
85.  
86. ' window's type
87. TYPE wChild
88.     X AS INTEGER ' x of window
89.     Y AS INTEGER 'y of window
90.     WIDTH AS INTEGER ' width of window
91.     Height AS INTEGER 'height of window
92.     Zorder AS INTEGER 'order along z axis 1 = on top , lower value = at bottom
93.     Status AS INTEGER 'status maximized/fullscreen, minimized/normal or StatusBar/Closed
94.     COLOR AS _UNSIGNED LONG ' color of background of window
95.     Name AS STRING
96. END TYPE
97. ' 2 arrays one for windows and one for operation with windows
98. ' like to manage temporary data or store original data
99. REDIM Windows(1 TO wMin) AS wChild, OldW(0 TO wMin) AS wChild
100. DIM L(1 TO wMin) AS Label
101. DIM Action AS INTEGER ' flag of actions for engine
102.  
103.  
104. InitWin ' it creates some windows
105. InitLabel L(), Windows()
106.  
107.  
108.  
109.  
110. ' main loop -----------------------------------------------
111.  
112. DO
113.     ' set the main window's background
114.     CLS , Orange
115.     ' reset the flag of engine
116.     Action = aNull
117.  
118.     DrawAllWin ' output windows in Zorder
119.     GetInput Action ' this SUB takes keyboard and mouse input from user and translate it as engine's command
120.     DoAction Action ' it executes command of getinput
121.     _DISPLAY ' retracing the video
122.     _LIMIT 30 'fps 30
123. LOOP
124. END
125.  
126. ' SUBs and FUNCTIONs --------------------------------------
127. SUB ShowString (L AS Label, Win AS wChild)
128.     IF Win.Status <> Minim AND Win.Status <> Maxim THEN EXIT SUB
129.     DIM VisibleString AS STRING, NumChar AS INTEGER
130.     IF _FONTHEIGHT(L.font) + L.Y >= Win.Height THEN EXIT SUB
131.     IF L.Lenght + L.X >= Win.WIDTH THEN
132.         NumChar = CINT((Win.WIDTH - L.X - 4) / _FONTWIDTH)
133.         VisibleString = LEFT$(L.Caption, NumChar)
134.     ELSE
135.         VisibleString = L.Caption
136.     END IF
137.     COLOR L.Color, Win.COLOR
138.     _PRINTSTRING (L.X + Win.X, L.Y + Win.Y + 10), VisibleString
139. END SUB
140.  
141. SUB InitLabel (L() AS Label, win() AS wChild)
142.     FOR a% = 1 TO wMin
143.         L(a%).X = 3 + (RND * (win(a%).Height / 2) - 10)
144.         L(a%).Y = 4 + (RND * (win(a%).WIDTH / 2) - 10)
145.         L(a%).Parent = win(a%).Name
146.         L(a%).Caption = "This is a demonstration of output"
147.         L(a%).Color = _RGBA32(133, 39, 177, 255)
148.         L(a%).font = _LOADFONT("cour.ttf", 12, "monospace")
149.         IF L(a%).font <= 0 THEN PRINT "error loading font ": SLEEP
150.         L(a%).Lenght = LEN(L(a%).Caption) * _FONTWIDTH
151.     NEXT a%
152. END SUB
153.  
154. SUB InitWin ' it creates  windows and save their data in oldW
155.     SHARED Windows() AS wChild, OldW() AS wChild
156.     DIM a AS INTEGER
157.  
158.     Windows(1).X = 1
159.     Windows(1).Y = 1
160.     Windows(1).WIDTH = 300
161.     Windows(1).Height = 400
162.     Windows(1).Zorder = 1
163.     Windows(1).Status = Minim
164.     Windows(1).COLOR = Blu
165.     Windows(1).Name = "Blu"
166.  
167.     Windows(2).X = 100
168.     Windows(2).Y = 1
169.     Windows(2).WIDTH = 300
170.     Windows(2).Height = 400
171.     Windows(2).Zorder = 2
172.     Windows(2).Status = Minim
173.     Windows(2).COLOR = Yellow
174.     Windows(2).Name = "Yellow"
175.  
176.     Windows(3).X = 200
177.     Windows(3).Y = 1
178.     Windows(3).WIDTH = 300
179.     Windows(3).Height = 400
180.     Windows(3).Zorder = 3
181.     Windows(3).Status = Minim
182.     Windows(3).COLOR = Green
183.     Windows(3).Name = "Green"
184.  
185.     Windows(4).X = 300
186.     Windows(4).Y = 1
187.     Windows(4).WIDTH = 300
188.     Windows(4).Height = 400
189.     Windows(4).Zorder = 4
190.     Windows(4).Status = Minim
191.     Windows(4).COLOR = Red
192.     Windows(4).Name = "Red"
193.     Windows(5).X = 400
194.     Windows(5).Y = 1
195.     Windows(5).WIDTH = 300
196.     Windows(5).Height = 400
197.     Windows(5).Zorder = 5
198.     Windows(5).Status = Minim
199.     Windows(5).COLOR = Cyan
200.     Windows(5).Name = "Cyan"
201.  
202.     FOR a = 1 TO wMin STEP 1
203.         AdjournWin a 'it stores informations of  windows into OldW
204.     NEXT a
205. END SUB
206.  
207. SUB RestoreWin (a AS INTEGER) ' it restores data of a windows from OldW
208.     SHARED Windows() AS wChild, OldW() AS wChild
209.  
210.     Windows(a).X = OldW(a).X
211.     Windows(a).Y = OldW(a).Y
212.     Windows(a).WIDTH = OldW(a).WIDTH
213.     Windows(a).Height = OldW(a).Height
214.     Windows(a).Zorder = OldW(a).Zorder
215.     Windows(a).COLOR = OldW(a).COLOR
216. END SUB
217.  
218. SUB AdjournWin (a AS INTEGER) 'it saves data of a window into OldW
219.     SHARED Windows() AS wChild, OldW() AS wChild
220.  
221.     OldW(a).X = Windows(a).X
222.     OldW(a).Y = Windows(a).Y
223.     OldW(a).WIDTH = Windows(a).WIDTH
224.     OldW(a).Height = Windows(a).Height
225.     OldW(a).Zorder = Windows(a).Zorder
226.     OldW(a).COLOR = Windows(a).COLOR
227. END SUB
228.  
229. SUB DrawAllWin ' it draws all windows starting from bottom of Zorder stack
230.     SHARED Windows() AS wChild, L AS Label
231.     DIM Finished AS INTEGER 'target to draw
232.     DIM a AS INTEGER ' counter of FOR
233.     Finished = wMin ' it starts from the bottom of Zorder
234.     DO
235.         FOR a = 1 TO wMin 'for all windows created (wMin)
236.             IF Windows(a).Zorder = Finished THEN ' if the window is that we are searching
237.                 DrawWindow Windows(a), a 'we draw window
238.                 Finished = Finished - 1 'we decrease the pointer from bottom to up until the first window
239.                 EXIT FOR ' next window
240.             END IF
241.         NEXT a
242.     LOOP UNTIL Finished = 0
243. END SUB
244.  
245. SUB Focus (Index AS INTEGER) ' it puts a windows at top of Zorder and the previous top window to the bottom
246.     SHARED Windows() AS wChild
247.     DIM b AS INTEGER
248.     FOR b = 1 TO wMin
249.         IF Windows(b).Zorder = 1 THEN EXIT FOR
250.     NEXT b
251.     ' here it changes the position between the new Ontpo window and the last Ontop Window
252.     IF Index <> b THEN SWAP Windows(Index).Zorder, Windows(b).Zorder
253.     DrawAllWin
254. END SUB
255.  
256.  
257. SUB DoAction (Act AS INTEGER) ' it is the engine of the manager of windows
258.     SHARED Windows() AS wChild, OldW() AS wChild
259.     ' engine's variables
260.     DIM a AS INTEGER, Actio AS INTEGER, OldA AS INTEGER, OldActio AS INTEGER
261.  
262.     ' mouse's variables
263.     DIM mX AS INTEGER, mY AS INTEGER, OmX AS INTEGER, OmY AS INTEGER
264.     ' it executes Act's content
265.     SELECT CASE Act
266.         CASE aQuit
267.             END
268.  
269.         CASE Maxim
270.             _FULLSCREEN
271.  
272.         CASE Minim
273.             _FULLSCREEN _OFF
274.  
275.         CASE mLeft ' Left Click of mouse
276.             mX = _MOUSEX ' we store the actual X and Y of mouse
277.             mY = _MOUSEY
278.  
279.             ' search where and what mouse has touched by leftclick
280.             OldA = 0
281.             OldActio = 0
282.             FOR a = 1 TO wMin ' windows(0) is out of action
283.                 Actio = IsInWindow(mX, mY, Windows(a)) ' what window on the top of stack is interacting with mouse
284.                 IF Actio THEN
285.                     IF OldA <= 0 THEN ' if no previous window has interact with mouse
286.                         OldA = a 'we memorize action and index of window
287.                         OldActio = Actio
288.                     ELSEIF Windows(a).Zorder < Windows(OldA).Zorder THEN ' if actual window has a Zorder less the previouse
289.                         OldA = a ' we memorize action and  index of window
290.                         OldActio = Actio
291.                     END IF
292.                 END IF
293.             NEXT a
294.             IF a > OldA THEN
295.                 a = OldA ' restore the last windows interacting
296.                 Actio = OldActio
297.             END IF
298.             IF OldA = 0 OR OldActio = 0 THEN EXIT SUB ' no action out of SUB
299.  
300.  
301.             Focus a 'set zorder on the (a) window that gets the input
302.  
303.  
304.             SELECT CASE Actio
305.                 CASE cMinim
306.                     ' here restore to  standard (bar + area of window) status of child window
307.                     IF Windows(a).Status = Closed + Maxim THEN
308.                         ' if windows is a closed maximized window
309.                         ' we restore its status of maximized
310.                         Windows(a).Status = Maxim
311.                     ELSEIF Windows(a).Status = Closed + Minim THEN
312.                         ' if windows is a closed minimized window
313.                         ' we restore its status of minimized
314.                         Windows(a).Status = Minim
315.                     ELSEIF Windows(a).Status = Maxim THEN
316.                         ' if is a window maximized it gets back all info setting
317.                         ' we restore its status of minimized
318.                         RestoreWin a
319.                         Windows(a).Status = Minim
320.                     END IF
321.  
322.  
323.                 CASE cMaxim
324.                     ' here convert the window to full size of main window of the program
325.                     ' OR gives 1 if both parameter are true or al last one is true
326.                     IF (Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim) THEN
327.                         ' it acts if windows if not still maximized
328.                         ' it is minimized window opened or closed
329.                         ' memorize window's data when it is not maximized
330.                         '                        IF Windows(a).Width < _WIDTH THEN
331.                         AdjournWin a
332.                         ' it sets maximized status
333.                         Windows(a).WIDTH = _WIDTH
334.                         Windows(a).Height = _HEIGHT
335.                         Windows(a).X = 1
336.                         Windows(a).Y = 1
337.                         ' change status
338.                         Windows(a).Status = Maxim
339.                     END IF
340.  
341.                 CASE cClosed
342.                     ' here minimize the child window to its window bar
343.                     IF NOT Windows(a).Status > Closed THEN
344.                         Windows(a).Status = Windows(a).Status + Closed
345.                     END IF
346.  
347.                 CASE Dragging
348.                     ' dragging is possible for all status of windows
349.                     '
350.                     ' if minimized or Closed and minimized window we save data info
351.                     IF Windows(a).Status = Minim OR Windows(a).Status = Closed + Minim THEN AdjournWin a
352.                     ' it sets variables for dragging
353.                     OldW(0).X = Windows(a).X
354.                     OldW(0).Y = Windows(a).Y
355.                     OldW(0).WIDTH = Windows(a).WIDTH
356.                     OldW(0).Height = Windows(a).Height
357.  
358.                     OmX = _MOUSEX - OldW(0).X ' we store actual value of X and Y of mouse
359.                     OmY = _MOUSEY - OldW(0).Y
360.                     DO WHILE _MOUSEINPUT: LOOP ' just clear mouse buffer
361.                     DO WHILE _MOUSEBUTTON(1) ' while left mouse is pressed down
362.                         IF _MOUSEINPUT THEN ' if there is a mouseinput
363.                             CLS , Orange 'reset background
364.  
365.                             OldW(0).X = (_MOUSEX - OmX) 'it adjourns window X and Y
366.                             OldW(0).Y = (_MOUSEY - OmY)
367.                             DrawAllWin ' it shows all windows
368.                             dragWindow OldW(0) ' it shows white skeleton of window
369.                         END IF
370.                     LOOP
371.                     ' new position of window
372.                     Windows(a).X = OldW(0).X
373.                     Windows(a).Y = OldW(0).Y
374.                     OldW(a).X = Windows(a).X
375.                     OldW(a).Y = Windows(a).Y
376.  
377.                 CASE Focusing
378.                     Focus a ' it puts at the top of stack of windows
379.  
380.                 CASE cResize
381.                     ' resizing is possible only for minimized opened child windows
382.                     IF Windows(a).Status = Minim THEN
383.                         Windows(a).Status = cResize
384.                         DO WHILE _MOUSEBUTTON(1) OR _MOUSEINPUT: LOOP ' it waits if there is a mouse input
385.                         DO WHILE Windows(a).Status = cResize ' while window is in resize mode
386.                             CLS , Orange ' it redraws background of main window
387.                             DrawAllWin ' it draws all mouse  windows
388.                             ShowDimension Windows(a), 0
389.  
390.                             ' if mouse move or left mouse button is down
391.                             IF _MOUSEINPUT AND _MOUSEBUTTON(1) THEN
392.                                 DO WHILE _MOUSEINPUT: LOOP ' clear mouse buffer
393.                                 _DELAY 0.1 ' this fixs Linus issue
394.                                 IsResizing Windows(a), _MOUSEX, _MOUSEY
395.                             END IF
396.                             _DISPLAY
397.                         LOOP
398.                     END IF
399.  
400.             END SELECT
401.         CASE ELSE
402.     END SELECT
403. END SUB
404.  
405. SUB IsResizing (Win AS wChild, mX AS INTEGER, mY AS INTEGER) ' this resize window by mouse
406.     SHARED Windows() AS wChild, OldW() AS wChild
407.     DIM Actio AS INTEGER, OldmX AS INTEGER, OldmY AS INTEGER
408.     Actio = 0
409.     'if mouse X is in the X range of the window
410.     IF IsInTheRange%(mX, Win.X, Win.X + Win.WIDTH) THEN
411.         ' if mouse Y is in the y range of the window
412.         IF IsInTheRange%(mY, Win.Y, Win.Y + Win.Height) THEN
413.             ' do nothing if it is in the range of window
414.         ELSE
415.             ' user click out of area  of window to resize
416.             Actio = StopResize
417.         END IF
418.     ELSE
419.         ' user click out of area  of window to resize
420.         Actio = StopResize
421.     END IF
422.  
423.  
424.  
425.  
426.     ' if mouse X is in the x range  of the leftest button on the window's bar
427.     IF IsInTheRange%(mX, Win.X, Win.X + 10) THEN
428.         ' if mouse Y is in the y range of the window's bar
429.         IF IsInTheRange%(mY, Win.Y, Win.Y + 10) THEN
430.             ' user click on lefttop square to resize
431.             Actio = LResize
432.         END IF
433.     END IF
434.     ' if mouse X is in the range of rightest button of window's bar
435.     IF IsInTheRange%(mX, Win.X + Win.WIDTH - 10, Win.X + Win.WIDTH) THEN
436.         ' if mouse Y is in the y range of the bottom of window
437.         IF IsInTheRange%(mY, Win.Y + Win.Height - 10, Win.Y + Win.Height) THEN
438.             ' user click on the rightbottom square to resize
439.             Actio = RResize
440.         END IF
441.     END IF
442.  
443.     IF Actio = 0 THEN
444.         ' no action done
445.     ELSEIF Actio = LResize THEN
446.         ' choosen LeftTop buttom to resize
447.         OldW(0).X = Win.X
448.         OldW(0).Y = Win.Y
449.         OldW(0).WIDTH = Win.WIDTH
450.         OldW(0).Height = Win.Height
451.         OldmX = _MOUSEX
452.         OldmY = _MOUSEY
453.         DO WHILE Actio = LResize
454.             IF _MOUSEINPUT THEN ' if mouse moves it adapts the dimension to the minimun default value for X and Y
455.                 IF (OldW(0).X + OldW(0).WIDTH - OldmX) >= 70 THEN OldW(0).WIDTH = OldW(0).X + OldW(0).WIDTH - OldmX ELSE OldW(0).WIDTH = 70: OldW(0).X = Win.X + Win.WIDTH - 70: OldmX = OldW(0).X
456.                 IF (OldW(0).Y + OldW(0).Height - OldmY) >= 30 THEN OldW(0).Height = OldW(0).Y + OldW(0).Height - OldmY ELSE OldW(0).Height = 30: OldW(0).Y = Win.Y + Win.Height - 30: OldmY = OldW(0).Y
457.                 CLS , Orange
458.                 DrawAllWin
459.                 ShowDimension OldW(0), Actio
460.                 OldW(0).X = OldmX ' it stores new Oldmx and OldmY
461.                 OldW(0).Y = OldmY
462.  
463.                 OldmX = _MOUSEX
464.                 OldmY = _MOUSEY
465.             ELSE
466.                 IF _MOUSEBUTTON(1) THEN Actio = 0 ' a second leftclick stops the resize action
467.             END IF
468.         LOOP
469.         Win.X = OldW(0).X 'the new dimension of windows are stored
470.         Win.Y = OldW(0).Y
471.         Win.WIDTH = OldW(0).WIDTH
472.         Win.Height = OldW(0).Height
473.  
474.  
475.     ELSEIF Actio = RResize THEN
476.         ' choosen bottomright square
477.         OldW(0).X = Win.X ' it gets the window dimensions
478.         OldW(0).Y = Win.Y
479.         OldW(0).WIDTH = Win.WIDTH
480.         OldW(0).Height = Win.Height
481.         OldmX = _MOUSEX 'actual mouse X and Y
482.         OldmY = _MOUSEY
483.         DO WHILE Actio = RResize ' while is active resize from right
484.             IF _MOUSEINPUT THEN ' if mouse moves it adapts the dimension of window to mouse position
485.                 IF OldmX - OldW(0).X >= 70 THEN OldW(0).WIDTH = OldmX - OldW(0).X
486.                 IF OldmY - OldW(0).Y >= 30 THEN OldW(0).Height = OldmY - OldW(0).Y
487.                 CLS , Orange
488.                 DrawAllWin
489.                 ShowDimension OldW(0), Actio
490.                 OldmX = _MOUSEX
491.                 OldmY = _MOUSEY
492.             ELSE
493.                 IF _MOUSEBUTTON(1) THEN Actio = 0 ' il mouse leftclick it stops resize
494.             END IF
495.         LOOP
496.         Win.X = OldW(0).X 'it adjusts the dimensions of window to the new status
497.         Win.Y = OldW(0).Y
498.         Win.WIDTH = OldW(0).WIDTH
499.         Win.Height = OldW(0).Height
500.  
501.     ELSEIF Actio = StopResize THEN
502.         ' click out of window to stop resize action
503.         Win.Status = Minim
504.     END IF
505. END SUB
506.  
507. SUB ShowDimension (win AS wChild, Actio AS INTEGER) ' it shows skeleton of window with 2 buttons for dimensioning
508.     IF win.Status = cResize AND Actio = 0 THEN
509.         LINE (win.X, win.Y)-(win.X + win.WIDTH, win.Y + win.Height), White, B ' windows size
510.     ELSEIF Actio = LResize THEN
511.         LINE (win.X, win.Y)-(win.X + win.WIDTH, win.Y + win.Height), White, B , 45 ' windows size
512.     ELSEIF Actio = RResize THEN
513.         LINE (win.X, win.Y)-(win.X + win.WIDTH, win.Y + win.Height), White, B , 200 ' windows size
514.     END IF
515.     LINE (win.X, win.Y)-(win.X + 10, win.Y + 10), White, BF 'button for resizing window
516.     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
517.     _DISPLAY
518. END SUB
519.  
520. FUNCTION IsInWindow (X AS INTEGER, Y AS INTEGER, Win AS wChild) 'it searches if mouse is in window passed as Win
521.     IsInWindow = mFalse
522.     IF IsInTheRange%(Y, Win.Y + 11, Win.Y + Win.Height) = mTrue THEN
523.         ' if window is closed to its bar it cannot get focus on the window area
524.         IF IsInTheRange%(X, Win.X, Win.X + Win.WIDTH) AND (Win.Status < Closed) THEN IsInWindow = Focusing
525.     ELSEIF IsInTheRange%(Y, Win.Y, Win.Y + 10) = mTrue THEN
526.         ' if it is the window bar area
527.         IF IsInTheRange%(X, Win.X + 10, Win.X + Win.WIDTH - 31) THEN
528.             ' if it is to the left of buttons on the bar
529.             IsInWindow = Dragging
530.         ELSEIF IsInTheRange%(X, Win.X + Win.WIDTH - 30, Win.X + Win.WIDTH - 21) THEN
531.             ' if it is on the leftest button on the bar
532.             IsInWindow = cMinim ' icon minimize--> restore to child default
533.         ELSEIF IsInTheRange%(X, Win.X + Win.WIDTH - 20, Win.X + Win.WIDTH - 11) THEN
534.             ' if it is on the middle button on the bar
535.             IsInWindow = cMaxim ' icon maximize--> expand to fullscreen
536.         ELSEIF IsInTheRange%(X, Win.X + Win.WIDTH - 10, Win.X + Win.WIDTH) THEN
537.             ' if is on the rightest button on the bar
538.             IsInWindow = cClosed ' icon close-->reduce to the  bar of child window
539.         ELSEIF IsInTheRange%(X, Win.X, Win.X + 10) THEN ' if is on the left side of bar on Resize button
540.             IsInWindow = cResize
541.         END IF
542.     END IF
543. END FUNCTION
544.  
545. FUNCTION IsInTheRange% (What AS INTEGER, Min AS INTEGER, Max AS INTEGER) ' it tests if What is between Min and Max
546.     IF Min > Max THEN SWAP Min, Max
547.     IF What > Min AND What < Max THEN IsInTheRange% = mTrue ELSE IsInTheRange% = mFalse
548. END FUNCTION
549.  
550. SUB dragWindow (Win AS wChild) ' this draw the white skeleton of a window
551.     LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + Win.Height), White, B ' windows size
552.     LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), White, BF 'title bar for dragging window
553.     _DISPLAY
554. END SUB
555.  
556. SUB wClosed (Win AS wChild) 'title bar button for show only title bar of window
557.     LINE (Win.X + Win.WIDTH - 10, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), Pink, BF
558.     LINE (Win.X + Win.WIDTH - 10, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), Black, B
559.     LINE (Win.X + Win.WIDTH - 7, Win.Y + 3)-(Win.X + Win.WIDTH - 3, Win.Y + 7), Black
560.     LINE (Win.X + Win.WIDTH - 7, Win.Y + 7)-(Win.X + Win.WIDTH - 3, Win.Y + 3), Black
561. END SUB
562.  
563. SUB wMaxim (win AS wChild) 'title bar  button for maximize to the whole main window
564.     LINE (win.X + win.WIDTH - 20, win.Y)-(win.X + win.WIDTH - 10, win.Y + 10), Pink, BF
565.     LINE (win.X + win.WIDTH - 20, win.Y)-(win.X + win.WIDTH - 10, win.Y + 10), Black, B
566.     LINE (win.X + win.WIDTH - 17, win.Y + 3)-(win.X + win.WIDTH - 13, win.Y + 7), Black, B
567. END SUB
568.  
569. SUB wMinim (Win AS wChild) 'title bar button for restore to original dimensions
570.     LINE (Win.X + Win.WIDTH - 30, Win.Y)-(Win.X + Win.WIDTH - 20, Win.Y + 10), Pink, BF
571.     LINE (Win.X + Win.WIDTH - 30, Win.Y)-(Win.X + Win.WIDTH - 20, Win.Y + 10), Black, B
572.     LINE (Win.X + Win.WIDTH - 27, Win.Y + 3)-(Win.X + Win.WIDTH - 23, Win.Y + 4), Black, BF
573.     LINE (Win.X + Win.WIDTH - 27, Win.Y + 3)-(Win.X + Win.WIDTH - 23, Win.Y + 7), Black, B , &B1010101010101010
574. END SUB
575.  
576. SUB wResize (Win AS wChild) 'title bar button for resize  dimensions of window
577.     LINE (Win.X, Win.Y)-(Win.X + 10, Win.Y + 10), Pink, BF
578.     LINE (Win.X, Win.Y)-(Win.X + 10, Win.Y + 10), Black, B
579.     LINE (Win.X + 2, Win.Y + 2)-(Win.X + 7, Win.Y + 7), Black, B , &B1010101010101010
580. END SUB
581.  
582. SUB DrawWindow (Win AS wChild, a AS INTEGER) ' it draws a window aspect following its status
583.     SHARED L() AS Label
584.     ' the window
585.     IF Win.Status = Minim OR Win.Status = Maxim THEN
586.         LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + Win.Height), Win.COLOR, BF
587.         LINE (Win.X, Win.Y + Win.Height)-(Win.X + Win.WIDTH, Win.Y + Win.Height), Black
588.         LINE (Win.X + Win.WIDTH, Win.Y)-(Win.X + Win.WIDTH, Win.Y + Win.Height), Black
589.     END IF
590.     ' the title bar
591.     LINE (Win.X, Win.Y)-(Win.X + Win.WIDTH, Win.Y + 10), Pink, BF 'title bar for dragging window
592.     LINE (Win.X, Win.Y + 10)-(Win.X + Win.WIDTH, Win.Y + 10), Black
593.     wMinim Win
594.     wMaxim Win
595.     wClosed Win
596.     wResize Win
597.  
598.     ' the content of the window
599.     IF Win.Name = L(a).Parent THEN ShowString L(a), Win
600.  
601.  
602. END SUB
603.  
604. SUB GetInput (Act AS INTEGER) ' manager of input by keyboard & mouse
605.     DIM mInput AS INTEGER ' flag of commands of mouse
606.  
607.  
608.     ' keyboard input
609.     a$ = INKEY$
610.     IF a$ = CHR$(27) THEN Act = aQuit 'keyboard's command in feedback by Act
611.  
612.     'mouse input
613.     mInput = mFalse
614.     IF _MOUSEINPUT THEN mInput = mTrue
615.     DO WHILE _MOUSEINPUT 'clear buffer of mouse
616.     LOOP
617.     IF mInput THEN ' here flag of mouse gets the command's values
618.         IF _MOUSEBUTTON(1) AND _MOUSEBUTTON(2) THEN
619.             mInput = mLR
620.         ELSEIF _MOUSEBUTTON(1) THEN
621.             mInput = mLeft
622.         ELSEIF _MOUSEBUTTON(2) THEN
623.             mInput = mRight
624.         ELSEIF _MOUSEBUTTON(3) THEN
625.             mInput = mMiddle
626.         END IF
627.     END IF
628.     'mouse's command in feedback by Act
629.     IF mInput = mLR THEN
630.         Act = aQuit
631.     ELSEIF mInput = mMiddle THEN
632.         Act = Minim
633.     ELSEIF mInput = mRight THEN
634.         Act = Maxim
635.     ELSEIF mInput = mLeft THEN
636.         Act = mInput
637.     END IF
638. END SUB
639.  

Thanks to try