GUI 98 - open source : ) - GameCreators Forum

Author

Message

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 12th Jul 2006 16:34

Link

I've been working on a windows 98 (almost) perfect GUI for about a week. It is functional, but you can't add text/buttons to a window yet.

Done:

Windows can be minimized/maximized/restored/closed. You can have a container window which can hold other windows and can only be resized by the program. Other windows can be resized. Windows can be moved. Windows can have a title bar icon before the title.

Working on:
Form editor so that you can load premade forms such as alert box etc.

Not done YET:
Form file format. Events (such as button clicked). Optimisation: can be a frame rate hogger if you have more than ten windows.

Here's a demo including the functions so far:

REM Project: GUI 98
REM Created: 7/9/06 7:06:07 PM
REM
REM ***** Main Source File *****
REM GUI 98 by Diggory Blake

sync on

global drag as boolean
global offsetx as integer
global offsety as integer
global omc as byte
global msc as byte
global msx as integer
global msy as integer
global container as string
global curimg as word

container = "window0"

type gui

name as string
   caption as string
   icon as word
   alpha as byte
   xpos as integer
   ypos as integer
   width as integer
   height as integer
   colour as dword
   visibility as boolean
   minimized as boolean
   maximized as boolean
   oldx as integer
   oldy as integer
   oldw as integer
   oldh as integer
   ptake as byte

endtype

set image colorkey 255,0,255
load image "funnyico.bmp",1

init()

CreateWindow("window0","COOL",0,0,1024,768,rgb(128,128,128))
SetIcon("window0", 1)

CreateWindow("window1","TEST",10,10,200,200,rgb(255,0,0))
CreateWindow("window2","TEST",50,50,200,200,rgb(0,255,0))
CreateWindow("window3","TEST",90,90,200,200,rgb(0,0,255))
CreateWindow("window4","TEST",130,130,200,200,rgb(255,0,0))
CreateWindow("window5","TEST",170,170,200,200,rgb(0,255,0))

do

DrawWindows()

ink rgb(255,255,255),0
   text 50,80,str$(screen fps())

sync

cls

loop

function init()

hide mouse
   global dim windows(-1) as gui
   global dim taken(10) as boolean
   load image "Hresize.png",1000,1
   load image "Vresize.png",1001,1
   load image "HVresize.png",1002,1
   load image "Cursor.png",1003,1
   load image "Buttons.png",1004,1
   load image "Restore.png",1005,1

endfunction

function CreateWindow(name as string,caption as string,x as integer,y as integer,w as integer,h as integer,colour as dword)

array insert at bottom windows(0)
   num = array count(windows(0))
   windows(num).name = name
   windows(num).caption = caption
   windows(num).xpos = x
   windows(num).ypos = y
   windows(num).width = w
   windows(num).height = h
   windows(num).colour = colour
   windows(num).visibility = 1

endfunction

function DestroyWindow(name as string)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         if windows(num).ptake > 0
            taken(windows(num).ptake-1) = 0
         endif
         array delete element windows(0),find
         goto found1
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found1:

endfunction

function BringToFront(name as string)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         array insert at bottom windows(0)
         windows(num+1) = windows(find)
         array delete element windows(0),find
         goto found2
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found2:

endfunction

function SendToBack(name as string)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         array insert at top windows(0)
         windows(0) = windows(find)
         array delete element windows(0),find
         goto found3
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found3:

endfunction

function DestroySystem()

undim windows(0)

endfunction

function RenameWindow(name as string, newname as string)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).name = newname
         goto found4
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found4:

endfunction

function SetCaption(name as string, caption as string)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).caption = caption
         goto found5
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found5:

endfunction

function SetIcon(name as string, icon as word)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).icon = icon
         goto found6
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found6:

endfunction

function SetAlpha(name as string, alpha as byte)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).alpha = alpha
         goto found7
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found7:

endfunction

function PositionWindow(name as string, x as integer, y as integer)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).xpos = x
         windows(find).ypos = y
         goto found8
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found8:

endfunction

function ResizeWindow(name as string, w as integer, h as integer)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).width = w
         windows(find).height = h
         goto found9
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found9:

endfunction

function ColourWindow(name as string, colour as dword)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).colour = colour
         goto found10
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found10:

endfunction

function SetWindow(name as string,caption as string,x as integer,y as integer,w as integer,h as integer,colour as dword)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).caption = caption
         windows(find).xpos = x
         windows(find).ypos = y
         windows(find).width = w
         windows(find).height = h
         windows(find).colour = colour
         goto found11
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found11:

endfunction

function SetAdvancedWindow(name as string,caption as string,icon as word,alpha as byte,x as integer,y as integer,w as integer,h as integer,colour as dword,visible as boolean)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).caption = caption
         windows(find).xpos = x
         windows(find).ypos = y
         windows(find).width = w
         windows(find).height = h
         windows(find).colour = colour
         windows(find).visibility = visible
         goto found12
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found12:

endfunction

function ShowWindow(name as string, visible as boolean)

num = array count(windows(0))

for find = 0 to num
      if windows(find).name = name
         windows(find).visibility = visible
         goto found13
      endif
   next find

exit prompt "Window does not exist!","Error 1"
   end

found13:

endfunction

function DrawWindows()

curimg = 1003
   temp as float
   num = array count(windows(0))
   newfocus = num

omc = msc
   msc = mouseclick()
   msx = mousex()
   msy = mousey()

for draw = 0 to num
      if windows(draw).visibility = 1
         lp = windows(draw).xpos
         tp = windows(draw).ypos
         rp = windows(draw).xpos + windows(draw).width
         bp = windows(draw).ypos + windows(draw).height
         if msc = 1 and drag = 0 and msc <> omc and windows(draw).name <> container
            if msx > lp and msx < rp
               if msy > tp and msy < bp
                  newfocus = draw
               endif
            endif
         endif

ink rgb(220,220,220),0
         line lp,tp,lp,bp-2
         line lp,tp,rp-2,tp
         ink rgb(255,255,255),0
         line lp+1,tp+1,lp+1,bp-3
         line lp+1,tp+1,rp-3,tp+1
         ink rgb(192,192,192),0
         line lp+2,tp+2,lp+2,bp-4
         line lp+2,tp+2,rp-4,tp+2
         line lp+3,tp+3,lp+3,bp-5
         line lp+3,tp+3,rp-5,tp+3

line lp+2,bp-3,rp-3,bp-3
         line rp-3,tp+2,rp-3,bp-4
         line lp+3,bp-4,rp-4,bp-4
         line rp-4,tp+3,rp-4,bp-4

