Dragon GUI

[Draco9898]

download demo-v0.01a-

Just wanted to make this it's own topic as this is another pet project of mine. I've always wanted to make a nice gooey (GUI). :)

I haven't found any kinks so far, other than the current active window and attached gadgets not changing rendering depth as I haven't gotten to that.

Just got done putting the finishing touches on detecting mouse Z-depth. You shouldn't be able to fiddle with objects behind a window from inside a window...etc.

[kevin]

   Look & runs  good.   Wack a screen up for the lazy punters :)

[Draco9898]

new "demo"

We have:
Window, scrollbar (vert,hori), slider (vert,hori), label (text), button, tray, hook
text entry feild (what a pain in the butt!)

Need to make:
Drop-menu, drop-menu-item (expandable and non), text entry box, value changer box, file-explorer, color-pallete, tree-menu, tree-menu-item

[Draco9898]

Windows now come to top on focus, added check box gadget.

[Draco9898]

DRAGON GUI v0.02 SOURCE.

Need people to fiddle around with this and make some apps. Need feedback.

Commands:
Create_GuiTray - create a tray that you can put buttons into. The Xposition, Ypos, and YLength of the buttons will automatically be handled for you (I.e: you may leave X,Y,Ylen totally blank).
Create_GuiButton - create a button, can be 'attached' on windows and trays
Create_GUIScrollBar - create a scrollbar, can be attached to windows
Create_GUISlider - create a slider, can be attached to windows
   GetSliderPos - gets the sliders bars current position
   SetSliderPosition - sets the sliders position
Create_GUIWindow - creates an empty window with a title bar
   Lock_GUIWindow - will lock a window in place, so it cannot be moved
Create_GuiHook - creates a 'hook', this is like a placeholder you can attach to windows that you can use to position things inside the window, like text or images
Create_GuiLabel - create a text label inside a window or not
Create_GuiTextFeild - creates a text entry box to allow the user to enter a string of text the size of the box
Create_GuiCheckBox - creates a checkbox, attaches to windows or nothing.


HOW to- Make a gadget:
All gadget creation commands return the index of the created gadget for handling, I.E:

Code Select Expand

