object Arrghh: TArrghh Left = 0 Top = 0 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] BorderStyle = bsSingle Caption = 'Arrghh!' ClientHeight = 566 ClientWidth = 804 Color = clNone Font.Color = clSilver Font.Height = -17 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Scaled = False Visible = True WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnDragOver = FormDragOver OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 120 TextHeight = 20 object Image1: TImage Left = 19 Top = 106 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image2: TImage Left = 181 Top = 106 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image4: TImage Left = 19 Top = 268 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image5: TImage Left = 181 Top = 268 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image6: TImage Left = 343 Top = 268 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image7: TImage Left = 19 Top = 430 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image8: TImage Left = 181 Top = 430 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image9: TImage Left = 343 Top = 430 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image10: TImage Left = 523 Top = 106 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image11: TImage Left = 685 Top = 106 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image12: TImage Left = 847 Top = 106 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image13: TImage Left = 523 Top = 268 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image14: TImage Left = 685 Top = 268 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image15: TImage Left = 847 Top = 268 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image16: TImage Left = 523 Top = 430 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image17: TImage Left = 685 Top = 430 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image18: TImage Left = 847 Top = 430 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Image3: TImage Left = 343 Top = 106 Width = 160 Height = 160 OnDragOver = DragOverImage OnEndDrag = DropImage OnMouseDown = ClickImage OnMouseUp = ImageMouseUp end object Button11: TButton Left = 365 Top = 32 Width = 297 Height = 25 Caption = 'Arrghh!' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = Button11Click end object MainMenu1: TMainMenu Left = 160 Top = 24 object NewGame1: TMenuItem Caption = '&File' ShortCut = 0 object NewGame: TMenuItem Caption = '&New Game' ShortCut = 0 OnClick = NewGameClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit2: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit2Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object Tiles1: TMenuItem Caption = '&Tiles...' ShortCut = 0 OnClick = Tiles1Click end object Sound11: TMenuItem Caption = 'S&ound' ShortCut = 0 OnClick = Sound1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object SaveOptions1: TMenuItem Caption = '&Save Options' ShortCut = 0 OnClick = SaveOptions1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object HelpTopics1: TMenuItem Caption = '&Help Topics' ShortCut = 0 OnClick = HelpTopics1Click end object About1: TMenuItem Caption = '&About...' ShortCut = 0 OnClick = About1Click end end end object OpenDialog1: TOpenDialog DefaultExt = 'arg' FileEditStyle = fsEdit Filter = 'Arrghh Tile Files (*.arg)|*.arg|All Files (*.*)|*.*' Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Open Arrghh Tile File' Left = 80 Top = 40 end object Timer1: TTimer Enabled = False Interval = 420000 OnTimer = Timer1Timer Left = 120 Top = 24 end end