diff options
author | Jean-Marc Levecque <jean-marc.levecque@jmlesite.fr> | 2012-05-07 15:47:21 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-05-07 15:47:21 +0200 |
commit | 8c6f6138f508ae531a7d247c6159fdaeb84fa32b (patch) | |
tree | 35196d6846e8170b3755b9c26866d7bbe4e1e8e0 /extras/contributed/report_tool/reportengine/u_command.pas | |
parent | 0bfabcfe11256ccf34cd8c3a19dfa5735117f6a8 (diff) | |
download | fpGUI-8c6f6138f508ae531a7d247c6159fdaeb84fa32b.tar.xz |
pdf: mod which allows Column definitions before Section creation
This is now similar to what is done for fonts.
Diffstat (limited to 'extras/contributed/report_tool/reportengine/u_command.pas')
-rw-r--r-- | extras/contributed/report_tool/reportengine/u_command.pas | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/extras/contributed/report_tool/reportengine/u_command.pas b/extras/contributed/report_tool/reportengine/u_command.pas index dd1359a5..f24e2c44 100644 --- a/extras/contributed/report_tool/reportengine/u_command.pas +++ b/extras/contributed/report_tool/reportengine/u_command.pas @@ -57,7 +57,7 @@ type FHeader: TList; FFooter: TList; FFrames: TList; - FColumns: TList; + FDefCol: Integer; FTitle: string; function GetFirstPage: Integer; function GetTotalPages: Integer; @@ -94,7 +94,7 @@ type property Paper: TPaper read FPaper; property Margins: TDimensions read FMargins; property CmdFrames: TList read FFrames; - property Columns: TList read FColumns; + property DefaultCol: Integer read FDefCol write FDefCol; property Title: string read FTitle write FTitle; end; @@ -355,7 +355,7 @@ type var Sections: TList; -// Columns: TList; + Columns: TList; Texts: TStringList; ImageNames: TStringList; Fonts: TList; @@ -419,7 +419,6 @@ FPages:= TList.Create; FHeader:= TList.Create; FFooter:= TList.Create; FFrames:= TList.Create; -FColumns:= TList.Create; end; destructor T_Section.Destroy; @@ -446,11 +445,6 @@ then for Cpt:= 0 to Pred(FFrames.Count) do T_Command(FFrames[Cpt]).Free; FFrames.Free; -if FColumns.Count> 0 -then - for Cpt:= 0 to Pred(FColumns.Count) do - T_Command(FColumns[Cpt]).Free; -FColumns.Free; inherited Destroy; end; |