Subversion Repositories jumper

Rev

Rev 19 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19 Rev 21
1 
object MainForm: TMainForm
 1 
object MainForm: TMainForm
2 
  Left = 242
 2 
  Left = 242
3 
  Top = 142
 3 
  Top = 142
4 
  BorderIcons = [biSystemMenu, biMinimize]
 4 
  BorderIcons = [biSystemMenu, biMinimize]
5 
  BorderStyle = bsSingle
 5 
  BorderStyle = bsSingle
6 
  Caption = 'ViaThinkSoft Peg Solitaire'
 6 
  Caption = 'ViaThinkSoft Peg Solitaire'
7 
  ClientHeight = 277
 7 
  ClientHeight = 277
8 
  ClientWidth = 340
 8 
  ClientWidth = 340
9 
  Color = clBtnFace
 9 
  Color = clBtnFace
10 
  Constraints.MinHeight = 320
 10 
  Constraints.MinHeight = 320
11 
  Constraints.MinWidth = 300
 11 
  Constraints.MinWidth = 300
12 
  Font.Charset = DEFAULT_CHARSET
 12 
  Font.Charset = DEFAULT_CHARSET
13 
  Font.Color = clWindowText
 13 
  Font.Color = clWindowText
14 
  Font.Height = -11
 14 
  Font.Height = -11
15 
  Font.Name = 'Tahoma'
 15 
  Font.Name = 'Tahoma'
16 
  Font.Style = []
 16 
  Font.Style = []
17 
  Menu = MainMenu
 17 
  Menu = MainMenu
18 
  OldCreateOrder = False
 18 
  OldCreateOrder = False
19 
  Position = poScreenCenter
 19 
  Position = poScreenCenter
20 
  OnClose = FormClose
 20 
  OnClose = FormClose
21 
  OnCloseQuery = FormCloseQuery
 21 
  OnCloseQuery = FormCloseQuery
22 
  OnCreate = FormCreate
 22 
  OnCreate = FormCreate
23 
  OnDestroy = FormDestroy
 23 
  OnDestroy = FormDestroy
24 
  OnShow = FormShow
 24 
  OnShow = FormShow
25 
  PixelsPerInch = 96
 25 
  PixelsPerInch = 96
26 
  TextHeight = 13
 26 
  TextHeight = 13
27 
  object Playground: TPanel
 27 
  object Playground: TPanel
28 
    Left = 0
 28 
    Left = 0
29 
    Top = 0
 29 
    Top = 0
30 
    Width = 313
 30 
    Width = 313
31 
    Height = 289
 31 
    Height = 289
32 
    BevelOuter = bvNone
 32 
    BevelOuter = bvNone
33 
    TabOrder = 0
 33 
    TabOrder = 0
34 
  end
 34 
  end
35 
  object Statistics: TStatusBar
 35 
  object Statistics: TStatusBar
36 
    Left = 0
 36 
    Left = 0
37 
    Top = 258
 37 
    Top = 258
38 
    Width = 340
 38 
    Width = 340
39 
    Height = 19
 39 
    Height = 19
40 
    Panels = <
 40 
    Panels = <
41 
      item
 41 
      item
42 
        Width = 85
 42 
        Width = 85
43 
      end
 43 
      end
44 
      item
 44 
      item
45 
        Alignment = taCenter
 45 
        Alignment = taCenter
46 
        Width = 140
 46 
        Width = 140
47 
      end
 47 
      end
48 
      item
 48 
      item
49 
        Alignment = taRightJustify
 49 
        Alignment = taRightJustify
50 
        Width = 50
 50 
        Width = 50
51 
      end>
 51 
      end>
52 
  end
 52 
  end
53 
  object MainMenu: TMainMenu
 53 
  object MainMenu: TMainMenu
54 
    Left = 8
 54 
    Left = 8
55 
    Top = 8
 55 
    Top = 8
56 
    object Help1: TMenuItem
 56 
    object Help1: TMenuItem
57 
      Caption = 'Game'
 57 
      Caption = 'Game'
58 
      object MNewGame: TMenuItem
 58 
      object MNewGame: TMenuItem
59 
        Caption = 'New game...'
 59 
        Caption = 'New game...'
60 
        ShortCut = 16462
 60 
        ShortCut = 16462
61 
        OnClick = MNewGameClick
 61 
        OnClick = MNewGameClick
62 
      end
 62 
      end
63 
      object N1: TMenuItem
 63 
      object N1: TMenuItem
64 
        Caption = '-'
 64 
        Caption = '-'
65 
      end
 65 
      end
66 
      object MRestartGame: TMenuItem
 66 
      object MRestartGame: TMenuItem
67 
        Caption = 'Restart level'
 67 
        Caption = 'Restart level'
68 
        ShortCut = 16466
 68 
        ShortCut = 16466
69 
        OnClick = MRestartGameClick
 69 
        OnClick = MRestartGameClick
