paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 20:28:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Preparing for SyncCodeAndForm

Browse Source 
git-svn-id: trunk@65001 -
This commit is contained in:
michl 2021-04-15 20:09:53 +00:00
parent 7b18690162
commit 0a2e80cbc4
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/ideintf/srceditorintf.pas
View File

@ -227,9 +227,11 @@ type
protected
function GetActiveCompletionPlugin: TSourceEditorCompletionPlugin; virtual; abstract;
function GetActiveEditor: TSourceEditorInterface; virtual; abstract;
function GetBaseCaption: String; virtual; abstract;
function GetCompletionPlugins(Index: integer): TSourceEditorCompletionPlugin; virtual; abstract;
function GetItems(Index: integer): TSourceEditorInterface; virtual; abstract;
procedure SetActiveEditor(const AValue: TSourceEditorInterface); virtual; abstract;
procedure SetBaseCaption(AValue: String); virtual; abstract;
function GetWindowID: Integer; virtual; abstract;
public
procedure IncUpdateLock; virtual; abstract;
@ -245,6 +247,7 @@ type
// Editor Page Caption update
procedure AddUpdateEditorPageCaptionHandler(AEvent: TNotifyEvent; const AsLast: Boolean = True); virtual; abstract;
procedure RemoveUpdateEditorPageCaptionHandler(AEvent: TNotifyEvent); virtual; abstract;
property BaseCaption: String read GetBaseCaption write SetBaseCaption;
end;
TSemChangeReason = (

26
ide/sourceeditor.pp
View File

@ -749,6 +749,7 @@ type
function GetWindowID: Integer; override;
protected
function GetActiveCompletionPlugin: TSourceEditorCompletionPlugin; override;
function GetBaseCaption: String; override;
function GetCompletionPlugins(Index: integer): TSourceEditorCompletionPlugin; override;
procedure EditorMouseMove(Sender: TObject; {%H-}Shift: TShiftstate;
@ -798,6 +799,7 @@ type
function GetActiveEditor: TSourceEditorInterface; override;
procedure SetActiveEditor(const AValue: TSourceEditorInterface); override;
procedure SetBaseCaption(AValue: String); override;
function GetItems(Index: integer): TSourceEditorInterface; override;
function GetEditors(Index:integer): TSourceEditor;
@ -6485,10 +6487,10 @@ begin
Name := NonModalIDEWindowNames[nmiwSourceNoteBook];
if AWindowID > 0 then
FBaseCaption := locWndSrcEditor + ' (' + IntToStr(AWindowID+1) + ')'
BaseCaption := locWndSrcEditor + ' (' + IntToStr(AWindowID+1) + ')'
else
FBaseCaption := locWndSrcEditor;
Caption := FBaseCaption;
BaseCaption := locWndSrcEditor;
Caption := BaseCaption;
KeyPreview := true;
FProcessingCommand := false;
@ -7409,6 +7411,11 @@ begin
Result := Manager.ActiveCompletionPlugin;
end;
function TSourceNotebook.GetBaseCaption: String;
begin
Result := FBaseCaption;
end;
function TSourceNotebook.GetCompletionPlugins(Index: integer
): TSourceEditorCompletionPlugin;
begin
@ -7549,12 +7556,17 @@ begin
if EditorOpts.ShowFileNameInCaption then
begin
if ActiveEditor<>nil then
Caption := FBaseCaption+' - '+ActiveEditor.FileName
Caption := BaseCaption+' - '+ActiveEditor.FileName
else
Caption := FBaseCaption;
Caption := BaseCaption;
end;
end;
procedure TSourceNotebook.SetBaseCaption(AValue: String);
begin
FBaseCaption := AValue;
end;
procedure TSourceNotebook.CheckCurrentCodeBufferChanged;
var
SrcEdit: TSourceEditor;
@ -7676,11 +7688,11 @@ begin
end;
if (PageCount = 1) and (EditorOpts.HideSingleTabInWindow) then begin
if not EditorOpts.ShowFileNameInCaption then
Caption := FBaseCaption + ': ' + NotebookPages[0];
Caption := BaseCaption + ': ' + NotebookPages[0];
FNotebook.ShowTabs := False;
end else begin
if not EditorOpts.ShowFileNameInCaption then
Caption := FBaseCaption;
Caption := BaseCaption;
FNotebook.ShowTabs := (Manager=nil) or Manager.ShowTabs;
end;
end;