paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SourceEditor: Fixed hourglass cursor, after new project

Browse Source 
git-svn-id: trunk@32002 -
This commit is contained in:
martin 2011-08-18 09:41:47 +00:00
parent f8ea67f3be
commit 71bf02843d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -5917,7 +5917,6 @@ procedure TSourceNotebook.IncUpdateLockInternal;
begin
if FUpdateLock = 0 then begin
FUpdateFlags := [];
Screen.Cursor := crHourGlass;
end;
inc(FUpdateLock);
end;
@ -5926,7 +5925,6 @@ procedure TSourceNotebook.DecUpdateLockInternal;
begin
dec(FUpdateLock);
if FUpdateLock = 0 then begin
Screen.Cursor := crDefault;
PageIndex := FPageIndex;
if (ufPageNames in FUpdateFlags) then UpdatePageNames;
if (ufTabsAndPage in FUpdateFlags) then UpdateTabsAndPageTitle;
@ -8131,6 +8129,7 @@ begin
FUpdateFlags := [];
// Debugger cause ProcessMessages, which could lead to entering methods in unexpected order
DebugBoss.LockCommandProcessing;
Screen.Cursor := crHourGlass;
end;
inc(FUpdateLock);
end;
@ -8140,6 +8139,7 @@ begin
dec(FUpdateLock);
if FUpdateLock = 0 then begin
try
Screen.Cursor := crDefault;
if (ufShowWindowOnTop in FUpdateFlags) then
ShowActiveWindowOnTop(ufShowWindowOnTopFocus in FUpdateFlags);
if (ufMgrActiveEditorChanged in FUpdateFlags) then