babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

585
RXLib/rxdbgrid_print/rxdbgridprintgrid.pas Normal file
View File

@@ -0,0 +1,585 @@
{ RxDBGridPrintGrid unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit RxDBGridPrintGrid;
{$I rx.inc}
interface
uses
Classes, SysUtils, DB, rxdbgrid, LR_Class, LR_DSet, LR_DBSet, contnrs,
Graphics, Printers, rxlclutils;
type
TRxDBGridPrintOption =
(rxpoShowTitle,
rxpoShowFooter,
rxpoShowGridColor,
rxpoShowFooterColor,
rxpoShowReportTitle,
rxpoHideZeroValues,
rxpoColSpanning
);
TRxDBGridPrintOptions = set of TRxDBGridPrintOption;
{ TRxColInfo }
TRxColInfo = class
Col:TRxColumn;
ColWidth:integer;
ColTitles:TStringList;
constructor Create;
destructor Destroy; override;
end;
{ TRxDBGridPrint }
TRxDBGridPrint = class(TRxDBGridAbstractTools)
private
FModifyPrepared: boolean;
FOptions: TRxDBGridPrintOptions;
FOrientation: TPrinterOrientation;
FPageMargin: TRxPageMargin;
FReport : TfrReport;
FReportDataSet : TfrDBDataSet;
FColumnDataSet : TfrUserDataSet;
FDataSet : TDataset;
FPage : TfrPage;
FReportTitle: string;
FShowColumnHeaderOnAllPage: boolean;
FShowProgress : Boolean;
FTitleRowCount : integer;
FRxColInfoList : TObjectList;
FYPos: Integer;
FXPos: Integer;
procedure DoCreateReport;
procedure DoShowReportTitle;
procedure DoSetupColumns;
procedure DoShowColumnsTitle;
procedure DoShowFooter;
procedure OnPrintColumn(ColNo: Integer; var Width: Integer);
procedure OnEnterRect(Memo: TStringList; View: TfrView);
procedure SetPageMargin(AValue: TRxPageMargin);
protected
function DoExecTools:boolean;override;
function DoSetupTools:boolean; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure PreviewReport;
published
property Orientation: TPrinterOrientation read FOrientation write FOrientation default poPortrait;
property Options:TRxDBGridPrintOptions read FOptions write FOptions;
property ShowProgress : Boolean read FShowProgress write FShowProgress default false;
property PageMargin:TRxPageMargin read FPageMargin write SetPageMargin;
property ReportTitle:string read FReportTitle write FReportTitle;
property ShowColumnHeaderOnAllPage:boolean read FShowColumnHeaderOnAllPage write FShowColumnHeaderOnAllPage default false;
property ModifyPrepared:boolean read FModifyPrepared write FModifyPrepared default false;
end;
procedure Register;
implementation
uses math, RxDBGridPrintGrid_SetupUnit, Forms, Controls, rxdconst, LCLIntf;
{$R rxdbgridprintgrid.res}
procedure Register;
begin
RegisterComponents('RX DBAware',[TRxDBGridPrint]);
end;
{ TRxColInfo }
Type
THackRxDBGrid = class(TRxDBGrid);
constructor TRxColInfo.Create;
begin
inherited Create;
ColTitles:=TStringList.Create;
end;
destructor TRxColInfo.Destroy;
begin
ColTitles.Clear;
FreeAndNil(ColTitles);
inherited Destroy;
end;
{ TRxDBGridPrint }
procedure TRxDBGridPrint.DoShowReportTitle;
var
FBand: TfrBandView;
FView: TfrMemoView;
begin
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.SetBounds(10, FYPos, 1000, 25);
FBand.BandType := btReportTitle;
// FPage.Objects.Add(FBand);
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, FPage.PrnInfo.PgW - 40, 25);
FView.Alignment:=taCenter;
FView.Font.Size:=12;
// FView.Font.Assign(FTitleFont);
FView.Memo.Add(FReportTitle);
// FPage.Objects.Add(FView);
Inc(FYPos, 27)
end;
procedure TRxDBGridPrint.DoCreateReport;
var
FBand: TfrBandView;
FView: TfrMemoView;
begin
if FReport.Pages.Count=0 then
FReport.Pages.add;
FPage := FReport.Pages[FReport.Pages.Count-1];
FPage.ChangePaper(FPage.pgSize, FPage.Width, FPage.Height, FOrientation);
FPage.Margins.Top:=FPageMargin.Top;
FPage.Margins.Left:=FPageMargin.Left;
FPage.Margins.Bottom:=FPageMargin.Bottom;
FPage.Margins.Right:=FPageMargin.Right;
FYPos:=FPageMargin.Top;
FXPos:=FPageMargin.Left;
if rxpoShowReportTitle in FOptions then
DoShowReportTitle;
if rxpoShowTitle in FOptions then
DoShowColumnsTitle;
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btMasterData;
FBand.Dataset := FReportDataSet.Name;
FBand.SetBounds(0, FYPos, 1000, 18);
FBand.Flags:=FBand.Flags or flStretched;
// FPage.Objects.Add(FBand);
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btCrossData;
FBand.Dataset := FColumnDataSet.Name;
FBand.SetBounds(FXPos, 0, 20, 1000);
// FPage.Objects.Add(FBand);
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, 20, 18);
FView.Memo.Add('[Cell]');
FView.Flags:=FView.Flags or flStretched;
FView.Font.Size:=10;
// FView.Font.Assign(FFont);
FView.Frames:=frAllFrames;
FView.Layout:=tlTop;
// FPage.Objects.Add(FView);
FYPos := FYPos + 22;
if (RxDBGrid.FooterOptions.Active) and (RxDBGrid.FooterOptions.RowCount>0) then
DoShowFooter;
end;
procedure TRxDBGridPrint.DoSetupColumns;
var
P:TRxColInfo;
i: Integer;
j: Integer;
begin
FTitleRowCount:=1;
FRxColInfoList.Clear;
for i:=0 to RxDBGrid.Columns.Count-1 do
begin
if RxDBGrid.Columns[i].Visible then
begin
P:=TRxColInfo.Create;
FRxColInfoList.Add(P);
P.Col:=RxDBGrid.Columns[i] as TRxColumn;
P.ColWidth:=RxDBGrid.Columns[i].Width;
for j:=0 to TRxColumnTitle(RxDBGrid.Columns[i].Title).CaptionLinesCount-1 do
P.ColTitles.Add(TRxColumnTitle(RxDBGrid.Columns[i].Title).CaptionLine(j).Caption);
FTitleRowCount:=Max(FTitleRowCount, P.ColTitles.Count)
end;
end;
end;
procedure TRxDBGridPrint.DoShowColumnsTitle;
var
FBand: TfrBandView;
FView: TfrMemoView;
i: Integer;
begin
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btMasterHeader;
FBand.SetBounds(0, FYPos, 1000, 20 * FTitleRowCount);
FBand.Flags:=FBand.Flags or flStretched;
// FPage.Objects.Add(FBand);
if FShowColumnHeaderOnAllPage then
FBand.Flags:=FBand.Flags + flBandRepeatHeader;
for i:=0 to FTitleRowCount-1 do
begin
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, 20, 20);
FView.Alignment:=taCenter;
FView.FillColor := clSilver;
// FView.Font.Assign(FTitleFont);
FView.Font.Size:=12;
FView.Frames:=frAllFrames;
FView.Layout:=tlTop;
FView.Memo.Add(Format('Header_%d', [i]));
// FPage.Objects.Add(FView);
FYPos:=FYPos + 20
end;
FYPos := FYPos + 2;
end;
procedure TRxDBGridPrint.DoShowFooter;
var
FBand: TfrBandView;
FView: TfrMemoView;
begin
FBand := TfrBandView(frCreateObject(gtBand, '', FPage));
FBand.BandType := btMasterFooter;
FBand.SetBounds(FXPos, FYPos, 1000, 20);
FBand.Flags:=FBand.Flags or flStretched;
FView := frCreateObject(gtMemo, '', FPage) as TfrMemoView;
FView.SetBounds(FXPos, FYPos, 20, 20);
if rxpoShowFooterColor in FOptions then
FView.FillColor := RxDBGrid.FooterOptions.Color;
FView.Font.Size:=12;
FView.Frames:=frAllFrames;
FView.Layout:=tlTop;
FView.Memo.Add('Footer');
FYPos := FYPos + 22;
end;
procedure TRxDBGridPrint.OnPrintColumn(ColNo: Integer; var Width: Integer);
begin
if (ColNo > 0) and (ColNo <= FRxColInfoList.Count) then
Width := TRxColInfo(FRxColInfoList[ColNo-1]).ColWidth;
end;
procedure TRxDBGridPrint.OnEnterRect(Memo: TStringList; View: TfrView);
var
i, k: Integer;
F:TRxColInfo;
FDataField:TField;
FDataCollumn:TRxColumn;
S: String;
C:TColor;
J, L, R: Integer;
begin
i := FColumnDataset.RecNo;
View.Visible:=true;
FDataField:=nil;
FDataCollumn:=nil;
if (i >= 0) and (i < FRxColInfoList.Count) then
begin
F:=TRxColInfo(FRxColInfoList[i]);
if Assigned(F) then
FDataCollumn:=F.Col;
if Assigned(FDataCollumn) then
FDataField:=FDataCollumn.Field;
View.dx := F.ColWidth;
if Assigned(F.Col) and (Memo.Count>0) then
begin
S:=Memo[0];
if (S='[Cell]') and Assigned(F.Col.Field) then
begin
if (rdgColSpanning in RxDBGrid.OptionsRx) and (rxpoColSpanning in Options) then
begin
if RxDBGrid.IsMerged(I + 1, L, R, FDataCollumn) then
begin
if I + 1 = L then
begin
if Assigned(FDataCollumn) then
FDataField:=FDataCollumn.Field
else
begin
if Assigned(F) then
FDataCollumn:=F.Col;
if Assigned(FDataCollumn) then
FDataField:=FDataCollumn.Field;
end;
for j:=L + 1 to R do
if FRxColInfoList.Count > j - 1 then
View.dx := View.dx + TRxColInfo(FRxColInfoList[j - 1]).ColWidth;
end
else
begin
View.Visible:=false;
Memo[0] := '';
exit;
end;
end
else
begin
if Assigned(F) then
FDataCollumn:=F.Col;
if Assigned(FDataCollumn) then
FDataField:=FDataCollumn.Field;
end
end;
if not Assigned(FDataCollumn) then
begin
C:=0;
end;
if rxpoShowGridColor in FOptions then
begin
C:=FDataCollumn.Color;
if Assigned(RxDBGrid.OnGetCellProps) then
RxDBGrid.OnGetCellProps(RxDBGrid, FDataField, TfrMemoView(View).Font, C);
if C = clWindow then
C := clNone;
TfrMemoView(View).FillColor:=C;
end;
{ S:= FDataField.DisplayText; //F.Col.Field.DisplayText;
if Assigned(FDataCollumn) and (FDataCollumn.KeyList.Count > 0) and (FDataCollumn.PickList.Count > 0) then
begin
J := FDataCollumn.KeyList.IndexOf(S);
if (J >= 0) and (J < FDataCollumn.PickList.Count) then
S := FDataCollumn.PickList[j];
end
else}
if (rxpoHideZeroValues in FOptions) and Assigned(FDataField) and (FDataField.DataType in [ftSmallint, ftInteger, ftWord,
ftFloat, ftCurrency, ftLargeint]) and (FDataField.AsFloat = 0) then
S:=''
else
S:=THackRxDBGrid(RxDBGrid).GetFieldDisplayText(FDataField, FDataCollumn);
Memo[0] := S;
TfrMemoView(View).Alignment:=FDataCollumn.Alignment;
end
else
if Copy(S, 1, 7) = 'Header_' then
begin
TfrMemoView(View).Alignment:=F.Col.Title.Alignment;
K:=StrToIntDef(Copy(S, 8, Length(S)), 0);
if TRxColumnTitle(F.Col.Title).CaptionLinesCount = 0 then
begin
S:=TRxColumnTitle(F.Col.Title).Caption;
if K = 0 then
Memo[0] := TRxColumnTitle(F.Col.Title).Caption
else
Memo[0] := '';
end
else
if K<TRxColumnTitle(F.Col.Title).CaptionLinesCount then
begin;
Memo[0] :=TRxColumnTitle(F.Col.Title).CaptionLine(k).Caption; //F.Col.Title.Caption;
end
else
Memo[0] := '';
end
else
if S = 'Footer' then
begin
Memo[0] :=F.Col.Footer.DisplayText;
TfrMemoView(View).Alignment:=F.Col.Footer.Alignment;
end;
end;
end;
end;
procedure TRxDBGridPrint.SetPageMargin(AValue: TRxPageMargin);
begin
FPageMargin.Assign(AValue);
end;
function TRxDBGridPrint.DoExecTools: boolean;
var
SaveDesign: TfrReportDesigner;
begin
Result:=false;
if (RxDBGrid = nil) or (RxDBGrid.DataSource = nil) or (RxDBGrid.DataSource.Dataset = nil) then
Exit;
SaveDesign:=frDesigner;
frDesigner:=nil;
FDataSet := RxDBGrid.Datasource.Dataset;
FReport:=TfrReport.Create(Self);
FReport.OnPrintColumn:=@OnPrintColumn;
FReport.OnEnterRect:=@OnEnterRect;
FReport.ModifyPrepared:=FModifyPrepared;
FReportDataSet := TfrDBDataSet.Create(Self);
FColumnDataSet := TfrUserDataSet.Create(Self);
try
DoSetupColumns;
FReportDataSet.Name := 'frGridDBDataSet1';
FReportDataSet.DataSet := FDataSet;
// FReportDataSet.DataSource := RxDBGrid.DataSource;
FColumnDataSet.Name := 'frGridUserDataSet1';
FColumnDataSet.RangeEnd := reCount;
FColumnDataSet.RangeEndCount := FRxColInfoList.Count;
FReport.ShowProgress:=FShowProgress;
DoCreateReport;
frDesigner:=SaveDesign;
FReport.ShowReport;
Result:=true;
finally
FreeAndNil(FColumnDataSet);
FreeAndNil(FReportDataSet);
FreeAndNil(FReport);
// frDesigner:=SaveDesign;
end;
end;
function TRxDBGridPrint.DoSetupTools: boolean;
var
RxDBGridPrintGrid_SetupForm: TRxDBGridPrintGrid_SetupForm;
begin
RxDBGridPrintGrid_SetupForm:=TRxDBGridPrintGrid_SetupForm.Create(Application);
RxDBGridPrintGrid_SetupForm.Edit1.Text:=FReportTitle;
RxDBGridPrintGrid_SetupForm.RadioGroup1.ItemIndex:=ord(FOrientation);
RxDBGridPrintGrid_SetupForm.SpinEdit2.Value:=FPageMargin.Left;
RxDBGridPrintGrid_SetupForm.SpinEdit1.Value:=FPageMargin.Top;
RxDBGridPrintGrid_SetupForm.SpinEdit3.Value:=FPageMargin.Right;
RxDBGridPrintGrid_SetupForm.SpinEdit4.Value:=FPageMargin.Bottom;
RxDBGridPrintGrid_SetupForm.CheckBox1.Checked:=FShowColumnHeaderOnAllPage;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[0]:=rxpoShowTitle in FOptions;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[1]:=rxpoShowFooter in FOptions;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[2]:=rxpoShowFooterColor in FOptions;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[3]:=rxpoShowGridColor in FOptions;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[4]:=rxpoShowReportTitle in FOptions;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[5]:=rxpoHideZeroValues in FOptions;
RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[6]:=rxpoColSpanning in FOptions;
Result:=RxDBGridPrintGrid_SetupForm.ShowModal = mrOk;
if Result then
begin
FReportTitle := RxDBGridPrintGrid_SetupForm.Edit1.Text;
FOrientation := TPrinterOrientation(RxDBGridPrintGrid_SetupForm.RadioGroup1.ItemIndex);
FPageMargin.Left := RxDBGridPrintGrid_SetupForm.SpinEdit2.Value;
FPageMargin.Top := RxDBGridPrintGrid_SetupForm.SpinEdit1.Value;
FPageMargin.Right := RxDBGridPrintGrid_SetupForm.SpinEdit3.Value;
FPageMargin.Bottom := RxDBGridPrintGrid_SetupForm.SpinEdit4.Value;
FOptions:=[];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[0] then
FOptions:=FOptions + [rxpoShowTitle];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[1] then
FOptions:=FOptions + [rxpoShowFooter];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[2] then
FOptions:=FOptions + [rxpoShowFooterColor];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[3] then
FOptions:=FOptions + [rxpoShowGridColor];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[4] then
FOptions:=FOptions + [rxpoShowReportTitle];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[5] then
FOptions:=FOptions + [rxpoHideZeroValues];
if RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[6] then
FOptions:=FOptions + [rxpoColSpanning];
FShowColumnHeaderOnAllPage:=RxDBGridPrintGrid_SetupForm.CheckBox1.Checked;
end;
RxDBGridPrintGrid_SetupForm.Free;
end;
constructor TRxDBGridPrint.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FPageMargin:=TRxPageMargin.Create;
FCaption:=sPrintGrid;
FShowProgress:=false;
FModifyPrepared:=false;
FRxColInfoList:=TObjectList.Create(true);
FOrientation:=poPortrait;
ShowSetupForm:=false;
FOptions:=[rxpoShowTitle,
rxpoShowFooter,
rxpoShowGridColor,
rxpoShowFooterColor,
rxpoShowReportTitle];
FShowColumnHeaderOnAllPage:=false;
end;
destructor TRxDBGridPrint.Destroy;
begin
FreeAndNil(FRxColInfoList);
FreeAndNil(FPageMargin);
inherited Destroy;
end;
procedure TRxDBGridPrint.PreviewReport;
begin
Execute;
end;
end.
{ DONE -oalexs : Необходимо настраивать отступы в печатной форме}
{ DONE -oalexs : Необходимо настроить отображение раскраски ячеек }
{ DONE -oalexs : Необходимо правильно выгружать лукапные значение KeyList/PickList }
{ TODO -oalexs : Необходимо реализовать настройку шрифтов }

