paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 06:36:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, cleanup from Luiz Americo, issue #14048

Browse Source 
git-svn-id: trunk@20802 -
This commit is contained in:
jesus 2009-07-06 20:19:38 +00:00
parent 1e8e729e45
commit f7680cf942
13 changed files with 21 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@ uses
Graphics, Controls, Forms, Dialogs,Buttons, Graphics, Controls, Forms, Dialogs,Buttons,
StdCtrls, Menus, Barcode, StdCtrls, Menus, Barcode,
LCLType,LR_Class, XMLCfg,ExtCtrls; LCLType,LR_Class, ExtCtrls;
{.$DEFINE BC_1_25} //For Barcode version 1.25 actually in debug {.$DEFINE BC_1_25} //For Barcode version 1.25 actually in debug

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

@ -17,9 +17,7 @@ interface
uses uses
Classes, SysUtils, LResources, Classes, SysUtils, LResources,
Graphics,GraphType, Controls, Forms, Dialogs, Graphics,GraphType, Controls, Forms, Dialogs,
StdCtrls,Menus, Menus, LCLType, LCLIntf, LR_Class;
LCLType,LCLIntf,LR_Class, XMLCfg;

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

@ -16,7 +16,7 @@ interface
uses uses
SysUtils, Classes, Controls, FileUtil, SysUtils, Classes, Controls, FileUtil,
Forms, StdCtrls, ComCtrls, Dialogs, Menus, Forms, ComCtrls, Dialogs, Menus,
Variants, DB,Graphics,Printers,osPrinters,XMLConf, Variants, DB,Graphics,Printers,osPrinters,XMLConf,
LCLType,LCLIntf,TypInfo,LCLProc, LCLType,LCLIntf,TypInfo,LCLProc,
@ -856,15 +856,7 @@ type
procedure DoBuildReport; virtual; procedure DoBuildReport; virtual;
procedure DoPrintReport(const PageNumbers: String; Copies: Integer); procedure DoPrintReport(const PageNumbers: String; Copies: Integer);
procedure SetComments(const AValue: TStringList); procedure SetComments(const AValue: TStringList);
procedure SetDataset(const AValue: TfrDataset);
procedure SetPrinterTo(const PrnName: String); procedure SetPrinterTo(const PrnName: String);
procedure SetReportAutor(const AValue: string);
procedure SetReportCreateDate(const AValue: TDateTime);
procedure SetReportLastChange(const AValue: TDateTime);
procedure SetReportVersionBuild(const AValue: string);
procedure SetReportVersionMajor(const AValue: string);
procedure SetReportVersionMinor(const AValue: string);
procedure SetReportVersionRelease(const AValue: string);
procedure SetVars(Value: TStrings); procedure SetVars(Value: TStrings);
procedure ClearAttribs; procedure ClearAttribs;
protected protected
@ -928,13 +920,13 @@ type
property Subject : string read FSubject write FSubject; property Subject : string read FSubject write FSubject;
property KeyWords : string read FKeyWords write FKeyWords; property KeyWords : string read FKeyWords write FKeyWords;
property Comments : TStringList read FComments write SetComments; property Comments : TStringList read FComments write SetComments;
property ReportAutor : string read FReportAutor write SetReportAutor; property ReportAutor : string read FReportAutor write FReportAutor;
property ReportVersionMajor : string read FReportVersionMajor write SetReportVersionMajor; property ReportVersionMajor : string read FReportVersionMajor write FReportVersionMajor;
property ReportVersionMinor : string read FReportVersionMinor write SetReportVersionMinor; property ReportVersionMinor : string read FReportVersionMinor write FReportVersionMinor;
property ReportVersionRelease : string read FReportVersionRelease write SetReportVersionRelease; property ReportVersionRelease : string read FReportVersionRelease write FReportVersionRelease;
property ReportVersionBuild : string read FReportVersionBuild write SetReportVersionBuild; property ReportVersionBuild : string read FReportVersionBuild write FReportVersionBuild;
property ReportCreateDate : TDateTime read FReportCreateDate write SetReportCreateDate; property ReportCreateDate : TDateTime read FReportCreateDate write FReportCreateDate;
property ReportLastChange : TDateTime read FReportLastChange write SetReportLastChange; property ReportLastChange : TDateTime read FReportLastChange write FReportLastChange;
// //
property Pages: TfrPages read FPages; property Pages: TfrPages read FPages;
property EMFPages: TfrEMFPages read FEMFPages write FEMFPages; property EMFPages: TfrEMFPages read FEMFPages write FEMFPages;
@ -942,7 +934,7 @@ type
property Values: TfrValues read FVal write FVal; property Values: TfrValues read FVal write FVal;
published published
property Dataset: TfrDataset read FDataset write SetDataset; property Dataset: TfrDataset read FDataset write FDataset;
property GrayedButtons: Boolean read FGrayedButtons write FGrayedButtons default False; property GrayedButtons: Boolean read FGrayedButtons write FGrayedButtons default False;
property InitialZoom: TfrPreviewZoom read FInitialZoom write FInitialZoom; property InitialZoom: TfrPreviewZoom read FInitialZoom write FInitialZoom;
property ModalPreview: Boolean read FModalPreview write FModalPreview default True; property ModalPreview: Boolean read FModalPreview write FModalPreview default True;
@ -8548,11 +8540,6 @@ begin
FComments.Assign(AValue); FComments.Assign(AValue);
end; end;
procedure TfrReport.SetDataset(const AValue: TfrDataset);
begin
FDataSet := AValue;
end;
// printer manipulation methods // printer manipulation methods
procedure TfrReport.SetPrinterTo(const PrnName: String); procedure TfrReport.SetPrinterTo(const PrnName: String);
@ -8573,48 +8560,6 @@ begin
end; end;
end; end;
procedure TfrReport.SetReportAutor(const AValue: string);
begin
if FReportAutor=AValue then exit;
FReportAutor:=AValue;
end;
procedure TfrReport.SetReportCreateDate(const AValue: TDateTime);
begin
if FReportCreateDate=AValue then exit;
FReportCreateDate:=AValue;
end;
procedure TfrReport.SetReportLastChange(const AValue: TDateTime);
begin
if FReportLastChange=AValue then exit;
FReportLastChange:=AValue;
end;
procedure TfrReport.SetReportVersionBuild(const AValue: string);
begin
if FReportVersionBuild=AValue then exit;
FReportVersionBuild:=AValue;
end;
procedure TfrReport.SetReportVersionMajor(const AValue: string);
begin
if FReportVersionMajor=AValue then exit;
FReportVersionMajor:=AValue;
end;
procedure TfrReport.SetReportVersionMinor(const AValue: string);
begin
if FReportVersionMinor=AValue then exit;
FReportVersionMinor:=AValue;
end;
procedure TfrReport.SetReportVersionRelease(const AValue: string);
begin
if FReportVersionRelease=AValue then exit;
FReportVersionRelease:=AValue;
end;
function TfrReport.ChangePrinter(OldIndex, NewIndex: Integer): Boolean; function TfrReport.ChangePrinter(OldIndex, NewIndex: Integer): Boolean;
procedure ChangePages; procedure ChangePages;

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

