paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 10:39:31 +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 begin
if FUpdateLock = 0 then begin if FUpdateLock = 0 then begin
FUpdateFlags := []; FUpdateFlags := [];
Screen.Cursor := crHourGlass;
end; end;
inc(FUpdateLock); inc(FUpdateLock);
end; end;
@ -5926,7 +5925,6 @@ procedure TSourceNotebook.DecUpdateLockInternal;
begin begin
dec(FUpdateLock); dec(FUpdateLock);
if FUpdateLock = 0 then begin if FUpdateLock = 0 then begin
Screen.Cursor := crDefault;
PageIndex := FPageIndex; PageIndex := FPageIndex;
if (ufPageNames in FUpdateFlags) then UpdatePageNames; if (ufPageNames in FUpdateFlags) then UpdatePageNames;
if (ufTabsAndPage in FUpdateFlags) then UpdateTabsAndPageTitle; if (ufTabsAndPage in FUpdateFlags) then UpdateTabsAndPageTitle;
@ -8131,6 +8129,7 @@ begin
FUpdateFlags := []; FUpdateFlags := [];
// Debugger cause ProcessMessages, which could lead to entering methods in unexpected order // Debugger cause ProcessMessages, which could lead to entering methods in unexpected order
DebugBoss.LockCommandProcessing; DebugBoss.LockCommandProcessing;
Screen.Cursor := crHourGlass;
end; end;
inc(FUpdateLock); inc(FUpdateLock);
end; end;
@ -8140,6 +8139,7 @@ begin
dec(FUpdateLock); dec(FUpdateLock);
if FUpdateLock = 0 then begin if FUpdateLock = 0 then begin
try try
Screen.Cursor := crDefault;
if (ufShowWindowOnTop in FUpdateFlags) then if (ufShowWindowOnTop in FUpdateFlags) then
ShowActiveWindowOnTop(ufShowWindowOnTopFocus in FUpdateFlags); ShowActiveWindowOnTop(ufShowWindowOnTopFocus in FUpdateFlags);
if (ufMgrActiveEditorChanged in FUpdateFlags) then if (ufMgrActiveEditorChanged in FUpdateFlags) then