paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 22:39:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Refresh list of recent files when MRUManager is restored.

Browse Source 
git-svn-id: trunk@61206 -
This commit is contained in:
michael 2019-05-11 20:06:25 +00:00
parent 0f27442368
commit 96567e8916
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sqldbrest/editor/frmmain.lfm
View File

@ -182,7 +182,7 @@ object MainForm: TMainForm
Action = ASaveSchemaAs Action = ASaveSchemaAs
end end
object MIRecent: TMenuItem object MIRecent: TMenuItem
Caption = 'MIRecent' Caption = 'Recent schemas'
end end
object MISep2: TMenuItem object MISep2: TMenuItem
Caption = '-' Caption = '-'

1
components/sqldbrest/editor/frmmain.pp
View File

@ -242,6 +242,7 @@ begin
IPSMain.IniFileName:=FN; IPSMain.IniFileName:=FN;
IPSMain.Active:=True; IPSMain.Active:=True;
IPSMain.Restore; IPSMain.Restore;
MRUSchema.ShowRecentFiles;
fraEditor.OnSchemaChanged:=@DoSchemaChanged; fraEditor.OnSchemaChanged:=@DoSchemaChanged;
if Application.HasOption('c','connections') then if Application.HasOption('c','connections') then
fraEditor.LoadConnections(Application.GetOptionValue('c','connections')); fraEditor.LoadConnections(Application.GetOptionValue('c','connections'));