143 lines
2.9 KiB
Text
143 lines
2.9 KiB
Text
# Gambas Form File 3.0
|
|
|
|
{ Form Form
|
|
MoveScaled(0,0,121,73)
|
|
Text = ("gbGravity - Iman Karim")
|
|
Icon = Picture["gravity.png"]
|
|
Resizable = False
|
|
{ lblGrav TextLabel
|
|
MoveScaled(61,1,21,3)
|
|
Text = ("Gravity 0.9")
|
|
Alignment = Align.Left
|
|
}
|
|
{ Button1 Button
|
|
MoveScaled(1,1,25,6)
|
|
Text = ("Add a Ball")
|
|
}
|
|
{ Slider1 Slider
|
|
MoveScaled(42,1,18,3)
|
|
MinValue = 1
|
|
Step = 10
|
|
Value = 90
|
|
}
|
|
{ lblSlide TextLabel
|
|
MoveScaled(61,4,21,3)
|
|
Text = ("Floor Slide 0.9")
|
|
Alignment = Align.Left
|
|
}
|
|
{ Slider2 Slider
|
|
MoveScaled(42,4,18,3)
|
|
MinValue = 50
|
|
Step = 10
|
|
Value = 90
|
|
}
|
|
{ togAddMore ToggleButton
|
|
MoveScaled(1,8,25,6)
|
|
Text = ("Add more Balls")
|
|
}
|
|
{ dW DrawingArea
|
|
MoveScaled(27,8,93,64)
|
|
Border = Border.Plain
|
|
Cached = True
|
|
{ lblAddMore TextLabel
|
|
MoveScaled(1,1,24,10)
|
|
Visible = False
|
|
Background = &HFFFFDF&
|
|
Text = ("Click and hold on Gamefield and move your Mouse!")
|
|
Alignment = Align.Center
|
|
Border = Border.Plain
|
|
}
|
|
}
|
|
{ Frame1 Frame
|
|
MoveScaled(1,15,25,53)
|
|
Text = ("Point Setup")
|
|
{ TextLabel1 TextLabel
|
|
MoveScaled(1,3,23,4)
|
|
Text = ("Choose Point:")
|
|
}
|
|
{ cB ComboBox
|
|
MoveScaled(1,7,23,4)
|
|
ReadOnly = True
|
|
Text = ("ComboBox1")
|
|
}
|
|
{ togFocus ToggleButton
|
|
MoveScaled(1,12,23,4)
|
|
Text = ("Focus Point")
|
|
Value = True
|
|
}
|
|
{ cmdRandomize Button
|
|
MoveScaled(1,17,23,5)
|
|
Text = ("Randomize Kick")
|
|
}
|
|
{ Separator1 Separator
|
|
MoveScaled(1,22,23,2)
|
|
}
|
|
{ Label1 Label
|
|
MoveScaled(2,24,21,3)
|
|
Text = ("Current Ball X:")
|
|
}
|
|
{ lblX Label
|
|
MoveScaled(1,27,14,3)
|
|
Text = ("0")
|
|
Alignment = Align.Center
|
|
}
|
|
{ Label2 Label
|
|
MoveScaled(2,30,21,3)
|
|
Text = ("Current Ball Y:")
|
|
}
|
|
{ lblY Label
|
|
MoveScaled(1,33,14,3)
|
|
Text = ("0")
|
|
Alignment = Align.Center
|
|
}
|
|
{ Label6 Label
|
|
MoveScaled(2,36,21,3)
|
|
Text = ("Current Ball aX:")
|
|
}
|
|
{ lblAX Label
|
|
MoveScaled(1,39,14,3)
|
|
Text = ("0")
|
|
Alignment = Align.Center
|
|
}
|
|
{ Label4 Label
|
|
MoveScaled(2,42,21,3)
|
|
Text = ("Current Ball aY:")
|
|
}
|
|
{ lblAY Label
|
|
MoveScaled(1,45,14,3)
|
|
Text = ("0")
|
|
Alignment = Align.Center
|
|
}
|
|
{ lblOutOfRange Label
|
|
MoveScaled(1,48,23,4)
|
|
Visible = False
|
|
Foreground = &HFF0000&
|
|
Text = ("Ball out of Range")
|
|
}
|
|
}
|
|
{ Timer1 #Timer
|
|
#MoveScaled(54,20)
|
|
Enabled = True
|
|
Delay = 50
|
|
}
|
|
{ lblAbout Label
|
|
MoveScaled(1,68,25,4)
|
|
Font = Font["Underline"]
|
|
Mouse = Mouse.Pointing
|
|
Text = ("About gbGravity...")
|
|
}
|
|
{ togGrav ToggleButton
|
|
MoveScaled(27,1,14,6)
|
|
Text = ("Gravity")
|
|
Value = True
|
|
}
|
|
{ togClear ToggleButton
|
|
MoveScaled(82,1,22,6)
|
|
Text = ("Clear each Frame")
|
|
Value = True
|
|
}
|
|
{ togSky ToggleButton
|
|
MoveScaled(105,1,15,6)
|
|
Text = ("Sky")
|
|
}
|
|
}
|