268
RXLib/rxdbgrid_print/rxdbgridprintgrid_setupunit.lfm Normal file
View File

@@ -0,0 +1,268 @@
object RxDBGridPrintGrid_SetupForm: TRxDBGridPrintGrid_SetupForm
Left = 720
Height = 347
Top = 303
Width = 489
Caption = 'Print grid setup'
ClientHeight = 347
ClientWidth = 489
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = CheckGroup1
AnchorSideBottom.Control = CheckBox1
Left = 6
Height = 165
Top = 6
Width = 316
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Page margins'
ClientHeight = 144
ClientWidth = 314
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = SpinEdit1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 23
Width = 24
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Top'
ParentColor = False
end
object SpinEdit1: TSpinEdit
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = Label5
Left = 91
Height = 37
Top = 6
Width = 60
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 1000
TabOrder = 0
end
object Label2: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = SpinEdit2
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 20
Top = 66
Width = 25
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
Caption = 'Left'
ParentColor = False
end
object SpinEdit2: TSpinEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SpinEdit1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Label5
Left = 91
Height = 37
Top = 49
Width = 60
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 1000
TabOrder = 1
end
object SpinEdit3: TSpinEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 248
Height = 37
Top = 6
Width = 60
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 1000
TabOrder = 2
end
object Label3: TLabel
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = SpinEdit3
AnchorSideBottom.Side = asrBottom
Left = 158
Height = 20
Top = 23
Width = 33
Anchors = [akLeft, akBottom]
Caption = 'Right'
ParentColor = False
end
object Label4: TLabel
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = SpinEdit4
AnchorSideBottom.Side = asrBottom
Left = 158
Height = 20
Top = 66
Width = 47
Anchors = [akLeft, akBottom]
Caption = 'Bottom'
ParentColor = False
end
object SpinEdit4: TSpinEdit
AnchorSideTop.Control = SpinEdit3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 248
Height = 37
Top = 49
Width = 60
Anchors = [akTop, akRight]
BorderSpacing.Around = 6
MaxValue = 1000
TabOrder = 3
end
object Label5: TLabel
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox1
Left = 157
Height = 1
Top = 0
Width = 1
ParentColor = False
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 46
Top = 295
Width = 477
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel, pbHelp]
end
object CheckGroup1: TCheckGroup
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 328
Height = 201
Top = 6
Width = 155
Anchors = [akTop, akRight]
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Print options'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 180
ClientWidth = 153
Items.Strings = (
'Show title'
'Show footer'
'Show footer color'
'Show grid color'
'Show report title'
'Hide zero values'
'Merge cell''s'
)
TabOrder = 2
Data = {
0700000002020202020202
}
end
object RadioGroup1: TRadioGroup
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom
Left = 6
Height = 69
Top = 207
Width = 107
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Orientation'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientWidth = 105
Items.Strings = (
'Portrait'
'Landscape'
)
TabOrder = 3
end
object Label6: TLabel
AnchorSideLeft.Control = RadioGroup1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CheckBox1
AnchorSideTop.Side = asrBottom
Left = 119
Height = 20
Top = 207
Width = 72
BorderSpacing.Around = 6
Caption = 'Report title'
ParentColor = False
end
object Edit1: TEdit
AnchorSideLeft.Control = Label6
AnchorSideTop.Control = Label6
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 125
Height = 37
Top = 233
Width = 358
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 4
end
object CheckBox1: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CheckGroup1
AnchorSideBottom.Control = CheckGroup1
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 24
Top = 177
Width = 235
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 6
Caption = 'Show column header on all page'
TabOrder = 5
end
end

