diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-11 20:09:01 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-11 20:09:01 +0200 |
| commit | c5101ca74ecea2069f6002b4e56f83c59a77e810 (patch) | |
| tree | d5a682ad79163ea9baafcf86f1fa3e2c2861058b /src | |
| parent | 381b296426e7c91a2e89554a5b9d4998f1b6dd65 (diff) | |
| download | fpGUI-c5101ca74ecea2069f6002b4e56f83c59a77e810.tar.xz | |
Add MRU support as well as store/restore window size and position.
Finally!!!!
Signed-off-by: Graeme Geldenhuys <graemeg@gmail.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/frm_main.pas | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/frm_main.pas b/src/frm_main.pas index ef93166a..d9481d60 100644 --- a/src/frm_main.pas +++ b/src/frm_main.pas @@ -6,8 +6,8 @@ interface uses SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_panel, fpg_tab, - fpg_tree, fpg_splitter, fpg_menu, fpg_memo, fpg_button, fpg_listbox, - fpg_label, fpg_edit, fpg_radiobutton, fpg_progressbar, + fpg_tree, fpg_splitter, fpg_menu, fpg_button, fpg_listbox, + fpg_label, fpg_edit, fpg_radiobutton, fpg_progressbar, fpg_mru, HelpFile, RichTextView; type @@ -32,6 +32,7 @@ type miSettings: TfpgPopupMenu; miBookmarks: TfpgPopupMenu; miHelp: TfpgPopupMenu; + miOpenRecentMenu: TfpgPopupMenu; btnIndex: TfpgButton; btnGo: TfpgButton; ListBox1: TfpgListBox; @@ -58,6 +59,8 @@ type {@VFD_HEAD_END: MainForm} Files: TList; // current open help files. Debug: boolean; + mru: TfpgMRU; + FFileOpenRecent: TfpgMenuItem; // while loading... so owe can display progress LoadingFilenameList: TStringList; @@ -66,6 +69,7 @@ type LoadingSizeSoFar: longint; procedure MainFormShow(Sender: TObject); + procedure MainFormDestroy(Sender: TObject); procedure miFileQuitClicked(Sender: TObject); procedure miFileOpenClicked(Sender: TObject); procedure miFileCloseClicked(Sender: TObject); @@ -73,6 +77,7 @@ type procedure miHelpAboutFPGui(Sender: TObject); procedure miDebugHeader(Sender: TObject); procedure miDebugHex(Sender: TObject); + procedure miMRUClick(Sender: TObject; const FileName: String); procedure btnShowIndex(Sender: TObject); procedure btnGoClicked(Sender: TObject); procedure tvContentsChange(Sender: TObject); |