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 = {} OnMouseMove = GridPicMouseMove end object Image1: TImage Left = 18 Top = 26 Width = 47 Height = 47 Picture.Data = {} OnClick = Image1Click end object Image2: TImage Left = 67 Top = 26 Width = 47 Height = 47 Picture.Data = {} OnClick = Image2Click end object Image3: TImage Left = 117 Top = 26 Width = 47 Height = 47 Picture.Data = {} OnClick = Image3Click end object Image4: TImage Left = 168 Top = 26 Width = 47 Height = 47 Picture.Data = {} OnClick = Image4Click end object Image5: TImage Left = 218 Top = 26 Width = 39 Height = 47 Picture.Data = {} OnClick = Image5Click end object Image6: TImage Left = 18 Top = 75 Width = 47 Height = 47 Picture.Data = {} OnClick = Image6Click end object Image7: TImage Left = 67 Top = 75 Width = 47 Height = 47 Picture.Data = {} OnClick = Image7Click end object Image8: TImage Left = 117 Top = 75 Width = 47 Height = 47 Picture.Data = {} OnClick = Image8Click end object Image9: TImage Left = 168 Top = 75 Width = 47 Height = 47 Picture.Data = {} OnClick = Image9Click end object Image10: TImage Left = 218 Top = 75 Width = 39 Height = 47 Picture.Data = {} OnClick = Image10Click end object Image11: TImage Left = 18 Top = 125 Width = 47 Height = 47 Picture.Data = {} OnClick = Image11Click end object Image12: TImage Left = 67 Top = 125 Width = 47 Height = 47 Picture.Data = {} OnClick = Image12Click end object Image13: TImage Left = 117 Top = 125 Width = 47 Height = 47 Picture.Data = {} OnClick = Image13Click end object Image14: TImage Left = 168 Top = 125 Width = 47 Height = 47 Picture.Data = {} OnClick = Image14Click end object Image15: TImage Left = 218 Top = 125 Width = 39 Height = 47 Picture.Data = {} OnClick = Image15Click end object Image16: TImage Left = 18 Top = 174 Width = 47 Height = 47 Picture.Data = {} OnClick = Image16Click end object Image17: TImage Left = 67 Top = 174 Width = 47 Height = 47 Picture.Data = {} OnClick = Image17Click end object Image18: TImage Left = 117 Top = 174 Width = 47 Height = 47 Picture.Data = {} OnClick = Image18Click end object Image19: TImage Left = 168 Top = 174 Width = 47 Height = 47 Picture.Data = {} OnClick = Image19Click end object Image20: TImage Left = 218 Top = 174 Width = 39 Height = 47 Picture.Data = {} OnClick = Image20Click end object Image21: TImage Left = 18 Top = 224 Width = 47 Height = 47 Picture.Data = {} OnClick = Image21Click end object Image22: TImage Left = 67 Top = 224 Width = 47 Height = 47 Picture.Data = {} OnClick = Image22Click end object Image23: TImage Left = 117 Top = 224 Width = 47 Height = 47 Picture.Data = {} OnClick = Image23Click end object Image24: TImage Left = 168 Top = 224 Width = 47 Height = 47 Picture.Data = {} OnClick = Image24Click end object Image25: TImage Left = 218 Top = 224 Width = 39 Height = 47 Picture.Data = {} OnClick = Image25Click end object HintBut: TImage Left = 160 Top = 312 Width = 80 Height = 30 Cursor = crHandPoint Hint = 'Hint' ParentShowHint = False Picture.Data = {} 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 = {} 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 = {} ShowHint = True OnClick = NewGame1Click OnMouseMove = NewGameButMouseMove end object Image26: TImage Left = 10 Top = 320 Width = 90 Height = 25 AutoSize = True Picture.Data = {} 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