pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* add const to string parameters

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1716 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-06-21 02:04:04 +00:00
parent cbd183329b
commit 814b1617a2
1 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
components/spktoolbar/SpkGUITools/SpkGUITools.pas
View File

@ -290,11 +290,11 @@ type
// Text tools // Text tools
class procedure DrawText(ABitmap : TBitmap; class procedure DrawText(ABitmap : TBitmap;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor: TColor); overload; TextColor: TColor); overload;
class procedure DrawText(ABitmap : TBitmap; class procedure DrawText(ABitmap : TBitmap;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
ClipRect: T2DIntRect); overload; ClipRect: T2DIntRect); overload;
class procedure DrawMarkedText(ACanvas : TCanvas; class procedure DrawMarkedText(ACanvas : TCanvas;
@ -310,59 +310,59 @@ type
CaseSensitive : boolean = false); overload; CaseSensitive : boolean = false); overload;
class procedure DrawText(ACanvas : TCanvas; class procedure DrawText(ACanvas : TCanvas;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor); overload; TextColor : TColor); overload;
class procedure DrawText(ACanvas : TCanvas; class procedure DrawText(ACanvas : TCanvas;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
ClipRect : T2DIntRect); overload; ClipRect : T2DIntRect); overload;
class procedure DrawFitWText(ABitmap : TBitmap; class procedure DrawFitWText(ABitmap : TBitmap;
x1, x2 : integer; x1, x2 : integer;
y : integer; y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
Align : TAlignment); overload; Align : TAlignment); overload;
class procedure DrawFitWText(ACanvas : TCanvas; class procedure DrawFitWText(ACanvas : TCanvas;
x1, x2 : integer; x1, x2 : integer;
y : integer; y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
Align : TAlignment); overload; Align : TAlignment); overload;
class procedure DrawOutlinedText(ABitmap : TBitmap; class procedure DrawOutlinedText(ABitmap : TBitmap;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
OutlineColor : TColor); overload; OutlineColor : TColor); overload;
class procedure DrawOutlinedText(ABitmap : TBitmap; class procedure DrawOutlinedText(ABitmap : TBitmap;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
OutlineColor : TColor; OutlineColor : TColor;
ClipRect : T2DIntRect); overload; ClipRect : T2DIntRect); overload;
class procedure DrawOutlinedText(ACanvas : TCanvas; class procedure DrawOutlinedText(ACanvas : TCanvas;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
OutlineColor : TColor); overload; OutlineColor : TColor); overload;
class procedure DrawOutlinedText(ACanvas : TCanvas; class procedure DrawOutlinedText(ACanvas : TCanvas;
x, y : integer; x, y : integer;
AText : string; const AText : string;
TextColor : TColor; TextColor : TColor;
OutlineColor : TColor; OutlineColor : TColor;
ClipRect : T2DIntRect); overload; ClipRect : T2DIntRect); overload;
class procedure DrawFitWOutlinedText(ABitmap: TBitmap; class procedure DrawFitWOutlinedText(ABitmap: TBitmap;
x1, x2 : integer; x1, x2 : integer;
y: integer; y: integer;
AText: string; const AText: string;
TextColor, TextColor,
OutlineColor: TColor; OutlineColor: TColor;
Align: TAlignment); overload; Align: TAlignment); overload;
class procedure DrawFitWOutlinedText(ACanvas: TCanvas; class procedure DrawFitWOutlinedText(ACanvas: TCanvas;
x1, x2 : integer; x1, x2 : integer;
y: integer; y: integer;
AText: string; const AText: string;
TextColor, TextColor,
OutlineColor: TColor; OutlineColor: TColor;
Align: TAlignment); overload; Align: TAlignment); overload;
@ -1789,7 +1789,7 @@ DrawHLine(ABitmap, Rect.left + Radius, Rect.right - Radius, rect.bottom, Color);
end; end;
class procedure TGUITools.DrawFitWText(ABitmap: TBitmap; x1, x2, y: integer; class procedure TGUITools.DrawFitWText(ABitmap: TBitmap; x1, x2, y: integer;
AText: string; TextColor: TColor; Align : TAlignment); const AText: string; TextColor: TColor; Align : TAlignment);
var tw : integer; var tw : integer;
s : string; s : string;
@ -1993,7 +1993,7 @@ ImageList.Draw(ACanvas, Point.x, Point.y, ImageIndex);
end; end;
class procedure TGUITools.DrawOutlinedText(ACanvas: TCanvas; x, y: integer; class procedure TGUITools.DrawOutlinedText(ACanvas: TCanvas; x, y: integer;
AText: string; TextColor, OutlineColor: TColor); const AText: string; TextColor, OutlineColor: TColor);
begin begin
with Acanvas do with Acanvas do
begin begin
@ -2014,7 +2014,7 @@ with Acanvas do
end; end;
class procedure TGUITools.DrawOutlinedText(ACanvas: TCanvas; x, y: integer; class procedure TGUITools.DrawOutlinedText(ACanvas: TCanvas; x, y: integer;
AText: string; TextColor, OutlineColor: TColor; ClipRect: T2DIntRect); const AText: string; TextColor, OutlineColor: TColor; ClipRect: T2DIntRect);
var WinAPIClipRect : TRect; var WinAPIClipRect : TRect;
@ -2111,7 +2111,7 @@ ABitmap.canvas.lineto(LineRect.right+1, Linerect.top);
end; end;
class procedure TGUITools.DrawOutlinedText(ABitmap: TBitmap; x, y: integer; class procedure TGUITools.DrawOutlinedText(ABitmap: TBitmap; x, y: integer;
AText: string; TextColor, OutlineColor: TColor; ClipRect: T2DIntRect); const AText: string; TextColor, OutlineColor: TColor; ClipRect: T2DIntRect);
var WinAPIClipRect : TRect; var WinAPIClipRect : TRect;
@ -2202,7 +2202,7 @@ DeleteObject(ClipRgn);
end; end;
class procedure TGUITools.DrawText(ACanvas: TCanvas; x, y: integer; class procedure TGUITools.DrawText(ACanvas: TCanvas; x, y: integer;
AText: string; TextColor: TColor); const AText: string; TextColor: TColor);
begin begin
with Acanvas do with Acanvas do
begin begin
@ -2213,7 +2213,7 @@ with Acanvas do
end; end;
class procedure TGUITools.DrawText(ACanvas: TCanvas; x, y: integer; class procedure TGUITools.DrawText(ACanvas: TCanvas; x, y: integer;
AText: string; TextColor: TColor; ClipRect: T2DIntRect); const AText: string; TextColor: TColor; ClipRect: T2DIntRect);
var WinAPIClipRect : TRect; var WinAPIClipRect : TRect;
@ -2308,7 +2308,7 @@ DeleteObject(RoundRgn);
end; end;
class procedure TGUITools.DrawOutlinedText(ABitmap: TBitmap; x, y: integer; class procedure TGUITools.DrawOutlinedText(ABitmap: TBitmap; x, y: integer;
AText: string; TextColor, OutlineColor: TColor); const AText: string; TextColor, OutlineColor: TColor);
begin begin
with ABitmap.canvas do with ABitmap.canvas do
begin begin
@ -2329,7 +2329,7 @@ with ABitmap.canvas do
end; end;
class procedure TGUITools.DrawText(ABitmap: TBitmap; x, y: integer; class procedure TGUITools.DrawText(ABitmap: TBitmap; x, y: integer;
AText: string; TextColor: TColor; ClipRect: T2DIntRect); const AText: string; TextColor: TColor; ClipRect: T2DIntRect);
var WinAPIClipRect : TRect; var WinAPIClipRect : TRect;
@ -2344,7 +2344,7 @@ with ABitmap.canvas do
end; end;
class procedure TGUITools.DrawFitWOutlinedText(ABitmap: TBitmap; x1, x2, y: integer; class procedure TGUITools.DrawFitWOutlinedText(ABitmap: TBitmap; x1, x2, y: integer;
AText: string; TextColor, OutlineColor: TColor; Align : TAlignment); const AText: string; TextColor, OutlineColor: TColor; Align : TAlignment);
var tw : integer; var tw : integer;
s : string; s : string;
@ -2375,7 +2375,7 @@ with ABitmap.Canvas do
end; end;
class procedure TGUITools.DrawFitWOutlinedText(ACanvas: TCanvas; x1, x2, class procedure TGUITools.DrawFitWOutlinedText(ACanvas: TCanvas; x1, x2,
y: integer; AText: string; TextColor, OutlineColor: TColor; y: integer; const AText: string; TextColor, OutlineColor: TColor;
Align: TAlignment); Align: TAlignment);
var tw : integer; var tw : integer;
@ -2500,7 +2500,7 @@ begin
end; end;
class procedure TGUITools.DrawFitWText(ACanvas: TCanvas; x1, x2, y: integer; class procedure TGUITools.DrawFitWText(ACanvas: TCanvas; x1, x2, y: integer;
AText: string; TextColor: TColor; Align: TAlignment); const AText: string; TextColor: TColor; Align: TAlignment);
var tw : integer; var tw : integer;
s : string; s : string;
@ -2615,7 +2615,7 @@ i:=GetClipRgn(DC, OrgRgn);
OrgRgnExists:=(i=1); OrgRgnExists:=(i=1);
end; end;
class procedure TGUITools.DrawText(ABitmap: TBitmap; x, y: integer; AText: string; class procedure TGUITools.DrawText(ABitmap: TBitmap; x, y: integer; const AText: string;
TextColor: TColor); TextColor: TColor);
begin begin
with ABitmap.canvas do with ABitmap.canvas do