line lp+4,tp+23,rp-5,tp+23
         line lp+4,tp+24,rp-5,tp+24

ink rgb(128,128,128),0
         line lp+1,bp-2,rp-2,bp-2
         line rp-2,tp+1,rp-2,bp-3

line lp+4,tp+25,rp-5,tp+25

ink 0,0
         line lp,bp-1,rp-1,bp-1
         line rp-1,tp,rp-1,bp-2

line lp+4,tp+26,rp-5,tp+26

ink windows(draw).colour,0
         box lp+4,tp+27,rp-4,bp-4
         if draw = num or windows(draw).name = container
            box lp+4,tp+4,rp-4,tp+23,rgb(0,0,128),rgb(0,0,128),rgb(16,132,208),rgb(16,132,208)
            ink rgb(255,255,255),0
         else
            box lp+4,tp+4,rp-4,tp+23,rgb(128,128,128),rgb(128,128,128),rgb(181,181,181),rgb(181,181,181)
            ink rgb(192,192,192),0
         endif
         if windows(draw).icon > 0
            paste image windows(draw).icon,lp+5,tp+5,1
            text lp+21,tp+6,windows(draw).caption
         else
            text lp+5,tp+6,windows(draw).caption
         endif
         if container <> windows(draw).name
            paste image 1004,rp - 57,tp+6,1
            if windows(draw).maximized XOR windows(draw).minimized
               paste image 1005,rp-41,tp+6,1
            endif
         endif
      endif

next draw

if newfocus < num
      array insert at bottom windows(0)
      windows(num+1) = windows(newfocus)
      array delete element windows(0),newfocus
   endif

lp = windows(num).xpos
   tp = windows(num).ypos
   rp = windows(num).xpos + windows(num).width
   bp = windows(num).ypos + windows(num).height

if msc = 1 and msc <> omc
      if drag = 0
         if msx > lp and msx < rp
            if msy > tp and msy < tp+23
               if msx > rp-58 and msx < rp - 6 and msy > tp+5 and msy < tp+20
                  if msx > rp-23
                     if windows(num).ptake > 0
                        taken(windows(num).ptake-1) = 0
                     endif
                     array delete element windows(0),num
                     dec num
                  else
                     if msx > rp-41 and msx < rp-24
                        if windows(num).ptake > 0
                           taken(windows(num).ptake-1) = 0
                           windows(num).ptake = 0
                        endif
                        if windows(num).minimized = 1
                           windows(num).minimized = 0
                           if windows(num).maximized = 1
                              windows(num).xpos = 0
                              windows(num).ypos = 0
                              windows(num).width = screen width()
                              windows(num).height = screen height()
                           else
                              windows(num).xpos = windows(num).oldx
                              windows(num).ypos = windows(num).oldy
                              windows(num).width = windows(num).oldw
                              windows(num).height = windows(num).oldh
                           endif
                        else
                           if windows(num).maximized = 1
                              windows(num).maximized = 0
                              windows(num).xpos = windows(num).oldx
                              windows(num).ypos = windows(num).oldy
                              windows(num).width = windows(num).oldw
                              windows(num).height = windows(num).oldh
                           else
                              windows(num).maximized = 1
                              windows(num).oldx = windows(num).xpos
                              windows(num).oldy = windows(num).ypos
                              windows(num).oldw = windows(num).width
                              windows(num).oldh = windows(num).height
                              windows(num).xpos = 0
                              windows(num).ypos = 0
                              windows(num).width = screen width()
                              windows(num).height = screen height()
                           endif
                        endif
                     else
                        if msx < rp-40
                           if windows(num).maximized = 0
                              windows(num).oldx = windows(num).xpos
                              windows(num).oldy = windows(num).ypos
                              windows(num).oldw = windows(num).width
                              windows(num).oldh = windows(num).height
                           endif
                           windows(num).ptake = GetMinPos()
                           windows(num).xpos = 10+((windows(num).ptake-1)*102)
                           windows(num).ypos = (screen height()-35)
                           windows(num).width = 100
                           windows(num).height = 27
                           windows(num).minimized = 1
                        endif
                     endif
                  endif
               else
                  drag = 1
                  offsetx = msx-lp
                  offsety = msy-tp
               endif
            endif
         endif
      endif
   endif
   if drag = 0 and windows(num).minimized = 0
      if msy > tp and msy < bp-3
         if msx > rp-4 and msx < rp+4
            if msc = 1 and msc <> omc
               drag = 2
            endif
            curimg = 1000
         endif
      endif
      if msx > lp and msx < rp-3
         if msy > bp-4 and msy < bp+4
            if msc = 1 and msc <> omc
               drag = 3
            endif
            curimg = 1001
         endif
      endif
      if msx > rp-4 and msx < rp+4
         if msy > bp-4 and msy < bp+4
            if msc = 1 and msc <> omc
               drag = 4
            endif
            curimg = 1002
         endif
      endif
   endif
   if msc = 0
      drag = 0
   endif
   if drag = 1
      windows(num).xpos = (msx-offsetx)
      windows(num).ypos = (msy-offsety)
      if windows(num).ptake > 0
         taken(windows(num).ptake-1) = 0
         windows(num).ptake = 0
      endif
   endif
   if drag = 2 or drag = 4
      curimg = 1000
      windows(num).width = (msx-windows(num).xpos)
   endif
   if drag > 2
      curimg = 1001
      windows(num).height = (msy-windows(num).ypos)
   endif
   if drag = 4
      curimg = 1002
   endif
   if windows(num).height < 27 then windows(num).height = 27
   if windows(num).width < 100 then windows(num).width = 100

sprite 1000,msx-8,msy-8,curimg

endfunction

function GetMinPos()

for gmp = 0 to 10
      if taken(gmp) = 0
         taken(gmp) = 1
         goto gotit
      endif
   next gmp
   gmp = 0

gotit:

inc gmp

endfunction gmp

+ Code Snippet


REM Project: GUI 98
REM Created: 7/9/06 7:06:07 PM
REM
REM ***** Main Source File *****
REM GUI 98 by Diggory Blake

sync on

global drag as boolean
global offsetx as integer
global offsety as integer
global omc as byte
global msc as byte
global msx as integer
global msy as integer
global container as string
global curimg as word

container = "window0"

type gui

   name as string
   caption as string
   icon as word
   alpha as byte
   xpos as integer
   ypos as integer
   width as integer
   height as integer
   colour as dword
   visibility as boolean
   minimized as boolean
   maximized as boolean
   oldx as integer
   oldy as integer
   oldw as integer
   oldh as integer
   ptake as byte

