paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 14:51:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazreport: less notes

Browse Source 
git-svn-id: trunk@36427 -
This commit is contained in:
mattias 2012-03-29 10:12:51 +00:00
parent 104b789157
commit 06d2a8ce1a
10 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/barcode.pas
View File

@ -70,7 +70,7 @@ interface
{$I lr_vers.inc}
uses
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TBarcodeType = (bcCode_2_5_interleaved,
@ -115,7 +115,7 @@ type
modules: array[0..3] of shortint;
procedure OneBarProps(code: char; var aWidth: integer; var lt: TBarLineType);
procedure OneBarProps(code: char; out aWidth: integer; out lt: TBarLineType);
procedure DoLines(Data: string; Canvas: TCanvas);
@ -307,7 +307,7 @@ calculate the width and the linetype of a sigle bar
'C' black 150%*Ratio 2/5 (used for PostNet)
'D' black 200%*Ratio 2/5 (used for PostNet)
}
procedure TBarcode.OneBarProps(code: char; var aWidth: integer; var lt: TBarLineType);
procedure TBarcode.OneBarProps(code: char; out aWidth: integer; out lt: TBarLineType);
begin
case code of
'0':

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

@ -929,12 +929,12 @@ type
procedure SetPrinterTo(const PrnName: String);
procedure SetVars(Value: TStrings);
procedure ClearAttribs;
procedure Loaded; override;
protected
procedure DefineProperties(Filer: TFiler); override;
procedure ReadBinaryData(Stream: TStream);
procedure WriteBinaryData(Stream: TStream);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Loaded; override;
public
CanRebuild : Boolean; // true, if report can be rebuilded
Terminated : Boolean;

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

@ -41,8 +41,8 @@ type
procedure Refresh; virtual;
function GetBookMark : Pointer; virtual;
procedure GotoBookMark(BM : Pointer); virtual;
procedure FreeBookMark(BM : Pointer); virtual;
procedure GotoBookMark({%H-}BM : Pointer); virtual;
procedure FreeBookMark({%H-}BM : Pointer); virtual;
procedure DisableControls; virtual;
procedure EnableControls; virtual;

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

@ -53,7 +53,7 @@ type
implementation
uses LR_Utils, LR_Const;
uses LR_Const;
procedure TfrTextExportFilter.GetUsedFont;

3
components/lazreport/source/lr_fmted.pas
View File

@ -90,8 +90,7 @@ end;
procedure TfrFmtForm.ComboBox1Change(Sender: TObject);
var
i, k: Integer;
s: String;
k: Integer;
begin
k := ComboBox1.ItemIndex;
if (k = -1) or (k=fOldC1) then Exit;

9
components/lazreport/source/lr_intrp.pas
View File

@ -23,10 +23,10 @@ type
public
constructor Create;
destructor Destroy; override;
procedure GetValue(const Name: String; var Value: Variant); virtual;
procedure SetValue(const Name: String; Value: Variant); virtual;
procedure DoFunction(const name: String; p1, p2, p3: Variant;
var val: Variant); virtual;
procedure GetValue(const {%H-}Name: String; var {%H-}Value: Variant); virtual;
procedure SetValue(const {%H-}Name: String; {%H-}Value: Variant); virtual;
procedure DoFunction(const {%H-}name: String; {%H-}p1, {%H-}p2, {%H-}p3: Variant;
var {%H-}val: Variant); virtual;
procedure PrepareScript(MemoFrom, MemoTo, MemoErr: TStringList); virtual;
procedure DoScript(Memo: TStringList); virtual;
end;
@ -661,7 +661,6 @@ procedure DoFuncId; forward;
end;
procedure DoFuncId;
label 1;
begin
SkipSpace;
if buf^[cur] in ['A'..'Z', 'a'..'z'] then

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

@ -26,7 +26,7 @@ type
function GetIdentify(const s: String; var i: Integer): String;
function GetString(const s: String; var i: Integer):String;
procedure Get3Parameters(const s: String; var i: Integer;
var s1, s2, s3: String);
out s1, s2, s3: String);
public
function Str2OPZ(s: String): String;
function CalcOPZ(const s: String): Variant;
@ -322,7 +322,7 @@ begin
end;
procedure TfrParser.Get3Parameters(const s: String; var i: Integer;
var s1, s2, s3: String);
out s1, s2, s3: String);
var
c, d, oi, ci: Integer;
begin

5
components/lazreport/source/lr_prntr.pas
View File

@ -81,7 +81,7 @@ type
const
PAPERCOUNT = 117;
OLDPAPERCOUNT = 67; // show only that much paper names when using virtual printer
//OLDPAPERCOUNT = 67; // show only that much paper names when using virtual printer
PaperInfo: Array[0..PAPERCOUNT - 1] of TPaperInfo = (
(Typ:1; Name: ''; X:2159; Y:2794),
@ -639,7 +639,6 @@ end;
function PaperSizeToWinPaper(const aWidth,aHeight: Integer): Integer;
var
i: integer;
PW,PL: Integer;
Dw,DL: Integer;
FW,FL: Integer;
begin
@ -969,8 +968,6 @@ end;
procedure TfrPrinter.FillPrnInfo(var p: TfrPrnInfo);
var
kx, ky: Double;
fx, fy: Double;
begin
kx := 93 / 1.022;
ky := 93 / 1.015;

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

@ -41,7 +41,7 @@ type
{ Private declarations }
fDoc: TfrReport;
fOnBeforeModal: TNotifyEvent;
procedure DoBeforeModal(Data: ptrint);
procedure DoBeforeModal({%H-}Data: ptrint);
public
{ Public declarations }
FirstCaption: String;

8
components/lazreport/source/lr_utils.pas
View File

@ -40,7 +40,7 @@ procedure frGetDataSetAndField(ComplexName: String;
var DataSet: TfrTDataSet; out Field: TfrTField);
function frGetFontStyle(Style: TFontStyles): Integer;
function frSetFontStyle(Style: Integer): TFontStyles;
procedure frInitFont(aFont : TFont; aColor : TColor; aSize : Integer; aStyle : TFontStyles);
procedure frInitFont(aFont : TFont; aColor : TColor; {%H-}aSize : Integer; aStyle : TFontStyles);
function frFindComponent(Owner: TComponent; const Name: String): TComponent;
procedure frGetComponents(Owner: TComponent; ClassRef: TClass;
List: TStrings; Skip: TComponent);
@ -113,6 +113,7 @@ var
n: Word;
begin
l.Clear;
n := 0;
Stream.Read(n, 2);
if n > 0 then
repeat
@ -120,6 +121,7 @@ begin
SetLength(s, n);
Stream.Read(s[1], n);
l.Add(s);
b := 0;
Stream.Read(b, 1);
until b = 0
else
@ -154,9 +156,11 @@ var
n: Word;
b: Byte;
begin
n := 0;
Stream.Read(n, 2);
SetLength(s, n);
Stream.Read(s[1], n);
b := 0;
Stream.Read(b, 1);
Result := s;
end;
@ -183,6 +187,7 @@ begin
l.Clear;
i := 1;
repeat
b := 0;
Stream.Read(b,1);
if (b = 13) or (b = 0) then
begin
@ -210,6 +215,7 @@ begin
SetLength(s, 4096);
i := 1;
repeat
b := 0;
Stream.Read(b, 1);
if b = 0 then
SetLength(s, i - 1)