104
RXLib/rxdbgrid_print/rxdbgridprintgrid_setupunit.pas Normal file
View File

@@ -0,0 +1,104 @@
{ RxDBGridPrintGrid unit
Copyright (C) 2005-2017 Lagunov Aleksey alexs@yandex.ru and Lazarus team
original conception from rx library for Delphi (c)
This library is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published by
the Free Software Foundation; either version 2 of the License, or (at your
option) any later version with the following modification:
As a special exception, the copyright holders of this library give you
permission to link this library with independent modules to produce an
executable, regardless of the license terms of these independent modules,and
to copy and distribute the resulting executable under terms of your choice,
provided that you also meet, for each linked independent module, the terms
and conditions of the license of that module. An independent module is a
module which is not derived from or based on this library. If you modify
this library, you may extend this exception to your version of the library,
but you are not obligated to do so. If you do not wish to do so, delete this
exception statement from your version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License
for more details.
You should have received a copy of the GNU Library General Public License
along with this library; if not, write to the Free Software Foundation,
Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit RxDBGridPrintGrid_SetupUnit;
{$I rx.inc}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Spin, ButtonPanel, ExtCtrls;
type
{ TRxDBGridPrintGrid_SetupForm }
TRxDBGridPrintGrid_SetupForm = class(TForm)
ButtonPanel1: TButtonPanel;
CheckBox1: TCheckBox;
CheckGroup1: TCheckGroup;
Edit1: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
RadioGroup1: TRadioGroup;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
SpinEdit4: TSpinEdit;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
implementation
uses rxdconst;
{$R *.lfm}
{ TRxDBGridPrintGrid_SetupForm }
procedure TRxDBGridPrintGrid_SetupForm.FormCreate(Sender: TObject);
begin
CheckBox1.Caption:=sShowColumnHeaderOnAllPage;
CheckGroup1.Caption:=sPrintOptions;
CheckGroup1.Items[0]:=sShowTitle;
CheckGroup1.Items[1]:=sShowFooter;
CheckGroup1.Items[2]:=sShowFooterColor;
CheckGroup1.Items[3]:=sShowGridColor;
CheckGroup1.Items[4]:=sShowReportTitle;
CheckGroup1.Items[5]:=sHideZeroValues;
CheckGroup1.Items[6]:=sMergeCells;
GroupBox1.Caption:=sPageMargins;
Label1.Caption:=sTopCaption;
Label2.Caption:=sLeftCaption;
Label3.Caption:=sRightCaption;
Label4.Caption:=sBottomCaption;
Label6.Caption:=sReportTitle;
RadioGroup1.Caption:=sOrientation;
RadioGroup1.Items[0]:=sPortrait;
RadioGroup1.Items[1]:=sLandscape;
end;
end.