[DBP] More Windows!?! - GameCreators Forum

Author

Message

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 19th Nov 2007 19:49 Edited at: 20th Nov 2007 03:21

Link

Ive decided to start my own thread instead of continuing to hijack Aaron's. Currently windows can Close, Minimize and Lock in place and the selected window is highlighted. I'm planning to add more to it Once I get more time.

Update 19/11/07:
* Can scroll Through Windows Using Tab
* Can Create a Fixed Window with No Bar

No Media Required

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

#Constant True  1
#Constant False 0

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
   LockButton  as Integer `Sprite/Image Number for Lock Button
   Locked      as Boolean `Stores wether the Window is locked/UnLocked
   Dynamic     as Boolean `Sets if the Window is able to be Moved etc by the Player
EndType : Dim Window(-1) as Window

`Make Sphere
AutoCam On
Make Object Sphere 1,5

CreateWindow("Techniques",400,600,0,0, True)
CreateWindow("Items",300,500,0,0, True)
CreateWindow("Character Profile",500,300,400,400, True)
CreateWindow("Map",500,300,0,800,True)
CreateWindow("Attacks",Screen Width(),200,0,800,False)

Do
   UpdateMouse()
   UpdateWindows()
   Set Cursor 0,0 : Print "FPS:",Screen FPS()
   Sync
Loop

Function CreateWindow(WindowName as String, Width as Integer, Height as Integer, X as Integer , Y as Integer , Dynamic as Boolean)

`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=X : Window(aWin).Y=Y
   Window(aWin).Height=Height : Window(aWin).Width=Width
   Window(aWin).Dynamic=Dynamic

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

`Draw Our Window
   Create Bitmap 1, Screen Width(), Screen Height()
   Set Current Bitmap 1
   Set Text Font "Copperplate Gothic Light" : Set Text to Bold : Set Text Size 20

Ink RGB(2,2,2),1        : Box 0,0,Width,Height+30
      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 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 (Width-67),6,(Width-51),20
      Ink RGB(2,2,2),1        : Box (Width-66),7,(Width-52),19
      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 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"

circle (Width-60),11,2 : Box (Width-63),12,(Width-56),17

Set Text Font "Copperplate Gothic Light" : Set Text to Bold : Set Text Size 14
      Ink RGB(156,156,156),1 : Center Text (Width/2),6, WindowName

`Convert The Parts of our Windows to Sprites
      Get Image Window(aWin).Body,0,30,Width,Height+30,1
      SetColorAlpha(Window(aWin).Body,"1,1,1",150)
      Sprite Window(aWin).Body,X,Y+27,Window(aWin).Body

Get Image Window(aWin).Bar,0,0,Width,30,1
         Sprite Window(aWin).Bar,X,Y,Window(aWin).Bar

Get Image Window(aWin).LockButton, (Width-67),6,(Width-51),20,1
         Sprite Window(aWin).LockButton,X+(Width-67),Y+6,Window(aWin).LockButton

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

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

Set Current Bitmap 0

If Window(aWin).Dynamic=0

Hide Sprite Window(aWin).Bar
      Hide Sprite Window(aWin).MinButton
      Hide Sprite Window(aWin).CloseButton
      Hide Sprite Window(aWin).LockButton

EndIf

EndFunction

Function UpdateWindows()

`Change Window Priority If New WindowBar Is Pressed
      For aWin=Array Count(Window()) to 0 step -1
         If Sprite Collision(Window(aWin).Bar,SPMouse)=1 and ButtonState="LeftPressed" and Window(aWin).Dynamic=1
            For bWin=aWin to Array Count(Window())
               If aWin<>bWin
                  If Sprite Collision(Window(bWin).Body,SPMouse)=1  and Sprite Visible(Window(bWin).Body)=1
                        goto ExitLoop
                  EndIF
               EndIf
            Next bWin
            SetWindowtoTop(aWin) : goto ExitLoop
         EndIf
      Next aWin
      ExitLoop:

