Sorry your browser is not supported!

`Our beloved Vista-Basic themed window drawing function
function DrawVistaBasicWindow(x, y, width, height, text$, iconimg)
   DrawVistaBasicWindow_Frame(x, y, width, height)
   DrawVistaBasicWindow_Client(x, y, width, height)
   DrawVistaBasicWindow_Caption(x, y, width, height, text$, iconimg)
endfunction

`Break down of the above function - Draws the frame
function DrawVistaBasicWindow_Frame(x, y, width, height)
   topc = rgb(152, 180, 208)
   btmc = rgb(219, 231, 244)
   solc = rgb(185, 209, 234)
   bx0 = x + 2
   by0 = y + 2
   bx1 = bx0 + width - 4
   by1 = by0 + height - 8
   box bx0, by0, bx1 + 1, by1 + 1, btmc, topc, btmc, topc
   box bx0, by1 + 1, bx1 + 1, y + height - 1, solc, solc, solc, solc
   ink 0xff000000, 0
   `Top
   line x + 4, y, bx1 - 2, y
   `Left side
   line bx0, y + 1,bx0 + 2, y + 1
   line x + 1, by0, x + 1, by0 + 2
   line x, by0 + 2, x, y + height
   dot x + 2, by0, 0xff777777
   dot x + 2, by0+1, 0xffcccccc
   dot x + 3, by0, 0xffcccccc
   `Right side
   line bx1 - 2, y + 1, bx1, y + 1
   line x + width - 1, by0, x + width - 1, by0 + 2
   line x + width, by0 + 2, x + width, y + height
   dot bx1, by0, 0xff777777
   dot bx1, by0+1, 0xffcccccc
   dot bx1-1, by0, 0xffcccccc
   `Bottom
   line x, y + height, x + width, y + height
   ink 0xffffffff, 0
   `Top
   line x + 4, y + 1, bx1 - 2, y + 1
   `Left
   line x + 1, y + 4, x + 1, y + height - 1
   ink rgb(40, 207, 228), 0
   `Bottom
   line x + 1, y + height - 1, x + width - 1, y + height - 1
   `Right
   line x + width - 1, y + 4, x + width - 1, y + height - 1
endfunction

`Break down of the above function - Draws the client
function DrawVistaBasicWindow_Client(x, y, width, height)
   bx0 = x + 7
   by0 = y + 25
   bx1 = x + width - 7
   by1 = y + height - 7
   box bx0, by0, bx1, by1, 0xffc9c9c9, 0xffc9c9c9, 0xffc9c9c9, 0xffc9c9c9
endfunction

`Break down of the above function - Draws the caption stuff (text and icon)
function DrawVistaBasicWindow_Caption(x, y, width, height, text$, iconimg)
   ink 0xff000000, 0
   exist = 0
   if iconimg > 0
      if image exist(iconimg)
         exist = 1
      endif
   endif
   if exist = 1
      paste image iconimg, x + 8, y + 5, 1
      text x + 32, y + 5, text$
   else
      text x + 8, y + 5, text$
   endif
endfunction

REM Project: Vista Basic Window
REM Created: 11/14/2007 9:49:06 PM
REM
REM ***** Main Source File *****
REM
sync on
sync
wndx = 5
wndy = 5
wndwidth = 320
wndheight = 240
set text font "MS Sans Serif"

if file exist("icon.bmp")
   load image "icon.bmp", 1
endif

do
   mc = mouseclick()
   mx = mousex()
   my = mousey()
   cls 0xff007777
   if mc = 1
      if drag = 0 and hresize = 0 and vresize = 0
         if mx > wndx and my > wndy
            if mx < wndx + wndwidth and my < wndy + 23
               drag = 1
               dragx = mx - wndx
               dragy = my - wndy
            endif
         endif
         `HResize
         if mx > wndx + wndwidth - 7 and my > wndy + 23
            if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
               hresize = 1
            endif
         endif
         `VResize
         if mx > wndx and my > wndy + wndheight - 7
            if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
               vresize = 1
            endif
         endif
      endif
   else
      drag = 0
      hresize = 0
      vresize = 0
   endif
   if drag = 1
      wndx = mx - dragx
      wndy = my - dragy
   endif
   if hresize = 1
      wndwidth = mx - wndx + 2
      if wndwidth < 120 then wndwidth = 120
      if wndwidth > screen width() then wndwidth = screen width()
   endif
   if vresize = 1
      wndheight = my - wndy + 2
      if wndheight < 32 then wndheight = 32
      if wndheight > screen height() then wndheight = screen height()
   endif
   DrawVistaBasicWindow(wndx, wndy, wndwidth, wndheight, "Hi!", 1)
   sync
loop

`Our beloved Vista-Basic themed window drawing function
function DrawVistaBasicWindow(x, y, width, height, text$, iconimg)
   DrawVistaBasicWindow_Frame(x, y, width, height)
   DrawVistaBasicWindow_Client(x, y, width, height)
   DrawVistaBasicWindow_Caption(x, y, width, height, text$, iconimg)
endfunction

`Break down of the above function - Draws the frame
function DrawVistaBasicWindow_Frame(x, y, width, height)
   topc = rgb(152, 180, 208)
   btmc = rgb(219, 231, 244)
   solc = rgb(185, 209, 234)
   bx0 = x + 2
   by0 = y + 2
   bx1 = bx0 + width - 4
   by1 = by0 + height - 8
   box bx0, by0, bx1 + 1, by1 + 1, btmc, topc, btmc, topc
   box bx0, by1 + 1, bx1 + 1, y + height - 1, solc, solc, solc, solc
   ink 0xff000000, 0
   `Top
   line x + 4, y, bx1 - 2, y
   `Left side
   line bx0, y + 1,bx0 + 2, y + 1
   line x + 1, by0, x + 1, by0 + 2
   line x, by0 + 2, x, y + height
   dot x + 2, by0, 0xff777777
   dot x + 2, by0+1, 0xffcccccc
   dot x + 3, by0, 0xffcccccc
   `Right side
   line bx1 - 2, y + 1, bx1, y + 1
   line x + width - 1, by0, x + width - 1, by0 + 2
   line x + width, by0 + 2, x + width, y + height
   dot bx1, by0, 0xff777777
   dot bx1, by0+1, 0xffcccccc
   dot bx1-1, by0, 0xffcccccc
   `Bottom
   line x, y + height, x + width, y + height
   ink 0xffffffff, 0
   `Top
   line x + 4, y + 1, bx1 - 2, y + 1
   `Left
   line x + 1, y + 4, x + 1, y + height - 1
   ink rgb(40, 207, 228), 0
   `Bottom
   line x + 1, y + height - 1, x + width - 1, y + height - 1
   `Right
   line x + width - 1, y + 4, x + width - 1, y + height - 1
endfunction

`Break down of the above function - Draws the client
function DrawVistaBasicWindow_Client(x, y, width, height)
   bx0 = x + 7
   by0 = y + 25
   bx1 = x + width - 7
   by1 = y + height - 7
   box bx0, by0, bx1, by1, 0xffc9c9c9, 0xffc9c9c9, 0xffc9c9c9, 0xffc9c9c9
endfunction

`Break down of the above function - Draws the caption stuff (text and icon)
function DrawVistaBasicWindow_Caption(x, y, width, height, text$, iconimg)
   ink 0xff000000, 0
   exist = 0
   if iconimg > 0
      if image exist(iconimg)
         exist = 1
      endif
   endif
   if exist = 1
      paste image iconimg, x + 8, y + 5, 1
      text x + 32, y + 5, text$
   else
      text x + 8, y + 5, text$
   endif
endfunction

Sync on
Type oWindow
 w as integer
 h as integer
 x as integer
 y as integer
 title as string
 img as integer
 dragging as integer
 prio as integer
Endtype

Global Windows
Global MXX
Global MYY
Global GrapX
Global GrapY
Global DraggingMarking
Global MarkDragX
Global MarkDragY
Global highestprio
Global DirSelected
Dim Window(0) as oWindow

CreateWindowImages()
Create Bitmap 1,11,11
 Ink RGB(0,128,255),RGB(0,128,255)
 Box 0,0,10,10
 Ink RGB(255,255,255),RGB(255,255,255)
 Line 0,10,0,0
 Line 0,10,10,10
 Line 0,0,10,0
 Line 10,0,10,11
 Line 0,3,10,3
Get image 4,0,0,11,11
Delete Bitmap 1

MakeWindow(4,"Test Window",10,10,640,480)
MakeWindow(4,"Test Window2",50,50,640,480)
MakeWindow(4,"Test Window3",200,200,100,300)
MakeWindow(4,"[SHOW FPS]",300,300,300,300)

Do
 MXX=Mousex()
 MYY=Mousey()
 If MYY>Screen Height()-25 then MYY=Screen Height()-27
 Ink 0,0
 Box 0,0,screen width(),screen height()
 Ink RGB(255,255,255),RGB(255,255,255)
 CheckKeys()
 DrawDir()
 HandleWindows()
 DrawTaskBar()
 fastsync
Loop

