paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 07:16:49 +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,
StdCtrls, Menus, Barcode,
LCLType,LR_Class, XMLCfg,ExtCtrls;
LCLType,LR_Class, ExtCtrls;
{.$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
Classes, SysUtils, LResources,
Graphics,GraphType, Controls, Forms, Dialogs,
StdCtrls,Menus,
LCLType,LCLIntf,LR_Class, XMLCfg;
Menus, LCLType, LCLIntf, LR_Class;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -30,7 +30,7 @@ uses
Graphics, Controls, Forms, Dialogs,Buttons,
StdCtrls, Menus,ClipBrd,
LCLType,LR_Class, XMLCfg, ExtCtrls,LCLIntf,LCLProc;
LCLType,LR_Class, ExtCtrls,LCLIntf,LCLProc;
type
{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,
StdCtrls,
LCLType,LR_Class, XMLCfg, ExtCtrls;
LCLType,LR_Class, ExtCtrls;
type

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

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