`Scroll Through Windows using Tab Key
   if KeyState(15) = 1 then CurrentTab=1
   if KeyState(15) = 0 then CurrentTab=0
   Set Cursor 0,20 : print KeyState(15)
   If LastTab=1 and CurrentTab=0 then SetWindowtoTop(0)
   LastTab=CurrentTab

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

If Window(TopWindow).Dynamic=1

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

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+27,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
         Sprite Window(TopWindow).LockButton,Window(TopWindow).X+(Window(TopWindow).Width-67),Window(TopWindow).Y+6,Window(TopWindow).LockButton
      EndIf

If Window(TopWindow).Locked=0
         `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
            Hide Sprite Window(TopWindow).LockButton
         EndIf

EndIf

`Detect the lock Button
      If Sprite Collision(Window(TopWindow).LockButton,SPMouse) and ButtonState="LeftPressed"
         If Window(TopWindow).Locked=1
            Window(TopWindow).Locked=0
            DistanceX=Window(TopWindow).X-Mousex()
            DistanceY=Window(TopWindow).Y-Mousey()
            Set Sprite Diffuse Window(TopWindow).LockButton, 255,255,255
         Else
            Window(TopWindow).Locked=1
            Set Sprite Diffuse Window(TopWindow).LockButton, 255, 0, 0
         EndIf
      EndIf
      EndIf

EndFunction

Function SetWindowtoTop(aWindow as Integer)

`Change Old Selected Window to Grey
   Set Sprite Diffuse Window(Array Count(Window())).Bar, 255,255, 255
   Set Sprite Diffuse Window(Array Count(Window())).Body, 255,255, 255

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

