diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-19 20:05:28 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-19 20:05:28 +0200 |
| commit | b0b5d4163b90d8a50a97718b8b56b64eb3aed8e8 (patch) | |
| tree | 56d008e0c9880017a6901ea4f752cd356b37e050 /src | |
| parent | e8c0adaf0972f064526f7e2d655d2087a07c112c (diff) | |
| download | fpGUI-b0b5d4163b90d8a50a97718b8b56b64eb3aed8e8.tar.xz | |
Move debug options into its own menu item. Now it's easy to disable for releases.
Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/frm_main.pas | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/frm_main.pas b/src/frm_main.pas index eb772526..a8f3afef 100644 --- a/src/frm_main.pas +++ b/src/frm_main.pas @@ -30,6 +30,7 @@ type miFile: TfpgPopupMenu; miSettings: TfpgPopupMenu; miBookmarks: TfpgPopupMenu; + miDebug: TfpgPopupMenu; miHelp: TfpgPopupMenu; miOpenRecentMenu: TfpgPopupMenu; btnIndex: TfpgButton; @@ -1347,13 +1348,19 @@ begin AddMenuItem('Contents...', '', nil); AddMenuItem('Help using help', '', nil); AddMenuItem('-', '', nil); - AddMenuItem('Debug: Header', '', @miDebugHeader); - AddMenuItem('Toggle Hex INF Values in Contents', '', @miDebugHex); - AddMenuItem('-', '', nil); AddMenuItem('About fpGUI Toolkit', '', @miHelpAboutFPGui); AddMenuItem('Product Information...', '', @miHelpProdInfoClicked); end; + miDebug := TfpgPopupMenu.Create(self); + with miDebug do + begin + Name := 'miDebug'; + SetPosition(292, 148, 132, 20); + AddMenuItem('Debug: Header', '', @miDebugHeader); + AddMenuItem('Toggle Hex INF Values in Contents', '', @miDebugHex); + end; + miOpenRecentMenu := TfpgPopupMenu.Create(self); with miOpenRecentMenu do begin @@ -1639,6 +1646,7 @@ begin MainMenu.AddMenuItem('&Settings', nil).SubMenu := miSettings; MainMenu.AddMenuItem('&Bookmarks', nil).SubMenu := miBookmarks; MainMenu.AddMenuItem('&Help', nil).SubMenu := miHelp; + MainMenu.AddMenuItem('&Debug', nil).SubMenu := miDebug; FFileOpenRecent.SubMenu := miOpenRecentMenu; // correct default visible tabsheet |