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

ScrEdit: More debugln

Browse Source 
git-svn-id: trunk@43296 -
This commit is contained in:
martin 2013-10-21 00:29:42 +00:00
parent fc0f9cb361
commit 105b722022
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourceeditor.pp
View File

@ -7674,8 +7674,10 @@ begin
// make sure the statusbar is updated // make sure the statusbar is updated
Include(States, snNotebookPageChangedNeeded); Include(States, snNotebookPageChangedNeeded);
FNotebook.PageIndex := FPageIndex; FNotebook.PageIndex := FPageIndex;
if snNotebookPageChangedNeeded in States then if snNotebookPageChangedNeeded in States then begin
DebugLn(SRCED_PAGES, ['TSourceNotebook.ApplyPageIndex calling NotebookPageChanged']);
NotebookPageChanged(nil); NotebookPageChanged(nil);
end;
HistorySetMostRecent(FNotebook.Pages[FPageIndex]); HistorySetMostRecent(FNotebook.Pages[FPageIndex]);
finally finally
DebugBoss.UnLockCommandProcessing; DebugBoss.UnLockCommandProcessing;
@ -8041,7 +8043,7 @@ Begin
Include(States, snNotebookPageChangedNeeded); Include(States, snNotebookPageChangedNeeded);
exit; exit;
end; end;
DebugLnEnter(SRCED_PAGES, ['>> TSourceNotebook.NotebookPageChanged PageIndex=', PageIndex, ' AutoFocusLock=', fAutoFocusLock]); DebugLnEnter(SRCED_PAGES, ['>> TSourceNotebook.NotebookPageChanged PageIndex=', PageIndex, ' AutoFocusLock=', fAutoFocusLock, ' Sender=',DbgSName(Sender)]);
DebugBoss.LockCommandProcessing; DebugBoss.LockCommandProcessing;
try try
@ -8050,7 +8052,7 @@ Begin
if (FHintWindow <> nil) and FHintWindow.Visible then if (FHintWindow <> nil) and FHintWindow.Visible then
HideHint; HideHint;
DebugLn(SRCED_PAGES, ['TSourceNotebook.NotebookPageChanged TempEdit=', DbgSName(SrcEdit)]); DebugLn(SRCED_PAGES, ['TSourceNotebook.NotebookPageChanged TempEdit=', DbgSName(SrcEdit), ' Vis=', dbgs(IsVisible), ' Hnd=', dbgs(HandleAllocated)]);
if SrcEdit <> nil then if SrcEdit <> nil then
begin begin
if not SrcEdit.Visible then begin if not SrcEdit.Visible then begin