endtype

set image colorkey 255,0,255
load image "funnyico.bmp",1

init()

CreateWindow("window0","COOL",0,0,1024,768,rgb(128,128,128))
SetIcon("window0", 1)

CreateWindow("window1","TEST",10,10,200,200,rgb(255,0,0))
CreateWindow("window2","TEST",50,50,200,200,rgb(0,255,0))
CreateWindow("window3","TEST",90,90,200,200,rgb(0,0,255))
CreateWindow("window4","TEST",130,130,200,200,rgb(255,0,0))
CreateWindow("window5","TEST",170,170,200,200,rgb(0,255,0))

do

   DrawWindows()

   ink rgb(255,255,255),0
   text 50,80,str$(screen fps())

   sync

   cls

loop

function init()

   hide mouse
   global dim windows(-1) as gui
   global dim taken(10) as boolean
   load image "Hresize.png",1000,1
   load image "Vresize.png",1001,1
   load image "HVresize.png",1002,1
   load image "Cursor.png",1003,1
   load image "Buttons.png",1004,1
   load image "Restore.png",1005,1

endfunction

function CreateWindow(name as string,caption as string,x as integer,y as integer,w as integer,h as integer,colour as dword)

   array insert at bottom windows(0)
   num = array count(windows(0))
   windows(num).name = name
   windows(num).caption = caption
   windows(num).xpos = x
   windows(num).ypos = y
   windows(num).width = w
   windows(num).height = h
   windows(num).colour = colour
   windows(num).visibility = 1

endfunction

function DestroyWindow(name as string)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         if windows(num).ptake > 0
            taken(windows(num).ptake-1) = 0
         endif
         array delete element windows(0),find
         goto found1
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found1:

endfunction

function BringToFront(name as string)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         array insert at bottom windows(0)
         windows(num+1) = windows(find)
         array delete element windows(0),find
         goto found2
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found2:

endfunction

function SendToBack(name as string)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         array insert at top windows(0)
         windows(0) = windows(find)
         array delete element windows(0),find
         goto found3
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found3:

endfunction

function DestroySystem()

   undim windows(0)

endfunction

function RenameWindow(name as string, newname as string)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).name = newname
         goto found4
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found4:

endfunction

function SetCaption(name as string, caption as string)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).caption = caption
         goto found5
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found5:

endfunction

function SetIcon(name as string, icon as word)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).icon = icon
         goto found6
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found6:

endfunction

function SetAlpha(name as string, alpha as byte)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).alpha = alpha
         goto found7
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found7:

endfunction

function PositionWindow(name as string, x as integer, y as integer)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).xpos = x
         windows(find).ypos = y
         goto found8
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found8:

endfunction

function ResizeWindow(name as string, w as integer, h as integer)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).width = w
         windows(find).height = h
         goto found9
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found9:

endfunction

function ColourWindow(name as string, colour as dword)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).colour = colour
         goto found10
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found10:

endfunction

function SetWindow(name as string,caption as string,x as integer,y as integer,w as integer,h as integer,colour as dword)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).caption = caption
         windows(find).xpos = x
         windows(find).ypos = y
         windows(find).width = w
         windows(find).height = h
         windows(find).colour = colour
         goto found11
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found11:

endfunction

function SetAdvancedWindow(name as string,caption as string,icon as word,alpha as byte,x as integer,y as integer,w as integer,h as integer,colour as dword,visible as boolean)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).caption = caption
         windows(find).xpos = x
         windows(find).ypos = y
         windows(find).width = w
         windows(find).height = h
         windows(find).colour = colour
         windows(find).visibility = visible
         goto found12
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found12:

endfunction

function ShowWindow(name as string, visible as boolean)

   num = array count(windows(0))

   for find = 0 to num
      if windows(find).name = name
         windows(find).visibility = visible
         goto found13
      endif
   next find

   exit prompt "Window does not exist!","Error 1"
   end

found13:

endfunction