MyTray = Create_GuiTray(0,0,AScreenW#,18)

How to- attach a button to a window-

Code Select Expand


`windows
DIM Mywindows(1)
Dim Mybuttons(1)
Mywindows(1)=Create_GUIWindow("holding a button",100,200,260,120)
Mybuttons(1)=Create_GuiButton(30,60,40,20,"Button",Mywindows(1))


[kevin]

   Runs good,  but there's a few things you'll have to cover so that punters can build stuff with it.

   How do users detects clicks/events from the gui.  Ie. How do they react to changes like a button state, scroll bar moved, window closed  etc.

   How do I get the position of an object ?

   Can I reposition an object ?
   

Create_GuiTray - create a tray that you can put buttons into. The Xposition, Ypos, and YLength of the buttons will automatically be handled for you (I.e: you may leave X,Y,Ylen totally blank).

What's a tray  ?
     

Create_GuiButton - create a button, can be 'attached' on windows and trays

Can i retrieve or change the button text ?
    How do i know what button was pressed ?

Create_GUIScrollBar - create a scrollbar, can be attached to windows

So this controls the 'viewport' of the window ?   

Create_GUISlider - create a slider, can be attached to windows
   GetSliderPos - gets the sliders bars current position
   SetSliderPosition - sets the sliders position

How do set the scale of the slider ?     
 

Create_GUIWindow - creates an empty window with a title bar
   Lock_GUIWindow - will lock a window in place, so it cannot be moved

   How can I change the windows title  ?
   How can  I close/resize the window ?
   How do i know what window is in focus ?

Create_GuiHook - creates a 'hook', this is like a placeholder you can attach to windows that you can use to position things inside the window, like text or images

    Do I have to Hook an object in order to get it's position/size   
    How can I get the position/size of an object ?
   

Create_GuiLabel - create a text label inside a window or not

Can I set/get the caption after the object has been created?.

Create_GuiTextFeild - creates a text entry box to allow the user to enter a string of text the size of the box

     How I get the text on entry ?   
     

Create_GuiCheckBox - creates a checkbox, attaches to windows or nothing.

  What about a Picture gadget,  so the user attach the picture to the parent.  then render directly to the gadget.    Since it's GUI objectg, if it could return clicks/positions relative to the clicked image.  Then the user wouldn't have to resolve themselves.       

[Draco9898]

   Runs good,  but there's a few things you'll have to cover so that punters can build stuff with it.

Let's do it

   How do users detects clicks/events from the gui.  Ie. How do they react to changes like a button state, scroll bar moved, window closed  etc.

   How do I get the position of an object ?

Code Select Expand


ThisX# = GadgetCol( MyGadgetsIndex ).X#
ThisY# = GadgetCol( MyGadgetsIndex ).Y#


   Can I reposition an object ?

Need to make some commands or some gadgets with parents won't work correctly (windows).

Create_GuiTray - create a tray that you can put buttons into. The Xposition, Ypos, and YLength of the buttons will automatically be handled for you (I.e: you may leave X,Y,Ylen totally blank).

What's a tray  ?

A tray is equal to something like the windows taskbar, which you can populate with stuff

Create_GuiButton - create a button, can be 'attached' on windows and trays

Can i retrieve or change the button text ?
    How do i know what button was pressed ?

Code Select Expand


If DGui.ButtonActive = MyButtonsIndex
   `Do something cool here
Endif


Create_GUIScrollBar - create a scrollbar, can be attached to windows

So this controls the 'viewport' of the window ?   

No, though a little sketchy, you could use them to scroll through various user-coded items. They are going to be used to be built hook-on to various boxes of information.

Create_GUISlider - create a slider, can be attached to windows
   GetSliderPos - gets the sliders bars current position
   SetSliderPosition - sets the sliders position

How do set the scale of the slider ?     

Errrr, yeah need to fix that, currently it's: zero TO gadgetlength-Sliderlength

Create_GUIWindow - creates an empty window with a title bar
   Lock_GUIWindow - will lock a window in place, so it cannot be moved

   How can I change the windows title  ?

Will make a command for this

   How can  I close/resize the window ?

Added closing/opening today. Resize needs a command as all GUI gadgets are just drawn as pre-rendered images.

  How do i know what window is in focus ?

Will add a command, but currently it's whichever gadget has a .Mydepth value of 1

Create_GuiHook - creates a 'hook', this is like a placeholder you can attach to windows that you can use to position things inside the window, like text or images

    Do I have to Hook an object in order to get it's position/size   
    How can I get the position/size of an object ?

Might remove hooks as there are issues with closing windows that would make the user have to do some nesting stuff to get things working right. I wanted to have various gadgets be able to point to any user value, but I can't seem to get it working, which is why I created hooks, which are really just placeholders.
You can get any gadgets position and size using GadgetCol.X#,Y#,Xlen#,YLen# varibles, hooks have a placeholder size so it will adjust other gadgets in trays accordingly.

Create_GuiLabel - create a text label inside a window or not

Can I set/get the caption after the object has been created?.

Need to roll a command for that

Create_GuiTextFeild - creates a text entry box to allow the user to enter a string of text the size of the box

     How I get the text on entry ?   

Need to roll a command for that

  What about a Picture gadget,  so the user attach the picture to the parent.  then render directly to the gadget.    Since it's GUI objectg, if it could return clicks/positions relative to the clicked image.  Then the user wouldn't have to resolve themselves.       

created a image gadget today, will probably make a imageBOX gadget later that only shows part of an image

[Draco9898]

After scouring the internet and playbasic for a math function to find a value using a percent inside a range, I just found it the hard way. Don't laugh, I'm bad at math. As a result, Sliders now accept params for beginning range and ending range. The length of the gadget nor the gadget's bar do not matter any more. ::)

[kevin]

  any progress ?

[Draco9898]

Draw it, draw it FAST....

Recoding the draw routines, currently the GUi only renders the number of windows open and nothing else (unless you interact with a gadget), resulting in a good 300-400 fps boost. Thanks to Kevin for the idea.

Everything is hooked back up and is ready to roll. Demo below.

New image gadget allows you to just burn a image to a window, rather than drawing it every single loop.

Made some procedural red bubbles on two windows. 

update: I wish windows looked like the last screenshot, haha.

[kevin]

  Works well!     One thing the comes to mind however, is that dynamically updating windows like the 'sine wave' one.   Should still refresh when changes made between frames.  So even windows out of focus can be  redrawn.

[Draco9898]

It can, I just made it so it doesn't-

one last screen for awhile-

[Draco9898]

Did someone order some Bug-be-gone?

Fixed some issues with buttons and button-like gadgets and subsequently broke just about everything and the kitchen sink to boot...Hopefully everything should work obediently now.