200589952618.rar MAIN.DFM

www.pudn.com > 200589952618.rar > MAIN.DFM

object frmMain: TfrmMain
Left = 324
Top = 164
BorderIcons = [biMinimize]
BorderStyle = bsSingle
Caption = 'TETRIS'
ClientHeight = 366
ClientWidth = 268
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000008888888888888888888888880000000000
000000000000000000000080000000F7777777777777777777777708000000F0
F000008F0000008F00000FF0800000F8008C84080FBFB30808D8D088080000F7
80C8C4400BFBF3300D8D8508808000F8808C84440FBFB33308D8D550880800F7
80C8C4440BFBF3330D8D8550777000F8808C84440FBFB33308D8D550000000F7
80C8C4440BFBF3330D8D8550000000F8808C84440FBFB33308D8D550000000F7
80C8C4440BFBF3330D8D8550000000F8808C84440FBFB33308D8D550000000F7
80C8C4440BFBF3330D8D8550000000F8807774440FBFB33308D8D550000000F7
80CCC8440BFBF3330D8D8550000000F8780CCC840FBFB33308D8D550000000F7
8780CCC80BFBF3330D8D8550000000F8787800000FBFB33308D8D550000000F7
878700000BFBF3330D8D8550000000F8787800000FBFB3330DDDD550000000F7
878700000BFBF33300DDD850000000F8787800000FBFB333000DDD800000000F
878700000FFFF3330000000000000000F87800000BBBB7330000000000000000
0F87000000BBBB73000000000000000000F80000000BBBB70000000000000000
000F000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFC000003F8000001F8000000F800000078000000380000001800000008000
0000800000008000000F8000000F8000000F8000000F8000000F8000000F8000
000F8000000F8000000F8000000F8070000F8070000F8070000F8070040FC070
060FE07007FFF07807FFF87C07FFFC7E07FFFE7FFFFFFF7FFFFFFFFFFFFF}
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object TLabel
Left = 190
Top = 94
Width = 41
Height = 16
Caption = 'Score:'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 190
Top = 150
Width = 38
Height = 16
Caption = 'Lines:'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 190
Top = 206
Width = 45
Height = 16
Caption = 'Speed:'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 190
Top = 270
Width = 36
Height = 16
Caption = 'Time:'
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object lblStatus: TLabel
Left = 191
Top = 334
Width = 70
Height = 20
Caption = 'Paused'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Panel1: TPanel
Left = 8
Top = 12
Width = 174
Height = 342
BevelOuter = bvLowered
Color = clBlack
TabOrder = 0
object PaintBox1: TPaintBox
Left = 1
Top = 1
Width = 172
Height = 340
Align = alClient
end
end
object Panel2: TPanel
Left = 190
Top = 12
Width = 73
Height = 56
BevelOuter = bvLowered
Color = clBlack
TabOrder = 1
object ScrNext: TPaintBox
Left = 1
Top = 1
Width = 71
Height = 54
Align = alClient
end
end
object stScore: TStaticText
Left = 190
Top = 115
Width = 70
Height = 23
Alignment = taRightJustify
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clAqua
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 2
end
object stLines: TStaticText
Left = 190
Top = 171
Width = 70
Height = 23
Alignment = taRightJustify
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clAqua
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 3
end
object stSpeed: TStaticText
Left = 190
Top = 227
Width = 70
Height = 23
Alignment = taRightJustify
AutoSize = False
BorderStyle = sbsSunken
Caption = '0'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clAqua
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 4
end
object stDuring: TStaticText
Left = 190
Top = 291
Width = 70
Height = 23
Alignment = taRightJustify
AutoSize = False
BorderStyle = sbsSunken
Caption = '0:00:00'
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clAqua
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 5
end
object GBEnemy: TGroupBox
Left = 280
Top = 0
Width = 193
Height = 361
Caption = 'Enemy'
TabOrder = 6
object Panel3: TPanel
Left = 11
Top = 14
Width = 174
Height = 342
BevelOuter = bvLowered
Caption = 'Panel3'
Color = clBlack
TabOrder = 0
object PaintBox2: TPaintBox
Left = 1
Top = 1
Width = 172
Height = 340
Align = alClient
end
end
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Top = 272
end
object MainMenu1: TMainMenu
Top = 312
object File1: TMenuItem
Caption = '&amt;File'
object mnuStart: TMenuItem
Caption = '&amt;Start'
ShortCut = 113
OnClick = mnuStartClick
end
object mnuPause: TMenuItem
Caption = '&amt;Pause'
Enabled = False
ShortCut = 114
OnClick = mnuPauseClick
end
object N2: TMenuItem
Caption = '-'
Enabled = False
OnClick = mnuCancelClick
end
object mnuCancel: TMenuItem
Caption = '&amt;Cancel'
ShortCut = 115
OnClick = mnuCancelClick
end
end
end
object IdTCPClient1: TIdTCPClient
MaxLineAction = maException
ReadTimeout = 0
Port = 0
Top = 240
end
object IdAntiFreeze1: TIdAntiFreeze
Top = 204
end
object Timer2: TTimer
Enabled = False
Interval = 100
OnTimer = Timer2Timer
Left = 40
Top = 316
end
end