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

fixed form FActive, cleanups

Browse Source 
git-svn-id: trunk@3017 -
This commit is contained in:
mattias 2002-08-18 08:57:03 +00:00
parent 08d5a555f2
commit d1c0298d9c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/uniteditor.pp
View File

@ -3422,14 +3422,20 @@ Begin
if TempEditor <> nil then
begin
{$IFDEF VerboseFocus}
writeln('TSourceNotebook.NotebookPageChanged ',
writeln('TSourceNotebook.NotebookPageChanged BEFORE SetFocus ',
TempEditor.EditorComponent.Name,' ',
NoteBook.Pages[FindPageWithEditor(TempEditor)]);
{$ENDIF}
TempEditor.FocusEditor;
{$IFDEF VerboseFocus}
writeln('TSourceNotebook.NotebookPageChanged AFTER SetFocus ',
TempEditor.EditorComponent.Name,' ',
NoteBook.Pages[FindPageWithEditor(TempEditor)]);
{$ENDIF}
UpdateStatusBar;
UpdateActiveEditColors;
if Assigned(FOnEditorVisibleChanged) then
FOnEditorVisibleChanged(sender);
FOnEditorVisibleChanged(sender);
end;
end;