Function HandleWindows()
 For wina=0 to windows-1
  If Window(wina).prio>0
  LowestPrio=999
  For wina2=0 to windows-1
   if Window(wina2).prio>0
    if Window(wina2).prio<LowestPrio and Window(wina2).prio>oldPrio then LowestPrio=Window(wina2).prio:win=wina2
   endif
  Next wina2
   oldPrio=LowestPrio
   img=Window(win).img:title$=Window(win).title
   x=Window(win).x:y=Window(win).y
   w=Window(win).w:h=Window(win).h
   Box x,y,x+w,y+h+15
   For yi=y to y+15
    ink rgb(0, 128, 255),rgb(0, 128, 255-yi)
    Line x,yi,x+w+3,yi
   Next yi
   ink rgb(0, 128, 192),rgb(0, 128, 192)
   y=y+15
   For mx=x to x+2
    Line mx,y,mx+w,y
    Line mx,y,mx,y+h+1
    For yi=1 to 3
     Line mx,y+h+yi,mx+w+1,y+h+yi
    Next yi
    Line mx+w,y,mx+w,y+h+2
   Next mx
   ink rgb(255, 255, 255),rgb(255, 255, 255)
   Paste Image Img,x+4,y-13
   Paste Image 1,x+w-10,y-13
   Paste Image 2,x+w-25,y-13 
   Paste Image 3,x+w-40,y-13  
   if window(win).title="[SHOW FPS]" then fpsWin=1:window(win).title="FPS : "+str$(screen fps())
   For tx=0 to window(win).w-text width(window(win).title)
    Text x+13+(tx*8),y-15,mid$(window(win).title,tx)
   Next tx
   if fpsWin=1 then window(win).title="[SHOW FPS]":fpsWin=0
   HandleMouseEvents(Win)
   endif
 Next wina
Endfunction

Function DrawDir()
 if DirSelected=0 then ink rgb(232, 197, 115),rgb(232, 197, 115):else ink rgb(0, 197, 255),rgb(0, 197, 255)
 box 10,10,60,50
 if DirSelected=0 then ink rgb(255, 255, 255),rgb(255, 255, 255):else ink rgb(0, 197, 255),rgb(0, 197, 255)
 text 10,60,"Windows"
 If Mouseclick()
  For Win=0 to windows-1
   If Window(win).prio>0
    If MouseArea(Window(win).x,Window(win).y,Window(win).x+Window(win).w+1,Window(win).y+Window(win).h) then bad=1
   endif
  Next Win
  If bad=0
   If MouseArea(10,10,60,50)
    If DirSelected=1 then MakeWindow(4,"Windows",400,400,640,480):DirSelected=0
    If DirSelected=0 then DirSelected=1
   Else
    DirSelected=0
   Endif
  Else
   DirSelected=0
  Endif
 Endif
 Ink RGB(255,255,255),RGB(255,255,255)
Endfunction

Function DrawTaskBar()
 For y=screen height()-25 to screen height()
  ink rgb(0,128,255),rgb(0,128,255-(screen height()-y))
  Line 0,y,screen width(),y
 Next y
 For y=screen height()-25 to screen height()
  ink rgb(0,255,128),rgb(0,255-(screen height()-y),128)
  Line 0,y,100,y
 Next y 
 Ink 0,0
 Circle screen width()-100,Screen height()-12,5
 Line screen width()-100,Screen height()-7,screen width()-100,Screen height()
 Line screen width()-100,Screen height()-25,screen width()-100,Screen height()-17
 ink rgb(255,255,255),rgb(255,255,255)
 Line screen width()-102,Screen height()-12,screen width()-97,Screen height()-14
 Line screen width()-102,Screen height()-12,screen width()-97,Screen height()-10
 box 5,screen height()-20,20,screen height()-5
 Text 30,Screen Height()-20,"Start"
 Text screen width()-80,screen height()-20,get time$()
 if windows>8 then wins=7 else wins=windows-1
 For i=0 to wins
  If Window(i).prio>0
   If Window(i).prio=HighestPrio
    Ink Rgb(0, 128, 192),Rgb(0, 128, 192)
    Box 120+(x*91),screen height()-23,210+(x*91),screen height()-2
    Ink Rgb(255,255,255),Rgb(255,255,255)
   Endif
   Line 120+(x*91),screen height()-2,210+(x*91),screen height()-2
   Line 120+(x*91),screen height()-2,120+(x*91),screen height()-23
   Line 120+(x*91),screen height()-23,210+(x*91),screen height()-23
   Line 210+(x*91),screen height()-23,210+(x*91),screen height()-2
   Paste Image window(i).img,124+(x*91),screen height()-16
   if window(i).title="[SHOW FPS]" then fpsWin=1:window(i).title="FPS : "+str$(screen fps())   
   For tx=0 to 8
    Text 127+(x*91)+(tx*8),Screen Height()-20,mid$(window(i).title,tx)
   Next tx
   if fpsWin=1 then window(i).title="[SHOW FPS]":fpsWin=0
   If MouseClick() and DraggingMarking=0 and NoneDragging()
    If MouseArea(120+(x*91),screen height()-23,210+(x*91),screen height()-2)
     setWinPrio(i)
    Endif
   Endif
   inc x,1
  Endif
 Next i
Endfunction

Function HandleMouseEvents(Win)
 If Mouseclick() and DraggingMarking=0
  If MouseArea(Window(win).x+Window(win).w-10,Window(win).y+1,Window(win).x+Window(win).w-1,Window(win).y+13) and NoneDragging()
   DestoroyWindow(win)
  Endif
  If MouseArea(Window(win).x,Window(win).y,Window(win).x+Window(win).w+1,Window(win).y+15) and NoneDragging() or Window(win).Dragging=1
   If Window(win).Dragging=0
    GrapX=MXX-Window(win).x
    GrapY=MYY-Window(win).y
    SetWinPrio(win)
   Endif
   Window(win).x=MXX
   Window(win).y=MYY
   Window(win).x=Window(win).x-GrapX
   Window(win).y=Window(win).y-GrapY
   Window(win).Dragging=1
  Endif
 Endif
 If Mouseclick()=0 then Window(win).Dragging=0
Endfunction

Function CheckKeys()
 If Mouseclick() and NoneDragging() or DraggingMarking=1
  For Win=0 to windows-1
   If Window(win).prio>0
    If MouseArea(Window(win).x,Window(win).y,Window(win).x+Window(win).w+1,Window(win).y+Window(win).h) then bad=1
   Endif
  Next Win
  If bad=0 or DraggingMarking=1
  If DraggingMarking=0
   MarkDragX=MXX
   MarkDragY=MYY
  Endif
  Line MarkDragX,MarkDragY,MXX,MarkDragY
  Line MarkDragX,MarkDragY,MarkDragX,MYY
  Line MXX,MarkDragY,MXX,MYY
  Line MarkDragX,MYY,MXX,MYY
  DraggingMarking=1
 Endif
 Endif
 If Mouseclick()=0 then DraggingMarking=0
Endfunction

Function FindWindow()
 for win=0 to windows-1
  if window(win).prio=0 then ok=win
 next win
Endfunction ok

Function DestoroyWindow(win)
 window(win).prio=0:window(win).dragging=0
Endfunction

Function SetWinPrio(win)
 If Window(win).prio>0
 For wina=0 to windows-1
  if wina<>win
   if window(wina).prio>high then high=window(wina).prio
  endif
 Next wina
 window(win).prio=high+1
 highestprio=high+1
 endif
Endfunction

Function NoneDragging()
 For win=0 to windows-1
  If Window(win).prio>0
   if Window(win).dragging=1 then bad=1
  endif
 Next win
 if bad=1 then ok=0 else ok=1
Endfunction ok

Function MouseArea(x1,y1,x2,y2)
 if x1<x2 then first=x1:second=x2:else first=x2:second=x1
 if y1<y2 then first2=y1:second2=y2:else first2=y2:second2=y1
 If mousex()>first and mousex()<second
  If mousey()>first2 and mousey()<second2
   ok=1
  Endif
 Endif
Endfunction ok

Function MakeWindow(Img,Title$,x,y,w,h)
 found=FindWindow()
 if found>0 then windows=found
 if found=0 then Dim Window(windows) as oWindow
 Window(windows).img=img:Window(windows).title=title$
 Window(windows).x=x:Window(windows).y=y
 Window(windows).w=w:Window(windows).h=h
 Window(windows).prio=Windows+1:highestprio=Windows+1
 if found=0 then Inc windows,1
Endfunction

Function CreateWindowImages()
 Create Bitmap 1,11,11
 Ink RGB(255,0,0),RGB(255,0,0)
 Box 0,0,10,10
 Ink RGB(255,255,255),RGB(255,255,255)
 Line 7,2,2,7
 Line 7,7,2,2
 Line 0,10,0,0
 Line 0,10,10,10
 Line 0,0,10,0
 Line 10,0,10,11
 Get image 1,0,0,11,11,1
 Delete Bitmap 1
 Create Bitmap 1,11,11
 Ink RGB(0,128,255),RGB(0,128,255)
 Box 0,0,10,10
 Ink RGB(255,255,255),RGB(255,255,255)
 Line 0,10,0,0
 Line 0,10,10,10
 Line 0,0,10,0
 Line 10,0,10,11
 Line 2,6,2,2
 Line 2,6,6,6
 Line 2,2,6,2
 Line 6,2,6,7
 Get image 2,0,0,11,11,1
 Delete Bitmap 1
 Create Bitmap 1,11,11
 Ink RGB(0,128,255),RGB(0,128,255)
 Box 0,0,10,10
 Ink RGB(255,255,255),RGB(255,255,255)
 Line 0,10,0,0
 Line 0,10,10,10
 Line 0,0,10,0
 Line 10,0,10,11
 Line 2,8,7,8
 Get image 3,0,0,11,11,1
 Delete Bitmap 1
Endfunction

`Set up Game Requirements
Set Display Mode 1280,1024,32
Sync On `: Sync Rate 60

Type Window
   Name        as String  `Window Name
   X           as Integer `X cord of Window
   Y           as Integer `Y Cord of Window
   Width       as Integer `Width of the Window
   Height      as Integer `Height of the Window Body
   Hidden      as Boolean `Is the Window Hidden
   Minimized   as Boolean `Is the Window Minimized
   Bar         as Integer `Sprite/Image Number for Window Bar
   Body        as Integer `Sprite/Image Number for Window Body
   CloseButton as Integer `Sprite/Image Number for Close Button
   MinButton   as Integer `Sprite/Image Number for Minimize Button
EndType : Dim Window(-1) as Window

`Make Sphere
AutoCam On
Make Object Sphere 1,5

