Fix compiling for Lazarus 3.0 RC1

Villavu · Jul 29, 2023 · 5c59d45 · 5c59d45
1 parent d124c64
commit 5c59d45
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Source/package/simba.package_components.pas b/Source/package/simba.package_components.pas
@@ -5,7 +5,7 @@
 interface
 
 uses
-  classes, sysutils, forms, controls, graphics, stdctrls, extctrls, grids,
+  classes, sysutils, forms, controls, graphics, stdctrls, extctrls, grids, LCLVersion,
   simba.package;
 
 type
@@ -74,7 +74,7 @@     TVersionInfo = class
     procedure DoLineWrapping(Foo: PtrInt);
     procedure DoFontCalculate;
 
-    procedure DrawCellText(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState; aText: String); override;
+    procedure DrawCellText(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState; {$if LCL_FULLVERSION >= 3000001}const{$ENDIF} aText: String); override;
     procedure DrawFocusRect(aCol, aRow: Integer; ARect: TRect); override;
     procedure PrepareCanvas(aCol, aRow: Integer; aState: TGridDrawState); override;
   public
@@ -561,7 +561,7 @@ procedure TPackageVersionGrid.DoOnResize;
   Application.QueueAsyncCall(@DoLineWrapping, 0);
 end;
 
-procedure TPackageVersionGrid.DrawCellText(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState; aText: String);
+procedure TPackageVersionGrid.DrawCellText(aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState; {$if LCL_FULLVERSION >= 3000001}const{$ENDIF} aText: String);
 var
   Data: TObject;
   Info: TVersionInfo absolute Data;