Blame lazarus/bombs/unit1.lfm
|
Ivan Mahonin |
c22d5d |
object Form1: TForm1
|
|
Ivan Mahonin |
c22d5d |
Left = 202
|
|
Ivan Mahonin |
c22d5d |
Height = 550
|
|
Ivan Mahonin |
c22d5d |
Top = 210
|
|
Ivan Mahonin |
c22d5d |
Width = 812
|
|
Ivan Mahonin |
c22d5d |
Caption = 'Form1'
|
|
Ivan Mahonin |
c22d5d |
ClientHeight = 550
|
|
Ivan Mahonin |
c22d5d |
ClientWidth = 812
|
|
Ivan Mahonin |
c22d5d |
OnCreate = FormCreate
|
|
Ivan Mahonin |
c22d5d |
LCLVersion = '1.6.2.0'
|
|
Ivan Mahonin |
c22d5d |
object Image1: TImage
|
|
Ivan Mahonin |
c22d5d |
Left = 0
|
|
Ivan Mahonin |
c22d5d |
Height = 550
|
|
Ivan Mahonin |
c22d5d |
Top = 0
|
|
Ivan Mahonin |
c22d5d |
Width = 812
|
|
Ivan Mahonin |
c22d5d |
Align = alClient
|
|
Ivan Mahonin |
c22d5d |
OnMouseDown = Image1MouseDown
|
|
Ivan Mahonin |
c22d5d |
OnMouseMove = Image1MouseMove
|
|
Ivan Mahonin |
c22d5d |
end
|
|
Ivan Mahonin |
c22d5d |
object Shape1: TShape
|
|
Ivan Mahonin |
c22d5d |
Left = 192
|
|
Ivan Mahonin |
c22d5d |
Height = 16
|
|
Ivan Mahonin |
c22d5d |
Top = 112
|
|
Ivan Mahonin |
c22d5d |
Width = 16
|
|
Ivan Mahonin |
c22d5d |
Shape = stEllipse
|
|
Ivan Mahonin |
c22d5d |
Visible = False
|
|
Ivan Mahonin |
c22d5d |
end
|
|
Ivan Mahonin |
c22d5d |
object Label1: TLabel
|
|
Ivan Mahonin |
c22d5d |
Left = 8
|
|
Ivan Mahonin |
c22d5d |
Height = 42
|
|
Ivan Mahonin |
c22d5d |
Top = 8
|
|
Ivan Mahonin |
c22d5d |
Width = 247
|
|
Ivan Mahonin |
c22d5d |
Caption = 'Paint landscape by left mouse button,'#10'and drom bombs by right button.'
|
|
Ivan Mahonin |
c22d5d |
ParentColor = False
|
|
Ivan Mahonin |
c22d5d |
end
|
|
Ivan Mahonin |
c22d5d |
object Timer1: TTimer
|
|
Ivan Mahonin |
c22d5d |
Interval = 10
|
|
Ivan Mahonin |
c22d5d |
OnTimer = Timer1Timer
|
|
Ivan Mahonin |
c22d5d |
left = 240
|
|
Ivan Mahonin |
c22d5d |
top = 16
|
|
Ivan Mahonin |
c22d5d |
end
|
|
Ivan Mahonin |
c22d5d |
end
|