Subversion Repositories jumper

Rev

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

Rev 7 Rev 14
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 Solit'#228'r'
 6 
  Caption = 'ViaThinkSoft Peg Solit'#228'r'
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 = poDesktopCenter
 19 
  Position = poDesktopCenter
20 
  OnClose = FormClose
 20 
  OnClose = FormClose
- 
 
 21 
  OnCloseQuery = FormCloseQuery
21 
  OnCreate = FormCreate
 22 
  OnCreate = FormCreate
22 
  OnDestroy = FormDestroy
 23 
  OnDestroy = FormDestroy
23 
  OnShow = FormShow
 24 
  OnShow = FormShow
24 
  PixelsPerInch = 96
 25 
  PixelsPerInch = 96
25 
  TextHeight = 13
 26 
  TextHeight = 13
26 
  object Playground: TPanel
 27 
  object Playground: TPanel
27 
    Left = 8
 28 
    Left = 8
28 
    Top = 8
 29 
    Top = 8
29 
    Width = 313
 30 
    Width = 313
30 
    Height = 289
 31 
    Height = 289
31 
    BevelOuter = bvNone
 32 
    BevelOuter = bvNone
32 
    TabOrder = 0
 33 
    TabOrder = 0
33 
  end
 34 
  end
34 
  object Statistics: TStatusBar
 35 
  object Statistics: TStatusBar
35 
    Left = 0
 36 
    Left = 0
36 
    Top = 258
 37 
    Top = 258
37 
    Width = 340
 38 
    Width = 340
38 
    Height = 19
 39 
    Height = 19
39 
    Panels = <
 40 
    Panels = <
40 
      item
 41 
      item
41 
        Width = 85
 42 
        Width = 85
42 
      end
 43 
      end
43 
      item
 44 
      item
44 
        Alignment = taCenter
 45 
        Alignment = taCenter
45 
        Width = 140
 46 
        Width = 140
46 
      end
 47 
      end
47 
      item
 48 
      item
48 
        Alignment = taRightJustify
 49 
        Alignment = taRightJustify
49 
        Width = 50
 50 
        Width = 50
50 
      end>
 51 
      end>
51 
  end
 52 
  end
52 
  object MainMenu: TMainMenu
 53 
  object MainMenu: TMainMenu
53 
    Left = 8
 54 
    Left = 8
54 
    Top = 8
 55 
    Top = 8
55 
    object Help1: TMenuItem
 56 
    object Help1: TMenuItem
56 
      Caption = 'Spiel'
 57 
      Caption = 'Spiel'
57 
      object MNewGame: TMenuItem
 58 
      object MNewGame: TMenuItem
58 
        Caption = 'Neues Spiel...'
 59 
        Caption = 'Neues Spiel...'
59 
        ShortCut = 16462
 60 
        ShortCut = 16462
60 
        OnClick = MNewGameClick
 61 
        OnClick = MNewGameClick
61 
      end
 62 
      end
62 
      object N1: TMenuItem
 63 
      object N1: TMenuItem
63 
        Caption = '-'
 64 
        Caption = '-'
64 
      end
 65 
      end
65 
      object MRestartGame: TMenuItem
 66 
      object MRestartGame: TMenuItem
66 
        Caption = 'Neu starten'
 67 
        Caption = 'Neu starten'
67 
        ShortCut = 16466
 68 
        ShortCut = 16466
68 
        OnClick = MRestartGameClick
 69 
        OnClick = MRestartGameClick
69 
      end
 70 
      end
70 
      object MPauseTime: TMenuItem
 71 
      object MPauseTime: TMenuItem
71 
        Caption = 'Zeit anhalten'
 72 
        Caption = 'Zeit anhalten'
72 
        ShortCut = 16464
 73 
        ShortCut = 16464
73 
        OnClick = MPauseTimeClick
 74 
        OnClick = MPauseTimeClick
74 
      end
 75 
      end
75 
      object N2: TMenuItem
 76 
      object N2: TMenuItem
76 
        Caption = '-'
 77 
        Caption = '-'
77 
      end
 78 
      end
78 
      object MUndo: TMenuItem
 79 
      object MUndo: TMenuItem
79 
        Caption = 'R'#252'ckg'#228'ngig'
 80 
        Caption = 'R'#252'ckg'#228'ngig'