CreateWindow("Techniques",400,600)
CreateWindow("Items",300,500)
CreateWindow("Character Profile",500,300)
CreateWindow("Holly mofofofofo",500,300)


Do
   UpdateMouse()
   UpdateWindows()
   Set Cursor 0,800 : Print "FPS:",Screen FPS()
   Set Cursor 0,820 : Print "Window1:",Window(3).Name
   Set Cursor 0,840 : Print "Window2:",Window(2).Name
   Set Cursor 0,860 : Print "Window3:",Window(1).Name
   Set Cursor 0,880 : Print "Window4:",Window(0).Name
   Sync
Loop

Function CreateWindow(WindowName as String, Width as Integer, Height as Integer)

   `Create a New Window in the Array
   Array Insert at Bottom Window()
   aWin as Integer : aWin=Array Count(Window())

   `Initialize Window Variables
   Window(aWin).Name=WindowName
   Window(aWin).Hidden=0 : Window(aWin).Minimized=0
   Window(aWin).X=0 : Window(aWin).Y=0
   Window(aWin).Height=Height : Window(aWin).Width=Width

   `Get Image Numbers For Parts of our Window
   Window(aWin).Bar=GetIDNumber()   : Window(aWin).Body=GetIDNumber()
   Window(aWin).CloseButton=GetIDNumber() : Window(aWin).MinButton=GetIDNumber()

   `Draw Our Window
   Create Bitmap 1, Screen Width(), Screen Height()
   Set Current Bitmap 1

      Ink RGB(2,2,2),1        : Box 0,0,Width,Height+30
      Ink RGB(128,128,128),1  : Box 1,1,Width-1,30
      Ink RGB(2,2,2),1        : Box 2,2,Width-2,30-1
      Ink RGB(128,128,128),1  : Box 1,30+2,Width-1,Height+30-1
      Ink RGB(1,1,1),1        : Box 2,30+3,Width-2,Height+30-2
      Ink RGB(128,128,128),1  : Box (Width-47),6,(Width-31),20
      Ink RGB(2,2,2),1        : Box (Width-46),7,(Width-32),19
      Ink RGB(128,128,128),1  : Box (Width-27),6,(Width-11),20
      Ink RGB(2,2,2),1        : Box (Width-26),7,(Width-12),19

      Set Text Font "Copperplate Gothic Light" : Set Text to Bold : Set Text Size 20
      Ink RGB(156,156,156),1 : Center Text (Width/2),6, WindowName
      Set Text Size 12
      Ink RGB(156,156,156),1 : Center Text (Width-20),6,"x"
      Ink RGB(156,156,156),1 : Center Text (Width-39),6,"v"

      `Convert The Parts of our Windows to Sprites
      Get Image Window(aWin).Bar,0,0,Width,30,1
      Sprite Window(aWin).Bar,0,0,Window(aWin).Bar

      Get Image Window(aWin).MinButton,(Width-47),6,(Width-31),20,1
      Sprite Window(aWin).MinButton,(Width-47),6,Window(aWin).MinButton

      Get Image Window(aWin).CloseButton,(Width-27),6,(Width-11),20,1
      Sprite Window(aWin).CloseButton,(Width-27),6,Window(aWin).CloseButton

      Get Image Window(aWin).Body,0,30,Width,Height+30,1
      SetColorAlpha(Window(aWin).Body,"1,1,1",150)
      Sprite Window(aWin).Body,0,30,Window(aWin).Body

   Set Current Bitmap 0

EndFunction


Function UpdateWindows()

   `Get the Top Window
   Local TopWindow as Integer : TopWindow = Array Count(Window())

   `Change Window Priority If New WindowBar Is Pressed
   For aWin=0 to Array Count(Window())-1

      If Sprite Collision(Window(aWin).Bar,SPMouse)=1 and ButtonState="LeftPressed" and Sprite Collision(Window(TopWindow).Bar,SPMouse)=0
         SetWindowtoTop(aWin)
      EndIf

   Next aWin

   `Move Top WindowBar when Dragged
   If Sprite Collision(Window(TopWindow).Bar,SPMouse)=1

      If ButtonState="LeftPressed"

         Global DistanceX as Integer : DistanceX=Window(TopWindow).X-Mousex()
         Global DistanceY as Integer : DistanceY=Window(TopWindow).Y-Mousey()

      EndIf

      If ButtonState="LeftHeld"

         Window(TopWindow).X = Mousex()+ DistanceX
         Window(TopWindow).Y = Mousey()+ DistanceY

      EndIf

      `Keep Window Bar On Screen
      If Window(TopWindow).X<0 then Window(TopWindow).X=0
      If Window(TopWindow).Y<0 then Window(TopWindow).Y=0
      If Window(TopWindow).X+Window(TopWindow).Width >Screen Width() then Window(TopWindow).X=Screen Width()-Window(TopWindow).Width
      If Window(TopWindow).Y+30>Screen Height() then Window(TopWindow).Y=Screen Height()-30

      `Update Window Sprites
      Sprite Window(TopWindow).Bar,Window(TopWindow).X,Window(TopWindow).Y,Window(TopWindow).Bar
      Sprite Window(TopWindow).Body,Window(TopWindow).X,Window(TopWindow).Y+30,Window(TopWindow).Body
      Sprite Window(TopWindow).MinButton,Window(TopWindow).X+(Window(TopWindow).Width-47),Window(TopWindow).Y+6,Window(TopWindow).MinButton
      Sprite Window(TopWindow).CloseButton,Window(TopWindow).X+(Window(TopWindow).Width-27),Window(TopWindow).Y+6,Window(TopWindow).CloseButton

   EndIf

   `Detect the Minimize Button
   If Sprite Collision(Window(TopWindow).MinButton,SPMouse) and ButtonState="LeftPressed"
      If Sprite Visible(Window(TopWindow).Body)=1
         Hide Sprite Window(TopWindow).Body
      Else
         Show Sprite Window(TopWindow).Body
      EndIf
   EndIf

   `Detect the Close Button
   If Sprite Collision(Window(TopWindow).CloseButton,SPMouse) and ButtonState="LeftPressed"
      Hide Sprite Window(TopWindow).Bar
      Hide Sprite Window(TopWindow).Body
      Hide Sprite Window(TopWindow).MinButton
      Hide Sprite Window(TopWindow).CloseButton
   EndIf

EndFunction


Function SetWindowtoTop(aWindow as Integer)

   Local TempWin as Window
   TempWin=Window(aWindow)
   Array Delete Element Window(),aWindow
   Array Insert At Bottom Window()
   BottomWin=Array Count(Window())
   Window(BottomWin)=TempWin

   `Set Window Priorities Based on Array Position
   For aWin=0 to Array Count(Window())

       Set Sprite Priority Window(aWin).Bar         ,(aWin+1)*100
       Set Sprite Priority Window(aWin).MinButton   ,(aWin+1.1)*100
       Set Sprite Priority Window(aWin).CloseButton ,(aWin+1.1)*100
       Set Sprite Priority Window(aWin).Body        ,(aWin+1)*100

   Next aWin

EndFunction

Function GetIDNumber()

   ` Intialize GetIDNumber()
   If GetIDInit=0
      Dim ID(0) as Integer
      Global GetIDInit as Boolean : GetIDInit=1
   EndIf

   `Safety Check
   If Array Count(ID())>10000
      Exit Prompt "You have reached The maximum amount of ID's allowed", "GetIDNumber Error" : End
   EndIf

   `Pick a Random ID Number
   Local IDNum  as Integer : IDNum =(Rnd(10000)+1)
   Local Unique as Boolean

   `Check if the ID number is being used if so pick another new ID
   Repeat
      If Unique=0
         Unique=1
         For aID=1 to Array Count(ID())
            If ID(aID) = IDNum then IDNum=(Rnd(10000)+1) : Unique=0
         Next aID
      EndIf
   Until Unique=1

   `If the ID Number is free to use then assign it to the ID Array
   Array Insert at Bottom ID()
   ID(Array Count(ID())) = IDNum

EndFunction IDNum



Function UpdateMouse()

   `Initialize Mouse
   If MouseInit=0

      `Set Up Mouse Detection
      Global SPMouse as Integer : SPMouse = GetIDNumber()
      Get Image SPMouse,0,0,1,1 : Sprite SPMouse,Mousex(),Mousey(),SPMouse : Hide Sprite SPMouse

      Global LastMClick  as Integer
      Global MClick      as Integer
      Global ButtonState as String
      Global MousePosX   as Integer
      Global MousePosY   as Integer
      Global MouseInit   as Boolean : MouseInit=1
   EndIf

   LastMClick=MClick
   MClick=MouseClick()

   `Mouse is not held Down
   If MClick=0 and LastMClick=0 then ButtonState="NotPressed"
   `LeftMouse is held Down
   If MClick=1 and LastMClick=0 then ButtonState="LeftPressed"
   `LeftMouse has just Been Pressed
   If MClick=1 and LastMClick=1 then ButtonState="LeftHeld"
   `LeftMouse has just been Lifted
   If MClick=0 and LastMClick=1 then ButtonState="LeftLifted"
   `RightMouse has just been Pressed
   If MClick=2 and LastMClick=0 then ButtonState="RightPressed"
   `RightMouse is held Down
   If MClick=2 and LastMClick=2 then ButtonState="RightHeld"
   `RightMouse has just been Lifted
   If MClick=0 and LastMClick=2 then ButtonState="RightLifted"

   `Update Mouse Position
   Sprite SPMouse,MousePosX,MousePosY,SPMouse
   MousePosX = Mousex()
   MousePosY = Mousey()

Endfunction

