paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 21:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: less warnings

Browse Source 
git-svn-id: trunk@36414 -
This commit is contained in:
mattias 2012-03-29 08:45:47 +00:00
parent 30bf55eb5a
commit 788ea5231a
4 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/lr_e_htm.pas
View File

@ -51,13 +51,13 @@ type
protected
procedure AppendLine(const s: AnsiString);
procedure InsertLine(const s: AnsiString; position: Integer);
function GetviewText(View:TfrView): string; override;
function GetviewText({%H-}View:TfrView): string; override;
procedure CalcXCoords(var x,w: integer); override;
public
constructor Create(AStream: TStream); override;
destructor Destroy; override;
procedure OnData(x, y: Integer; View: TfrView); override;
procedure OnText(X, Y: Integer; const Text: String; View: TfrView); override;
procedure OnText({%H-}X, {%H-}Y: Integer; const Text: String; {%H-}View: TfrView); override;
procedure OnEndPage; override;
procedure OnEndDoc; override;

1
components/lazreport/source/lr_pgrid.pas
View File

@ -51,7 +51,6 @@ type
fShowHdOnAllPage : boolean;
FCaption : String;
FShowCaption : Boolean;
FWidth : Integer;
FDataSet : TDataset;
FColumnsInfo : array of TColumnInfo;
FTemplate : string;

4
components/lazreport/source/lr_register.pas
View File

@ -32,8 +32,8 @@ type
TfrRepEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
procedure ExecuteVerb({%H-}Index: Integer); override;
function GetVerb({%H-}Index: Integer): string; override;
function GetVerbCount: Integer; override;
procedure DoDesign;
end;

2
components/lazreport/source/lr_rrect.pas
View File

@ -184,7 +184,6 @@ procedure PaintGrad(Cv: TCanvas; X, Y, X1, Y1: Word;
var
FromR, FromG, FromB: Integer; //These are the separate color values for RGB
DiffR, DiffG, DiffB: Integer; // of color values.
rct: TRect; //Rectangle used to draw frame around button
bm: TBitMap;
{To speed things up and reduce flicker, I use a Bitmap to draw the button in
@ -361,7 +360,6 @@ begin
if Cv = nil then Exit;
bm.Width := X1 - X; //Set BMP dimensions to match control's
bm.Height :=Y1 - Y;
rct := Rect(0, 0, bm.Width, bm.Height); //Set rectangle size for later use
FromR := FBeginClr and $000000ff; //Strip out separate RGB values
FromG := (FBeginClr shr 8) and $000000ff;
FromB := (FBeginClr shr 16) and $000000ff;