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

Text File | 1999-10-17 | 12KB | 514 lines

object MainForm: TMainForm
  Left = 471
  Top = 109
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'K-Lights 2000'
  ClientHeight = 346
  ClientWidth = 283
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 13
  object GridPic: TImage
    Left = 16
    Top = 24
    Width = 250
    Height = 250
    AutoSize = True
    Picture.Data = {<image000.jpg>}
    OnMouseMove = GridPicMouseMove
  end
  object Image1: TImage
    Left = 18
    Top = 26
    Width = 47
    Height = 47
    Picture.Data = {<image001.jpg>}
    OnClick = Image1Click
  end
  object Image2: TImage
    Left = 67
    Top = 26
    Width = 47
    Height = 47
    Picture.Data = {<image002.jpg>}
    OnClick = Image2Click
  end
  object Image3: TImage
    Left = 117
    Top = 26
    Width = 47
    Height = 47
    Picture.Data = {<image003.jpg>}
    OnClick = Image3Click
  end
  object Image4: TImage
    Left = 168
    Top = 26
    Width = 47
    Height = 47
    Picture.Data = {<image004.jpg>}
    OnClick = Image4Click
  end
  object Image5: TImage
    Left = 218
    Top = 26
    Width = 39
    Height = 47
    Picture.Data = {<image005.jpg>}
    OnClick = Image5Click
  end
  object Image6: TImage
    Left = 18
    Top = 75
    Width = 47
    Height = 47
    Picture.Data = {<image006.jpg>}
    OnClick = Image6Click
  end
  object Image7: TImage
    Left = 67
    Top = 75
    Width = 47
    Height = 47
    Picture.Data = {<image007.jpg>}
    OnClick = Image7Click
  end
  object Image8: TImage
    Left = 117
    Top = 75
    Width = 47
    Height = 47
    Picture.Data = {<image008.jpg>}
    OnClick = Image8Click
  end
  object Image9: TImage
    Left = 168
    Top = 75
    Width = 47
    Height = 47
    Picture.Data = {<image009.jpg>}
    OnClick = Image9Click
  end
  object Image10: TImage
    Left = 218
    Top = 75
    Width = 39
    Height = 47
    Picture.Data = {<image010.jpg>}
    OnClick = Image10Click
  end
  object Image11: TImage
    Left = 18
    Top = 125
    Width = 47
    Height = 47
    Picture.Data = {<image011.jpg>}
    OnClick = Image11Click
  end
  object Image12: TImage
    Left = 67
    Top = 125
    Width = 47
    Height = 47
    Picture.Data = {<image012.jpg>}
    OnClick = Image12Click
  end
  object Image13: TImage
    Left = 117
    Top = 125
    Width = 47
    Height = 47
    Picture.Data = {<image013.jpg>}
    OnClick = Image13Click
  end
  object Image14: TImage
    Left = 168
    Top = 125
    Width = 47
    Height = 47
    Picture.Data = {<image014.jpg>}
    OnClick = Image14Click
  end
  object Image15: TImage
    Left = 218
    Top = 125
    Width = 39
    Height = 47
    Picture.Data = {<image015.jpg>}
    OnClick = Image15Click
  end
  object Image16: TImage
    Left = 18
    Top = 174
    Width = 47
    Height = 47
    Picture.Data = {<image016.jpg>}
    OnClick = Image16Click
  end
  object Image17: TImage
    Left = 67
    Top = 174
    Width = 47
    Height = 47
    Picture.Data = {<image017.jpg>}
    OnClick = Image17Click
  end
  object Image18: TImage
    Left = 117
    Top = 174
    Width = 47
    Height = 47
    Picture.Data = {<image018.jpg>}
    OnClick = Image18Click
  end
  object Image19: TImage
    Left = 168
    Top = 174
    Width = 47
    Height = 47
    Picture.Data = {<image019.jpg>}
    OnClick = Image19Click
  end
  object Image20: TImage
    Left = 218
    Top = 174
    Width = 39
    Height = 47
    Picture.Data = {<image020.jpg>}
    OnClick = Image20Click
  end
  object Image21: TImage
    Left = 18
    Top = 224
    Width = 47
    Height = 47
    Picture.Data = {<image021.jpg>}
    OnClick = Image21Click
  end
  object Image22: TImage
    Left = 67
    Top = 224
    Width = 47
    Height = 47
    Picture.Data = {<image022.jpg>}
    OnClick = Image22Click
  end
  object Image23: TImage
    Left = 117
    Top = 224
    Width = 47
    Height = 47
    Picture.Data = {<image023.jpg>}
    OnClick = Image23Click
  end
  object Image24: TImage
    Left = 168
    Top = 224
    Width = 47
    Height = 47
    Picture.Data = {<image024.jpg>}
    OnClick = Image24Click
  end
  object Image25: TImage
    Left = 218
    Top = 224
    Width = 39
    Height = 47
    Picture.Data = {<image025.jpg>}
    OnClick = Image25Click
  end
  object HintBut: TImage
    Left = 160
    Top = 312
    Width = 80
    Height = 30
    Cursor = crHandPoint
    Hint = 'Hint'
    ParentShowHint = False
    Picture.Data = {<image026.jpg>}
    ShowHint = True
    OnClick = HintButClick
    OnMouseMove = HintButMouseMove
  end
  object RestartBut: TImage
    Left = 168
    Top = 280
    Width = 100
    Height = 30
    Cursor = crHandPoint
    Hint = 'Restart the current level'
    ParentShowHint = False
    Picture.Data = {<image027.jpg>}
    ShowHint = True
    OnClick = RestartClick
    OnMouseMove = RestartButMouseMove
  end
  object NewGameBut: TImage
    Left = 15
    Top = 285
    Width = 90
    Height = 25
    Cursor = crHandPoint
    Hint = 'Start a new game'
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {<image028.jpg>}
    ShowHint = True
    OnClick = NewGame1Click
    OnMouseMove = NewGameButMouseMove
  end
  object Image26: TImage
    Left = 10
    Top = 320
    Width = 90
    Height = 25
    AutoSize = True
    Picture.Data = {<image029.jpg>}
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 283
    Height = 2
    BevelOuter = bvLowered
    TabOrder = 0
  end
  object ClickBox: TEdit
    Left = 96
    Top = 320
    Width = 33
    Height = 21
    Hint = 'How many click left'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 168
    Top = 65528
    object File1: TMenuItem
      Caption = '&File'
      object NewGame1: TMenuItem
        Caption = '&New Game'
        OnClick = NewGame1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Openasavegame1: TMenuItem
        Caption = '&Open game'
        OnClick = Openasavegame1Click
      end
      object Savegame1: TMenuItem
        Caption = '&Save game'
        OnClick = Savegame1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Level1: TMenuItem
        Caption = '&Level'
        object Level11: TMenuItem
          Caption = 'Level &1'
          Enabled = False
          OnClick = Level11Click
        end
        object Level21: TMenuItem
          Caption = 'Level &2'
          Enabled = False
          OnClick = Level21Click
        end
        object Level31: TMenuItem
          Caption = 'Level &3'
          Enabled = False
          OnClick = Level31Click
        end
        object Level41: TMenuItem
          Caption = 'Level &4'
          Enabled = False
          OnClick = Level41Click
        end
        object Level51: TMenuItem
          Caption = 'Level &5'
          Enabled = False
          OnClick = Level51Click
        end
        object Level61: TMenuItem
          Caption = 'Level &6'
          Enabled = False
          OnClick = Level61Click
        end
        object Level71: TMenuItem
          Caption = 'Level &7'
          Enabled = False
          OnClick = Level71Click
        end
        object Level81: TMenuItem
          Caption = 'Level &8'
          Enabled = False
          OnClick = Level81Click
        end
        object Level91: TMenuItem
          Caption = 'Level &9'
          Enabled = False
          OnClick = Level91Click
        end
        object Level101: TMenuItem
          Caption = 'Level 1&0'
          Enabled = False
          OnClick = Level101Click
        end
        object More1: TMenuItem
          Caption = '&More'
          object Level111: TMenuItem
            Caption = 'Level 1&1'
            Enabled = False
            OnClick = Level111Click
          end
          object Level121: TMenuItem
            Caption = 'Level 1&2'
            Enabled = False
            OnClick = Level121Click
          end
          object Level131: TMenuItem
            Caption = 'Level 1&3'
            Enabled = False
            OnClick = Level131Click
          end
          object Level141: TMenuItem
            Caption = 'Level 1&4'
            Enabled = False
            OnClick = Level141Click
          end
          object Level151: TMenuItem
            Caption = 'Level 1&5'
            Enabled = False
            OnClick = Level151Click
          end
          object Level161: TMenuItem
            Caption = 'Level 1&6'
            Enabled = False
            OnClick = Level161Click
          end
          object Level171: TMenuItem
            Caption = 'Level 1&7'
            Enabled = False
            OnClick = Level171Click
          end
          object Level181: TMenuItem
            Caption = 'Level 1&8'
            Enabled = False
            OnClick = Level181Click
          end
          object Level191: TMenuItem
            Caption = 'Level 1&9'
            Enabled = False
            OnClick = Level191Click
          end
          object Level201: TMenuItem
            Caption = 'Level 2&0'
            Enabled = False
            OnClick = Level201Click
          end
          object More2: TMenuItem
            Caption = '&More'
            object Level211: TMenuItem
              Caption = 'Level 2&1'
              Enabled = False
              OnClick = Level211Click
            end
            object Level221: TMenuItem
              Caption = 'Level 2&2'
              Enabled = False
              OnClick = Level221Click
            end
            object Level231: TMenuItem
              Caption = 'Level 2&3'
              Enabled = False
              OnClick = Level231Click
            end
            object Level241: TMenuItem
              Caption = 'Level 2&4'
              Enabled = False
              OnClick = Level241Click
            end
            object Level251: TMenuItem
              Caption = 'Level 2&5'
              Enabled = False
              OnClick = Level251Click
            end
          end
        end
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Quit1: TMenuItem
        Caption = '&Quit'
        OnClick = Quit1Click
      end
    end
    object Option1: TMenuItem
      Caption = '&Options'
      Enabled = False
      object RandomMap1: TMenuItem
        Caption = '&Random Level'
        OnClick = RandomMap1Click
      end
      object Openagame1: TMenuItem
        Caption = '&Open a map file'
        OnClick = Openagame1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Help2: TMenuItem
        Caption = 'H&ow to play?'
        OnClick = Help2Click
      end
      object Visitmywebpage1: TMenuItem
        Caption = '&Visit my web page'
        OnClick = Visitmywebpage1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object OpenBox: TOpenDialog
    DefaultExt = '.map'
    Filter = 'Map file (*.map)|*.map'
    Title = 'Open your map file'
    Left = 200
    Top = 65528
  end
  object SaveBox: TSaveDialog
    DefaultExt = '.sav'
    Filter = 'K-Lights 2000 save game (*.sav)|*.sav'
    Title = 'Save your game'
    Left = 232
    Top = 65528
  end
  object OpenGameBox: TOpenDialog
    DefaultExt = '.sav'
    Filter = 'K-Lights 2000 save game (*.sav)|*.sav'
    Title = 'Open a save game'
    Left = 248
    Top = 65528
  end
end