Function SetColorAlpha(ImageNumber as Integer, Color as String, Transparency as Byte)

   Make Memblock from Image 1,ImageNumber

   Local Width  as Dword : Width  = Memblock Dword(1,0)
   Local Height as Dword : Height = Memblock Dword(1,4)
   Local Depth  as Dword : Depth  = Memblock Dword(1,8)
   Local PixelPointer as Integer PixelPointer=12

   For Y=1 to Height
      For X=1 to Width

         PixelColor as String
         PixelColor=Str$(Memblock Byte(1 , PixelPointer+2)) + "," + Str$(Memblock Byte(1 , PixelPointer+1)) + "," + Str$(Memblock Byte(1 , PixelPointer))

         If PixelColor=Color
            Write Memblock Byte 1, PixelPointer+3,Transparency
         EndIf

         PixelPointer=PixelPointer+4
      Next X
   Next Y

   Delete Image ImageNumber
   Make Image From Memblock ImageNumber,1

EndFunction

type sWindow
    `For DBP there should be something describing if this is valid
    valid as byte
    `The window's structure goes here <Ex: Position, Size, Title>
    Next as sWindow
    Prev as sWindow
    `If parents/children are supported
    Parent as sWindow
endtype
global g_pWindowList as sWindow
g_pWindowList.valid = 0
g_pWindowList.Next = g_pWindowList
g_pWindowList.Prev = g_pWindowList

struct sWindow; // Declaration to keep the C++ compiler happy
struct sWindow
{
    // No need for a valid byte in C++
    // The rest of the structure goes here
    sWindow* Next;
    sWindow* Prev;
    // Assuming there is a parent/child system
    sWindow* Parent;
};
sWindow* g_pWindowList = NULL;

REM Project: Vista Basic Window
REM Created: 11/14/2007 9:49:06 PM
REM
REM ***** Main Source File *****
REM
sync on
sync
wndx = 5
wndy = 5
wndwidth = 320
wndheight = 240
set text font "MS Sans Serif"

hide mouse

if file exist("icon.bmp")
   load image "icon.bmp", 1, 1
endif

if file exist("cur.bmp") and file exist("cur_h.bmp") and file exist("cur_v.bmp") and file exist("cur_hv.bmp")
   load image "cur.bmp", 10, 1
   load image "cur_h.bmp", 11, 1
   load image "cur_v.bmp", 12, 1
   load image "cur_hv.bmp", 13, 1
endif

`Constants
#constant WM_NULL             0        `Not used at all
#constant WM_CREATE           1        `wParam - Not used, lParam - Not used
#constant WM_CLOSE            2        `wParam - Not used, lParam - Not used
#constant WM_DESTROY          3        `wParam - Not used, lParam - Not used
#constant WM_MOVE             4        `wParam - X, lParam - Y
#constant WM_SIZE             5        `wParam - Width, lParam - Height
#constant WM_PAINT            6        `wParam - Not used, lParam - Not used
`Types
type sMessage                 `A structure to contain the message given to an event
   m_Window as integer           `What window got this message? (Specified by handle ID)
   m_Message as integer          `What is the message for the window?
   m_WParam as integer           `Additional parameter W
   m_LParam as integer           `Additional parameter L
endtype
type sWindow                  `A structure to contain window information
   m_Valid as byte               `Is this a valid entry in the list?
   m_WindowType as integer       `What type of window is this? (Window, Form/Panel, Button, Slider, etc)
   m_Visible as byte             `Is this window visible?
   m_Enabled as byte             `Is this window enabled?
   m_PosX as integer             `Where is this window? (X)
   m_PosY as integer             `Where is this window? (Y)
   m_Width as integer            `What is the width of the window?
   m_Height as integer           `What is the height of the window?
   m_Text$ as string             `What is the text/title of the window (usually caption)
   m_IconImg as integer          `What icon image befalls the window?
   m_ClientColor as dword        `What is the client color of the window?
   m_Style as dword              `What is the window style?
   m_Parent as integer           `What's the parent of the window? (handle ID)
   m_Next as integer             `What is the next entry item? (handle ID)
   m_Prev as integer             `And the previous entry item? (handle ID)
endtype
type sGuiContext              `A structure used to give information about the GUI
   m_MouseClick as integer       `Is the mouse clicked?
   m_MouseX as integer           `Where is the mouse on the x axis?
   m_MouseY as integer           `Where is the mouse on the y axis?
   m_Cursor as integer           `What is the cursor image?
   m_CursorH as integer          `What is the horizontal resizing cursor image?
   m_CursorV as integer          `What is the vertical resizing cursor image?
   m_CursorHV as integer         `What is the horizontal/vertical resizing cursor image?
   m_CursorEdit as integer       `What is the cursor image for typing in an edit?
   m_Operation as dword          `What operation?
   m_OpWindow as integer         `What is the handle to the window of the operation?
   m_MessageQueCount as dword    `What's left in the message que?
   m_MessageQue as dword         `This is a pointer to the message que
   m_Message as sMessage         `The message loaded in the message que
   m_ClipX as integer            `clip x
   m_ClipY as integer            `clip y
   m_ClipWidth as integer        `clip width
   m_ClipHeight as integer       `clip height
endtype
`Globals
global g_GuiContext as sGuiContext
global dim g_WindowList(0xffff) as sWindow

wnd as sWindow
wnd.m_PosX = 0
wnd.m_PosY = 0
wnd.m_Width = 320
wnd.m_Height = 240
wnd.m_ClientColor = 0xffc9c9c9
wnd.m_IconImg = 1
wnd.m_Text$ = "Hello World!"

ConstructGuiContext()
g_GuiContext.m_Cursor = 10
g_GuiContext.m_CursorH = 11
g_GuiContext.m_CursorV = 12
g_GuiContext.m_CursorHV = 13
g_WindowList(0).m_ClientColor = 0xff007777

while escapekey() = 0
   mc = mouseclick()
   mx = mousex()
   my = mousey()
   cls g_WindowList(0).m_ClientColor
   wndx = wnd.m_PosX
   wndy = wnd.m_PosY
   wndwidth = wnd.m_Width
   wndheight = wnd.m_Height
   if mc = 1
      if drag = 0 and hresize = 0 and vresize = 0
         if mx > wndx and my > wndy
            if mx < wndx + wndwidth and my < wndy + 23
               drag = 1
               dragx = mx - wndx
               dragy = my - wndy
            endif
         endif
         `HResize
         if mx > wndx + wndwidth - 7 and my > wndy + 23
            if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
               hresize = 1
            endif
         endif
         `VResize
         if mx > wndx and my > wndy + wndheight - 7
            if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
               vresize = 1
            endif
         endif
      endif
   else
      drag = 0
      hresize = 0
      vresize = 0
   endif
   if drag = 1
      wndx = mx - dragx
      wndy = my - dragy
   endif
   if hresize = 1
      wndwidth = mx - wndx + 2
      if wndwidth < 120 then wndwidth = 120
      if wndwidth > screen width() then wndwidth = screen width()
   endif
   if vresize = 1
      wndheight = my - wndy + 2
      if wndheight < 32 then wndheight = 32
      if wndheight > screen height() then wndheight = screen height()
   endif
   wnd.m_PosX = wndx
   wnd.m_PosY = wndy
   wnd.m_Width = wndwidth
   wnd.m_Height = wndheight
   DrawVistaBasicWindow(wnd)
   if spacekey() = 1
      VistaBasicMessageBox("Hi! ~ ABCDEFGHIJKLMNOPQRSTUVWXYZ ~ abcdefghijklmnopqrstuvwxyz",  "Hello!")
   endif
   if hresize = 0 and vresize = 0
      paste image 10, mx, my, 1
   endif
   if hresize = 1 and vresize = 0
      paste image 11, mx, my, 1
   endif
   if hresize = 0 and vresize = 1
      paste image 12, mx, my, 1
   endif
   if hresize = 1 and vresize = 1
      paste image 13, mx, my, 1
   endif
   UpdateGuiContext()
   sync
endwhile
DestructGuiContext()

`A Vista-Basic Messagebox
function VistaBasicMessageBox(text$, title$)
   c = 0x77010101
   img = 0x7c00
   sync
   get image img, 0, 0, screen width(), screen height(), 1
   ready = 0
   wndwidth = 320
   wndheight = 200
   wndx = (screen width() * 0.5) - (wndwidth * 0.5)
   wndy = (screen height() * 0.5) - (wndheight * 0.5)
   while ready = 0
      paste image img, 0, 0, 0
      box -1, -1, screen width(), screen height(), c, c, c, c
      mc = mouseclick()
      mx = mousex()
      my = mousey()
      if mc = 1
         if drag = 0 and hresize = 0 and vresize = 0
            if mx > wndx and my > wndy
               if mx < wndx + wndwidth and my < wndy + 23
                  drag = 1
                  dragx = mx - wndx
                  dragy = my - wndy
               endif
            endif
            `HResize
            if mx > wndx + wndwidth - 7 and my > wndy + 23
               if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
                  hresize = 1
               endif
            endif
            `VResize
            if mx > wndx and my > wndy + wndheight - 7
               if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
                  vresize = 1
               endif
            endif
         endif
      else
         drag = 0
         hresize = 0
         vresize = 0
      endif
      if drag = 1
         wndx = mx - dragx
         wndy = my - dragy
      endif
      if hresize = 1
         wndwidth = mx - wndx + 2
         if wndwidth < 120 then wndwidth = 120
         if wndwidth > screen width() then wndwidth = screen width()
      endif
      if vresize = 1
         wndheight = my - wndy + 2
         if wndheight < 32 then wndheight = 32
         if wndheight > screen height() then wndheight = screen height()
      endif
      cur = g_GuiContext.m_Cursor
      if hresize = 1 and vresize = 0
         cur = g_GuiContext.m_CursorH
      endif
      if hresize = 0 and vresize = 1
         cur = g_GuiContext.m_CursorV
      endif
      if hresize = 1 and vresize = 1
         cur = g_GuiContext.m_CursorHV
      endif
      DrawVistaBasicWindowFrame(wndx, wndy, wndwidth, wndheight)
      DrawVistaBasicWindowClient(wndx, wndy, wndwidth, wndheight, 0xffc9c9c9)
      DrawVistaBasicWindowCaption(wndx, wndy, wndwidth, wndheight, title$, 0)
      inbound = mx > wndx + 8 and my > wndy + wndheight - 30 and mx < wndx + wndwidth - 8 and my < wndy + wndheight - 8
      ready = mc and inbound
      _PrepareClip(wndx + 7, wndy + 25, wndwidth - 14, wndheight - 32)
      GuiDrawRect(1, 1, g_GuiContext.m_ClipWidth - 1, g_GuiContext.m_ClipHeight - 27, 0xffffffff)
      if inbound = 0 and ready = 0 then tc = 0xff000000
      if inbound = 1 and ready = 0 then tc = 0xff0000ff
      if ready = 1 then tc = 0xff002266
      GuiDrawText(16, g_GuiContext.m_ClipHeight - 23, "Click here to continue...", tc)
      _PrepareClip(wndx + 7, wndy + 25, wndwidth - 14, wndheight - 61)
      GuiDrawText(2, 2, text$, 0xff000000)
      if cur > 0
         if image exist(cur)
            paste image cur, mx, my, 1
         endif
      endif
      fastsync
   endwhile
