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

LCL: fix compilation with FPC 3.0.x

Browse Source 
git-svn-id: trunk@62671 -
This commit is contained in:
ondrej 2020-02-25 06:17:58 +00:00
parent dfe5183596
commit 466e5b307b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/screen.inc
View File

@ -426,6 +426,14 @@ begin
end;
procedure TScreen.EndTempCursor(const aCursor: TCursor);
procedure _Delete(const _Index: Integer); // FPC 3.0.x doesn't support Delete() for arrays #36728
var
I: Integer;
begin
for I := _Index to High(FTempCursors)-1 do
FTempCursors[I] := FTempCursors[I+1];
SetLength(FTempCursors, Length(FTempCursors)-1);
end;
var
I: Integer;
OldCursor: TCursor;
@ -435,7 +443,7 @@ begin
begin
if FTempCursors[I]=aCursor then
begin
Delete(FTempCursors, I, 1);
_Delete(I);
if OldCursor<>RealCursor then
WidgetSet.SetCursor(Cursors[RealCursor]);
Exit;