VQB 05 - Dev and Demos

[Unseen Machine]

Hi Folk's,

This will be my VQB Dev and demo thread. I'll be posting here when i make demo's or when i make a new feature or improve/fix a current one. I've got a a few in the works.

To begin with, here's a MacOSX style dock demo. I'll be expanding on it to demonstrate other features in the next Demo.

Attached are required files (put in QB64 directory and allow overwrites old files), please give feed back and suggestions/questions.

Code: QB64: [Select]

1. '// VQB Demos - Pt 1. The Dock \\
2. '// By John Onyon a.k.a Unseen Machine \\
3.  
4. CHDIR "VQB\Demo's\Dock\" '// Root file directory
5.  
6. REM $INCLUDE:'VQB\VQB.bi' '// Include the base TYPE's and default constants
7.  
8. DIM HSI AS LONG, WSI AS LONG '// Variables to hold the Width and Height of the screen
9.  
10. HSI = _HEIGHT(_SCREENIMAGE) '// Get system screen width
11. WSI = _WIDTH(_SCREENIMAGE) '// Get system screen height
12.  
13. VQB_Screen 0, 0, WSI, HSI, _RGB32(120, 110, 100), "VQB - Dock Demo" '// Create a screen
14. _FULLSCREEN '// Make full screen mode
15.  
16. '// The dock requires three things, The mouseinfo array, a Dock and an array of however many items you want the dock to have.
17. DIM Mouse(1) AS MouseInfo, Dock AS DOCK, DockItem(4) AS DOCK_ITEM
18.  
19. '// First is array ref then file name and finally helper text (not currently implemented)
20. VQB_DOCK_ITEM_NEW DockItem(0), "Internet_ICON.PNG", "Network and Internet"
21. VQB_DOCK_ITEM_NEW DockItem(1), "Music_ICON.PNG", "Music - DJ64"
22. VQB_DOCK_ITEM_NEW DockItem(2), "Paint_ICON.PNG", "QB Paint"
23. VQB_DOCK_ITEM_NEW DockItem(3), "Games_ICON.PNG", "Games"
24. VQB_DOCK_ITEM_NEW DockItem(4), "Computer_ICON.PNG", "File Explorer"
25.  
26. '// Once you've loaded the images for the dock items you can initialise the dock
27. '// First send the master dock type then number of items, max items and the colour
28. '// Next is Position : BOTTOM, LEFT, TOP or RIGHT
29. '// Then Reflections Either true or false
30. '// Finally the width and height of the screen
31.  
32. VQB_DOCK_NEW Dock, 5, 5, _RGB32(150, 150, 180), BOTTOM, TRUE, FALSE, WSI, HSI
33.  
34. DO
35.   _LIMIT 30 '// Limit frame loops
36.  
37.   CLS '// Clear the screen
38.  
39.   VQB_Mouse_GetInfo Mouse(0) '// Get mouse data
40.  
41.   '// If the return value is > -1 then thats the icon that the mouse is over
42.  
43.   SELECT CASE VQB_DOCK_UPDATE(Dock, DockItem(), Mouse())
44.  
45.     CASE 0
46.       IconText$ = "Internet Icon"
47.     CASE 1
48.       IconText$ = "Music Icon"
49.     CASE 2
50.       IconText$ = "Paint Icon"
51.     CASE 3
52.       IconText$ = "Games Icon"
53.     CASE 4
54.       IconText$ = "Computer Icon"
55.     CASE ELSE
56.       IconText$ = "NO ICON SELECTED"
57.  
58.   END SELECT
59.  
60.   TxtX% = (WSI / 2) - (_PRINTWIDTH(IconText$) / 2)
61.   _PRINTSTRING (TxtX%, HSI / 2), IconText$
62.  
63.   _DISPLAY '// Update the display
64.  
65. LOOP UNTIL Mouse(0).R '// Do this until the right mouse button is clicked
66.  
67.  
68. REM $INCLUDE:'VQB\VQB.bm' '// Include VQB Library
69.  

Thanks and happy coding.

Unseen

[TempodiBasic]

I tried it, it seems to work well.. but how to set a background for the desktop of MacOs?

[Unseen Machine]

I tried it, it seems to work well.. but how to set a background for the desktop of MacOs?

Thanks, and it works ok'ish...there's a lot of modding i'm gonna do for this feature. As for the background, just load an image and putimage it to the screen before the dock update call.

Unseen