Rev 21 | Blame | Compare with Previous | Last modification | View Log | RSS feed
object MainForm: TMainForm
Left = 242
Top = 142
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'ViaThinkSoft Peg Solitaire'
ClientHeight = 277
ClientWidth = 340
Color = clBtnFace
Constraints.MinHeight = 320
Constraints.MinWidth = 300
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu
Position = poScreenCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
TextHeight = 13
object Playground: TPanel
Left = 0
Top = 0
Width = 313
Height = 289
BevelOuter = bvNone
TabOrder = 0
end
object Statistics: TStatusBar
Left = 0
Top = 258
Width = 340
Height = 19
Panels = <
item
Width = 85
end
item
Alignment = taCenter
Width = 140
end
item
Alignment = taRightJustify
Width = 50
end>
ExplicitTop = 257
ExplicitWidth = 336
end
object MainMenu: TMainMenu
Left = 8
Top = 8
object Help1: TMenuItem
Caption = 'Game'
object MNewGame: TMenuItem
Caption = 'New game...'
ShortCut = 16462
OnClick = MNewGameClick
end
object N1: TMenuItem
Caption = '-'
end
object MRestartGame: TMenuItem
Caption = 'Restart level'
ShortCut = 16466
OnClick = MRestartGameClick
end
object MPauseTime: TMenuItem
AutoCheck = True
Caption = 'Pause timer'
ShortCut = 16464
end
object N2: TMenuItem
Caption = '-'
end
object MUndo: TMenuItem
Caption = 'Undo'
Enabled = False
ShortCut = 16474
OnClick = MUndoClick
end
object N3: TMenuItem
Caption = '-'
end
object MJumpHistory: TMenuItem
Caption = 'View jump history...'
ShortCut = 16458
OnClick = MJumpHistoryClick
end
object MHighScores: TMenuItem
Caption = 'High scores of this level...'
ShortCut = 16456
OnClick = MHighScoresClick
end
object N4: TMenuItem
Caption = '-'
end
object MExit: TMenuItem
Caption = 'Exit'
ShortCut = 32883
OnClick = MExitClick
end
end
object MSettings: TMenuItem
Caption = 'Settings'
object MEnableSound: TMenuItem
AutoCheck = True
Caption = 'Enable sound'
Checked = True
ShortCut = 32851
end
end
object Help2: TMenuItem
Caption = 'Help'
object MHelp: TMenuItem
Caption = 'Help...'
ShortCut = 112
OnClick = MHelpClick
end
object Aboutthislevel1: TMenuItem
Caption = 'About this level'
OnClick = Aboutthislevel1Click
end
object N5: TMenuItem
Caption = '-'
end
object MAbout: TMenuItem
Caption = 'About...'
OnClick = MAboutClick
end
end
end
object Timer: TTimer
Enabled = False
OnTimer = TimerTimer
Left = 40
Top = 8
end
end