function DrawWindows()

   curimg = 1003
   temp as float
   num = array count(windows(0))
   newfocus = num

   omc = msc
   msc = mouseclick()
   msx = mousex()
   msy = mousey()

   for draw = 0 to num
      if windows(draw).visibility = 1
         lp = windows(draw).xpos
         tp = windows(draw).ypos
         rp = windows(draw).xpos + windows(draw).width
         bp = windows(draw).ypos + windows(draw).height
         if msc = 1 and drag = 0 and msc <> omc and windows(draw).name <> container
            if msx > lp and msx < rp
               if msy > tp and msy < bp
                  newfocus = draw
               endif
            endif
         endif

         ink rgb(220,220,220),0
         line lp,tp,lp,bp-2
         line lp,tp,rp-2,tp
         ink rgb(255,255,255),0
         line lp+1,tp+1,lp+1,bp-3
         line lp+1,tp+1,rp-3,tp+1
         ink rgb(192,192,192),0
         line lp+2,tp+2,lp+2,bp-4
         line lp+2,tp+2,rp-4,tp+2
         line lp+3,tp+3,lp+3,bp-5
         line lp+3,tp+3,rp-5,tp+3

         line lp+2,bp-3,rp-3,bp-3
         line rp-3,tp+2,rp-3,bp-4
         line lp+3,bp-4,rp-4,bp-4
         line rp-4,tp+3,rp-4,bp-4

         line lp+4,tp+23,rp-5,tp+23
         line lp+4,tp+24,rp-5,tp+24

         ink rgb(128,128,128),0
         line lp+1,bp-2,rp-2,bp-2
         line rp-2,tp+1,rp-2,bp-3

         line lp+4,tp+25,rp-5,tp+25

         ink 0,0
         line lp,bp-1,rp-1,bp-1
         line rp-1,tp,rp-1,bp-2

         line lp+4,tp+26,rp-5,tp+26

         ink windows(draw).colour,0
         box lp+4,tp+27,rp-4,bp-4
         if draw = num or windows(draw).name = container
            box lp+4,tp+4,rp-4,tp+23,rgb(0,0,128),rgb(0,0,128),rgb(16,132,208),rgb(16,132,208)
            ink rgb(255,255,255),0
         else
            box lp+4,tp+4,rp-4,tp+23,rgb(128,128,128),rgb(128,128,128),rgb(181,181,181),rgb(181,181,181)
            ink rgb(192,192,192),0
         endif
         if windows(draw).icon > 0
            paste image windows(draw).icon,lp+5,tp+5,1
            text lp+21,tp+6,windows(draw).caption
         else
            text lp+5,tp+6,windows(draw).caption
         endif
         if container <> windows(draw).name
            paste image 1004,rp - 57,tp+6,1
            if windows(draw).maximized XOR windows(draw).minimized
               paste image 1005,rp-41,tp+6,1
            endif
         endif
      endif

   next draw

   if newfocus < num
      array insert at bottom windows(0)
      windows(num+1) = windows(newfocus)
      array delete element windows(0),newfocus
   endif

   lp = windows(num).xpos
   tp = windows(num).ypos
   rp = windows(num).xpos + windows(num).width
   bp = windows(num).ypos + windows(num).height

   if msc = 1 and msc <> omc
      if drag = 0
         if msx > lp and msx < rp
            if msy > tp and msy < tp+23
               if msx > rp-58 and msx < rp - 6 and msy > tp+5 and msy < tp+20
                  if msx > rp-23
                     if windows(num).ptake > 0
                        taken(windows(num).ptake-1) = 0
                     endif
                     array delete element windows(0),num
                     dec num
                  else
                     if msx > rp-41 and msx < rp-24
                        if windows(num).ptake > 0
                           taken(windows(num).ptake-1) = 0
                           windows(num).ptake = 0
                        endif
                        if windows(num).minimized = 1
                           windows(num).minimized = 0
                           if windows(num).maximized = 1
                              windows(num).xpos = 0
                              windows(num).ypos = 0
                              windows(num).width = screen width()
                              windows(num).height = screen height()
                           else
                              windows(num).xpos = windows(num).oldx
                              windows(num).ypos = windows(num).oldy
                              windows(num).width = windows(num).oldw
                              windows(num).height = windows(num).oldh
                           endif
                        else
                           if windows(num).maximized = 1
                              windows(num).maximized = 0
                              windows(num).xpos = windows(num).oldx
                              windows(num).ypos = windows(num).oldy
                              windows(num).width = windows(num).oldw
                              windows(num).height = windows(num).oldh
                           else
                              windows(num).maximized = 1
                              windows(num).oldx = windows(num).xpos
                              windows(num).oldy = windows(num).ypos
                              windows(num).oldw = windows(num).width
                              windows(num).oldh = windows(num).height
                              windows(num).xpos = 0
                              windows(num).ypos = 0
                              windows(num).width = screen width()
                              windows(num).height = screen height()
                           endif
                        endif
                     else
                        if msx < rp-40
                           if windows(num).maximized = 0
                              windows(num).oldx = windows(num).xpos
                              windows(num).oldy = windows(num).ypos
                              windows(num).oldw = windows(num).width
                              windows(num).oldh = windows(num).height
                           endif
                           windows(num).ptake = GetMinPos()
                           windows(num).xpos = 10+((windows(num).ptake-1)*102)
                           windows(num).ypos = (screen height()-35)
                           windows(num).width = 100
                           windows(num).height = 27
                           windows(num).minimized = 1
                        endif
                     endif
                  endif
               else
                  drag = 1
                  offsetx = msx-lp
                  offsety = msy-tp
               endif
            endif
         endif
      endif
   endif
   if drag = 0 and windows(num).minimized = 0
      if msy > tp and msy < bp-3
         if msx > rp-4 and msx < rp+4
            if msc = 1 and msc <> omc
               drag = 2
            endif
            curimg = 1000
         endif
      endif
      if msx > lp and msx < rp-3
         if msy > bp-4 and msy < bp+4
            if msc = 1 and msc <> omc
               drag = 3
            endif
            curimg = 1001
         endif
      endif
      if msx > rp-4 and msx < rp+4
         if msy > bp-4 and msy < bp+4
            if msc = 1 and msc <> omc
               drag = 4
            endif
            curimg = 1002
         endif
      endif
   endif
   if msc = 0
      drag = 0
   endif
   if drag = 1
      windows(num).xpos = (msx-offsetx)
      windows(num).ypos = (msy-offsety)
      if windows(num).ptake > 0
         taken(windows(num).ptake-1) = 0
         windows(num).ptake = 0
      endif
   endif
   if drag = 2 or drag = 4
      curimg = 1000
      windows(num).width = (msx-windows(num).xpos)
   endif
   if drag > 2
      curimg = 1001
      windows(num).height = (msy-windows(num).ypos)
   endif
   if drag = 4
      curimg = 1002
   endif
   if windows(num).height < 27 then windows(num).height = 27
   if windows(num).width < 100 then windows(num).width = 100

   sprite 1000,msx-8,msy-8,curimg

endfunction

function GetMinPos()

   for gmp = 0 to 10
      if taken(gmp) = 0
         taken(gmp) = 1
         goto gotit
      endif
   next gmp
   gmp = 0

gotit:

inc gmp

endfunction gmp

The media(just a few pngs) is attached.

Here's a screenshot(any quality loss is due to jpg format):

What do you think so far. Please remember it's WIP

There are three types of people, those that can count and those that can't.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

hyrichter

20

Years of Service

User Offline

Joined: 15th Feb 2004

Location: Arizona

Posted: 12th Jul 2006 18:19

Link

Nifty. Is this all DBP code, or are you using/writing a plugin?

Good performance is better than a good excuse.
CodeSurge -- DBP Editor for serious programmers.

Back to top

Profile PM Email

Sergey K

20

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 12th Jul 2006 18:38

Link

looks cool.. but it would be better if you will make all without media files.

MyNewSite:http://gogetax.com
Forums(About BLO and more):http://gogetax.com/forum

Back to top

Profile PM Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 12th Jul 2006 22:06 Edited at: 13th Jul 2006 12:10

Link

@Hyrichter
It is all in DBP. If the container window was not filling the screen it would be black behind it. It is all done using the DBP drawing commands

@Sergey K
The only media files are the cursors to resize the window, and an image for the 3 top right buttons. The rest is done by using lines.

Thanks for the comments. Can somebody test the code to see if it will work elsewhere?

Here is the face image (not needed if you comment the line which sets the icon for the window). I'm not sure if I included it in my last post

There are three types of people, those that can count and those that can't.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

izaboo

19

Years of Service

User Offline

Joined: 29th Jan 2005

Location:

Posted: 12th Jul 2006 22:40

Link

Works great for me. Very nice work

Back to top

Profile PM Email

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 13th Jul 2006 09:09

Link

Another feature is that if you minimize three windows, they will go in a row along the bottom. If you then move the middle one or do anything to it, when you minimize a different window, it will go in that space.

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 13th Jul 2006 11:15 Edited at: 13th Jul 2006 11:19

Link