80 
        Enabled = False
 81 
        Enabled = False
81 
        ShortCut = 16474
 82 
        ShortCut = 16474
82 
        OnClick = MUndoClick
 83 
        OnClick = MUndoClick
83 
      end
 84 
      end
84 
      object N3: TMenuItem
 85 
      object N3: TMenuItem
85 
        Caption = '-'
 86 
        Caption = '-'
86 
      end
 87 
      end
87 
      object MJumpHistory: TMenuItem
 88 
      object MJumpHistory: TMenuItem
88 
        Caption = 'Sprungverlauf...'
 89 
        Caption = 'Sprungverlauf...'
89 
        ShortCut = 16458
 90 
        ShortCut = 16458
90 
        OnClick = MJumpHistoryClick
 91 
        OnClick = MJumpHistoryClick
91 
      end
 92 
      end
92 
      object MHighScores: TMenuItem
 93 
      object MHighScores: TMenuItem
93 
        Caption = 'Highscores von diesem Level...'
 94 
        Caption = 'Highscores von diesem Level...'
94 
        ShortCut = 16456
 95 
        ShortCut = 16456
95 
        OnClick = MHighScoresClick
 96 
        OnClick = MHighScoresClick
96 
      end
 97 
      end
97 
      object N4: TMenuItem
 98 
      object N4: TMenuItem
98 
        Caption = '-'
 99 
        Caption = '-'
99 
      end
 100 
      end
100 
      object MExit: TMenuItem
 101 
      object MExit: TMenuItem
101 
        Caption = 'Beenden'
 102 
        Caption = 'Beenden'
102 
        ShortCut = 32883
 103 
        ShortCut = 32883
103 
        OnClick = MExitClick
 104 
        OnClick = MExitClick
104 
      end
 105 
      end
105 
    end
 106 
    end
106 
    object MSettings: TMenuItem
 107 
    object MSettings: TMenuItem
107 
      Caption = 'Einstellungen'
 108 
      Caption = 'Einstellungen'
108 
      object MEnableSound: TMenuItem
 109 
      object MEnableSound: TMenuItem
109 
        Caption = 'Ton'
 110 
        Caption = 'Ton'
110 
        Checked = True
 111 
        Checked = True
111 
        ShortCut = 32851
 112 
        ShortCut = 32851
112 
        OnClick = MEnableSoundClick
 113 
        OnClick = MEnableSoundClick
113 
      end
 114 
      end
114 
    end
 115 
    end
115 
    object Help2: TMenuItem
 116 
    object Help2: TMenuItem
116 
      Caption = 'Hilfe'
 117 
      Caption = 'Hilfe'
117 
      object MHelp: TMenuItem
 118 
      object MHelp: TMenuItem
118 
        Caption = 'Hilfe anzeigen...'
 119 
        Caption = 'Hilfe anzeigen...'
119 
        ShortCut = 112
 120 
        ShortCut = 112
120 
        OnClick = MHelpClick
 121 
        OnClick = MHelpClick
121 
      end
 122 
      end
- 
 
 123 
      object Aboutthislevel1: TMenuItem
- 
 
 124 
        Caption = 'Info '#252'ber dieses Brett'
- 
 
 125 
        OnClick = Aboutthislevel1Click
- 
 
 126 
      end
122 
      object N5: TMenuItem
 127 
      object N5: TMenuItem
123 
        Caption = '-'
 128 
        Caption = '-'
124 
      end
 129 
      end
125 
      object MAbout: TMenuItem
 130 
      object MAbout: TMenuItem
126 
        Caption = #220'ber...'
 131 
        Caption = #220'ber...'
127 
        OnClick = MAboutClick
 132 
        OnClick = MAboutClick
128 
      end
 133 
      end
129 
    end
 134 
    end
130 
  end
 135 
  end
131 
  object Timer: TTimer
 136 
  object Timer: TTimer
132 
    Enabled = False
 137 
    Enabled = False
133 
    OnTimer = TimerTimer
 138 
    OnTimer = TimerTimer
134 
    Left = 40
 139 
    Left = 40
135 
    Top = 8
 140 
    Top = 8
136 
  end
 141 
  end
137 
end
 142 
end