endfunction

`GUI context functions
function ConstructGuiContext()
   g_GuiContext.m_MouseClick = 0
   g_GuiContext.m_MouseX = 0
   g_GuiContext.m_MouseY = 0
   g_GuiContext.m_Cursor = 0
   g_GuiContext.m_CursorH = 0
   g_GuiContext.m_CursorV = 0
   g_GuiContext.m_CursorHV = 0
   g_GuiContext.m_CursorEdit = 0
   g_GuiContext.m_Operation = 0
   g_GuiContext.m_OpWindow = 0
   g_GuiContext.m_MessageQueCount = 0
   g_GuiContext.m_MessageQue = make memory(16 * 256) `256 message, each containing 16 bytes of data (4 integers)
   g_GuiContext.m_Message.m_Window = 0
   g_GuiContext.m_Message.m_Message = 0
   g_GuiContext.m_Message.m_WParam = 0
   g_GuiContext.m_Message.m_LParam = 0
   for i = 0 to 0xffff
       g_WindowList(i).m_Valid = 0
   next i
endfunction
function DestructGuiContext()
   delete memory g_GuiContext.m_MessageQue
   g_GuiContext.m_MouseClick = 0
   g_GuiContext.m_MouseX = 0
   g_GuiContext.m_MouseY = 0
   g_GuiContext.m_Cursor = 0
   g_GuiContext.m_CursorH = 0
   g_GuiContext.m_CursorV = 0
   g_GuiContext.m_CursorHV = 0
   g_GuiContext.m_CursorEdit = 0
   g_GuiContext.m_Operation = 0
   g_GuiContext.m_OpWindow = 0
   g_GuiContext.m_MessageQueCount = 0
   g_GuiContext.m_MessageQue = 0
   g_GuiContext.m_Message.m_Window = 0
   g_GuiContext.m_Message.m_Message = 0
   g_GuiContext.m_Message.m_WParam = 0
   g_GuiContext.m_Message.m_LParam = 0
   for i = 0 to 0xffff
       g_WindowList(i).m_Valid = 0
   next i
endfunction
function UpdateGuiContext()
   g_GuiContext.m_MouseClick = mouseclick()
   g_GuiContext.m_MouseX = mousex()
   g_GuiContext.m_MouseY = mousey()
   if g_GuiContext.m_MouseClick = 0
      g_GuiContext.m_Operation = 0
      g_GuiContext.m_OpWindow = 0
   endif
endfunction

`Event Que functions
function AddEvent(msg as sMessage)
   _SetMemMessage(g_GuiContext.m_MessageQue, msg, g_GuiContext.m_MessageQueCount)
   inc g_GuiContext.m_MessageQueCount
endfunction
function GetEvent()
   if g_GuiContext.m_MessageQueCount <> 0
      _GetMemMessage(g_GuiContext.m_MessageQue, g_GuiContext.m_MessageQueCount)
      dec g_GuiContext.m_MessageQueCount
   else
      _GetMemMessage(g_GuiContext.m_MessageQue, 0)
   endif
endfunction
function GetEventCount()
   msgCount = g_GuiContext.m_MessageQueCount
endfunction msgCount

`Event data retrieval information
function GetEventWindow()
   msgHandle = g_GuiContext.m_Message.m_Window
endfunction msgHandle
function GetEventMessage()
   msgMessage = g_GuiContext.m_Message.m_Message
endfunction msgMessage
function GetEventWParam()
   msgWParam = g_GuiContext.m_Message.m_WParam
endfunction msgWParam
function GetEventLParam()
   msgLParam = g_GuiContext.m_Message.m_LParam
endfunction msgLParam

`Our beloved Vista-Basic themed window drawing function
function DrawVistaBasicWindow(wnd as sWindow)
   DrawVistaBasicWindowFrame(wnd.m_PosX, wnd.m_PosY, wnd.m_Width, wnd.m_Height)
   DrawVistaBasicWindowClient(wnd.m_PosX, wnd.m_PosY, wnd.m_Width, wnd.m_Height, wnd.m_ClientColor)
   DrawVistaBasicWindowCaption(wnd.m_PosX, wnd.m_PosY, wnd.m_Width, wnd.m_Height, wnd.m_Text$, wnd.m_IconImg)
endfunction

`Draw individual components of a Vista Basic window
function DrawVistaBasicWindowFrame(x, y, width, height)
   topc = rgb(152, 180, 208)
   btmc = rgb(219, 231, 244)
   solc = rgb(185, 209, 234)
   bx0 = x + 2
   by0 = y + 2
   bx1 = bx0 + width - 4
   by1 = by0 + height - 8
   box bx0, by0, bx1 + 1, by1 + 1, btmc, topc, btmc, topc
   box bx0, by1 + 1, bx1 + 1, y + height - 1, solc, solc, solc, solc
   ink 0xff000000, 0
   `Top
   line x + 4, y, bx1 - 2, y
   `Left side
   line bx0, y + 1,bx0 + 2, y + 1
   line x + 1, by0, x + 1, by0 + 2
   line x, by0 + 2, x, y + height
   dot x + 2, by0, 0xff777777
   dot x + 2, by0+1, 0xffcccccc
   dot x + 3, by0, 0xffcccccc
   `Right side
   line bx1 - 2, y + 1, bx1, y + 1
   line x + width - 1, by0, x + width - 1, by0 + 2
   line x + width, by0 + 2, x + width, y + height
   dot bx1, by0, 0xff777777
   dot bx1, by0+1, 0xffcccccc
   dot bx1-1, by0, 0xffcccccc
   `Bottom
   line x, y + height, x + width, y + height
   ink 0xffffffff, 0
   `Top
   line x + 4, y + 1, bx1 - 2, y + 1
   `Left
   line x + 1, y + 4, x + 1, y + height - 1
   ink rgb(40, 207, 228), 0
   `Bottom
   line x + 1, y + height - 1, x + width - 1, y + height - 1
   `Right
   line x + width - 1, y + 4, x + width - 1, y + height - 1
endfunction
function DrawVistaBasicWindowClient(x, y, width, height, color)
   if color <> 0
      bx0 = x + 7
      by0 = y + 25
      bx1 = x + width - 7
      by1 = y + height - 7
      box bx0, by0, bx1, by1, color, color, color, color
   endif
endfunction
function DrawVistaBasicWindowCaption(x, y, width, height, text$, iconimg)
   ink 0xff000000, 0
   exist = 0
   if iconimg > 0
      if image exist(iconimg)
         exist = 1
      endif
   endif
   if exist = 1
      paste image iconimg, x + 8, y + 5, 1
      text x + 32, y + 5, text$
   else
      text x + 8, y + 5, text$
   endif
endfunction

