paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* add mode objfpc

Browse Source 
* add const to string parameter

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1698 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2011-06-18 01:49:33 +00:00
parent 6c5770f6d7
commit 1a71788eeb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/spktoolbar/SpkGraphTools/SpkGraphTools.pas
View File

@ -1,5 +1,7 @@
unit SpkGraphTools; unit SpkGraphTools;
{$mode ObjFpc}
{$H+}
{$DEFINE SPKGRAPHTOOLS} {$DEFINE SPKGRAPHTOOLS}
interface interface
@ -80,7 +82,7 @@ type
TTextTools = class TTextTools = class
public public
class procedure OutlinedText(Canvas : TCanvas; x, y : integer; text : string); class procedure OutlinedText(Canvas : TCanvas; x, y : integer; const text : string);
end; end;
implementation implementation
@ -508,7 +510,7 @@ end;
{ TTextTools } { 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; var TmpColor : TColor;
TmpBrushStyle : TBrushStyle; TmpBrushStyle : TBrushStyle;