Chip 2000 January/Chip_2000-01_cd.bin/oddech/hry/click/click.exe/0/RCDATA/TFRMGAME/TFRMGAME.txt

Text File | 1999-03-07 | 3.6 KB | 183 lines

object frmGame: TfrmGame
  Left = 10
  Top = 10
  HelpContext = 1000
  HorzScrollBar.Visible = False
  ActiveControl = panelTop
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Clickomania!'
  ClientHeight = 242
  ClientWidth = 172
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = Reset
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object panelTop: TPanel
    Left = 0
    Top = 0
    Width = 172
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object bttNew: TSpeedButton
      Left = 4
      Top = 2
      Width = 27
      Height = 27
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = bttStartClick
    end
    object bttInfo: TSpeedButton
      Left = 64
      Top = 2
      Width = 27
      Height = 27
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = bttInfoClick
    end
    object bttCfg: TSpeedButton
      Left = 94
      Top = 2
      Width = 27
      Height = 27
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = bttCfgClick
    end
    object bttHelp: TSpeedButton
      Left = 154
      Top = 2
      Width = 27
      Height = 27
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = bttHelpClick
    end
    object bttAbout: TSpeedButton
      Left = 124
      Top = 2
      Width = 27
      Height = 27
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = bttAboutClick
    end
    object bttUndo: TSpeedButton
      Left = 36
      Top = 2
      Width = 25
      Height = 27
      Enabled = False
      NumGlyphs = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = PlayHistory
    end
  end
  object statusMain: TStatusBar
    Left = 0
    Top = 223
    Width = 172
    Height = 19
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Width = 27
      end
      item
        Width = 27
      end
      item
        Width = 27
      end
      item
        Width = 200
      end
      item
        Style = psOwnerDraw
        Width = 15
      end>
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    SimplePanel = False
    SizeGrip = False
    OnMouseMove = statusMainMouseMove
    OnDrawPanel = DrawPanel
    OnResize = statusMainResize
  end
  object panelBack: TPanel
    Left = 0
    Top = 33
    Width = 172
    Height = 190
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    TabOrder = 2
    object imgMain: TPaintBox
      Left = 1
      Top = 26
      Width = 170
      Height = 163
      Align = alClient
      ParentShowHint = False
      ShowHint = True
      OnMouseUp = imgMainMouseUp
      OnPaint = imgMainPaint
    end
    object imgRamp: TPaintBox
      Left = 1
      Top = 1
      Width = 170
      Height = 25
      Align = alTop
      ParentShowHint = False
      ShowHint = True
      OnMouseDown = DropTheStoneClick
      OnPaint = RampPaint
    end
  end
  object sysComp: TSysComp
    Hide = False
    ProgRoot = '\SOFTWARE\MSC-Soft\Clickomania'
    Left = 36
    Top = 36
  end
  object TimerAni: TTimer
    Enabled = False
    Interval = 50
    OnTimer = TimerAniTimer
    Left = 4
    Top = 37
  end
  object TimerDrop: TTimer
    Enabled = False
    Interval = 300
    OnTimer = DoDropStones
    Left = 4
    Top = 69
  end
end