70 
      end
 70 
      end
71 
      object MPauseTime: TMenuItem
 71 
      object MPauseTime: TMenuItem
- 
 
 72 
        AutoCheck = True
72 
        Caption = 'Pause timer'
 73 
        Caption = 'Pause timer'
73 
        ShortCut = 16464
 74 
        ShortCut = 16464
74 
        OnClick = MPauseTimeClick
 - 
 
75 
      end
 75 
      end
76 
      object N2: TMenuItem
 76 
      object N2: TMenuItem
77 
        Caption = '-'
 77 
        Caption = '-'
78 
      end
 78 
      end
79 
      object MUndo: TMenuItem
 79 
      object MUndo: TMenuItem
80 
        Caption = 'Undo'
 80 
        Caption = 'Undo'
81 
        Enabled = False
 81 
        Enabled = False
82 
        ShortCut = 16474
 82 
        ShortCut = 16474
83 
        OnClick = MUndoClick
 83 
        OnClick = MUndoClick
84 
      end
 84 
      end
85 
      object N3: TMenuItem
 85 
      object N3: TMenuItem
86 
        Caption = '-'
 86 
        Caption = '-'
87 
      end
 87 
      end
88 
      object MJumpHistory: TMenuItem
 88 
      object MJumpHistory: TMenuItem
89 
        Caption = 'View jump history...'
 89 
        Caption = 'View jump history...'
90 
        ShortCut = 16458
 90 
        ShortCut = 16458
91 
        OnClick = MJumpHistoryClick
 91 
        OnClick = MJumpHistoryClick
92 
      end
 92 
      end
93 
      object MHighScores: TMenuItem
 93 
      object MHighScores: TMenuItem
94 
        Caption = 'High scores of this level...'
 94 
        Caption = 'High scores of this level...'
95 
        ShortCut = 16456
 95 
        ShortCut = 16456
96 
        OnClick = MHighScoresClick
 96 
        OnClick = MHighScoresClick
97 
      end
 97 
      end
98 
      object N4: TMenuItem
 98 
      object N4: TMenuItem
99 
        Caption = '-'
 99 
        Caption = '-'
100 
      end
 100 
      end
101 
      object MExit: TMenuItem
 101 
      object MExit: TMenuItem
102 
        Caption = 'Exit'
 102 
        Caption = 'Exit'
103 
        ShortCut = 32883
 103 
        ShortCut = 32883
104 
        OnClick = MExitClick
 104 
        OnClick = MExitClick
105 
      end
 105 
      end
106 
    end
 106 
    end
107 
    object MSettings: TMenuItem
 107 
    object MSettings: TMenuItem
108 
      Caption = 'Settings'
 108 
      Caption = 'Settings'
109 
      object MEnableSound: TMenuItem
 109 
      object MEnableSound: TMenuItem
- 
 
 110 
        AutoCheck = True
110 
        Caption = 'Enable sound'
 111 
        Caption = 'Enable sound'
111 
        Checked = True
 112 
        Checked = True
112 
        ShortCut = 32851
 113 
        ShortCut = 32851
113 
        OnClick = MEnableSoundClick
 - 
 
114 
      end
 114 
      end
115 
    end
 115 
    end
116 
    object Help2: TMenuItem
 116 
    object Help2: TMenuItem
117 
      Caption = 'Help'
 117 
      Caption = 'Help'
118 
      object MHelp: TMenuItem
 118 
      object MHelp: TMenuItem
119 
        Caption = 'Help...'
 119 
        Caption = 'Help...'
120 
        ShortCut = 112
 120 
        ShortCut = 112
121 
        OnClick = MHelpClick
 121 
        OnClick = MHelpClick
122 
      end
 122 
      end
123 
      object Aboutthislevel1: TMenuItem
 123 
      object Aboutthislevel1: TMenuItem
124 
        Caption = 'About this level'
 124 
        Caption = 'About this level'
125 
        OnClick = Aboutthislevel1Click
 125 
        OnClick = Aboutthislevel1Click
126 
      end
 126 
      end
127 
      object N5: TMenuItem
 127 
      object N5: TMenuItem
128 
        Caption = '-'
 128 
        Caption = '-'
129 
      end
 129 
      end
130 
      object MAbout: TMenuItem
 130 
      object MAbout: TMenuItem
131 
        Caption = 'About...'
 131 
        Caption = 'About...'
132 
        OnClick = MAboutClick
 132 
        OnClick = MAboutClick
133 
      end
 133 
      end
134 
    end
 134 
    end
135 
  end
 135 
  end
136 
  object Timer: TTimer
 136 
  object Timer: TTimer
137 
    Enabled = False
 137 
    Enabled = False
138 
    OnTimer = TimerTimer
 138 
    OnTimer = TimerTimer
139 
    Left = 40
 139 
    Left = 40
140 
    Top = 8
 140 
    Top = 8
141 
  end
 141 
  end
142 
end
 142 
end