home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Galaxy of TetriMania
/
glxytetrimania.iso
/
wingames
/
tetris4
/
sghtet09
/
trisdll.dll
/
RCDATA
/
TFTETRIS
/
TFTETRIS.txt
< prev
Wrap
Text File
|
1996-09-05
|
22KB
|
691 lines
object FTetris: TFTetris
Left = -2
Top = 0
Width = 640
Height = 480
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'SGH'#39's Tris Game'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
KeyPreview = True
Position = poScreenCenter
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnMouseDown = FormMouseDown
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
object Back1: TImage
Left = 8
Top = 29
Width = 210
Height = 330
end
object lRemName: TLabel
Left = 408
Top = 0
Width = 233
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Remote Player'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lLocName: TLabel
Left = 0
Top = 0
Width = 233
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Local Player'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 328
Top = 2
Width = 65
Height = 17
Alignment = taCenter
AutoSize = False
Caption = 'Remote'
Color = clYellow
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label6: TLabel
Left = 316
Top = 48
Width = 41
Height = 13
AutoSize = False
Caption = 'Score'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label7: TLabel
Left = 317
Top = 72
Width = 41
Height = 13
AutoSize = False
Caption = 'Lines'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lMessage: TLabel
Left = 237
Top = 228
Width = 169
Height = 128
Alignment = taCenter
AutoSize = False
Caption = 'System Messages'
Color = clBlack
Font.Color = clYellow
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
WordWrap = True
end
object lScoreRem: TLabel
Left = 360
Top = 48
Width = 41
Height = 13
AutoSize = False
Caption = '0'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lLinesRem: TLabel
Left = 360
Top = 72
Width = 49
Height = 13
AutoSize = False
Caption = '0'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lLines: TLabel
Left = 276
Top = 72
Width = 41
Height = 13
AutoSize = False
Caption = '0'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label10: TLabel
Left = 248
Top = 2
Width = 49
Height = 17
Alignment = taCenter
AutoSize = False
Caption = 'Local'
Color = clYellow
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
Transparent = True
end
object lScore: TLabel
Left = 276
Top = 48
Width = 41
Height = 13
AutoSize = False
Caption = '0'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label12: TLabel
Left = 236
Top = 48
Width = 41
Height = 13
AutoSize = False
Caption = 'Score'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label13: TLabel
Left = 236
Top = 72
Width = 41
Height = 13
AutoSize = False
Caption = 'Lines'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label14: TLabel
Left = 316
Top = 96
Width = 41
Height = 13
AutoSize = False
Caption = 'Level'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lLevelRem: TLabel
Left = 360
Top = 96
Width = 41
Height = 13
AutoSize = False
Caption = '1'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label16: TLabel
Left = 236
Top = 96
Width = 33
Height = 13
AutoSize = False
Caption = 'Level'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lLevel: TLabel
Left = 276
Top = 96
Width = 41
Height = 13
AutoSize = False
Caption = '1'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Back2: TImage
Left = 421
Top = 29
Width = 210
Height = 330
end
object lNext: TLabel
Left = 236
Top = 120
Width = 33
Height = 17
AutoSize = False
Caption = 'Next'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object iNext: TImage
Left = 269
Top = 123
Width = 45
Height = 30
Stretch = True
OnClick = ImageCheat
end
object Posx: TImage
Left = 8
Top = 360
Width = 210
Height = 5
end
object Posy: TImage
Left = 219
Top = 29
Width = 5
Height = 330
end
object Label1: TLabel
Left = 238
Top = 24
Width = 35
Height = 17
AutoSize = False
Caption = 'Wins'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 317
Top = 24
Width = 37
Height = 17
AutoSize = False
Caption = 'Wins'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lLocWins: TLabel
Left = 277
Top = 24
Width = 33
Height = 13
AutoSize = False
Caption = '0'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lRemWins: TLabel
Left = 360
Top = 24
Width = 41
Height = 13
AutoSize = False
Caption = '0'
Font.Color = clWhite
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object rChatLog: TRichEdit
Left = 168
Top = 375
Width = 337
Height = 34
TabStop = False
Color = clTeal
Lines.Strings = (
'rChatLog')
ScrollBars = ssVertical
TabOrder = 7
WantTabs = True
OnKeyDown = rChatKeyDown
OnMouseDown = rChatmDown
end
object tChat: TEdit
Left = 168
Top = 423
Width = 337
Height = 21
Color = clTeal
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyDown = tEditKeyDown
OnMouseDown = tEditMouseDown
end
object bQuit: TBitBtn
Left = 525
Top = 426
Width = 65
Height = 21
Caption = '&Exit'
ModalResult = 2
TabOrder = 1
OnClick = bQuitClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C0007D654F00B199
8300000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000D9CCC100A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303F8F80303030303030303030303030303030303FF03030303030303030303
0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
010101F8030303030303030303F8FF030303030303FFF8030303030303030303
030101010101F80303030303030303030303F8FF0303030303F8030303030303
0303030303F901010101F8030303030303030303030303F8FF030303F8030303
0303030303030303F90101010101F8030303030303030303030303F803030303
F8FF030303030303030303F9010101F8010101F803030303030303030303F803
03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
03030303030303030303030303030303030303030303030303F8F8F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
object bHelp: TBitBtn
Left = 86
Top = 424
Width = 65
Height = 21
TabOrder = 6
OnClick = bHelpClick
Kind = bkHelp
end
object bNew: TBitBtn
Left = 525
Top = 384
Width = 65
Height = 25
Caption = '&New'
TabOrder = 2
Visible = False
OnClick = bNewClick
Kind = bkRetry
end
object bPause: TBitBtn
Left = 86
Top = 384
Width = 65
Height = 24
Caption = '&Pause'
TabOrder = 4
Visible = False
OnClick = bPauseClick
Kind = bkNo
end
object bAgentMessage: TButton
Left = 288
Top = 320
Width = 97
Height = 25
Caption = 'bAgentMessage'
TabOrder = 8
Visible = False
OnMouseUp = AgentMessUp
end
object CombLevel: TComboBox
Left = 328
Top = 123
Width = 69
Height = 21
Style = csDropDownList
Color = clBackground
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
OnChange = CombLevelChange
end
object bSound: TBitBtn
Left = 4
Top = 424
Width = 78
Height = 22
Caption = '&Sound On'
ModalResult = 6
TabOrder = 5
OnClick = bSoundClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C0007D654F00B199
8300000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000D9CCC100A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
object bMusic: TBitBtn
Left = 4
Top = 384
Width = 77
Height = 25
Caption = '&Music On'
ModalResult = 6
TabOrder = 9
OnClick = bMusicClick
Glyph.Data = {
BE060000424DBE06000000000000360400002800000024000000120000000100
0800000000008802000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C0007D654F00B199
8300000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000D9CCC100A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
0303030303030303030303030303030303030303030303030303030303030303
03030303030303030303030303030303030303030303FF030303030303030303
03030303030303040403030303030303030303030303030303F8F8FF03030303
03030303030303030303040202040303030303030303030303030303F80303F8
FF030303030303030303030303040202020204030303030303030303030303F8
03030303F8FF0303030303030303030304020202020202040303030303030303
0303F8030303030303F8FF030303030303030304020202FA0202020204030303
0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
0303030303030303030303FA0202020403030303030303030303030303F8FF03
03F8FF03030303030303030303030303FA020202040303030303030303030303
0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
0202040303030303030303030303030303F8FF03F8FF03030303030303030303
03030303FA0202030303030303030303030303030303F8FFF803030303030303
030303030303030303FA0303030303030303030303030303030303F803030303
0303030303030303030303030303030303030303030303030303030303030303
0303}
NumGlyphs = 2
end
object LocTimer: TTimer
Enabled = False
Interval = 10
OnTimer = LocTimerTimer
Left = 232
Top = 320
end
object AgentMessTimer: TTimer
Enabled = False
Interval = 10
OnTimer = AgentMessTimerTimer
Left = 384
Top = 320
end
object PlayTimer: TTimer
Enabled = False
Interval = 700
OnTimer = PlayTimerTimer
Left = 256
Top = 320
end
object MusicTimer: TTimer
Enabled = False
OnTimer = MusicTimerTimer
Left = 232
Top = 352
end
end