I will be sure to keep an eye on this!

This is open-source, meaning I can modify it and post modifications as well as be able to use this in my own projects royalty free?

This is very good! Good job Diggsey!

[EDIT] I made some menu bars before, i'll see if i can get them to look and work with your gui.

I finally have a NEW computer!!!
Windows XP Pro, AMD Athlon 64-BIT Processor, ATI Radeon Graphics, Windows Vista compatable, DirectX 9.0c, 2 Hard Drives, 6 Extra Drives, etc. etc.

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 13th Jul 2006 12:07 Edited at: 13th Jul 2006 12:22

Link

Thanks, yes you can use this source however you like, but if you make it better plz show me what you have done.

Also, if you sell a project using this then plz mention me in the credits

I've been looking into the lock pixels command to increase the speed, but after a test where I filled the screen with colour, using cls/box was over 100 times faster than editing the screen directly

If you don't know, this program runs the best at 1024x768 mode. If this is your default display mode then it runs best if you have Windowed - desktop mode selected.

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 14th Jul 2006 10:40 Edited at: 14th Jul 2006 10:48

Link

Ahh... I have done my menubar code, still not ported for this though... Here are the functions.

function CreateToolBar(c1,c2)
   length=screen width()
   box 0,0,length,20,c1,c2,c1,c2
endfunction

