object frmTetris: TfrmTetris Left = 207 Top = 148 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Tetris '#39'99' ClientHeight = 340 ClientWidth = 195 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Icon.Data = {} Scaled = False ShowHint = True Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 96 TextHeight = 15 object bvPreview: TBevel Left = 127 Top = 158 Width = 62 Height = 30 end object Bevel2: TBevel Left = 127 Top = 284 Width = 62 Height = 17 end object Bevel1: TBevel Left = 127 Top = 249 Width = 62 Height = 18 end object Label1: TLabel Left = 127 Top = 235 Width = 62 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Level' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 127 Top = 270 Width = 62 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Score' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object lblLevel: TLabel Left = 130 Top = 251 Width = 56 Height = 13 Alignment = taCenter AutoSize = False Caption = '99' end object lblScore: TLabel Left = 130 Top = 285 Width = 56 Height = 13 Alignment = taCenter AutoSize = False Caption = '99999' end object Bevel3: TBevel Left = 3 Top = 3 Width = 115 Height = 330 end object sbtLeft: TSpeedButton Left = 128 Top = 192 Width = 21 Height = 22 Hint = 'move left' Enabled = False Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333338333 3333333333338333333333333336883333333333333638333333333333668888 88333333336383838333333336E688888883333336363838383333336E668888 888833336363838383833336E6E6666668333336363636363833336E6E6E6E6E 6883336363636363638336E6E6E6E6E6E33336363636363633333EEEEEEEEEEE E33333E3E3E3E3E3E33333EEEEEEEEEEE333333E3E3E3E3E3333333EEEEEEEEE E3333333E3E3E3E3E3333333EEEE3333333333333E3E3333333333333EEE3333 3333333333E333333333333333EE333333333333333E333333333333333E3333 3333333333333333333333333333333333333333333333333333} Margin = 1 NumGlyphs = 2 OnClick = sbtLeftClick end object sbtTurn: TSpeedButton Left = 149 Top = 192 Width = 21 Height = 22 Hint = 'rotate blocks' Enabled = False Flat = True Glyph.Data = { 46010000424D460100000000000076000000280000001C0000000D0000000100 040000000000D0000000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888333883 3338383833383333000033888888888833338383838383330000666668888888 833636383838383300006666633E688888636363336383830000666663EEE633 333636333E363333000066666EEE6E6333636363E363633300006666EEEEE6E6 3336363E3E3636330000666EEEEE6E6E636363E3E3636363000066EEEEEEE6E6 E6363E3E3E3636360000366666EE6E3333336363E36333330000366666EEE633 333636363E363333000033666EEE633333336363E36333330000333EEEE63333 33333E3E363333330000} Margin = 3 NumGlyphs = 2 OnClick = sbtTurnClick end object sbtRight: TSpeedButton Left = 170 Top = 192 Width = 21 Height = 22 Hint = 'move right' Enabled = False Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333833 333333333333383333333333333368883333333333336383833333338888E688 88333333383836383833333338886E688888333383836363838333333388E6E6 88833333333836363833333666666E6E633333336363636363333336E6E6E6E6 E6333336363636363633333E6E6E6E6E6E633333636363636363333EEEEEEEEE EEE3333E3E3E3E3E3E33333EEEEEEEEEEE333333E3E3E3E3E333333EEEEEEEEE E333333E3E3E3E3E333333333333EEEE333333333333E3E3333333333333EEE3 3333333333333E33333333333333EE33333333333333E333333333333333E333 3333333333333333333333333333333333333333333333333333} Margin = 1 NumGlyphs = 2 OnClick = sbtRightClick end object sbtDown: TSpeedButton Left = 149 Top = 214 Width = 21 Height = 20 Hint = 'put blocks' Enabled = False Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000CE0E0000C40E00001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333338833 33333333333338333333333333338888333333333333838333333333333E6888 88333333333E38383833333333EEE6888888333333E36383838333333EEE6E68 883333333E3E363838333333EEEEE6E688833333E3E363638383333EEEEE6E6E 6333333E3E3E3636333333EEEEEEE6E6E63333E3E3E3636363333EEEEEEE6E6E 6E633E3E3E3E3636363333333EEEE6E33333333333E36363333333333EEE6E63 333333333E3E3633333333333EEEE6E33333333333E36363333333333EEE6E63 333333333E3E3633333333333EEEE6E33333333333E363633333333333333333 3333333333333333333333333333333333333333333333333333} Margin = 1 NumGlyphs = 2 OnClick = sbtDownClick end object sbtStart: TSpeedButton Left = 127 Top = 4 Width = 66 Height = 25 Hint = 'start a new game' Caption = '&Start' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 56020000424D560200000000000076000000280000002A000000140000000100 040000000000E001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333388 3333338333333333333833333338330000003333333300088333388833333333 33038333338383000000333333330B0883338888333333333030383338383300 000033333330B03888888888333333330303838383838300000033333330B038 88888888833333333B3338383838380000003333330B0333888FC88883333333 B3333383F383830000003333330B083388FFCC88833333303033383F3C383800 0000333330B0FF888FCCF8888333330303F383F3338383000000333330B0FFCC FFCCF8883333333B3F333F3C3F383300000033330B0FCCFFCCFF8333333333B3 F3C3F333F3333300000033330B0FCCFFCCFF833333333030333F3C3F38333300 00003330B0CCFFCCFFCC833333330303C3F333F3C333330000003330B0CCFFCC FFCC833333333B333F3C3F33383333000000330B0CFFCCFFCCF833333333B3C3 F333F3C3833333000000330B0CFFCCFFCCF833333330303F3C3F333F33333300 000030B0FFCCFFCCFFC83333330303F333F3C3F383333300000030B0FFCCFFCC F8883333333B3F3C3F333F383333330000000B0FCCFFCC888338333333B3F333 F3C383338333330000000008CCFF88333333333330308C3F3833333333333300 0000333388883333333333333333338383333333333333000000} Margin = 3 NumGlyphs = 2 ParentFont = False Spacing = 5 OnClick = sbtStartClick end object sbtPause: TSpeedButton Left = 127 Top = 29 Width = 66 Height = 25 Hint = 'Pause game to take a breath..' Caption = '&Pause' Enabled = False Flat = True Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 56020000424D560200000000000076000000280000002A000000140000000100 040000000000E001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333330000003338888888888888883333333838 3838383838333300000033338888888888888833333333838383838383833300 000033CCCCCCCCCCCCCCC883333C3C3C3C3C3C3C3C383300000033CCCECEEECE EECCC8883333C3E3E3E3E3E3C3838300000033CCCECECECECECCC888333C3C3C 3C3C3C3C3C383300000033CCCECECECECECCC8888333C3E3E3E3E3E3C3838300 000033CCCECEEECEEECCC333333C3C3C3E3C3E3C3C333300000033CCCCCCCCCC CCCCC3333333C3C3C3C3C3C3C3333300000033CFFFFFFFFFFFFFC333333C3F3F 3F3F3F3F3C333300000033CF0FFFFFFFFF0FC3333333F3F3F3F3F3F3F3333300 000033CF0FFFFFFFFF0FC333333C303F3F3F3F303C333300000033CF00000000 000FC3333333F30303030303F3333300000033CF0000FFFFFF0FC333333C3030 3F3F3F303C333300000033CF0FFFFFFFFF0FC3333333F3F3F3F3F3F3F3333300 000033CFFFFFFFFFFFFFC333333C3F3F3F3F3F3F3C333300000033CFFFFFFFFF FFFFC3333333F3F3F3F3F3F3F3333300000033CFFFFFFFFFFFFFC333333C3F3F 3F3F3F3F3C333300000033CCCCCCCCCCCCCCC3333333C3C3C3C3C3C3C3333300 0000333333333333333333333333333333333333333333000000} Margin = 4 NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = sbtPauseClick end object sbtOpts: TSpeedButton Left = 127 Top = 54 Width = 66 Height = 25 Hint = 'Game options..' Caption = '&Options' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 56020000424D560200000000000076000000280000002A000000140000000100 040000000000E001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333388833 3888333333333333838333838333330000003333330008830000833333333330 3038303038333300000033333033308099110833333333033303039313833300 0000333330BB3080999108333333333B33383939303833000000333330BB3080 9991088333333303B3030393138333000000333330BB3030999108883333333B 33333939303833000000333330BB30309991088333333303B303039313833300 0000333330BB3030999103883333333B33333939303833000000333330BB3088 0910888883333303B3038393038383000000333330BB3080999108888333333B 33383939303838000000333330BB30330000333333333303B303330303333300 0000333330BB3033300333333333333B33333330333333000000333330BB3033 3003333333333303B30333033333330000003000000000000003333333303030 3030303033333300000030888888888880033333330383838383830333333300 0000308888888888088033333338383838383038333333000000330888888888 0880333333338383838383830333330000003330000000000880333333333030 3030303833333300000033333000003300003333333333030303330303333300 0000333333333333333333333333333333333333333333000000} Margin = 3 NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = sbtOptsClick end object sbtClose: TSpeedButton Left = 127 Top = 129 Width = 66 Height = 25 Hint = 'Exit Tetris '#39'99..' Caption = '&Close' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 56020000424D560200000000000076000000280000002A000000140000000100 040000000000E001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333330000003833333333333333833333833333 3333333333333300000000333333333333300833303333333333333330333300 00000F83333333333330F83333F33333333333330383330000000F8333333333 3330F83330383333333333333F33330000000F88333333333330F83333F38333 333333330383330000000F88333333333330F88330383333333333333F383300 00000F38833333333330F88333F38333333333330383330000000F3888338888 8330F38330333833383838333F38330000000F33888888888880F88833F33383 838383830383830000000F33388111111880F88830333338313131383F383300 00000F11111919191110F88833F31313939393130383830000000F19191B9B9B B910F8888031313139393B313F38380000000F919BBBBB1B1B90F88883F313B3 B3B3B3B30383830000000F1B1B1B9B9BB910F3333031313139393B313F333300 00000F9B9BB919191B90F33333F3B3B3939393B30333330000000F1919111111 1910F33330313131313131313F33330000000F11111333333110F33333F31313 3333331303333300000033333333333333333333333333333333333333333300 0000333333333333333333333333333333333333333333000000} Margin = 4 NumGlyphs = 2 ParentFont = False Spacing = 5 OnClick = sbtCloseClick end object sbtHelp: TSpeedButton Left = 127 Top = 104 Width = 66 Height = 25 Hint = 'Show help..' Caption = '&Help' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 56020000424D560200000000000076000000280000002A000000140000000100 040000000000E001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333338833 3333333333333333338333333333330000003333333008883333333333333333 303833333333330000003333330CC0883333333333333333C303833333333300 00003333330EC03333333333333333303C333333333333000000333333300338 8833333333333333033383833333330000003333330CC0388883333333333330 3C3338383333330000003333330EC0338888883333333333E303338383833300 00003333330EC03333388883333333303C3333333838330000003333330ECC08 8333888833333333E3C3833333838300000033333330ECC03888888833333333 3E3C3338383833000000333003330ECC088888333333033333E3C38383833300 0000330EC03330ECC033333333303C33333E3C33333333000000330EC033330E C03333333333E3033333E303333333000000330EC033330EC033333333303C33 33303C33333333000000330EC033330EC03333333333E3033333E30333333300 0000330ECC0000ECC033333333303C30303E3C333333330000003330ECCCCCCC 03333333333303C3C3C3C33333333300000033330EEEEEE0333333333333303E 3E3E333333333300000033333000000333333333333333030303333333333300 0000333333333333333333333333333333333333333333000000} Margin = 5 NumGlyphs = 2 ParentFont = False Spacing = 5 OnClick = sbtHelpClick end object sbtScore: TSpeedButton Left = 127 Top = 79 Width = 66 Height = 25 Hint = 'Highscore history..' Caption = 'Scor&es' Flat = True Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Glyph.Data = { 56020000424D560200000000000076000000280000002A000000140000000100 040000000000E001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333330000003333333888888883333333333333 8383838333333300000033333388888888888833333333383838383838333300 0000333338000000033888883333338303030333838383000000333300AA030A A00338888333303A30303A3033383800000033302A0083300A203388833303A3 033303A30333830000003302A008888300A2038883303A303838303A30383800 000033300A0338880A008888333303A3338383A3038383000000330220333333 8022088333303233333338323038330000003020033333333300203333030333 3333333303033300000030A2033333333302A033333A3033333333303A333300 000030A2033333333302A0333303233333333333230333000000302003333333 3300203333323033333333303233330000003302A033333330A2033333332303 3333330323333300000033300033333330003333333330333333333033333300 0000330AA003333300AA03333333A30333333303A33333000000333020A03330 A02033333333323A33333A323333330000003333030033300303333333333333 0333033333333300000033333333333333333333333333333333333333333300 0000333333333333333333333333333333333333333333000000} Margin = 3 NumGlyphs = 2 ParentFont = False Spacing = 2 OnClick = sbtScoreClick end object Label5: TLabel Left = 127 Top = 304 Width = 62 Height = 15 Alignment = taCenter AutoSize = False Caption = 'Highscore' Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel4: TBevel Left = 127 Top = 319 Width = 62 Height = 17 end object lblHiScore: TLabel Left = 130 Top = 321 Width = 56 Height = 13 Hint = 'try to beat this !' Alignment = taCenter AutoSize = False Caption = '0' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Shape1: TShape Left = 4 Top = 336 Width = 69 Height = 3 Brush.Color = clMaroon Pen.Color = clRed end object Timer1: TTimer Enabled = False Interval = 50 OnTimer = Timer1Timer Left = 4 Top = 4 end object MyTray: TTraybar OnDblClick = MyTrayDblClick Left = 36 Top = 4 end end