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

LCL: simplify TScreen.BeginTempCursor

Browse Source 
git-svn-id: trunk@62683 -
This commit is contained in:
ondrej 2020-02-28 07:07:40 +00:00
parent 5930969e12
commit da5d437410
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/screen.inc
View File

@ -302,8 +302,8 @@ begin
OldCursor := RealCursor; OldCursor := RealCursor;
SetLength(FTempCursors, Length(FTempCursors)+1); SetLength(FTempCursors, Length(FTempCursors)+1);
FTempCursors[High(FTempCursors)] := aCursor; FTempCursors[High(FTempCursors)] := aCursor;
if OldCursor<>RealCursor then if OldCursor<>aCursor then
WidgetSet.SetCursor(Cursors[RealCursor]); WidgetSet.SetCursor(Cursors[aCursor]);
end; end;
procedure TScreen.BeginWaitCursor; procedure TScreen.BeginWaitCursor;