function CreateMenu(menu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   box PosX,0,PosX+80,20,c1,c2,c1,c2
   if len(text$)>9 then text$=left$(text$,9)
   ink rgb(255,255,255),0
   text PosX+2,2,text$
   `menu$(menu_id)=text$
   if mousex()>PosX : if mousey()>PosY : if mousex()<PosX+80 : if mousey()<PosY+20
      box PosX,0,PosX+80,20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,2,text$
   endif : endif : endif : endif
endfunction

function ShowSubMenu(menu_id,submenu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   PosY=submenu_id*20
   PosY=PosY+20
   `Check for the event...
   if len(text$)>9 then text$=left$(text$,9)
   box PosX,PosY,PosX+80,PosY+20,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text PosX+2,PosY+1,text$
   if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY : if mousey()<PosY+20
      box PosX,PosY,PosX+80,PosY+20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,PosY+1,text$
   endif : endif : endif : endif
   `submenu$(menu_id,submenu_id)=text$
endfunction

function IsMenuClicked(menu_id)
   PosX=menu_id*80
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>0 : if mousey()<20
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function IsSubMenuClicked(menu_id,submenu_id)
   PosX=menu_id*80
   PosY=submenu_id*20
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY+20 : if mousey()<PosY+40
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function GuiButton(ButtonX,ButtonY,ButtonSizeX,ButtonSizeY,text$,c1,c2,h1,h2)
   res=0
   `This equasion isnt working! If anyone has a fix, please post...
   `Middle=ButtonSizeX/2
   `Middle=ButtonX+Middle
   `This part just finds X and positions the text there, this is a fix to MIDDLE
   Middle=ButtonX+2
   box ButtonX,ButtonY,ButtonSizeX,ButtonSizeY,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text Middle,ButtonY+2,text$
   if mousex()>ButtonX : if mousex()<ButtonSizeX : if mousey()>ButtonY : if mousey()<ButtonSizeY
      res=1
      box ButtonX,ButtonY,ButtonSizeX,ButtonSizeY,h1,h2,h1,h2
      ink rgb(255,255,0),0
      `center text Middle,ButtonY+2,text$
      text Middle,ButtonY+2,text$
      if mouseclick()=1
         res=2
      endif
   endif : endif : endif : endif
   ink rgb(255,255,255),0
endfunction res

+ Code Snippet

function CreateToolBar(c1,c2)
   length=screen width()
   box 0,0,length,20,c1,c2,c1,c2
endfunction

function CreateMenu(menu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   box PosX,0,PosX+80,20,c1,c2,c1,c2
   if len(text$)>9 then text$=left$(text$,9)
   ink rgb(255,255,255),0
   text PosX+2,2,text$
   `menu$(menu_id)=text$
   if mousex()>PosX : if mousey()>PosY : if mousex()<PosX+80 : if mousey()<PosY+20
      box PosX,0,PosX+80,20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,2,text$
   endif : endif : endif : endif
endfunction

function ShowSubMenu(menu_id,submenu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   PosY=submenu_id*20
   PosY=PosY+20
   `Check for the event...
   if len(text$)>9 then text$=left$(text$,9)
   box PosX,PosY,PosX+80,PosY+20,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text PosX+2,PosY+1,text$
   if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY : if mousey()<PosY+20
      box PosX,PosY,PosX+80,PosY+20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,PosY+1,text$
   endif : endif : endif : endif
   `submenu$(menu_id,submenu_id)=text$
endfunction

function IsMenuClicked(menu_id)
   PosX=menu_id*80
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>0 : if mousey()<20
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function IsSubMenuClicked(menu_id,submenu_id)
   PosX=menu_id*80
   PosY=submenu_id*20
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY+20 : if mousey()<PosY+40
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function GuiButton(ButtonX,ButtonY,ButtonSizeX,ButtonSizeY,text$,c1,c2,h1,h2)
   res=0
   `This equasion isnt working! If anyone has a fix, please post...
   `Middle=ButtonSizeX/2
   `Middle=ButtonX+Middle
   `This part just finds X and positions the text there, this is a fix to MIDDLE
   Middle=ButtonX+2
   box ButtonX,ButtonY,ButtonSizeX,ButtonSizeY,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text Middle,ButtonY+2,text$
   if mousex()>ButtonX : if mousex()<ButtonSizeX : if mousey()>ButtonY : if mousey()<ButtonSizeY
      res=1
      box ButtonX,ButtonY,ButtonSizeX,ButtonSizeY,h1,h2,h1,h2
      ink rgb(255,255,0),0
      `center text Middle,ButtonY+2,text$
      text Middle,ButtonY+2,text$
      if mouseclick()=1
         res=2
      endif
   endif : endif : endif : endif
   ink rgb(255,255,255),0
endfunction res

And a short example...

REM Project: EasyEdit
REM Created: 7/13/2006 2:30:23 PM
REM
REM ***** Main Source File *****
REM
`dim menu$(100)
`dim submenu$(100,100)

box 0,0,256,256,rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
get image 1,0,0,255,255
box 0,0,256,256,rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
get image 2,0,0,255,255
make object cone 1,200
set cartoon shading on 1,1,2
set ambient light 100
color backdrop rgb(0,0,0)
`draw to front
sync on
do
   `Do not use the 'cls' command!!! It will cause 3D objects to not be seen!
   CreateToolBar(rgb(50,50,50),rgb(150,150,150))
   CreateMenu(0,"File",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(1,"Edit",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(2,"View",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(3,"Help",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(4,"123456789",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   File=IsMenuClicked(0) : Edit=IsMenuClicked(1) : View=IsMenuClicked(2) : Help=IsMenuClicked(3) : Test=IsMenuClicked(4)
   if File=1 : a=1 : endif : if Edit=1 : a=2 : endif : if View=1 : a=3 : endif : if Help=1 : a=4 : endif : if Test=1 : a=5 : endif
   if File=1 : repeat : until mouseclick()=0 : endif
   if Edit=1 : repeat : until mouseclick()=0 : endif
   if View=1 : repeat : until mouseclick()=0 : endif
   if Help=1 : repeat : until mouseclick()=0 : endif
   if Test=1 : repeat : until mouseclick()=0 : endif
   if a=1
      ShowSubMenu(0,0,"File1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(0,1,"File2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(0,2,"File3",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(0)=1 then a=0
   endif
   if a=2
      ShowSubMenu(1,0,"Edit1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(1,1,"Edit2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(1)=1 then a=0
   endif
   if a=3
      ShowSubMenu(2,0,"View1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(2)=1 then a=0
   endif
   if a=4
      ShowSubMenu(3,0,"Help1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(3,1,"Help2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(3)=1 then a=0
   endif
   if a=5
      ShowSubMenu(4,0,"Test1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(4,1,"Test2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(4,2,"Test3",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(4)=1 then a=0
   endif
   turn object left 1,1
   sync
loop

function CreateToolBar(c1,c2)
   length=screen width()
   box 0,0,length,20,c1,c2,c1,c2
endfunction

function CreateMenu(menu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   box PosX,0,PosX+80,20,c1,c2,c1,c2
   if len(text$)>9 then text$=left$(text$,9)
   ink rgb(255,255,255),0
   text PosX+2,2,text$
   `menu$(menu_id)=text$
   if mousex()>PosX : if mousey()>PosY : if mousex()<PosX+80 : if mousey()<PosY+20
      box PosX,0,PosX+80,20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,2,text$
   endif : endif : endif : endif
endfunction

function ShowSubMenu(menu_id,submenu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   PosY=submenu_id*20
   PosY=PosY+20
   `Check for the event...
   if len(text$)>9 then text$=left$(text$,9)
   box PosX,PosY,PosX+80,PosY+20,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text PosX+2,PosY+1,text$
   if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY : if mousey()<PosY+20
      box PosX,PosY,PosX+80,PosY+20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,PosY+1,text$
   endif : endif : endif : endif
   `submenu$(menu_id,submenu_id)=text$
endfunction

function IsMenuClicked(menu_id)
   PosX=menu_id*80
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>0 : if mousey()<20
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function IsSubMenuClicked(menu_id,submenu_id)
   PosX=menu_id*80
   PosY=submenu_id*20
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY+20 : if mousey()<PosY+40
         res=1
      endif : endif : endif : endif
   endif
endfunction res

+ Code Snippet

REM Project: EasyEdit
REM Created: 7/13/2006 2:30:23 PM
REM
REM ***** Main Source File *****
REM
`dim menu$(100)
`dim submenu$(100,100)

box 0,0,256,256,rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
get image 1,0,0,255,255
box 0,0,256,256,rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255)),rgb(rnd(255),rnd(255),rnd(255))
get image 2,0,0,255,255
make object cone 1,200
set cartoon shading on 1,1,2
set ambient light 100
color backdrop rgb(0,0,0)
`draw to front
sync on
do
   `Do not use the 'cls' command!!! It will cause 3D objects to not be seen!
   CreateToolBar(rgb(50,50,50),rgb(150,150,150))
   CreateMenu(0,"File",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(1,"Edit",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(2,"View",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(3,"Help",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   CreateMenu(4,"123456789",rgb(50,50,50),rgb(150,150,150),rgb(10,40,50),rgb(110,140,150))
   File=IsMenuClicked(0) : Edit=IsMenuClicked(1) : View=IsMenuClicked(2) : Help=IsMenuClicked(3) : Test=IsMenuClicked(4)
   if File=1 : a=1 : endif : if Edit=1 : a=2 : endif : if View=1 : a=3 : endif : if Help=1 : a=4 : endif : if Test=1 : a=5 : endif
   if File=1 : repeat : until mouseclick()=0 : endif
   if Edit=1 : repeat : until mouseclick()=0 : endif
   if View=1 : repeat : until mouseclick()=0 : endif
   if Help=1 : repeat : until mouseclick()=0 : endif
   if Test=1 : repeat : until mouseclick()=0 : endif
   if a=1
      ShowSubMenu(0,0,"File1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(0,1,"File2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(0,2,"File3",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(0)=1 then a=0
   endif
   if a=2
      ShowSubMenu(1,0,"Edit1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(1,1,"Edit2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(1)=1 then a=0
   endif
   if a=3
      ShowSubMenu(2,0,"View1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(2)=1 then a=0
   endif
   if a=4
      ShowSubMenu(3,0,"Help1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(3,1,"Help2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(3)=1 then a=0
   endif
   if a=5
      ShowSubMenu(4,0,"Test1",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(4,1,"Test2",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      ShowSubMenu(4,2,"Test3",rgb(50,50,50),rgb(150,150,150),rgb(0,0,50),rgb(0,0,150))
      if IsMenuClicked(4)=1 then a=0
   endif
   turn object left 1,1
   sync
loop

function CreateToolBar(c1,c2)
   length=screen width()
   box 0,0,length,20,c1,c2,c1,c2
endfunction

function CreateMenu(menu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   box PosX,0,PosX+80,20,c1,c2,c1,c2
   if len(text$)>9 then text$=left$(text$,9)
   ink rgb(255,255,255),0
   text PosX+2,2,text$
   `menu$(menu_id)=text$
   if mousex()>PosX : if mousey()>PosY : if mousex()<PosX+80 : if mousey()<PosY+20
      box PosX,0,PosX+80,20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,2,text$
   endif : endif : endif : endif
endfunction

function ShowSubMenu(menu_id,submenu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   PosY=submenu_id*20
   PosY=PosY+20
   `Check for the event...
   if len(text$)>9 then text$=left$(text$,9)
   box PosX,PosY,PosX+80,PosY+20,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text PosX+2,PosY+1,text$
   if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY : if mousey()<PosY+20
      box PosX,PosY,PosX+80,PosY+20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,PosY+1,text$
   endif : endif : endif : endif
   `submenu$(menu_id,submenu_id)=text$
endfunction

function IsMenuClicked(menu_id)
   PosX=menu_id*80
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>0 : if mousey()<20
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function IsSubMenuClicked(menu_id,submenu_id)
   PosX=menu_id*80
   PosY=submenu_id*20
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY+20 : if mousey()<PosY+40
         res=1
      endif : endif : endif : endif
   endif
endfunction res

I already posted this in the "Function Collection" Post, so you might already have it.

As for the windows... I'm unsure on how this would go about... But the menubar goes in the main window, you can re-edit the positions.

The GUI is a work in progress, that is why some things just arent working, and the example is messed up to (cant close menus), so that will have to be fixed as well (though, it's not a problem with the GUI...)

Hope that helps a little bit. To make it look more "Windows 98" edit the drawing function to use lines and a single color, with a single highlight, that way you can view my toolbars (and crappy button function) as a True 98 Environment (Well, maybe semi-true).

I may be able to port the code later though...

[EDIT] to avoid using media (if you like) there is an image to code converter in the "Mario - No Media!!!" code snippets post, here is the link, just go down a little bit...
http://forum.thegamecreators.com/?m=forum_view&t=72984&b=6

There ya go!

I finally have a NEW computer!!!
Windows XP Pro, AMD Athlon 64-BIT Processor, ATI Radeon Graphics, Windows Vista compatable, DirectX 9.0c, 2 Hard Drives, 6 Extra Drives, etc. etc.

Back to top

Profile PM Email Website

Diggsey

18

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 14th Jul 2006 10:58

Link

Thanks for the menu commands, though I don't think I will need the button function as I have already got one that already displays in any window. Your menu code will be useful for the container window, because it doesn't move, is the base window, and can't come in front of other windows.

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 15th Jul 2006 08:02

Link

Alright then...

(If there is a delay in my response, it is probobly because i was newbie slapped for a code snippet.)

I finally have a NEW computer!!!
Windows XP Pro, AMD Athlon 64-BIT Processor, ATI Radeon Graphics, Windows Vista compatable, DirectX 9.0c, 2 Hard Drives, 6 Extra Drives, etc. etc.

Back to top

Profile PM Email Website

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 16th Jul 2006 08:34

Link

Here is my GUI update! Enjoy it. It comes with a sidebar and, tabs! As homer simpson would say, "MMmm, Tabs..." lol.

I also added "Information Bar Control" which allows you to write information to a bar at the bottem of the screen. I have also added (again with the also's) a "Point and Click" button control, you can move the mouse towards it, but it won't do anything, it is drawn using a box (1 color) and 4 lines (2 colors), and an image for the picture... The image must be 38x38 to fit as the button is 40x40. It does not use sprites, so this aids in the usability of the functions. I am soon to add more updates, so stay in alert, and continue to try to port the code, my main priority right now though is making everything work with my Game Development software "EasyEdit".

Here is the code...

function CreateToolBar(c1,c2)
   length=screen width()
   box 0,0,length,20,c1,c2,c1,c2
endfunction

function CreateMenu(menu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   box PosX,0,PosX+80,20,c1,c2,c1,c2
   if len(text$)>9 then text$=left$(text$,9)
   ink rgb(255,255,255),0
   text PosX+2,2,text$
   `menu$(menu_id)=text$
   if mousex()>PosX : if mousey()>PosY : if mousex()<PosX+80 : if mousey()<PosY+20
      box PosX,0,PosX+80,20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,2,text$
   endif : endif : endif : endif
endfunction

function ShowSubMenu(menu_id,submenu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   PosY=submenu_id*20
   PosY=PosY+20
   `Check for the event...
   if len(text$)>9 then text$=left$(text$,9)
   box PosX,PosY,PosX+80,PosY+20,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text PosX+2,PosY+1,text$
   if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY : if mousey()<PosY+20
      box PosX,PosY,PosX+80,PosY+20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,PosY+1,text$
   endif : endif : endif : endif
   `submenu$(menu_id,submenu_id)=text$
endfunction

function IsMenuClicked(menu_id)
   PosX=menu_id*80
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>0 : if mousey()<20
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function IsSubMenuClicked(menu_id,submenu_id)
   PosX=menu_id*80
   PosY=submenu_id*20
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY+20 : if mousey()<PosY+40
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function MakeInfoBar(c1,c2)
   Y=Screen height()-20
   W=screen width()
   H=screen height()
   box 0,Y,W,H,c1,c2,c1,c2
endfunction

function WriteInfoBar(unit,text$,c)
   Y=screen height()-20
   H=screen height()
   Unit=Unit*100
   ink rgb(255,255,255),0
   line Unit-2,Y,Unit-2,H
   text Unit,Y+2,text$
endfunction

function ShowSideBar(Side,Width,C1,C2,T1,T2,Title$)
   if Side<1 then Side=1
   if Side>2 then Side=2
   if Side=1 then X=0
   if Side=2 then X=screen width()-Width
   H=Screen height()
   box X,20,X+Width,H-20,C1,C1,C2,C2
   box X,20,X+Width,40,T1,T2,T1,T2
   ink rgb(255,255,255),0
   text X+2,22,Title$
endfunction

function ShowTab(Tab_ID,X,Layer,C1,C2,H1,H2,C3,Title$)
   r=0
   Unit=55
   Position=55*Tab_ID
   Position=Position+X
   Y=Layer*20
   box Position,Y,Position+55,Y+20,C1,C2,C1,C2
   ink C3,0
   line Position,Y,Position+55,Y
   line Position+54,Y,Position+54,Y+19
   ink rgb(255,255,255),0
   text Position+2,Y+2,Title$
   StartX=Position  : StartY=Y
   EndX=Position+55 : EndY=Y+20
   if mousex()>StartX
      if mousey()>StartY
         if mousex()<EndX
            if mousey()<EndY
               box Position,Y,Position+55,Y+20,H1,H2,H1,H2
               ink C3,0
               line Position,Y,Position+55,Y
               line Position+54,Y,Position+54,Y+19
               ink rgb(255,255,0),0
               text Position+2,Y+2,Title$
               r=1
            endif
         endif
      endif
   endif
   if mouseclick()=1
      if mousex()>StartX
         if mousey()>StartY
            if mousex()<EndX
               if mousey()<EndY
                  box Position,Y,Position+55,Y+20,H1,H2,H1,H2
                  ink C3,0
                  line Position,Y,Position+55,Y
                  line Position+54,Y,Position+54,Y+19
                  ink rgb(255,255,0),0
                  text Position+2,Y+2,Title$
                  r=2
               endif
            endif
         endif
      endif
   endif
endfunction r

function ShowPointClickButton(X,Y,MainColor,LightEdge,DarkEdge)
   PosX=X*20      : PosY=Y*20
   SizeX=PosX+20  : SizeY=PosY+20
   box PosX,PosY,SizeX,SizeY,MainColor,MainColor,MainColor,MainColor
   ink LightEdge,0
   line PosX,PosY,PosX,SizeY
   line PosX,PosY,SizeX,PosY
   ink DarkEdge,0
   line SizeX,SizeY,SizeX,PosY
   line SizeX,SizeY,PosX,SizeY
   if mousex()>PosX
      if mousey()>PosY
         if mousex()<SizeX
            if mousey()<SizeY
               r=1
            endif
         endif
      endif
   endif
   if mouseclick()=1
      if mousex()>PosX
         if mousey()>PosY
            if mousex()<SizeX
               if mousey()<SizeY
                  r=2
               endif
            endif
         endif
      endif
   endif
endfunction r

+ Code Snippet

function CreateToolBar(c1,c2)
   length=screen width()
   box 0,0,length,20,c1,c2,c1,c2
endfunction

function CreateMenu(menu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   box PosX,0,PosX+80,20,c1,c2,c1,c2
   if len(text$)>9 then text$=left$(text$,9)
   ink rgb(255,255,255),0
   text PosX+2,2,text$
   `menu$(menu_id)=text$
   if mousex()>PosX : if mousey()>PosY : if mousex()<PosX+80 : if mousey()<PosY+20
      box PosX,0,PosX+80,20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,2,text$
   endif : endif : endif : endif
endfunction

function ShowSubMenu(menu_id,submenu_id,text$,c1,c2,h1,h2)
   PosX=menu_id*80
   PosY=submenu_id*20
   PosY=PosY+20
   `Check for the event...
   if len(text$)>9 then text$=left$(text$,9)
   box PosX,PosY,PosX+80,PosY+20,c1,c2,c1,c2
   ink rgb(255,255,255),0
   text PosX+2,PosY+1,text$
   if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY : if mousey()<PosY+20
      box PosX,PosY,PosX+80,PosY+20,h1,h2,h1,h2
      ink rgb(255,255,0),0
      text PosX+2,PosY+1,text$
   endif : endif : endif : endif
   `submenu$(menu_id,submenu_id)=text$
endfunction

function IsMenuClicked(menu_id)
   PosX=menu_id*80
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>0 : if mousey()<20
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function IsSubMenuClicked(menu_id,submenu_id)
   PosX=menu_id*80
   PosY=submenu_id*20
   res=0
   if mouseclick()=1
      if mousex()>PosX : if mousex()<PosX+80 : if mousey()>PosY+20 : if mousey()<PosY+40
         res=1
      endif : endif : endif : endif
   endif
endfunction res

function MakeInfoBar(c1,c2)
   Y=Screen height()-20
   W=screen width()
   H=screen height()
   box 0,Y,W,H,c1,c2,c1,c2
endfunction

function WriteInfoBar(unit,text$,c)
   Y=screen height()-20
   H=screen height()
   Unit=Unit*100
   ink rgb(255,255,255),0
   line Unit-2,Y,Unit-2,H
   text Unit,Y+2,text$
endfunction

function ShowSideBar(Side,Width,C1,C2,T1,T2,Title$)
   if Side<1 then Side=1
   if Side>2 then Side=2
   if Side=1 then X=0
   if Side=2 then X=screen width()-Width
   H=Screen height()
   box X,20,X+Width,H-20,C1,C1,C2,C2
   box X,20,X+Width,40,T1,T2,T1,T2
   ink rgb(255,255,255),0
   text X+2,22,Title$
endfunction

function ShowTab(Tab_ID,X,Layer,C1,C2,H1,H2,C3,Title$)
   r=0
   Unit=55
   Position=55*Tab_ID
   Position=Position+X
   Y=Layer*20
   box Position,Y,Position+55,Y+20,C1,C2,C1,C2
   ink C3,0
   line Position,Y,Position+55,Y
   line Position+54,Y,Position+54,Y+19
   ink rgb(255,255,255),0
   text Position+2,Y+2,Title$
   StartX=Position  : StartY=Y
   EndX=Position+55 : EndY=Y+20
   if mousex()>StartX
      if mousey()>StartY
         if mousex()<EndX
            if mousey()<EndY
               box Position,Y,Position+55,Y+20,H1,H2,H1,H2
               ink C3,0
               line Position,Y,Position+55,Y
               line Position+54,Y,Position+54,Y+19
               ink rgb(255,255,0),0
               text Position+2,Y+2,Title$
               r=1
            endif
         endif
      endif
   endif
   if mouseclick()=1
      if mousex()>StartX
         if mousey()>StartY
            if mousex()<EndX
               if mousey()<EndY
                  box Position,Y,Position+55,Y+20,H1,H2,H1,H2
                  ink C3,0
                  line Position,Y,Position+55,Y
                  line Position+54,Y,Position+54,Y+19
                  ink rgb(255,255,0),0
                  text Position+2,Y+2,Title$
                  r=2
               endif
            endif
         endif
      endif
   endif
endfunction r

function ShowPointClickButton(X,Y,MainColor,LightEdge,DarkEdge)
   PosX=X*20      : PosY=Y*20
   SizeX=PosX+20  : SizeY=PosY+20
   box PosX,PosY,SizeX,SizeY,MainColor,MainColor,MainColor,MainColor
   ink LightEdge,0
   line PosX,PosY,PosX,SizeY
   line PosX,PosY,SizeX,PosY
   ink DarkEdge,0
   line SizeX,SizeY,SizeX,PosY
   line SizeX,SizeY,PosX,SizeY
   if mousex()>PosX
      if mousey()>PosY
         if mousex()<SizeX
            if mousey()<SizeY
               r=1
            endif
         endif
      endif
   endif
   if mouseclick()=1
      if mousex()>PosX
         if mousey()>PosY
            if mousex()<SizeX
               if mousey()<SizeY
                  r=2
               endif
            endif
         endif
      endif
   endif
endfunction r

NOTE: The code snippet i am refering to has been deleted by mods, so what you see here is fine... (Don't worry, it wasnt a virus)...

Your signature has been erased by a mod - try 600*120 max on the image

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Work in Progress / GUI 98 - open source : )

Attachments

Attachments