diff --git a/kn_Main.dfm b/kn_Main.dfm index 87a5ddf..ff61bd5 100644 --- a/kn_Main.dfm +++ b/kn_Main.dfm @@ -3702,6 +3702,7 @@ object Form_Main: TForm_Main IniFileName = 'Software\General Frenetics\KeyNote\FormPos' IniSection = 'Main' UseRegistry = True + OnRestorePlacement = FormStorageRestorePlacement StoredProps.Strings = ( 'Pages_Res.Width' 'Pages_Res.ActivePage' diff --git a/kn_Main.pas b/kn_Main.pas index 736d793..4f435e0 100644 --- a/kn_Main.pas +++ b/kn_Main.pas @@ -1269,6 +1269,7 @@ TForm_Main = class(TForm) procedure MMTreeFocusTreeClick(Sender: TObject); procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure MMFindAllClick(Sender: TObject); + procedure FormStorageRestorePlacement(Sender: TObject); private { Private declarations } @@ -1743,6 +1744,13 @@ procedure TForm_Main.FormActivate(Sender: TObject); end; // ACTIVATE +procedure TForm_Main.FormStorageRestorePlacement(Sender: TObject); +begin + UpdateResPanelContents (false); +end; + + + procedure TForm_Main.ActivatePreviousInstance; var CopyData : TCopyDataStruct;