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

Sparta: Fix a condition testing FPC version.

Browse Source 
git-svn-id: trunk@62597 -
This commit is contained in:
juha 2020-01-29 23:43:04 +00:00
parent 69a95ec8cc
commit 2404e52688
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/sparta/mdi/source/sparta_basicfakecustom.pas
View File

@ -205,7 +205,7 @@ procedure TFormImpl.SetRealBounds(AIndex: Integer; AValue: Integer);
LFormRect := Rect(0, 0, 0, 0);; LFormRect := Rect(0, 0, 0, 0);;
LCLIntf.GetClientRect(GetForm.Handle, LFormRect); LCLIntf.GetClientRect(GetForm.Handle, LFormRect);
LRealValue := GetRealBounds(AIndex); LRealValue := GetRealBounds(AIndex);
{$IF FPC_FULLVERSION < 301010} {$IF FPC_FULLVERSION < 30101}
case AIndex of case AIndex of
0: LValue := LFormRect.Left; 0: LValue := LFormRect.Left;
1: LValue := LFormRect.Top; 1: LValue := LFormRect.Top;