`Change New Selected Window to Green
   Set Sprite Diffuse Window(Array Count(Window())).Bar,0, 255,0
   Set Sprite Diffuse Window(Array Count(Window())).Body, 0, 255, 0

`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).Body        ,(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).LockButton  ,(aWin+1.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 LastTab     as Integer
      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

+ Code Snippet

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

#Constant True  1
#Constant False 0

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
   LockButton  as Integer `Sprite/Image Number for Lock Button
   Locked      as Boolean `Stores wether the Window is locked/UnLocked
   Dynamic     as Boolean `Sets if the Window is able to be Moved etc by the Player
EndType : Dim Window(-1) as Window

`Make Sphere
AutoCam On
Make Object Sphere 1,5

CreateWindow("Techniques",400,600,0,0, True)
CreateWindow("Items",300,500,0,0, True)
CreateWindow("Character Profile",500,300,400,400, True)
CreateWindow("Map",500,300,0,800,True)
CreateWindow("Attacks",Screen Width(),200,0,800,False)


Do
   UpdateMouse()
   UpdateWindows()
   Set Cursor 0,0 : Print "FPS:",Screen FPS()
   Sync
Loop

Function CreateWindow(WindowName as String, Width as Integer, Height as Integer, X as Integer , Y as Integer , Dynamic as Boolean)

   `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=X : Window(aWin).Y=Y
   Window(aWin).Height=Height : Window(aWin).Width=Width
   Window(aWin).Dynamic=Dynamic

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

   `Draw Our Window
   Create Bitmap 1, Screen Width(), Screen Height()
   Set Current Bitmap 1
   Set Text Font "Copperplate Gothic Light" : Set Text to Bold : Set Text Size 20

      Ink RGB(2,2,2),1        : Box 0,0,Width,Height+30
      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 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 (Width-67),6,(Width-51),20
      Ink RGB(2,2,2),1        : Box (Width-66),7,(Width-52),19
      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 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"

      circle (Width-60),11,2 : Box (Width-63),12,(Width-56),17

      Set Text Font "Copperplate Gothic Light" : Set Text to Bold : Set Text Size 14
      Ink RGB(156,156,156),1 : Center Text (Width/2),6, WindowName

      `Convert The Parts of our Windows to Sprites
      Get Image Window(aWin).Body,0,30,Width,Height+30,1
      SetColorAlpha(Window(aWin).Body,"1,1,1",150)
      Sprite Window(aWin).Body,X,Y+27,Window(aWin).Body

         Get Image Window(aWin).Bar,0,0,Width,30,1
         Sprite Window(aWin).Bar,X,Y,Window(aWin).Bar

         Get Image Window(aWin).LockButton, (Width-67),6,(Width-51),20,1
         Sprite Window(aWin).LockButton,X+(Width-67),Y+6,Window(aWin).LockButton

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

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

   Set Current Bitmap 0

   If Window(aWin).Dynamic=0

      Hide Sprite Window(aWin).Bar
      Hide Sprite Window(aWin).MinButton
      Hide Sprite Window(aWin).CloseButton
      Hide Sprite Window(aWin).LockButton

   EndIf

EndFunction


Function UpdateWindows()

      `Change Window Priority If New WindowBar Is Pressed
      For aWin=Array Count(Window()) to 0 step -1
         If Sprite Collision(Window(aWin).Bar,SPMouse)=1 and ButtonState="LeftPressed" and Window(aWin).Dynamic=1
            For bWin=aWin to Array Count(Window())
               If aWin<>bWin
                  If Sprite Collision(Window(bWin).Body,SPMouse)=1  and Sprite Visible(Window(bWin).Body)=1
                        goto ExitLoop
                  EndIF
               EndIf
            Next bWin
            SetWindowtoTop(aWin) : goto ExitLoop
         EndIf
      Next aWin
      ExitLoop:

   `Scroll Through Windows using Tab Key
   if KeyState(15) = 1 then CurrentTab=1
   if KeyState(15) = 0 then CurrentTab=0
   Set Cursor 0,20 : print KeyState(15)
   If LastTab=1 and CurrentTab=0 then SetWindowtoTop(0)
   LastTab=CurrentTab


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

      If Window(TopWindow).Dynamic=1

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

         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+27,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
         Sprite Window(TopWindow).LockButton,Window(TopWindow).X+(Window(TopWindow).Width-67),Window(TopWindow).Y+6,Window(TopWindow).LockButton
      EndIf

      If Window(TopWindow).Locked=0
         `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
            Hide Sprite Window(TopWindow).LockButton
         EndIf

      EndIf

      `Detect the lock Button
      If Sprite Collision(Window(TopWindow).LockButton,SPMouse) and ButtonState="LeftPressed"
         If Window(TopWindow).Locked=1
            Window(TopWindow).Locked=0
            DistanceX=Window(TopWindow).X-Mousex()
            DistanceY=Window(TopWindow).Y-Mousey()
            Set Sprite Diffuse Window(TopWindow).LockButton, 255,255,255
         Else
            Window(TopWindow).Locked=1
            Set Sprite Diffuse Window(TopWindow).LockButton, 255, 0, 0
         EndIf
      EndIf
      EndIf

EndFunction


Function SetWindowtoTop(aWindow as Integer)

   `Change Old Selected Window to Grey
   Set Sprite Diffuse Window(Array Count(Window())).Bar, 255,255, 255
   Set Sprite Diffuse Window(Array Count(Window())).Body, 255,255, 255

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

   `Change New Selected Window to Green
   Set Sprite Diffuse Window(Array Count(Window())).Bar,0, 255,0
   Set Sprite Diffuse Window(Array Count(Window())).Body, 0, 255, 0

   `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).Body        ,(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).LockButton  ,(aWin+1.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 LastTab     as Integer
      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

Better to be dead, than to live your life afraid.

Back to top

Profile PM

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 19th Nov 2007 23:07

Link

gleck, ntohing works for me. is there anything i need?

alus.portbb.com go there.
[quote]A book. I hate books. book is stupid. I know that I need codes but I dont know the codes.[/quote} -zenicanin14 the stupidest user in the world.

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 19th Nov 2007 23:34

Link

I am very impressed by both your program and your coding style. Well done mate!

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 20th Nov 2007 00:02 Edited at: 20th Nov 2007 00:04

Link

Thanks Zotoaster

@aluseus GOD
Nope you dont need any media or plugins, Just copy the code and then run it

Better to be dead, than to live your life afraid.

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Nov 2007 00:23

Link

Might be the screen resolution aleseus GOD.

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 20th Nov 2007 01:07

Link

doesn't look to different zoto

Your signature has been erased by a mod

Back to top

Profile PM Email Website

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 20th Nov 2007 01:09

Link

no it says type incompatibilty junk.

Your signature has been erased by a mod

Back to top

Profile PM Email Website

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 20th Nov 2007 07:28

Link

lol, well cool man.

I'm not gonna work on the Vista Basic GUI in DBP anymore. I'll remake it in my Vista Programming Language (VPL).

Cheers,

-naota

"I choose to believe, what I was programmed to believe!"
Aex.Uni forums

Back to top

Profile PM Email Website

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 20th Nov 2007 12:04

Link

Hey Aaron have you tried the new Dark GDK yet on VS c++. I downloaded the VS c++ but my Dark GDK download died on me so im going to try Download it again today.

Better to be dead, than to live your life afraid.

Back to top

Profile PM

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Nov 2007 16:32

Link

aleseus GOD, yep, that will be the screen res. Try changing it to 1024x768

"It's like floating a boat on a liquid that I don't know, but I'm quite happy to drink it if I'm thirsty enough" - Me being a good programmer but sucking at computers

Back to top

Profile PM Email

Aaron Miller

18

Years of Service

User Offline

Joined: 25th Feb 2006

Playing: osu!

Posted: 21st Nov 2007 07:51

Link

@HeavyAmp
Yup, I got the DarkGDK now. Telling DBP to go f*** off basically

haha

I'm making something in it. You might find it of use for GUIs.

Cheers,

-naota

"I choose to believe, what I was programmed to believe!"
Aex.Uni forums

Back to top

Profile PM Email Website

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 21st Nov 2007 16:42

Link

I'm just going to play around with Dark GDK while still using DBP, see how it goes. I hear it still has some issues but I reckon most of those problems will be sorted in the coming months. Ive gotten so use to the DBP syntax that writing in any other language is going to be hard.

Better to be dead, than to live your life afraid.

Back to top

Profile PM

aluseus GOD

17

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 22nd Nov 2007 16:50

Link

Types 'FSUpdateWindows@ButtonState' and '$$13' are incompatible at line 123.
Yes, I did try changin the screen res.

alus.portbb.com go there.
Quote: A book. I hate books. book is stupid. I know that I need codes but I dont know the codes -zenicanin14 the stupidest user in the world

Back to top

Profile PM Email Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 1st Dec 2007 15:43

Link

I got a "Memblock Position out of range at line 338."

Other than that, looks cool! I just want to be able to run it

[i"I don't have a Christmas tree, I have a Chemis-tree."[/i]

Back to top

Profile PM Email Website

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 2nd Dec 2007 08:12

Link

Im not sure why your getting the memblock error. Try recopying the code maybe you modified something without realizing it. Have you changed the resolution or anything? Once I get time im going to crack on and get it so the windows can scroll. I was wanting to do it earlier but I had to work on my day off

Better to be dead, than to live your life afraid.

Back to top

Profile PM

Roxas

19

Years of Service

User Offline

Joined: 11th Nov 2005

Location: http://forum.thegamecreators.com

Posted: 2nd Dec 2007 15:35

Link

This is nice.
Im gonna do new GUI now.. And this time serious

Not fake OS like Window$

And im gonna use 3d acceleration to get it lighting fast.

Click For Details!

Back to top

Profile PM Email

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 2nd Dec 2007 15:39

Link

Ok, I switched to 32 bit and it worked

.

That is truly cool, especially since it needs no media.

[i"Ok, so that wasn't funny. I don' have any good Christmas jokes."[/i]

Back to top

Profile PM Email Website

kaedroho

17

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 2nd Dec 2007 17:39 Edited at: 24th Dec 2007 13:54

Link

i cant use this because of ive got blue gui and some of the commands have been mixed up:

-MousePosX
-MousePosY
-makewindow

Back to top

Profile PM Email Website

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 4th Dec 2007 23:34

Link

The only thing I can think of kaedroho is if you press Ctrl+H then just replace those variable names with similar names it should work fine.

Ive been working on creating a scrolling system with buttons using only images and Ive managed to complete it. I haven't in cooperated it into my windows system yet. It requires media so Ive attached it as a zip file to this post. When I do combine it with my windows code Ill set it up to use no media.

Heres the code for the Scrolling System using buttons.

Set Display Mode 1280,1024,32
Sync On

Global ScrollY    as Integer : ScrollY    = 0
Global ViewWidth  as Integer : ViewWidth  = 400
Global ViewHeight as Integer : ViewHeight = 400

Global WindowHeight as Integer : WindowHeight=800

Global WinPosX as Integer : WinPosX = 600
Global WinPosY as Integer : WinPosY = 50
Global Button as Integer : Button = 0

GetWindow()
ScrollWindow()

Do

If Upkey() =1
      ScrollY=ScrollY-5
      If ScrollY<0 then ScrollY=0
      ScrollWindow()
   EndIf

If DownKey() =1
      ScrollY=ScrollY+5
      If ScrollY>(WindowHeight-ViewHeight) then ScrollY=(WindowHeight-ViewHeight)
      ScrollWindow()
   EndIf

Paste Image 1,0,0
   Paste Image 3,WinPosX,WinPosY

If Mouseclick()=1 then ButtonPress()

Set Cursor 500,500 : Ink RGB(255,0,0),1

If Button=1 then Print "Button 1 has Been Pressed"
   If Button=2 then Print "Button 2 has Been Pressed"
   If Button=3 then Print "Button 3 has Been Pressed"
   If Button=4 then Print "Button 4 has Been Pressed"
   If Button=5 then Print "Button 5 has Been Pressed"

sync : cls
Loop

Function ScrollWindow()

Local Width       as Integer
   Local Height      as Integer
   Local ImageStart  as Integer
   Local MemPos      as Integer

Width      = Memblock Dword (3,0)
   Height     = Memblock Dword (3,4)
   ImageStart = ScrollY*Width*4
   MemPos     = 12

For Pixel = 1 to Width*Height

Local PixelData as Dword

PixelData = Memblock Dword (1,ImageStart+MemPos)
      Write MemBlock Dword 3,MemPos,PixelData

MemPos=MemPos+4

Next Pixel

Make Image From Memblock 3,3

EndFunction

Function GetWindow()

`Contains the Window
   Load Image "Window.bmp",1

`Contains where the buttons are located
   Load Image "WindowButtons.bmp",2

Create Bitmap 1,400,800
      Paste Image 2,0,0
   Set Current Bitmap 0

`Turn Our Images Into Memblocks
   Make memblock From Image 1,1
   Make memblock From Image 2,2

MakeMemblock(3,400,400)

EndFunction

Function MakeMemblock(MemBlockNum as Integer , ImgWidth as Dword, ImgHeight as Dword)

Make Memblock MemBlockNum, (ImgWidth*ImgHeight*4)+12
   Write Memblock Dword MemBlockNum, 0, ImgWidth
   Write Memblock Dword MemBlockNum, 4, ImgHeight
   Write Memblock Dword MemBlockNum, 8, 32

EndFunction

Function ButtonPress()

Local PosX as Integer : PosX=MouseX()
   Local PosY as Integer : PosY=MouseY()

`Check If our MouseClick is on the Window
   If PosX=>WinPosX and PosX=<WinPosX + ViewWidth
      If PosY=>WinPosY and PosY=<WinPosY+ViewHeight

PosX=PosX-WinPosX : PosY=(PosY-WinPosY)+ScrollY

Set Current Bitmap 1
         Button=RGBR(Point(PosX,PosY))
         Set Current Bitmap 0

EndIf
   EndIf

EndFunction

+ Code Snippet

Set Display Mode 1280,1024,32
Sync On

Global ScrollY    as Integer : ScrollY    = 0
Global ViewWidth  as Integer : ViewWidth  = 400
Global ViewHeight as Integer : ViewHeight = 400

Global WindowHeight as Integer : WindowHeight=800

Global WinPosX as Integer : WinPosX = 600
Global WinPosY as Integer : WinPosY = 50
Global Button as Integer : Button = 0


GetWindow()
ScrollWindow()


Do

   If Upkey() =1
      ScrollY=ScrollY-5
      If ScrollY<0 then ScrollY=0
      ScrollWindow()
   EndIf

   If DownKey() =1
      ScrollY=ScrollY+5
      If ScrollY>(WindowHeight-ViewHeight) then ScrollY=(WindowHeight-ViewHeight)
      ScrollWindow()
   EndIf

   Paste Image 1,0,0
   Paste Image 3,WinPosX,WinPosY

   If Mouseclick()=1 then ButtonPress()

   Set Cursor 500,500 : Ink RGB(255,0,0),1

   If Button=1 then Print "Button 1 has Been Pressed"
   If Button=2 then Print "Button 2 has Been Pressed"
   If Button=3 then Print "Button 3 has Been Pressed"
   If Button=4 then Print "Button 4 has Been Pressed"
   If Button=5 then Print "Button 5 has Been Pressed"

   sync : cls
Loop


Function ScrollWindow()

   Local Width       as Integer
   Local Height      as Integer
   Local ImageStart  as Integer
   Local MemPos      as Integer

   Width      = Memblock Dword (3,0)
   Height     = Memblock Dword (3,4)
   ImageStart = ScrollY*Width*4
   MemPos     = 12

   For Pixel = 1 to Width*Height

      Local PixelData as Dword

      PixelData = Memblock Dword (1,ImageStart+MemPos)
      Write MemBlock Dword 3,MemPos,PixelData

      MemPos=MemPos+4

   Next Pixel

   Make Image From Memblock 3,3

EndFunction

Function GetWindow()

   `Contains the Window
   Load Image "Window.bmp",1

   `Contains where the buttons are located
   Load Image "WindowButtons.bmp",2

   Create Bitmap 1,400,800
      Paste Image 2,0,0
   Set Current Bitmap 0

   `Turn Our Images Into Memblocks
   Make memblock From Image 1,1
   Make memblock From Image 2,2

   MakeMemblock(3,400,400)

EndFunction


Function MakeMemblock(MemBlockNum as Integer , ImgWidth as Dword, ImgHeight as Dword)

   Make Memblock MemBlockNum, (ImgWidth*ImgHeight*4)+12
   Write Memblock Dword MemBlockNum, 0, ImgWidth
   Write Memblock Dword MemBlockNum, 4, ImgHeight
   Write Memblock Dword MemBlockNum, 8, 32

EndFunction

Function ButtonPress()

   Local PosX as Integer : PosX=MouseX()
   Local PosY as Integer : PosY=MouseY()

   `Check If our MouseClick is on the Window
   If PosX=>WinPosX and PosX=<WinPosX + ViewWidth
      If PosY=>WinPosY and PosY=<WinPosY+ViewHeight

         PosX=PosX-WinPosX : PosY=(PosY-WinPosY)+ScrollY

         Set Current Bitmap 1
         Button=RGBR(Point(PosX,PosY))
         Set Current Bitmap 0

      EndIf
   EndIf

EndFunction

Better to be dead, than to live your life afraid.

Attachments

Login to view attachments

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 7th Jan 2008 11:53

Link

All you need is window resizing with the mouse and you'll have a very nice menu system. I like it. Think I had 700+ fps.

Back to top

Profile PM Email Website

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 25th Mar 2008 22:36

Link

Change the name of the "CreateWindow" function, as it is used by BlueGUI.

The optomist's right, The pessimist's right.

Back to top

Profile PM Email

Data

19

Years of Service

User Offline

Joined: 26th Nov 2004

Location: Winnipeg,Canada

Posted: 28th Mar 2008 01:13

Link

Here's a very nooby question, but I put variables to be printed in the windows, I put them in the Create Window function and they show up very nicely except that when the variables change they do not update, what would I have to do to update them?

Thanks and great code btw!

Data