`GUI Drawing Funcs
function GuiDrawPixel(x, y, color)
   if _TestClip(x, y)
      dot g_GuiContext.m_ClipX + x, g_GuiContext.m_ClipY + y, color
   endif
endfunction
function GuiDrawLine(x, y, x2, y2, color)
   if x < 1 then x = 0
   if y < 1 then y = 0
   if x2 > g_GuiContext.m_ClipWidth then x2 = g_GuiContext.m_ClipWidth
   if y2 > g_GuiContext.m_ClipHeight then y2 = g_GuiContext.m_ClipHeight
   ink color, 0
   line g_GuiContext.m_ClipX + x, g_GuiContext.m_ClipY + y, g_GuiContext.m_ClipX + x2, g_GuiContext.m_ClipY + y2
endfunction
function GuiDrawRect(x, y, x2, y2, color)
   if x < 1 then x = 0
   if y < 1 then y = 0
   if x2 > g_GuiContext.m_ClipWidth then x2 = g_GuiContext.m_ClipWidth
   if y2 > g_GuiContext.m_ClipHeight then y2 = g_GuiContext.m_ClipHeight
   ink color, 0
   box g_GuiContext.m_ClipX + x, g_GuiContext.m_ClipY + y, g_GuiContext.m_ClipX + x2, g_GuiContext.m_ClipY + y2
endfunction
function GuiDrawText(x, y, text$, color)
   tw = 0
   length = len(text$)
   g = 1
   if length > 0
      if _TestClip(x, y)
         if text height(text$) < g_GuiContext.m_ClipHeight + 1
            ink color, 0
            for i = 1 to length
               t$ = mid$(text$, i)
               ttw = text width(t$)
               if x + tw + ttw < g_GuiContext.m_ClipWidth and g = 1
                  text g_GuiContext.m_ClipX + x + tw, g_GuiContext.m_ClipY + y, t$
                  tw = tw + ttw
               else
                  g = 0
               endif
            next i
         endif
      endif
   endif
endfunction

`Default Window Func
remstart
function DefWindowFunc(Window, Message, wParam, lParam)
   select Message
      case WM_CREATE
         g_WindowList(Window).m_ClientColor = 0xffc9c9c9
         g_WindowList(Window).m_PosX = (screen width() * 0.5) - (g_WindowList(Window).m_Width * 0.5)
         g_WindowList(Window).m_PosY = (screen height() * 0.5) - (g_WindowList(Window).m_Height * 0.5)
         g_WindowList(Window).m_IconImg = 0
         g_WindowList(Window).m_Valid = 1
      endcase
      `case WM_CLOSE
         `DestroyWindow(Window)
      `endcase
      `WM_DESTROY (No need to process
      case WM_MOVE
         AddEvent(Window, WM_PAINT, 0, 0)
      endcase
      case WM_SIZE
         AddEvent(Window, WM_PAINT, 0, 0)
      endcase
      case WM_PAINT
         DrawVistaBasicWindowClient(g_WindowList(Window).m_PosX, g_WindowList(Window).m_PosY, g_WindowList(Window).m_Width, g_WindowList(Window).m_Height, g_WindowList(Window).m_ClientColor)
      endcase
   endselect
endfunction
remend

`Internal functions - THESE ARE OF NO USE TO YOU!
function _SetMem32(memPtr, memIndex, memValue)
   memPtr = memPtr + (memIndex * 4)
   *memPtr = memValue
endfunction
function _GetMem32(memPtr, memIndex)
   memPtr = memPtr + (memIndex * 4)
   xv = *memPtr
endfunction xv
function _SetMemMessage(memPtr, msg as sMessage, index)
   pos = index * 4
   _SetMem32(memPtr, pos, msg.m_Window)
   _SetMem32(memPtr, pos + 1, msg.m_Message)
   _SetMem32(memPtr, pos + 2, msg.m_WParam)
   _SetMem32(memPtr, pos + 3, msg.m_LParam)
endfunction
function _GetMemMessage(memPtr, index)
   pos = index * 4
   g_GuiContext.m_Message.m_Window = _GetMem32(memPtr, pos)
   g_GuiContext.m_Message.m_Message = _GetMem32(memPtr, pos + 1)
   g_GuiContext.m_Message.m_WParam = _GetMem32(memPtr, pos + 2)
   g_GuiContext.m_Message.m_LParam = _GetMem32(memPtr, pos + 3)
endfunction
function _TestClip(x, y)
   res = 0
   if x > -1 and y > -1
      if x < g_GuiContext.m_ClipWidth and y < g_GuiContext.m_ClipHeight
         res = 1
      endif
   endif
endfunction res
function _PrepareClip(x, y, w, h)
   g_GuiContext.m_ClipX = x
   g_GuiContext.m_ClipY = y
   g_GuiContext.m_ClipWidth = w
   g_GuiContext.m_ClipHeight = h
endfunction

REM Project: Vista Basic Window
REM Created: 11/14/2007 9:49:06 PM
REM
REM ***** Main Source File *****
REM
sync on
sync
wndx = 5
wndy = 5
wndwidth = 320
wndheight = 240
set text font "MS Sans Serif"

hide mouse

if file exist("icon.bmp")
   load image "icon.bmp", 1, 1
endif

if file exist("cur.bmp") and file exist("cur_h.bmp") and file exist("cur_v.bmp") and file exist("cur_hv.bmp")
   load image "cur.bmp", 10, 1
   load image "cur_h.bmp", 11, 1
   load image "cur_v.bmp", 12, 1
   load image "cur_hv.bmp", 13, 1
endif

if file exist("bg.png")
   load image "bg.png", 20, 1
endif

`Constants
#constant WM_NULL             0        `Not used at all
#constant WM_CREATE           1        `wParam - Not used, lParam - Not used
#constant WM_CLOSE            2        `wParam - Not used, lParam - Not used
#constant WM_DESTROY          3        `wParam - Not used, lParam - Not used
#constant WM_MOVE             4        `wParam - X, lParam - Y
#constant WM_SIZE             5        `wParam - Width, lParam - Height
#constant WM_PAINT            6        `wParam - Not used, lParam - Not used
`Types
type sMessage                 `A structure to contain the message given to an event
   m_Window as integer           `What window got this message? (Specified by handle ID)
   m_Message as integer          `What is the message for the window?
   m_WParam as integer           `Additional parameter W
   m_LParam as integer           `Additional parameter L
endtype
type sWindow                  `A structure to contain window information
   m_Valid as byte               `Is this a valid entry in the list?
   m_WindowType as integer       `What type of window is this? (Window, Form/Panel, Button, Slider, etc)
   m_Visible as byte             `Is this window visible?
   m_Enabled as byte             `Is this window enabled?
   m_PosX as integer             `Where is this window? (X)
   m_PosY as integer             `Where is this window? (Y)
   m_Width as integer            `What is the width of the window?
   m_Height as integer           `What is the height of the window?
   m_Text$ as string             `What is the text/title of the window (usually caption)
   m_IconImg as integer          `What icon image befalls the window?
   m_ClientColor as dword        `What is the client color of the window?
   m_Style as dword              `What is the window style?
   m_Parent as integer           `What's the parent of the window? (handle ID)
   m_Next as integer             `What is the next entry item? (handle ID)
   m_Prev as integer             `And the previous entry item? (handle ID)
endtype
type sGuiContext              `A structure used to give information about the GUI
   m_MouseClick as integer       `Is the mouse clicked?
   m_MouseX as integer           `Where is the mouse on the x axis?
   m_MouseY as integer           `Where is the mouse on the y axis?
   m_Cursor as integer           `What is the cursor image?
   m_CursorH as integer          `What is the horizontal resizing cursor image?
   m_CursorV as integer          `What is the vertical resizing cursor image?
   m_CursorHV as integer         `What is the horizontal/vertical resizing cursor image?
   m_CursorEdit as integer       `What is the cursor image for typing in an edit?
   m_Operation as dword          `What operation?
   m_OpWindow as integer         `What is the handle to the window of the operation?
   m_MessageQueCount as dword    `What's left in the message que?
   m_MessageQue as dword         `This is a pointer to the message que
   m_Message as sMessage         `The message loaded in the message que
   m_ClipX as integer            `clip x
   m_ClipY as integer            `clip y
   m_ClipWidth as integer        `clip width
   m_ClipHeight as integer       `clip height
endtype
`Globals
global g_GuiContext as sGuiContext
global dim g_WindowList(0xffff) as sWindow

wnd as sWindow
wnd.m_PosX = 0
wnd.m_PosY = 0
wnd.m_Width = 320
wnd.m_Height = 240
wnd.m_ClientColor = 0xffc9c9c9
wnd.m_IconImg = 1
wnd.m_Text$ = "Hello World! ~ Vista Basic GUI Window!"

ConstructGuiContext()
g_GuiContext.m_Cursor = 10
g_GuiContext.m_CursorH = 11
g_GuiContext.m_CursorV = 12
g_GuiContext.m_CursorHV = 13
g_WindowList(0).m_ClientColor = 0xff007777

while escapekey() = 0
   mc = mouseclick()
   mx = mousex()
   my = mousey()
   if image exist(20) = 1
      paste image 20, 0, 0, 0
   else
      cls g_WindowList(0).m_ClientColor
   endif
   wndx = wnd.m_PosX
   wndy = wnd.m_PosY
   wndwidth = wnd.m_Width
   wndheight = wnd.m_Height
   if mc = 1
      if drag = 0 and hresize = 0 and vresize = 0
         if mx > wndx and my > wndy
            if mx < wndx + wndwidth and my < wndy + 23
               drag = 1
               dragx = mx - wndx
               dragy = my - wndy
            endif
         endif
         `HResize
         if mx > wndx + wndwidth - 7 and my > wndy + 23
            if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
               hresize = 1
            endif
         endif
         `VResize
         if mx > wndx and my > wndy + wndheight - 7
            if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
               vresize = 1
            endif
         endif
      endif
   else
      drag = 0
      hresize = 0
      vresize = 0
   endif
   if drag = 1
      wndx = mx - dragx
      wndy = my - dragy
   endif
   if hresize = 1
      wndwidth = mx - wndx + 2
      if wndwidth < 120 then wndwidth = 120
      if wndwidth > screen width() then wndwidth = screen width()
   endif
   if vresize = 1
      wndheight = my - wndy + 2
      if wndheight < 32 then wndheight = 32
      if wndheight > screen height() then wndheight = screen height()
   endif
   wnd.m_PosX = wndx
   wnd.m_PosY = wndy
   wnd.m_Width = wndwidth
   wnd.m_Height = wndheight
   DrawVistaBasicWindow(wnd)
   if spacekey() = 1
      VistaBasicMessageBox("Hi! ~ ABCDEFGHIJKLMNOPQRSTUVWXYZ ~ abcdefghijklmnopqrstuvwxyz",  "Hello!")
   endif
   if hresize = 0 and vresize = 0
      paste image 10, mx, my, 1
   endif
   if hresize = 1 and vresize = 0
      paste image 11, mx, my, 1
   endif
   if hresize = 0 and vresize = 1
      paste image 12, mx, my, 1
   endif
   if hresize = 1 and vresize = 1
      paste image 13, mx, my, 1
   endif
   UpdateGuiContext()
   sync
endwhile
DestructGuiContext()

`A Vista-Basic Messagebox
function VistaBasicMessageBox(text$, title$)
   c = 0x77010101
   img = 0x7c00
   sync
   get image img, 0, 0, screen width(), screen height(), 1
   ready = 0
   wndwidth = 320
   wndheight = 200
   wndx = (screen width() * 0.5) - (wndwidth * 0.5)
   wndy = (screen height() * 0.5) - (wndheight * 0.5)
   while ready = 0
      paste image img, 0, 0, 0
      box -1, -1, screen width(), screen height(), c, c, c, c
      mc = mouseclick()
      mx = mousex()
      my = mousey()
      g_GuiContext.m_MouseClick = mc
      g_GuiContext.m_MouseX = mx
      g_GuiContext.m_MouseY = my
      if mc = 1
         if drag = 0 and hresize = 0 and vresize = 0
            if mx > wndx and my > wndy
               if mx < wndx + wndwidth and my < wndy + 23
                  drag = 1
                  dragx = mx - wndx
                  dragy = my - wndy
               endif
            endif
            `HResize
            if mx > wndx + wndwidth - 7 and my > wndy + 23
               if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
                  hresize = 1
               endif
            endif
            `VResize
            if mx > wndx and my > wndy + wndheight - 7
               if mx < wndx + wndwidth + 1 and my < wndy + wndheight + 1
                  vresize = 1
               endif
            endif
         endif
      else
         drag = 0
         hresize = 0
         vresize = 0
      endif
      if drag = 1
         wndx = mx - dragx
         wndy = my - dragy
      endif
      if hresize = 1
         wndwidth = mx - wndx + 2
         if wndwidth < 120 then wndwidth = 120
         if wndwidth > screen width() then wndwidth = screen width()
      endif
      if vresize = 1
         wndheight = my - wndy + 2
         if wndheight < 32 then wndheight = 32
         if wndheight > screen height() then wndheight = screen height()
      endif
      cur = g_GuiContext.m_Cursor
      if hresize = 1 and vresize = 0
         cur = g_GuiContext.m_CursorH
      endif
      if hresize = 0 and vresize = 1
         cur = g_GuiContext.m_CursorV
      endif
      if hresize = 1 and vresize = 1
         cur = g_GuiContext.m_CursorHV
      endif
      DrawVistaBasicWindowFrame(wndx, wndy, wndwidth, wndheight)
      DrawVistaBasicWindowClient(wndx, wndy, wndwidth, wndheight, 0xffc9c9c9)
      DrawVistaBasicWindowCaption(wndx, wndy, wndwidth, wndheight, title$, 0)
      inbound = mx > wndx + 8 and my > wndy + wndheight - 30 and mx < wndx + wndwidth - 8 and my < wndy + wndheight - 8
      ready = mc and inbound and (hresize = 0) and (vresize = 0) and (drag = 0)
      _PrepareClip(wndx + 7, wndy + 25, wndwidth - 14, wndheight - 32)
      GuiDrawRect(1, 1, g_GuiContext.m_ClipWidth - 1, g_GuiContext.m_ClipHeight - 27, 0xffffffff)
      if inbound = 0 and ready = 0 then tc = 0xff000000
      if inbound = 1 and ready = 0 then tc = 0xff0000ff
      if ready = 1 then tc = 0xff002266
      GuiDrawText(16, g_GuiContext.m_ClipHeight - 23, "Click here to continue...", tc)
      _PrepareClip(wndx + 7, wndy + 25, wndwidth - 14, wndheight - 61)
      GuiDrawText(2, 2, text$, 0xff000000)
      if cur > 0
         if image exist(cur)
            paste image cur, mx, my, 1
         endif
      endif
      fastsync
   endwhile
endfunction

`GUI context functions
function ConstructGuiContext()
   g_GuiContext.m_MouseClick = 0
   g_GuiContext.m_MouseX = 0
   g_GuiContext.m_MouseY = 0
   g_GuiContext.m_Cursor = 0
   g_GuiContext.m_CursorH = 0
   g_GuiContext.m_CursorV = 0
   g_GuiContext.m_CursorHV = 0
   g_GuiContext.m_CursorEdit = 0
   g_GuiContext.m_Operation = 0
   g_GuiContext.m_OpWindow = 0
   g_GuiContext.m_MessageQueCount = 0
   g_GuiContext.m_MessageQue = make memory(16 * 256) `256 message, each containing 16 bytes of data (4 integers)
   g_GuiContext.m_Message.m_Window = 0
   g_GuiContext.m_Message.m_Message = 0
   g_GuiContext.m_Message.m_WParam = 0
   g_GuiContext.m_Message.m_LParam = 0
   for i = 0 to 0xffff
       g_WindowList(i).m_Valid = 0
   next i
endfunction
function DestructGuiContext()
   delete memory g_GuiContext.m_MessageQue
   g_GuiContext.m_MouseClick = 0
   g_GuiContext.m_MouseX = 0
   g_GuiContext.m_MouseY = 0
   g_GuiContext.m_Cursor = 0
   g_GuiContext.m_CursorH = 0
   g_GuiContext.m_CursorV = 0
   g_GuiContext.m_CursorHV = 0
   g_GuiContext.m_CursorEdit = 0
   g_GuiContext.m_Operation = 0
   g_GuiContext.m_OpWindow = 0
   g_GuiContext.m_MessageQueCount = 0
   g_GuiContext.m_MessageQue = 0
   g_GuiContext.m_Message.m_Window = 0
   g_GuiContext.m_Message.m_Message = 0
   g_GuiContext.m_Message.m_WParam = 0
   g_GuiContext.m_Message.m_LParam = 0
   for i = 0 to 0xffff
       g_WindowList(i).m_Valid = 0
   next i
endfunction
function UpdateGuiContext()
   g_GuiContext.m_MouseClick = mouseclick()
   g_GuiContext.m_MouseX = mousex()
   g_GuiContext.m_MouseY = mousey()
   if g_GuiContext.m_MouseClick = 0
      g_GuiContext.m_Operation = 0
      g_GuiContext.m_OpWindow = 0
   endif
endfunction

`Event Que functions
function AddEvent(msg as sMessage)
   _SetMemMessage(g_GuiContext.m_MessageQue, msg, g_GuiContext.m_MessageQueCount)
   inc g_GuiContext.m_MessageQueCount
endfunction
function GetEvent()
   if g_GuiContext.m_MessageQueCount <> 0
      _GetMemMessage(g_GuiContext.m_MessageQue, g_GuiContext.m_MessageQueCount)
      dec g_GuiContext.m_MessageQueCount
   else
      _GetMemMessage(g_GuiContext.m_MessageQue, 0)
   endif
endfunction
function GetEventCount()
   msgCount = g_GuiContext.m_MessageQueCount
endfunction msgCount

`Event data retrieval information
function GetEventWindow()
   msgHandle = g_GuiContext.m_Message.m_Window
endfunction msgHandle
function GetEventMessage()
   msgMessage = g_GuiContext.m_Message.m_Message
endfunction msgMessage
function GetEventWParam()
   msgWParam = g_GuiContext.m_Message.m_WParam
endfunction msgWParam
function GetEventLParam()
   msgLParam = g_GuiContext.m_Message.m_LParam
endfunction msgLParam

`Our beloved Vista-Basic themed window drawing function
function DrawVistaBasicWindow(wnd as sWindow)
   DrawVistaBasicWindowFrame(wnd.m_PosX, wnd.m_PosY, wnd.m_Width, wnd.m_Height)
   DrawVistaBasicWindowClient(wnd.m_PosX, wnd.m_PosY, wnd.m_Width, wnd.m_Height, wnd.m_ClientColor)
   DrawVistaBasicWindowCaption(wnd.m_PosX, wnd.m_PosY, wnd.m_Width, wnd.m_Height, wnd.m_Text$, wnd.m_IconImg)
endfunction

`Draw individual components of a Vista Basic window
function DrawVistaBasicWindowFrame(x, y, width, height)
   topc = rgb(152, 180, 208)
   btmc = rgb(219, 231, 244)
   solc = rgb(185, 209, 234)
   bx0 = x + 2
   by0 = y + 2
   bx1 = bx0 + width - 4
   by1 = by0 + height - 8
   box bx0, by0, bx1 + 1, by1 + 1, btmc, topc, btmc, topc
   box bx0, by1 + 1, bx1 + 1, y + height - 1, solc, solc, solc, solc
   ink 0xff000000, 0
   `Top
   line x + 4, y, bx1 - 2, y
   `Left side
   line bx0, y + 1,bx0 + 2, y + 1
   line x + 1, by0, x + 1, by0 + 2
   line x, by0 + 2, x, y + height
   dot x + 2, by0, 0xff777777
   dot x + 2, by0+1, 0xffcccccc
   dot x + 3, by0, 0xffcccccc
   `Right side
   line bx1 - 2, y + 1, bx1, y + 1
   line x + width - 1, by0, x + width - 1, by0 + 2
   line x + width, by0 + 2, x + width, y + height
   dot bx1, by0, 0xff777777
   dot bx1, by0+1, 0xffcccccc
   dot bx1-1, by0, 0xffcccccc
   `Bottom
   line x, y + height, x + width, y + height
   ink 0xffffffff, 0
   `Top
   line x + 4, y + 1, bx1 - 2, y + 1
   `Left
   line x + 1, y + 4, x + 1, y + height - 1
   ink rgb(40, 207, 228), 0
   `Bottom
   line x + 1, y + height - 1, x + width - 1, y + height - 1
   `Right
   line x + width - 1, y + 4, x + width - 1, y + height - 1
endfunction
function DrawVistaBasicWindowClient(x, y, width, height, color)
   if color <> 0
      bx0 = x + 7
      by0 = y + 25
      bx1 = x + width - 7
      by1 = y + height - 7
      box bx0, by0, bx1, by1, color, color, color, color
   endif
endfunction
function DrawVistaBasicWindowCaption(x, y, width, height, text$, iconimg)
   ink 0xff000000, 0
   exist = 0
   if iconimg > 0
      if image exist(iconimg)
         exist = 1
      endif
   endif
   _PrepareClip(x, y, width - 72, 25)
   if exist = 1
      paste image iconimg, x + 8, y + 5, 1
      GuiDrawText(32, 5, text$, 0xff000000)
   else
      GuiDrawText(8, 5, text$, 0xff000000)
   endif
   posy = y
   modex = 0
   modemx = 0
   modemn = 0
   posx = x+width-32
   if g_GuiContext.m_MouseX > posx and g_GuiContext.m_MouseY > posy
      if g_GuiContext.m_MouseX < posx+25 and g_GuiContext.m_MouseY < posy + 18
         modex = 1
         if g_GuiContext.m_MouseClick = 1
            modex = 2
         endif
      endif
   endif
   posx = posx - 20
   if g_GuiContext.m_MouseX > posx and g_GuiContext.m_MouseY > posy
      if g_GuiContext.m_MouseX < posx+20 and g_GuiContext.m_MouseY < posy + 18
         modemx = 1
         if g_GuiContext.m_MouseClick = 1
            modemx = 2
         endif
      endif
   endif
   posx = posx - 20
   if g_GuiContext.m_MouseX > posx and g_GuiContext.m_MouseY > posy
      if g_GuiContext.m_MouseX < posx+20 and g_GuiContext.m_MouseY < posy + 18
         modemn = 1
         if g_GuiContext.m_MouseClick = 1
            modemn = 2
         endif
      endif
   endif
   posx = posx + 40
   DrawVistaBasicMinMaxButton(posx-38, posy, 20, 18, modemn)
   DrawVistaBasicMinMaxButton(posx-19, posy, 20, 18, modemx)
   DrawVistaBasicCloseButton(posx, posy, 25, 18, modex)
   DoubleDrawChar(posx-32, posy+2, "_", 0xffffffff, 0x77010101)
   DoubleDrawChar(posx-13, posy+2, "^", 0xffffffff, 0x77010101)
   DoubleDrawChar(posx+9, posy+2, "X", 0xffffffff, 0x77010101)
endfunction

`Draw a Vista Basic button
function DrawVistaBasicCloseButton(x, y, width, height, mode)
   tc0 = rgb(233, 169, 156)
   bc0 = rgb(222, 146, 132)
   tc1 = rgb(191, 84, 63)
   bc1 = rgb(213, 133, 118)
   bgc = rgb(184, 67, 44)
   if mode = 1
      tc0 = rgb(252, 200, 191)
      bc0 = rgb(250, 164, 149)
      bgc = rgb(210, 35, 2)
      tc1 = rgb(213, 51, 13)
      bc1 = rgb(250, 238, 107)
   endif
   if mode = 2
      tc0 = rgb(207, 163, 139)
      bc0 = rgb(195, 135, 110)
      bgc = rgb(137, 25, 0)
      tc1 = rgb(137, 44, 1)
      bc1 = rgb(245, 236, 106)
   endif
   ink 0xff080808, 0
   line x+1, y, x+width-1, y
   line x, y+1, x, y+height-1
   line x+width, y+1, x+width, y+height-1
   line x+1, y+height, x+width-1, y+height
   ink bgc, 0
   box x+1, y+1, x+width, y+height
   box x+1, y+1, x+width, y+7, bc0, tc0, bc0, tc0
   box x+1, y+height-7, x+width, y+height, bc1, tc1, bc1, tc1
endfunction
function DrawVistaBasicMinMaxButton(x, y, width, height, mode)
   tc0 = rgb(195, 232, 231)
   bc0 = rgb(190, 231, 232)
   tc1 = rgb(158, 183, 209)
   bc1 = rgb(183, 208, 233)
   bgc = rgb(152, 177, 204)
   if mode = 1
      tc0 = rgb(170, 213, 243)
      bc0 = rgb(125, 190, 233)
      bgc = rgb(45, 115, 163)
      tc1 = rgb(44, 123, 175)
      bc1 = rgb(36, 198, 235)
   endif
   if mode = 2
      tc0 = rgb(127, 154, 172)
      bc0 = rgb(90, 116, 138)
      bgc = rgb(32, 59, 82)
      tc1 = rgb(35, 98, 115)
      bc1 = rgb(39, 201, 200)
   endif
   ink 0xff080808, 0
   line x+1, y, x+width-1, y
   line x, y+1, x, y+height-1
   line x+width, y+1, x+width, y+height-1
   line x+1, y+height, x+width-1, y+height
   ink bgc, 0
   box x+1, y+1, x+width, y+height
   box x+1, y+1, x+width, y+7, bc0, tc0, bc0, tc0
   box x+1, y+height-7, x+width, y+height, bc1, tc1, bc1, tc1
endfunction
function DoubleDrawChar(x, y, char$, foreground, background)
   ink background, 0
   text x-1, y-1, char$
   text x+1, y-1, char$
   text x-1, y+1, char$
   text x+1, y+1, char$
   text x-1, y, char$
   text x+1, y, char$
   text x, y-1, char$
   text x, y+1, char$
   ink foreground, 0
   text x, y, char$
endfunction

`GUI Drawing Funcs
function GuiDrawPixel(x, y, color)
   if _TestClip(x, y)
      dot g_GuiContext.m_ClipX + x, g_GuiContext.m_ClipY + y, color
   endif
endfunction
function GuiDrawLine(x, y, x2, y2, color)
   if x < 1 then x = 0
   if y < 1 then y = 0
   if x2 > g_GuiContext.m_ClipWidth then x2 = g_GuiContext.m_ClipWidth
   if y2 > g_GuiContext.m_ClipHeight then y2 = g_GuiContext.m_ClipHeight
   ink color, 0
   line g_GuiContext.m_ClipX + x, g_GuiContext.m_ClipY + y, g_GuiContext.m_ClipX + x2, g_GuiContext.m_ClipY + y2
endfunction
function GuiDrawRect(x, y, x2, y2, color)
   if x < 1 then x = 0
   if y < 1 then y = 0
   if x2 > g_GuiContext.m_ClipWidth then x2 = g_GuiContext.m_ClipWidth
   if y2 > g_GuiContext.m_ClipHeight then y2 = g_GuiContext.m_ClipHeight
   ink color, 0
   box g_GuiContext.m_ClipX + x, g_GuiContext.m_ClipY + y, g_GuiContext.m_ClipX + x2, g_GuiContext.m_ClipY + y2
endfunction
function GuiDrawText(x, y, text$, color)
   tw = 0
   length = len(text$)
   g = 1
   if length > 0
      if _TestClip(x, y)
         if text height(text$) < g_GuiContext.m_ClipHeight + 1
            ink color, 0
            for i = 1 to length
               t$ = mid$(text$, i)
               ttw = text width(t$)
               if x + tw + ttw < g_GuiContext.m_ClipWidth and g = 1
                  text g_GuiContext.m_ClipX + x + tw, g_GuiContext.m_ClipY + y, t$
                  tw = tw + ttw
               else
                  g = 0
               endif
            next i
         endif
      endif
   endif
endfunction

`Default Window Func
remstart
function DefWindowFunc(Window, Message, wParam, lParam)
   select Message
      case WM_CREATE
         g_WindowList(Window).m_ClientColor = 0xffc9c9c9
         g_WindowList(Window).m_PosX = (screen width() * 0.5) - (g_WindowList(Window).m_Width * 0.5)
         g_WindowList(Window).m_PosY = (screen height() * 0.5) - (g_WindowList(Window).m_Height * 0.5)
         g_WindowList(Window).m_IconImg = 0
         g_WindowList(Window).m_Valid = 1
      endcase
      `case WM_CLOSE
         `DestroyWindow(Window)
      `endcase
      `WM_DESTROY (No need to process
      case WM_MOVE
         AddEvent(Window, WM_PAINT, 0, 0)
      endcase
      case WM_SIZE
         AddEvent(Window, WM_PAINT, 0, 0)
      endcase
      case WM_PAINT
         DrawVistaBasicWindowClient(g_WindowList(Window).m_PosX, g_WindowList(Window).m_PosY, g_WindowList(Window).m_Width, g_WindowList(Window).m_Height, g_WindowList(Window).m_ClientColor)
      endcase
   endselect
endfunction
remend

`Internal functions - THESE ARE OF NO USE TO YOU!
function _SetMem32(memPtr, memIndex, memValue)
   memPtr = memPtr + (memIndex * 4)
   *memPtr = memValue
endfunction
function _GetMem32(memPtr, memIndex)
   memPtr = memPtr + (memIndex * 4)
   xv = *memPtr
endfunction xv
function _SetMemMessage(memPtr, msg as sMessage, index)
   pos = index * 4
   _SetMem32(memPtr, pos, msg.m_Window)
   _SetMem32(memPtr, pos + 1, msg.m_Message)
   _SetMem32(memPtr, pos + 2, msg.m_WParam)
   _SetMem32(memPtr, pos + 3, msg.m_LParam)
endfunction
function _GetMemMessage(memPtr, index)
   pos = index * 4
   g_GuiContext.m_Message.m_Window = _GetMem32(memPtr, pos)
   g_GuiContext.m_Message.m_Message = _GetMem32(memPtr, pos + 1)
   g_GuiContext.m_Message.m_WParam = _GetMem32(memPtr, pos + 2)
   g_GuiContext.m_Message.m_LParam = _GetMem32(memPtr, pos + 3)
endfunction
function _TestClip(x, y)
   res = 0
   if x > -1 and y > -1
      if x < g_GuiContext.m_ClipWidth and y < g_GuiContext.m_ClipHeight
         res = 1
      endif
   endif
endfunction res
function _PrepareClip(x, y, w, h)
   g_GuiContext.m_ClipX = x
   g_GuiContext.m_ClipY = y
   g_GuiContext.m_ClipWidth = w
   g_GuiContext.m_ClipHeight = h
endfunction