paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 20:41:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

SourceEditor: Notify on window change (fpdoc, main-bar)

Browse Source 
git-svn-id: trunk@24200 -
This commit is contained in:
martin 2010-03-24 22:21:18 +00:00
parent f2a9f2c01f
commit 9e564a1120
1 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ide/sourceeditor.pp
View File

@ -822,6 +822,12 @@ type
procedure IncUpdateLock;
procedure DecUpdateLock;
procedure ShowActiveWindowOnTop(Focus: Boolean = False);
procedure UpdateFPDocEditor;
private
FOnEditorVisibleChanged: TNotifyEvent;
public
property OnEditorVisibleChanged: TNotifyEvent
read FOnEditorVisibleChanged write FOnEditorVisibleChanged;
end;
{ TSourceEditorManager }
@ -910,7 +916,6 @@ type
function FindUniquePageName(FileName:string; IgnoreEditor: TSourceEditor):string;
procedure ShowFPDocEditor;
procedure UpdateFPDocEditor;
function SomethingModified: boolean;
procedure HideHint;
procedure LockAllEditorsInSourceChangeCache;
@ -949,7 +954,6 @@ type
FOnDeleteLastJumpPoint: TNotifyEvent;
FOnEditorChanged: TNotifyEvent;
FOnEditorPropertiesClicked: TNotifyEvent;
FOnEditorVisibleChanged: TNotifyEvent;
FOnFindDeclarationClicked: TNotifyEvent;
FOnGetIndent: TOnGetIndentEvent;
FOnInitIdentCompletion: TOnInitIdentCompletion;
@ -982,8 +986,6 @@ type
read FOnCurrentCodeBufferChanged write FOnCurrentCodeBufferChanged;
property OnDeleteLastJumpPoint: TNotifyEvent
read FOnDeleteLastJumpPoint write FOnDeleteLastJumpPoint;
property OnEditorVisibleChanged: TNotifyEvent
read FOnEditorVisibleChanged write FOnEditorVisibleChanged;
property OnEditorChanged: TNotifyEvent
read FOnEditorChanged write FOnEditorChanged;
property OnEditorPropertiesClicked: TNotifyEvent
@ -4343,6 +4345,7 @@ destructor TSourceNotebook.Destroy;
var
i: integer;
begin
Manager.RemoveWindow(Self);
DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TSourceNotebook.Destroy'){$ENDIF};
FProcessingCommand:=false;
for i:=FSourceEditorList.Count-1 downto 0 do
@ -6823,8 +6826,11 @@ end;
procedure TSourceEditorManagerBase.SetActiveSourceWindow(
const AValue: TSourceEditorWindowInterface);
begin
if AValue = nil then exit;
if AValue = FActiveWindow then exit;
FActiveWindow := AValue as TSourceNotebook; // Note: also set by SetActiveEditor
if Assigned(OnEditorVisibleChanged) then
OnEditorVisibleChanged(nil);
UpdateFPDocEditor;
end;
function TSourceEditorManagerBase.GetSourceWindows(Index: integer
@ -7156,6 +7162,18 @@ begin
TSourceNotebook(ActiveSourceWindow).FocusEditor;
end;
procedure TSourceEditorManagerBase.UpdateFPDocEditor;
var
SrcEdit: TSourceEditor;
CaretPos: TPoint;
begin
if FPDocEditor = nil then exit;
SrcEdit:= TSourceEditor(ActiveEditor);
if SrcEdit=nil then exit;
CaretPos := SrcEdit.EditorComponent.CaretXY;
FPDocEditor.UpdateFPDocEditor(SrcEdit.Filename,CaretPos);
end;
{ TSourceEditorManager }
function TSourceEditorManager.GetActiveSourceNotebook: TSourceNotebook;
@ -7664,18 +7682,6 @@ begin
UpdateFPDocEditor;
end;
procedure TSourceEditorManager.UpdateFPDocEditor;
var
SrcEdit: TSourceEditor;
CaretPos: TPoint;
begin
if FPDocEditor = nil then exit;
SrcEdit:= ActiveEditor;
if SrcEdit=nil then exit;
CaretPos := SrcEdit.EditorComponent.CaretXY;
FPDocEditor.UpdateFPDocEditor(SrcEdit.Filename,CaretPos);
end;
function TSourceEditorManager.SomethingModified: boolean;
var
i: integer;