@ -16,7 +16,7 @@ interface
uses uses
SysUtils, Classes, Graphics, Controls, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Forms, Dialogs, Buttons, ExtCtrls,
LR_Const; LR_Const;

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

@ -16,9 +16,7 @@ interface
uses uses
Classes, SysUtils, LResources, Classes, SysUtils, LResources,
Graphics,GraphType, Controls, Forms, Dialogs, Graphics,GraphType, Controls, Forms, Dialogs,LR_E_TXT,
StdCtrls,LR_E_TXT,
LCLType,LCLIntf,LR_Class; LCLType,LCLIntf,LR_Class;
type type

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

@ -16,9 +16,7 @@ interface
uses uses
Classes, SysUtils, LResources, Classes, SysUtils, LResources,
Graphics,GraphType, Controls, Forms, Dialogs, Graphics,GraphType, Controls, Forms, Dialogs, LR_E_TXT,
StdCtrls,LR_E_TXT,
LCLType,LCLIntf,LR_Class; LCLType,LCLIntf,LR_Class;
type type

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

@ -17,8 +17,6 @@ interface
uses uses
Classes, SysUtils, LResources, Classes, SysUtils, LResources,
Graphics,GraphType, Controls, Forms, Dialogs, Graphics,GraphType, Controls, Forms, Dialogs,
StdCtrls,
LCLType,LCLIntf,LR_Class; LCLType,LCLIntf,LR_Class;
type type

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

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
ButtonPanel, ExtCtrls, LR_Class, Buttons; ExtCtrls, LR_Class, Buttons;
type type

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

@ -18,7 +18,7 @@ interface
uses uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,Printers,LCLType,LCLProc, Printers,LCLType,LCLProc,
LR_Class, LR_Const; LR_Class, LR_Const;

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

@ -15,7 +15,7 @@ interface
{$I LR_Vers.inc} {$I LR_Vers.inc}
uses uses
Classes, SysUtils, LResources,LMessages,Messages, Classes, SysUtils, LResources, Messages,
Forms, Controls, Graphics, Dialogs, Forms, Controls, Graphics, Dialogs,
Buttons, StdCtrls,LCLIntf, Buttons, StdCtrls,LCLIntf,

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

@ -30,7 +30,7 @@ uses
Graphics, Controls, Forms, Dialogs,Buttons, Graphics, Controls, Forms, Dialogs,Buttons,
StdCtrls, Menus,ClipBrd, StdCtrls, Menus,ClipBrd,
LCLType,LR_Class, XMLCfg, ExtCtrls,LCLIntf,LCLProc; LCLType,LR_Class, ExtCtrls,LCLIntf,LCLProc;
type type
{These are the six different gradient styles available.} {These are the six different gradient styles available.}

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

@ -19,7 +19,7 @@ uses
Graphics,GraphType, Controls, Forms, Dialogs,Buttons, Graphics,GraphType, Controls, Forms, Dialogs,Buttons,
StdCtrls, StdCtrls,
LCLType,LR_Class, XMLCfg, ExtCtrls; LCLType,LR_Class, ExtCtrls;
type type

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

@ -16,7 +16,7 @@ interface
uses uses
SysUtils, Classes, Graphics, Controls, SysUtils, Classes, Graphics, Controls,
LR_DBRel, Forms, StdCtrls, ClipBrd, Menus,Types,db, LR_DBRel, Forms, StdCtrls, ClipBrd, Menus,db,
{$IFDEF WIN32} {$IFDEF WIN32}
Windows, Windows,
{$ENDIF} {$ENDIF}
@ -55,7 +55,7 @@ function lrGetUnBrackedStr(const S:string):string; //remove '[' from begion of s
implementation implementation
uses LR_Class, LR_DSet; uses LR_Class;
procedure frInitFont(aFont : TFont; aColor : TColor; aSize : Integer; aStyle : TFontStyles); procedure frInitFont(aFont : TFont; aColor : TColor; aSize : Integer; aStyle : TFontStyles);
begin begin