From 1a71788eebc6acf1475a65a4f5323d7cbf2c55ab Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 18 Jun 2011 01:49:33 +0000
Subject: [PATCH] * add mode objfpc * add const to string parameter

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1698 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/spktoolbar/SpkGraphTools/SpkGraphTools.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/spktoolbar/SpkGraphTools/SpkGraphTools.pas b/components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
index 2bd91d55e..edc03ed33 100644
--- a/components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
+++ b/components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
@@ -1,5 +1,7 @@
 unit SpkGraphTools;
 
+{$mode ObjFpc}
+{$H+}
 {$DEFINE SPKGRAPHTOOLS}
 
 interface
@@ -80,7 +82,7 @@ type
 
   TTextTools = class
   public
-    class procedure OutlinedText(Canvas : TCanvas; x, y : integer; text : string);
+    class procedure OutlinedText(Canvas : TCanvas; x, y : integer; const text : string);
   end;
 
 implementation
@@ -508,7 +510,7 @@ end;
 
 { TTextTools }
 
-class procedure TTextTools.OutlinedText(Canvas : TCanvas; x, y : integer; text : string);
+class procedure TTextTools.OutlinedText(Canvas : TCanvas; x, y : integer; const text : string);
 
 var TmpColor : TColor;
     TmpBrushStyle : TBrushStyle;