From 2404e526887f02f63f2db04a2afa32ec868b2909 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 29 Jan 2020 23:43:04 +0000
Subject: [PATCH] Sparta: Fix a condition testing FPC version.

git-svn-id: trunk@62597 -
---
 components/sparta/mdi/source/sparta_basicfakecustom.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/sparta/mdi/source/sparta_basicfakecustom.pas b/components/sparta/mdi/source/sparta_basicfakecustom.pas
index abd1d0bd07..e802764f89 100644
--- a/components/sparta/mdi/source/sparta_basicfakecustom.pas
+++ b/components/sparta/mdi/source/sparta_basicfakecustom.pas
@@ -205,7 +205,7 @@ procedure TFormImpl.SetRealBounds(AIndex: Integer; AValue: Integer);
     LFormRect := Rect(0, 0, 0, 0);;
     LCLIntf.GetClientRect(GetForm.Handle, LFormRect);
     LRealValue := GetRealBounds(AIndex);
-    {$IF FPC_FULLVERSION < 301010}
+    {$IF FPC_FULLVERSION < 30101}
     case AIndex of
       0: LValue := LFormRect.Left;
       1: LValue := LFormRect.Top;