Browse Subversion Repository
Contents of /Unit1.dfm
 Parent Directory
|  Revision Log
Revision 1 -
( show annotations)
( download)
Fri Jul 10 00:31:32 2015 UTC
(8 years, 8 months ago)
by yamat0jp
File size: 1264 byte(s)
ぷよぷよでは２つ一組で落下してくるところを４つにしました
斜めの連鎖判定も出しています
おかげで面白く無いかもしれません
AIの部分はまだ詰めていませんがイベント化しました
| 1 |
object Form1: TForm1 |
| 2 |
Left = 343 |
| 3 |
Top = 231 |
| 4 |
Caption = 'Form1' |
| 5 |
ClientHeight = 334 |
| 6 |
ClientWidth = 498 |
| 7 |
Color = clBtnFace |
| 8 |
Font.Charset = DEFAULT_CHARSET |
| 9 |
Font.Color = clWindowText |
| 10 |
Font.Height = -11 |
| 11 |
Font.Name = 'Tahoma' |
| 12 |
Font.Style = [] |
| 13 |
Menu = MainMenu1 |
| 14 |
OldCreateOrder = False |
| 15 |
Position = poDesigned |
| 16 |
OnCreate = FormCreate |
| 17 |
OnDestroy = FormDestroy |
| 18 |
OnKeyDown = FormKeyDown |
| 19 |
OnPaint = FormPaint |
| 20 |
PixelsPerInch = 96 |
| 21 |
TextHeight = 13 |
| 22 |
object ApplicationEvents1: TApplicationEvents |
| 23 |
OnIdle = ApplicationEvents1Idle |
| 24 |
Left = 216 |
| 25 |
Top = 112 |
| 26 |
end |
| 27 |
object MainMenu1: TMainMenu |
| 28 |
Left = 240 |
| 29 |
Top = 176 |
| 30 |
object Game1: TMenuItem |
| 31 |
Caption = 'Game' |
| 32 |
object Start1: TMenuItem |
| 33 |
Caption = 'Start' |
| 34 |
OnClick = Start1Click |
| 35 |
end |
| 36 |
object N1: TMenuItem |
| 37 |
Caption = '-' |
| 38 |
end |
| 39 |
object Close1: TMenuItem |
| 40 |
Caption = 'Close' |
| 41 |
OnClick = Close1Click |
| 42 |
end |
| 43 |
end |
| 44 |
object Com1: TMenuItem |
| 45 |
Caption = 'Com' |
| 46 |
object Player11: TMenuItem |
| 47 |
Caption = 'Player1' |
| 48 |
OnClick = Player11Click |
| 49 |
end |
| 50 |
object Player21: TMenuItem |
| 51 |
Caption = 'Player2' |
| 52 |
Checked = True |
| 53 |
end |
| 54 |
end |
| 55 |
end |
| 56 |
end |
| 
Parent Directory
Revision Log