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

IDE: create TBrowseEditorTabHistoryDialog only when needed

Browse Source
This commit is contained in:
mattias 2022-05-16 15:19:53 +02:00
parent 5ed7fcd92c
commit 444f10ecab
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -733,6 +733,7 @@ type
var Accept: Boolean); override;
procedure DragCanceled; override;
procedure DoActiveEditorChanged;
function GetHistoryDlg: TBrowseEditorTabHistoryDialog;
protected
States: TSourceNotebookStates;
procedure Activate; override;
@ -6591,7 +6592,6 @@ begin
FHistoryList := TFPList.Create;
FSrcEditsSortedForFilenames := TAvlTree.Create(@CompareSrcEditIntfWithFilename);
FHistoryDlg := TBrowseEditorTabHistoryDialog.CreateNew(Self);
FOnEditorPageCaptionUpdate := TMethodList.Create;
OnDropFiles := @SourceNotebookDropFiles;
@ -7832,6 +7832,11 @@ begin
DebugLnExit(SRCED_PAGES, ['<< TSourceNotebook.DoActiveEditorChanged ']);
end;
function TSourceNotebook.GetHistoryDlg: TBrowseEditorTabHistoryDialog;
begin
FHistoryDlg := TBrowseEditorTabHistoryDialog.CreateNew(Self);
end;
procedure TSourceNotebook.BeginIncrementalFind;
var
TempEditor: TSourceEditor;
@ -9008,8 +9013,8 @@ begin
case Command of
ecNextEditor: NextEditor;
ecPrevEditor: PrevEditor;
ecPrevEditorInHistory: FHistoryDlg.Show(True);
ecNextEditorInHistory: FHistoryDlg.Show(False);
ecPrevEditorInHistory: GetHistoryDlg.Show(True);
ecNextEditorInHistory: GetHistoryDlg.Show(False);
ecMoveEditorLeft: MoveActivePageLeft;
ecMoveEditorRight: MoveActivePageRight;
ecMoveEditorLeftmost: MoveActivePageFirst;