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 = '&File' 
      object mnuStart: TMenuItem 
        Caption = '&Start' 
        ShortCut = 113 
        OnClick = mnuStartClick 
      end 
      object mnuPause: TMenuItem 
        Caption = '&Pause' 
        Enabled = False 
        ShortCut = 114 
        OnClick = mnuPauseClick 
      end 
      object N2: TMenuItem 
        Caption = '-' 
        Enabled = False 
        OnClick = mnuCancelClick 
      end 
      object mnuCancel: TMenuItem 
        Caption = '&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