You've already forked lazarus-ccr
RxFPC: RxDBGrid - fix export to pdf
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5833 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
components/rx/trunk
@ -1,7 +1,7 @@
|
|||||||
<?xml version="1.0" encoding="UTF-8"?>
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
<CONFIG>
|
<CONFIG>
|
||||||
<ProjectOptions>
|
<ProjectOptions>
|
||||||
<Version Value="9"/>
|
<Version Value="10"/>
|
||||||
<General>
|
<General>
|
||||||
<SessionStorage Value="InProjectDir"/>
|
<SessionStorage Value="InProjectDir"/>
|
||||||
<MainUnit Value="0"/>
|
<MainUnit Value="0"/>
|
||||||
@ -10,9 +10,6 @@
|
|||||||
<UseXPManifest Value="True"/>
|
<UseXPManifest Value="True"/>
|
||||||
<Icon Value="0"/>
|
<Icon Value="0"/>
|
||||||
</General>
|
</General>
|
||||||
<VersionInfo>
|
|
||||||
<StringTable ProductVersion=""/>
|
|
||||||
</VersionInfo>
|
|
||||||
<BuildModes Count="1">
|
<BuildModes Count="1">
|
||||||
<Item1 Name="Default" Default="True"/>
|
<Item1 Name="Default" Default="True"/>
|
||||||
</BuildModes>
|
</BuildModes>
|
||||||
|
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -8,25 +8,25 @@ object Form1: TForm1
|
|||||||
ClientWidth = 1043
|
ClientWidth = 1043
|
||||||
OnClose = FormClose
|
OnClose = FormClose
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
LCLVersion = '1.7'
|
LCLVersion = '1.9.0.0'
|
||||||
object Panel1: TPanel
|
object Panel1: TPanel
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 50
|
Height = 37
|
||||||
Top = 347
|
Top = 360
|
||||||
Width = 1043
|
Width = 1043
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ClientHeight = 50
|
ClientHeight = 37
|
||||||
ClientWidth = 1043
|
ClientWidth = 1043
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object Button1: TButton
|
object Button1: TButton
|
||||||
AnchorSideLeft.Control = Panel1
|
AnchorSideLeft.Control = Panel1
|
||||||
AnchorSideLeft.Side = asrCenter
|
AnchorSideLeft.Side = asrCenter
|
||||||
AnchorSideTop.Control = Panel1
|
AnchorSideTop.Control = Panel1
|
||||||
Left = 476
|
Left = 481
|
||||||
Height = 36
|
Height = 23
|
||||||
Top = 7
|
Top = 7
|
||||||
Width = 90
|
Width = 81
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Create PDF'
|
Caption = 'Create PDF'
|
||||||
@ -36,7 +36,7 @@ object Form1: TForm1
|
|||||||
end
|
end
|
||||||
object PageControl1: TPageControl
|
object PageControl1: TPageControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 347
|
Height = 360
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1043
|
Width = 1043
|
||||||
ActivePage = TabSheet1
|
ActivePage = TabSheet1
|
||||||
@ -45,13 +45,13 @@ object Form1: TForm1
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object TabSheet1: TTabSheet
|
object TabSheet1: TTabSheet
|
||||||
Caption = 'Test data'
|
Caption = 'Test data'
|
||||||
ClientHeight = 313
|
ClientHeight = 334
|
||||||
ClientWidth = 1033
|
ClientWidth = 1035
|
||||||
object RxDBGrid1: TRxDBGrid
|
object RxDBGrid1: TRxDBGrid
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 313
|
Height = 334
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 1033
|
Width = 1035
|
||||||
ColumnDefValues.BlobText = '(данные)'
|
ColumnDefValues.BlobText = '(данные)'
|
||||||
TitleButtons = True
|
TitleButtons = True
|
||||||
AutoSort = True
|
AutoSort = True
|
||||||
@ -63,8 +63,11 @@ object Form1: TForm1
|
|||||||
Width = 50
|
Width = 50
|
||||||
FieldName = 'ID'
|
FieldName = 'ID'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footers = <>
|
Footers = <>
|
||||||
@ -77,8 +80,11 @@ object Form1: TForm1
|
|||||||
Width = 120
|
Width = 120
|
||||||
FieldName = 'PDATE'
|
FieldName = 'PDATE'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footers = <>
|
Footers = <>
|
||||||
@ -92,8 +98,11 @@ object Form1: TForm1
|
|||||||
Width = 364
|
Width = 364
|
||||||
FieldName = 'NAME'
|
FieldName = 'NAME'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footer.Alignment = taRightJustify
|
Footer.Alignment = taRightJustify
|
||||||
@ -124,8 +133,11 @@ object Form1: TForm1
|
|||||||
Width = 100
|
Width = 100
|
||||||
FieldName = 'SUM'
|
FieldName = 'SUM'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footer.Alignment = taRightJustify
|
Footer.Alignment = taRightJustify
|
||||||
@ -160,8 +172,11 @@ object Form1: TForm1
|
|||||||
Width = 60
|
Width = 60
|
||||||
FieldName = 'FLAG'
|
FieldName = 'FLAG'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footers = <>
|
Footers = <>
|
||||||
@ -181,8 +196,11 @@ object Form1: TForm1
|
|||||||
Width = 200
|
Width = 200
|
||||||
FieldName = 'Country'
|
FieldName = 'Country'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footers = <>
|
Footers = <>
|
||||||
@ -194,8 +212,11 @@ object Form1: TForm1
|
|||||||
Width = 200
|
Width = 200
|
||||||
FieldName = 'Sity'
|
FieldName = 'Sity'
|
||||||
EditButtons = <>
|
EditButtons = <>
|
||||||
|
Filter.IsNull = False
|
||||||
|
Filter.IsAll = True
|
||||||
Filter.DropDownRows = 0
|
Filter.DropDownRows = 0
|
||||||
Filter.EmptyValue = '(Нет)'
|
Filter.EmptyValue = '(Нет)'
|
||||||
|
Filter.AllValue = '(All values)'
|
||||||
Filter.EmptyFont.Style = [fsItalic]
|
Filter.EmptyFont.Style = [fsItalic]
|
||||||
Filter.ItemIndex = -1
|
Filter.ItemIndex = -1
|
||||||
Footers = <>
|
Footers = <>
|
||||||
@ -260,6 +281,8 @@ object Form1: TForm1
|
|||||||
FooterOptions.Color = clYellow
|
FooterOptions.Color = clYellow
|
||||||
FooterOptions.RowCount = 3
|
FooterOptions.RowCount = 3
|
||||||
FooterOptions.DrawFullLine = True
|
FooterOptions.DrawFullLine = True
|
||||||
|
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
|
||||||
|
SearchOptions.FromStart = False
|
||||||
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter, rdgAllowToolMenu, rdgWordWrap]
|
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter, rdgAllowToolMenu, rdgWordWrap]
|
||||||
FooterColor = clYellow
|
FooterColor = clYellow
|
||||||
FooterRowCount = 3
|
FooterRowCount = 3
|
||||||
@ -334,8 +357,8 @@ object Form1: TForm1
|
|||||||
DataType = ftInteger
|
DataType = ftInteger
|
||||||
end>
|
end>
|
||||||
PacketRecords = 0
|
PacketRecords = 0
|
||||||
left = 136
|
Left = 136
|
||||||
top = 88
|
Top = 88
|
||||||
object RxMemoryData1ID: TAutoIncField
|
object RxMemoryData1ID: TAutoIncField
|
||||||
FieldKind = fkData
|
FieldKind = fkData
|
||||||
FieldName = 'ID'
|
FieldName = 'ID'
|
||||||
@ -409,8 +432,8 @@ object Form1: TForm1
|
|||||||
end
|
end
|
||||||
object DataSource1: TDataSource
|
object DataSource1: TDataSource
|
||||||
DataSet = RxMemoryData1
|
DataSet = RxMemoryData1
|
||||||
left = 104
|
Left = 104
|
||||||
top = 88
|
Top = 88
|
||||||
end
|
end
|
||||||
object RxDBGridExportPDF1: TRxDBGridExportPDF
|
object RxDBGridExportPDF1: TRxDBGridExportPDF
|
||||||
RxDBGrid = RxDBGrid1
|
RxDBGrid = RxDBGrid1
|
||||||
@ -426,12 +449,12 @@ object Form1: TForm1
|
|||||||
PageMargin.Top = 40
|
PageMargin.Top = 40
|
||||||
PageMargin.Right = 40
|
PageMargin.Right = 40
|
||||||
PageMargin.Bottom = 40
|
PageMargin.Bottom = 40
|
||||||
left = 112
|
Left = 112
|
||||||
top = 160
|
Top = 160
|
||||||
end
|
end
|
||||||
object ImageList1: TImageList
|
object ImageList1: TImageList
|
||||||
left = 112
|
Left = 112
|
||||||
top = 224
|
Top = 224
|
||||||
Bitmap = {
|
Bitmap = {
|
||||||
4C6903000000100000001000000000000000000000FF000000FF000000000000
|
4C6903000000100000001000000000000000000000FF000000FF000000000000
|
||||||
0000000000FF000000FF0000000000000000000000FF000000FF000000000000
|
0000000000FF000000FF0000000000000000000000FF000000FF000000000000
|
||||||
|
@ -122,7 +122,7 @@ var
|
|||||||
i: Integer;
|
i: Integer;
|
||||||
begin
|
begin
|
||||||
Memo1.Lines.Clear;
|
Memo1.Lines.Clear;
|
||||||
gTTFontCache.BuildFontFacheIgnoresErrors:=true;
|
gTTFontCache.BuildFontCacheIgnoresErrors:=true;
|
||||||
gTTFontCache.SearchPath.Assign(FontDirList);
|
gTTFontCache.SearchPath.Assign(FontDirList);
|
||||||
gTTFontCache.BuildFontCache;
|
gTTFontCache.BuildFontCache;
|
||||||
|
|
||||||
|
@ -409,7 +409,7 @@ var
|
|||||||
begin
|
begin
|
||||||
|
|
||||||
fX := ConvetUnits(X);
|
fX := ConvetUnits(X);
|
||||||
fY := ConvetUnits(Y);
|
fY := ConvetUnits(Y+2);
|
||||||
fW := ConvetUnits(W);
|
fW := ConvetUnits(W);
|
||||||
fH := ConvetUnits(H);
|
fH := ConvetUnits(H);
|
||||||
|
|
||||||
@ -424,26 +424,27 @@ begin
|
|||||||
case ATextAlign of
|
case ATextAlign of
|
||||||
taLeftJustify:
|
taLeftJustify:
|
||||||
begin
|
begin
|
||||||
Y1:=fY - FTH2;
|
// Y1:=fY - FTH2;
|
||||||
X1:=fX + ConvetUnits(constCellPadding);
|
X1:=fX + ConvetUnits(constCellPadding);
|
||||||
end;
|
end;
|
||||||
taRightJustify:
|
taRightJustify:
|
||||||
begin
|
begin
|
||||||
Y1:=fY - FTH2;
|
// Y1:=fY - FTH2;
|
||||||
X1:=fX + fW - FTW - ConvetUnits(constCellPadding);
|
X1:=fX + fW - FTW - ConvetUnits(constCellPadding);
|
||||||
if X1 < fX then
|
if X1 < fX then
|
||||||
X1:=fX;
|
X1:=fX;
|
||||||
end;
|
end;
|
||||||
taCenter:
|
taCenter:
|
||||||
begin
|
begin
|
||||||
Y1:=fY - FTH2;
|
// Y1:=fY - FTH2;
|
||||||
X1:=fX + fW / 2 - FTW / 2 - ConvetUnits(constCellPadding);
|
X1:=fX + fW / 2 - FTW / 2 - ConvetUnits(constCellPadding);
|
||||||
if X1 < fX then
|
if X1 < fX then
|
||||||
X1:=fX;
|
X1:=fX;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
FCurPage.WriteText(X1, Y1 + fH, AText);
|
Y1:=fY + FTH2;
|
||||||
|
FCurPage.WriteText(X1, Y1 {- fH}, AText);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TRxDBGridExportPDF.DrawRect(X, Y, W, H: integer; ABorderColor,
|
procedure TRxDBGridExportPDF.DrawRect(X, Y, W, H: integer; ABorderColor,
|
||||||
@ -509,7 +510,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
Y1:=Y1 + fW1;
|
Y1:=Y1 + fW1;
|
||||||
FCurPage.DrawImage(X1, Y1, fW1, fH1, IDX); // left-bottom coordinate of image
|
FCurPage.DrawImage(X1, Y1, fW1, fH1, IDX);
|
||||||
|
|
||||||
finally
|
finally
|
||||||
S.Free;
|
S.Free;
|
||||||
@ -791,7 +792,7 @@ begin
|
|||||||
FPDFDocument.Infos.ApplicationName := ApplicationName;
|
FPDFDocument.Infos.ApplicationName := ApplicationName;
|
||||||
FPDFDocument.Infos.CreationDate := Now;
|
FPDFDocument.Infos.CreationDate := Now;
|
||||||
|
|
||||||
FPDFDocument.Options:=FPdfOptions.FOptions;
|
FPDFDocument.Options:=FPdfOptions.FOptions + [poPageOriginAtTop];
|
||||||
FPDFDocument.DefaultOrientation:=FPdfOptions.PaperOrientation;
|
FPDFDocument.DefaultOrientation:=FPdfOptions.PaperOrientation;
|
||||||
|
|
||||||
//calc need count pages for all columns
|
//calc need count pages for all columns
|
||||||
@ -853,9 +854,9 @@ begin
|
|||||||
FFontItems:=TExportFonts.Create(Self);
|
FFontItems:=TExportFonts.Create(Self);
|
||||||
FWorkPages:=TFPList.Create;
|
FWorkPages:=TFPList.Create;
|
||||||
try
|
try
|
||||||
|
FPDFDocument.StartDocument;
|
||||||
DoSetupFonts;
|
DoSetupFonts;
|
||||||
DoSetupDocHeader;
|
DoSetupDocHeader;
|
||||||
FPDFDocument.StartDocument;
|
|
||||||
FCurSection := FPDFDocument.Sections.AddSection; // we always need at least one section
|
FCurSection := FPDFDocument.Sections.AddSection; // we always need at least one section
|
||||||
FDataSet.First;
|
FDataSet.First;
|
||||||
repeat
|
repeat
|
||||||
@ -869,9 +870,6 @@ begin
|
|||||||
|
|
||||||
DoExportFooter;
|
DoExportFooter;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
//DoTest; //!!!!
|
|
||||||
|
|
||||||
DoSaveDocument;
|
DoSaveDocument;
|
||||||
Result:=true;
|
Result:=true;
|
||||||
finally
|
finally
|
||||||
@ -895,6 +893,7 @@ end;
|
|||||||
function TRxDBGridExportPDF.DoSetupTools: boolean;
|
function TRxDBGridExportPDF.DoSetupTools: boolean;
|
||||||
begin
|
begin
|
||||||
RxDBGridExportPdfSetupForm:=TRxDBGridExportPdfSetupForm.Create(Application);
|
RxDBGridExportPdfSetupForm:=TRxDBGridExportPdfSetupForm.Create(Application);
|
||||||
|
|
||||||
RxDBGridExportPdfSetupForm.FileNameEdit1.FileName:=FileName;
|
RxDBGridExportPdfSetupForm.FileNameEdit1.FileName:=FileName;
|
||||||
RxDBGridExportPdfSetupForm.cbOpenAfterExport.Checked:=FOpenAfterExport;
|
RxDBGridExportPdfSetupForm.cbOpenAfterExport.Checked:=FOpenAfterExport;
|
||||||
RxDBGridExportPdfSetupForm.cbExportColumnHeader.Checked:=repExportTitle in FOptions;
|
RxDBGridExportPdfSetupForm.cbExportColumnHeader.Checked:=repExportTitle in FOptions;
|
||||||
|
@ -1,21 +1,21 @@
|
|||||||
object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm
|
object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm
|
||||||
Left = 544
|
Left = 544
|
||||||
Height = 345
|
Height = 416
|
||||||
Top = 387
|
Top = 316
|
||||||
Width = 522
|
Width = 522
|
||||||
Caption = 'Export params'
|
Caption = 'Export params'
|
||||||
ClientHeight = 345
|
ClientHeight = 416
|
||||||
ClientWidth = 522
|
ClientWidth = 522
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
LCLVersion = '1.7'
|
LCLVersion = '1.9.0.0'
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
AnchorSideLeft.Control = Owner
|
AnchorSideLeft.Control = Owner
|
||||||
AnchorSideTop.Control = Owner
|
AnchorSideTop.Control = Owner
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 20
|
Height = 13
|
||||||
Top = 6
|
Top = 6
|
||||||
Width = 105
|
Width = 78
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
Caption = 'Export file name'
|
Caption = 'Export file name'
|
||||||
FocusControl = FileNameEdit1
|
FocusControl = FileNameEdit1
|
||||||
@ -28,8 +28,8 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm
|
|||||||
AnchorSideRight.Control = Owner
|
AnchorSideRight.Control = Owner
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 12
|
Left = 12
|
||||||
Height = 37
|
Height = 21
|
||||||
Top = 32
|
Top = 25
|
||||||
Width = 504
|
Width = 504
|
||||||
Filter = 'All files (*.*)|*.*|LibreOffice/OpenOffice (*.ods)|*.ods|Excell 97-2003|*.xls|Excell 2007-2013|*.xlxs'
|
Filter = 'All files (*.*)|*.*|LibreOffice/OpenOffice (*.ods)|*.ods|Excell 97-2003|*.xls|Excell 2007-2013|*.xlxs'
|
||||||
FilterIndex = 0
|
FilterIndex = 0
|
||||||
@ -44,8 +44,8 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm
|
|||||||
end
|
end
|
||||||
object ButtonPanel1: TButtonPanel
|
object ButtonPanel1: TButtonPanel
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 46
|
Height = 34
|
||||||
Top = 293
|
Top = 376
|
||||||
Width = 510
|
Width = 510
|
||||||
OKButton.Name = 'OKButton'
|
OKButton.Name = 'OKButton'
|
||||||
OKButton.DefaultCaption = True
|
OKButton.DefaultCaption = True
|
||||||
@ -58,266 +58,275 @@ object RxDBGridExportPdfSetupForm: TRxDBGridExportPdfSetupForm
|
|||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ShowButtons = [pbOK, pbCancel, pbHelp]
|
ShowButtons = [pbOK, pbCancel, pbHelp]
|
||||||
end
|
end
|
||||||
object PageControl1: TPageControl
|
object GroupBox1: TGroupBox
|
||||||
AnchorSideLeft.Control = Owner
|
AnchorSideLeft.Control = Owner
|
||||||
AnchorSideTop.Control = FileNameEdit1
|
AnchorSideTop.Control = FileNameEdit1
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
AnchorSideRight.Control = Owner
|
AnchorSideRight.Control = Owner
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
AnchorSideBottom.Control = ButtonPanel1
|
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 212
|
Height = 117
|
||||||
Top = 75
|
Top = 52
|
||||||
Width = 510
|
Width = 510
|
||||||
ActivePage = TabSheet2
|
Anchors = [akTop, akLeft, akRight]
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
||||||
BorderSpacing.Around = 6
|
BorderSpacing.Around = 6
|
||||||
TabIndex = 1
|
Caption = 'Global'
|
||||||
|
ClientHeight = 99
|
||||||
|
ClientWidth = 506
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object TabSheet1: TTabSheet
|
object ColorBox1: TColorBox
|
||||||
Caption = 'Global'
|
AnchorSideLeft.Control = Label5
|
||||||
ClientHeight = 178
|
AnchorSideTop.Control = Label5
|
||||||
ClientWidth = 500
|
AnchorSideTop.Side = asrBottom
|
||||||
object cbOpenAfterExport: TCheckBox
|
AnchorSideRight.Control = GroupBox1
|
||||||
AnchorSideLeft.Control = Owner
|
AnchorSideRight.Side = asrBottom
|
||||||
AnchorSideTop.Control = TabSheet1
|
Left = 265
|
||||||
Left = 8
|
Height = 22
|
||||||
Height = 24
|
Top = 71
|
||||||
Top = 6
|
Width = 235
|
||||||
Width = 141
|
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
|
||||||
BorderSpacing.Around = 6
|
Anchors = [akTop, akLeft, akRight]
|
||||||
Caption = 'Open after export'
|
BorderSpacing.Around = 6
|
||||||
TabOrder = 0
|
ItemHeight = 16
|
||||||
end
|
TabOrder = 0
|
||||||
object cbExportColumnHeader: TCheckBox
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = cbOpenAfterExport
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 36
|
|
||||||
Width = 167
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
Caption = 'Export column header'
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object cbExportColumnFooter: TCheckBox
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = cbExportColumnHeader
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 66
|
|
||||||
Width = 162
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
Caption = 'Export column footer'
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object cbExportCellColors: TCheckBox
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = cbExportColumnFooter
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 6
|
|
||||||
Height = 24
|
|
||||||
Top = 96
|
|
||||||
Width = 138
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
Caption = 'Export cell colors'
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
object cbOverwriteExisting: TCheckBox
|
|
||||||
AnchorSideLeft.Control = Label4
|
|
||||||
AnchorSideTop.Control = TabSheet1
|
|
||||||
Left = 256
|
|
||||||
Height = 24
|
|
||||||
Top = 6
|
|
||||||
Width = 168
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
Caption = 'Overwrite existing file'
|
|
||||||
Enabled = False
|
|
||||||
TabOrder = 4
|
|
||||||
end
|
|
||||||
object Label4: TLabel
|
|
||||||
AnchorSideLeft.Control = TabSheet1
|
|
||||||
AnchorSideLeft.Side = asrCenter
|
|
||||||
AnchorSideTop.Control = TabSheet1
|
|
||||||
Left = 250
|
|
||||||
Height = 1
|
|
||||||
Top = 0
|
|
||||||
Width = 1
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object CheckBox6: TCheckBox
|
|
||||||
AnchorSideLeft.Control = Label4
|
|
||||||
AnchorSideTop.Control = cbOverwriteExisting
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 256
|
|
||||||
Height = 24
|
|
||||||
Top = 36
|
|
||||||
Width = 117
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
Caption = 'Export images'
|
|
||||||
TabOrder = 5
|
|
||||||
end
|
|
||||||
object Label5: TLabel
|
|
||||||
AnchorSideLeft.Control = Label4
|
|
||||||
AnchorSideTop.Control = CheckBox6
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 256
|
|
||||||
Height = 20
|
|
||||||
Top = 66
|
|
||||||
Width = 64
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
Caption = 'Title color'
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object ColorBox1: TColorBox
|
|
||||||
AnchorSideLeft.Control = Label5
|
|
||||||
AnchorSideTop.Control = Label5
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
AnchorSideRight.Control = TabSheet1
|
|
||||||
AnchorSideRight.Side = asrBottom
|
|
||||||
Left = 262
|
|
||||||
Height = 36
|
|
||||||
Top = 92
|
|
||||||
Width = 232
|
|
||||||
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
|
|
||||||
Anchors = [akTop, akLeft, akRight]
|
|
||||||
BorderSpacing.Around = 6
|
|
||||||
ItemHeight = 0
|
|
||||||
TabOrder = 6
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
object TabSheet2: TTabSheet
|
object Label5: TLabel
|
||||||
Caption = 'PDF Options'
|
AnchorSideLeft.Control = Label3
|
||||||
ClientHeight = 178
|
AnchorSideTop.Control = CheckBox6
|
||||||
ClientWidth = 500
|
AnchorSideTop.Side = asrBottom
|
||||||
object Label2: TLabel
|
Left = 259
|
||||||
AnchorSideLeft.Control = Label3
|
Height = 13
|
||||||
AnchorSideTop.Control = TabSheet2
|
Top = 52
|
||||||
Left = 256
|
Width = 46
|
||||||
Height = 20
|
BorderSpacing.Around = 6
|
||||||
Top = 6
|
Caption = 'Title color'
|
||||||
Width = 70
|
ParentColor = False
|
||||||
BorderSpacing.Around = 6
|
end
|
||||||
Caption = 'Paper type'
|
object CheckBox6: TCheckBox
|
||||||
ParentColor = False
|
AnchorSideLeft.Control = Label3
|
||||||
end
|
AnchorSideTop.Control = cbOverwriteExisting
|
||||||
object ComboBox1: TComboBox
|
AnchorSideTop.Side = asrBottom
|
||||||
AnchorSideLeft.Control = Label2
|
Left = 259
|
||||||
AnchorSideTop.Control = Label2
|
Height = 17
|
||||||
AnchorSideTop.Side = asrBottom
|
Top = 29
|
||||||
AnchorSideRight.Control = TabSheet2
|
Width = 86
|
||||||
AnchorSideRight.Side = asrBottom
|
BorderSpacing.Around = 6
|
||||||
Left = 262
|
Caption = 'Export images'
|
||||||
Height = 36
|
TabOrder = 1
|
||||||
Top = 32
|
end
|
||||||
Width = 232
|
object cbOverwriteExisting: TCheckBox
|
||||||
Anchors = [akTop, akLeft, akRight]
|
AnchorSideLeft.Control = Label3
|
||||||
BorderSpacing.Around = 6
|
AnchorSideTop.Control = GroupBox1
|
||||||
ItemHeight = 0
|
Left = 259
|
||||||
Style = csDropDownList
|
Height = 17
|
||||||
TabOrder = 0
|
Top = 6
|
||||||
end
|
Width = 123
|
||||||
object RadioGroup1: TRadioGroup
|
BorderSpacing.Around = 6
|
||||||
AnchorSideLeft.Control = Label4
|
Caption = 'Overwrite existing file'
|
||||||
AnchorSideTop.Control = ComboBox1
|
Enabled = False
|
||||||
AnchorSideTop.Side = asrBottom
|
TabOrder = 2
|
||||||
AnchorSideRight.Control = TabSheet2
|
end
|
||||||
AnchorSideRight.Side = asrBottom
|
object cbOpenAfterExport: TCheckBox
|
||||||
Left = 265
|
AnchorSideLeft.Control = GroupBox1
|
||||||
Height = 69
|
AnchorSideTop.Control = GroupBox1
|
||||||
Top = 74
|
Left = 6
|
||||||
Width = 229
|
Height = 17
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Top = 6
|
||||||
AutoFill = True
|
Width = 106
|
||||||
AutoSize = True
|
BorderSpacing.Around = 6
|
||||||
BorderSpacing.Around = 6
|
Caption = 'Open after export'
|
||||||
Caption = 'Orientation'
|
TabOrder = 3
|
||||||
ChildSizing.LeftRightSpacing = 6
|
end
|
||||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
object cbExportColumnHeader: TCheckBox
|
||||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
AnchorSideLeft.Control = GroupBox1
|
||||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
AnchorSideTop.Control = cbOpenAfterExport
|
||||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
AnchorSideTop.Side = asrBottom
|
||||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
Left = 6
|
||||||
ChildSizing.ControlsPerLine = 1
|
Height = 17
|
||||||
ClientHeight = 48
|
Top = 29
|
||||||
ClientWidth = 227
|
Width = 123
|
||||||
Items.Strings = (
|
BorderSpacing.Around = 6
|
||||||
'Portrait'
|
Caption = 'Export column header'
|
||||||
'Landscape'
|
TabOrder = 4
|
||||||
)
|
end
|
||||||
TabOrder = 1
|
object cbExportColumnFooter: TCheckBox
|
||||||
end
|
AnchorSideLeft.Control = GroupBox1
|
||||||
object Label3: TLabel
|
AnchorSideTop.Control = cbExportColumnHeader
|
||||||
AnchorSideLeft.Control = TabSheet2
|
AnchorSideTop.Side = asrBottom
|
||||||
AnchorSideLeft.Side = asrCenter
|
Left = 6
|
||||||
AnchorSideTop.Control = TabSheet2
|
Height = 17
|
||||||
Left = 250
|
Top = 52
|
||||||
Height = 1
|
Width = 119
|
||||||
Top = 0
|
BorderSpacing.Around = 6
|
||||||
Width = 1
|
Caption = 'Export column footer'
|
||||||
ParentColor = False
|
TabOrder = 5
|
||||||
end
|
end
|
||||||
object CheckBox1: TCheckBox
|
object cbExportCellColors: TCheckBox
|
||||||
AnchorSideLeft.Control = TabSheet2
|
AnchorSideLeft.Control = GroupBox1
|
||||||
AnchorSideTop.Control = TabSheet2
|
AnchorSideTop.Control = cbExportColumnFooter
|
||||||
Left = 6
|
AnchorSideTop.Side = asrBottom
|
||||||
Height = 24
|
Left = 6
|
||||||
Top = 6
|
Height = 17
|
||||||
Width = 77
|
Top = 75
|
||||||
BorderSpacing.Around = 6
|
Width = 99
|
||||||
Caption = 'Out line'
|
BorderSpacing.Around = 6
|
||||||
TabOrder = 2
|
Caption = 'Export cell colors'
|
||||||
end
|
TabOrder = 6
|
||||||
object CheckBox2: TCheckBox
|
end
|
||||||
AnchorSideLeft.Control = TabSheet2
|
object Label3: TLabel
|
||||||
AnchorSideTop.Control = CheckBox1
|
AnchorSideLeft.Control = GroupBox1
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideLeft.Side = asrCenter
|
||||||
Left = 6
|
AnchorSideTop.Control = GroupBox1
|
||||||
Height = 24
|
Left = 253
|
||||||
Top = 36
|
Height = 1
|
||||||
Width = 121
|
Top = 0
|
||||||
BorderSpacing.Around = 6
|
Width = 1
|
||||||
Caption = 'Compress text'
|
ParentColor = False
|
||||||
TabOrder = 3
|
end
|
||||||
end
|
end
|
||||||
object CheckBox3: TCheckBox
|
object GroupBox2: TGroupBox
|
||||||
AnchorSideLeft.Control = TabSheet2
|
AnchorSideLeft.Control = Owner
|
||||||
AnchorSideTop.Control = CheckBox2
|
AnchorSideTop.Control = GroupBox1
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
AnchorSideRight.Control = Owner
|
||||||
Height = 24
|
AnchorSideRight.Side = asrBottom
|
||||||
Top = 66
|
Left = 6
|
||||||
Width = 128
|
Height = 139
|
||||||
BorderSpacing.Around = 6
|
Top = 175
|
||||||
Caption = 'Compress fonts'
|
Width = 510
|
||||||
TabOrder = 4
|
Anchors = [akTop, akLeft, akRight]
|
||||||
end
|
AutoSize = True
|
||||||
object CheckBox4: TCheckBox
|
BorderSpacing.Around = 6
|
||||||
AnchorSideLeft.Control = TabSheet2
|
Caption = 'PDF Options'
|
||||||
AnchorSideTop.Control = CheckBox3
|
ClientHeight = 121
|
||||||
AnchorSideTop.Side = asrBottom
|
ClientWidth = 506
|
||||||
Left = 6
|
TabOrder = 3
|
||||||
Height = 24
|
object CheckBox1: TCheckBox
|
||||||
Top = 96
|
AnchorSideTop.Control = GroupBox2
|
||||||
Width = 140
|
Left = 6
|
||||||
BorderSpacing.Around = 6
|
Height = 17
|
||||||
Caption = 'Compress images'
|
Top = 6
|
||||||
TabOrder = 5
|
Width = 55
|
||||||
end
|
BorderSpacing.Around = 6
|
||||||
object CheckBox5: TCheckBox
|
Caption = 'Out line'
|
||||||
AnchorSideLeft.Control = TabSheet2
|
TabOrder = 0
|
||||||
AnchorSideTop.Control = CheckBox4
|
end
|
||||||
AnchorSideTop.Side = asrBottom
|
object CheckBox2: TCheckBox
|
||||||
Left = 6
|
AnchorSideLeft.Control = GroupBox2
|
||||||
Height = 24
|
AnchorSideTop.Control = CheckBox1
|
||||||
Top = 126
|
AnchorSideTop.Side = asrBottom
|
||||||
Width = 116
|
Left = 6
|
||||||
BorderSpacing.Around = 6
|
Height = 17
|
||||||
Caption = 'Use raw JPEG'
|
Top = 29
|
||||||
TabOrder = 6
|
Width = 88
|
||||||
end
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Compress text'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object CheckBox3: TCheckBox
|
||||||
|
AnchorSideLeft.Control = GroupBox2
|
||||||
|
AnchorSideTop.Control = CheckBox2
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 17
|
||||||
|
Top = 52
|
||||||
|
Width = 93
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Compress fonts'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object CheckBox4: TCheckBox
|
||||||
|
AnchorSideLeft.Control = GroupBox2
|
||||||
|
AnchorSideTop.Control = CheckBox3
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 17
|
||||||
|
Top = 75
|
||||||
|
Width = 101
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Compress images'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object CheckBox5: TCheckBox
|
||||||
|
AnchorSideLeft.Control = GroupBox2
|
||||||
|
AnchorSideTop.Control = CheckBox4
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 17
|
||||||
|
Top = 98
|
||||||
|
Width = 84
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Use raw JPEG'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
AnchorSideLeft.Control = Label4
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = GroupBox2
|
||||||
|
Left = 260
|
||||||
|
Height = 13
|
||||||
|
Top = 6
|
||||||
|
Width = 53
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Paper type'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ComboBox1: TComboBox
|
||||||
|
AnchorSideLeft.Control = Label2
|
||||||
|
AnchorSideTop.Control = Label2
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = GroupBox2
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 266
|
||||||
|
Height = 21
|
||||||
|
Top = 25
|
||||||
|
Width = 234
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
ItemHeight = 13
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object RadioGroup1: TRadioGroup
|
||||||
|
AnchorSideLeft.Control = Label4
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = ComboBox1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = GroupBox2
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 260
|
||||||
|
Height = 52
|
||||||
|
Top = 52
|
||||||
|
Width = 240
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
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 = 34
|
||||||
|
ClientWidth = 236
|
||||||
|
Items.Strings = (
|
||||||
|
'Portrait'
|
||||||
|
'Landscape'
|
||||||
|
)
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
AnchorSideLeft.Control = GroupBox2
|
||||||
|
AnchorSideLeft.Side = asrCenter
|
||||||
|
AnchorSideTop.Control = GroupBox2
|
||||||
|
Left = 253
|
||||||
|
Height = 1
|
||||||
|
Top = 0
|
||||||
|
Width = 1
|
||||||
|
ParentColor = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -60,15 +60,14 @@ type
|
|||||||
ColorBox1: TColorBox;
|
ColorBox1: TColorBox;
|
||||||
ComboBox1: TComboBox;
|
ComboBox1: TComboBox;
|
||||||
FileNameEdit1: TFileNameEdit;
|
FileNameEdit1: TFileNameEdit;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
GroupBox2: TGroupBox;
|
||||||
Label1: TLabel;
|
Label1: TLabel;
|
||||||
Label2: TLabel;
|
Label2: TLabel;
|
||||||
Label3: TLabel;
|
Label3: TLabel;
|
||||||
Label4: TLabel;
|
Label4: TLabel;
|
||||||
Label5: TLabel;
|
Label5: TLabel;
|
||||||
PageControl1: TPageControl;
|
|
||||||
RadioGroup1: TRadioGroup;
|
RadioGroup1: TRadioGroup;
|
||||||
TabSheet1: TTabSheet;
|
|
||||||
TabSheet2: TTabSheet;
|
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
private
|
private
|
||||||
{ private declarations }
|
{ private declarations }
|
||||||
@ -97,7 +96,7 @@ const
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
implementation
|
implementation
|
||||||
{$IF (FPC_FULLVERSION >= 30101)}
|
{$IF (FPC_FULLVERSION >= 30101)}
|
||||||
uses rxdconst;
|
uses rxdconst, LCLIntf;
|
||||||
|
|
||||||
{$R *.lfm}
|
{$R *.lfm}
|
||||||
|
|
||||||
@ -107,11 +106,9 @@ procedure TRxDBGridExportPdfSetupForm.FormCreate(Sender: TObject);
|
|||||||
var
|
var
|
||||||
c: TPDFPaperType;
|
c: TPDFPaperType;
|
||||||
begin
|
begin
|
||||||
PageControl1.ActivePageIndex:=0;
|
|
||||||
|
|
||||||
Caption:=sExportParams;
|
Caption:=sExportParams;
|
||||||
TabSheet1.Caption:=sGlobal;
|
GroupBox1.Caption:=sGlobal;
|
||||||
TabSheet2.Caption:=sPDFOptions;
|
GroupBox2.Caption:=sPDFOptions;
|
||||||
Label1.Caption:=sExportFileName;
|
Label1.Caption:=sExportFileName;
|
||||||
cbOpenAfterExport.Caption:=sOpenAfterExport;
|
cbOpenAfterExport.Caption:=sOpenAfterExport;
|
||||||
cbExportColumnHeader.Caption:=sExportColumnHeader;
|
cbExportColumnHeader.Caption:=sExportColumnHeader;
|
||||||
|
Reference in New Issue
Block a user