You've already forked lazarus-ccr
GridPrinter: Initial commit
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8591 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
92
components/gridprinter/examples/dbgrid/dbgrid_demo.lpi
Normal file
92
components/gridprinter/examples/dbgrid/dbgrid_demo.lpi
Normal file
@ -0,0 +1,92 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="dbgrid_demo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="4">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="GridPrinterPkg"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="MemDSLaz"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item4>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="dbgrid_demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="dbgrid_demo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
25
components/gridprinter/examples/dbgrid/dbgrid_demo.lpr
Normal file
25
components/gridprinter/examples/dbgrid/dbgrid_demo.lpr
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
program dbgrid_demo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main, memdslaz
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
71
components/gridprinter/examples/dbgrid/main.lfm
Normal file
71
components/gridprinter/examples/dbgrid/main.lfm
Normal file
@ -0,0 +1,71 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 331
|
||||||
|
Height = 382
|
||||||
|
Top = 130
|
||||||
|
Width = 689
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 382
|
||||||
|
ClientWidth = 689
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object DBGrid1: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Height = 345
|
||||||
|
Top = 0
|
||||||
|
Width = 689
|
||||||
|
Align = alClient
|
||||||
|
Color = clWindow
|
||||||
|
Columns = <>
|
||||||
|
DataSource = DataSource1
|
||||||
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgThumbTracking]
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 37
|
||||||
|
Top = 345
|
||||||
|
Width = 689
|
||||||
|
Align = alBottom
|
||||||
|
AutoSize = True
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ClientHeight = 37
|
||||||
|
ClientWidth = 689
|
||||||
|
TabOrder = 1
|
||||||
|
object Button1: TButton
|
||||||
|
AnchorSideLeft.Control = Panel1
|
||||||
|
AnchorSideTop.Control = Panel1
|
||||||
|
Left = 6
|
||||||
|
Height = 25
|
||||||
|
Top = 6
|
||||||
|
Width = 104
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Print preview...'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = BufDataset1
|
||||||
|
Left = 256
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
|
object GridPrinter1: TGridPrinter
|
||||||
|
Footer.Font.Height = -11
|
||||||
|
Header.Font.Height = -11
|
||||||
|
OnGetCellText = GridPrinter1GetCellText
|
||||||
|
OnGetRowCount = GridPrinter1GetRowCount
|
||||||
|
Left = 167
|
||||||
|
Top = 136
|
||||||
|
end
|
||||||
|
object GridPrintPreviewDialog1: TGridPrintPreviewDialog
|
||||||
|
GridPrinter = GridPrinter1
|
||||||
|
Left = 167
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
object BufDataset1: TBufDataset
|
||||||
|
FieldDefs = <>
|
||||||
|
Left = 167
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
|
end
|
||||||
115
components/gridprinter/examples/dbgrid/main.pas
Normal file
115
components/gridprinter/examples/dbgrid/main.pas
Normal file
@ -0,0 +1,115 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, memds, DB, BufDataset, Forms, Controls, Graphics, Dialogs,
|
||||||
|
DBGrids, ExtCtrls, StdCtrls, GridPrn, GridPrnPreviewDlg, Grids;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
BufDataset1: TBufDataset;
|
||||||
|
Button1: TButton;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
DBGrid1: TDBGrid;
|
||||||
|
GridPrinter1: TGridPrinter;
|
||||||
|
GridPrintPreviewDialog1: TGridPrintPreviewDialog;
|
||||||
|
Panel1: TPanel;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure GridPrinter1GetCellText(Sender: TObject; AGrid: TCustomGrid;
|
||||||
|
ACol, ARow: Integer; var AText: String);
|
||||||
|
procedure GridPrinter1GetRowCount(Sender: TObject; AGrid: TCustomGrid;
|
||||||
|
var ARowCount: Integer);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
// Create some dummy dataset
|
||||||
|
BufDataset1.FieldDefs.Add('Text', ftString, 20);
|
||||||
|
BufDataset1.FieldDefs.Add('Value', ftInteger);
|
||||||
|
BufDataset1.FieldDefs.Add('Date', ftDate);
|
||||||
|
BufDataset1.CreateDataset;
|
||||||
|
BufDataset1.Open;
|
||||||
|
for i := 1 to 100 do
|
||||||
|
BufDataset1.AppendRecord(['Record ' + IntToStr(i), 100*i, Date()-i]);
|
||||||
|
BufDataset1.First;
|
||||||
|
|
||||||
|
// Since the GridPrinter accesses the DBGrid assign it to the Grid property
|
||||||
|
// only after the Dataset is ready and the DBGrid can display valid data.
|
||||||
|
GridPrinter1.Grid := DBGrid1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
bm: TBookmark;
|
||||||
|
begin
|
||||||
|
// Store currently active record so that we can return to it after preview/print.
|
||||||
|
bm := BufDataset1.GetBookmark;
|
||||||
|
try
|
||||||
|
// Disable scrolling of grid
|
||||||
|
BufDataset1.DisableControls;
|
||||||
|
try
|
||||||
|
// Show the grid printpreview
|
||||||
|
GridPrintPreviewDialog1.Execute;
|
||||||
|
finally
|
||||||
|
// Allow scrolling again
|
||||||
|
BufDataset1.EnableControls;
|
||||||
|
end;
|
||||||
|
// Return to the stored record position.
|
||||||
|
BufDataset1.GotoBookmark(bm);
|
||||||
|
finally
|
||||||
|
BufDataset1.FreeBookmark(bm);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.GridPrinter1GetCellText(Sender: TObject; AGrid: TCustomGrid;
|
||||||
|
ACol, ARow: Integer; var AText: String);
|
||||||
|
var
|
||||||
|
field: TField;
|
||||||
|
dbGrid: TDBGrid;
|
||||||
|
begin
|
||||||
|
dbGrid := AGrid as TDBGrid;
|
||||||
|
if ACol >= dbGrid.FixedCols then
|
||||||
|
begin
|
||||||
|
// We need something to find the row to be printed and use the dataset's
|
||||||
|
// RecNo for this purpose which is a number starting at 1.
|
||||||
|
// BUT BEWARE: RecNo is no good parameter for many dataset types!
|
||||||
|
BufDataset1.RecNo := ARow;
|
||||||
|
// Using the field from the DBGrid.Columns rather than from the dataset
|
||||||
|
// directly accounts for rearranging the column order in the grid.
|
||||||
|
field := dbGrid.Columns[ACol - dbGrid.FixedCols].Field;
|
||||||
|
AText := field.AsString;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.GridPrinter1GetRowCount(Sender: TObject; AGrid: TCustomGrid;
|
||||||
|
var ARowCount: Integer);
|
||||||
|
begin
|
||||||
|
// Since the DBGrid does not load all records, but we want to print all
|
||||||
|
// of them, we must tell the printer the real number of rows to print
|
||||||
|
ARowCount := BufDataset1.RecordCount + 1; // added 1 for the header row
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
158
components/gridprinter/examples/multi-language/main.lfm
Normal file
158
components/gridprinter/examples/multi-language/main.lfm
Normal file
@ -0,0 +1,158 @@
|
|||||||
|
object MainForm: TMainForm
|
||||||
|
Left = 331
|
||||||
|
Height = 491
|
||||||
|
Top = 127
|
||||||
|
Width = 656
|
||||||
|
Caption = 'Multi-Language Demonstration of TGridPrinter'
|
||||||
|
ClientHeight = 491
|
||||||
|
ClientWidth = 656
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object StringGrid1: TStringGrid
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = Panel1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = btnPrint
|
||||||
|
Left = 6
|
||||||
|
Height = 419
|
||||||
|
Top = 35
|
||||||
|
Width = 644
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
ColCount = 6
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goCellEllipsis]
|
||||||
|
RowCount = 6
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object btnPrint: TButton
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideBottom.Control = Owner
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 25
|
||||||
|
Top = 460
|
||||||
|
Width = 75
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Print...'
|
||||||
|
OnClick = btnPrintClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object btnPreview: TButton
|
||||||
|
AnchorSideLeft.Control = cmbDialogs
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = btnPrint
|
||||||
|
Left = 275
|
||||||
|
Height = 25
|
||||||
|
Top = 460
|
||||||
|
Width = 76
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 24
|
||||||
|
Caption = 'Preview...'
|
||||||
|
OnClick = btnPreviewClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object cmbDialogs: TComboBox
|
||||||
|
AnchorSideLeft.Control = btnPrint
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = btnPrint
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 87
|
||||||
|
Height = 23
|
||||||
|
Top = 461
|
||||||
|
Width = 164
|
||||||
|
BorderSpacing.Left = 6
|
||||||
|
ItemHeight = 15
|
||||||
|
Items.Strings = (
|
||||||
|
'RSNoPrinterDialog'
|
||||||
|
'RSPageSetupDialog'
|
||||||
|
'RSPrinterDialog'
|
||||||
|
)
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object ccbPreviewOptions: TCheckComboBox
|
||||||
|
AnchorSideLeft.Control = btnPreview
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = btnPreview
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 357
|
||||||
|
Height = 22
|
||||||
|
Top = 461
|
||||||
|
Width = 293
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
ItemHeight = 16
|
||||||
|
Items.Strings = (
|
||||||
|
'ppoNavigationBtns'
|
||||||
|
'ppoNavigationEdit'
|
||||||
|
'ppoZoomBtns'
|
||||||
|
'ppoPageOrientationBtns'
|
||||||
|
'ppoMarginsBtn'
|
||||||
|
'ppoHeaderFooterBtn'
|
||||||
|
'ppoPrintOrderBtns '
|
||||||
|
)
|
||||||
|
OnItemChange = ccbPreviewOptionsItemChange
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 29
|
||||||
|
Top = 0
|
||||||
|
Width = 656
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
BevelOuter = bvNone
|
||||||
|
ClientHeight = 29
|
||||||
|
ClientWidth = 656
|
||||||
|
TabOrder = 5
|
||||||
|
object Label1: TLabel
|
||||||
|
AnchorSideLeft.Control = Panel1
|
||||||
|
AnchorSideTop.Control = cmbLanguages
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 6
|
||||||
|
Height = 15
|
||||||
|
Top = 10
|
||||||
|
Width = 55
|
||||||
|
BorderSpacing.Left = 6
|
||||||
|
Caption = 'Language:'
|
||||||
|
end
|
||||||
|
object cmbLanguages: TComboBox
|
||||||
|
AnchorSideLeft.Control = Label1
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Panel1
|
||||||
|
AnchorSideRight.Control = Panel1
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 67
|
||||||
|
Height = 23
|
||||||
|
Top = 6
|
||||||
|
Width = 581
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Left = 6
|
||||||
|
BorderSpacing.Top = 6
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
ItemHeight = 15
|
||||||
|
OnChange = cmbLanguagesChange
|
||||||
|
Style = csDropDownList
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GridPrinter1: TGridPrinter
|
||||||
|
Grid = StringGrid1
|
||||||
|
Footer.Font.Height = -11
|
||||||
|
Header.Font.Height = -11
|
||||||
|
Header.Text = 'test||'
|
||||||
|
Orientation = poLandscape
|
||||||
|
Left = 168
|
||||||
|
Top = 96
|
||||||
|
end
|
||||||
|
object GridPrintPreviewDialog1: TGridPrintPreviewDialog
|
||||||
|
GridPrinter = GridPrinter1
|
||||||
|
Left = 288
|
||||||
|
Top = 96
|
||||||
|
end
|
||||||
|
end
|
||||||
6
components/gridprinter/examples/multi-language/main.lrj
Normal file
6
components/gridprinter/examples/multi-language/main.lrj
Normal file
@ -0,0 +1,6 @@
|
|||||||
|
{"version":1,"strings":[
|
||||||
|
{"hash":13998722,"name":"tmainform.caption","sourcebytes":[77,117,108,116,105,45,76,97,110,103,117,97,103,101,32,68,101,109,111,110,115,116,114,97,116,105,111,110,32,111,102,32,84,71,114,105,100,80,114,105,110,116,101,114],"value":"Multi-Language Demonstration of TGridPrinter"},
|
||||||
|
{"hash":151352958,"name":"tmainform.btnprint.caption","sourcebytes":[80,114,105,110,116,46,46,46],"value":"Print..."},
|
||||||
|
{"hash":217709006,"name":"tmainform.btnpreview.caption","sourcebytes":[80,114,101,118,105,101,119,46,46,46],"value":"Preview..."},
|
||||||
|
{"hash":82521866,"name":"tmainform.label1.caption","sourcebytes":[76,97,110,103,117,97,103,101,58],"value":"Language:"}
|
||||||
|
]}
|
||||||
221
components/gridprinter/examples/multi-language/main.pas
Normal file
221
components/gridprinter/examples/multi-language/main.pas
Normal file
@ -0,0 +1,221 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids,
|
||||||
|
StdCtrls, ExtCtrls, ComboEx,
|
||||||
|
LCLTranslator, Translations,
|
||||||
|
PrintersDlgs, GridPrn, GridPrnPreviewForm, GridPrnPreviewDlg;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
TMainForm = class(TForm)
|
||||||
|
btnPrint: TButton;
|
||||||
|
btnPreview: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
ccbPreviewOptions: TCheckComboBox;
|
||||||
|
cmbDialogs: TComboBox;
|
||||||
|
cmbLanguages: TComboBox;
|
||||||
|
GridPrinter1: TGridPrinter;
|
||||||
|
GridPrintPreviewDialog1: TGridPrintPreviewDialog;
|
||||||
|
Label1: TLabel;
|
||||||
|
PageSetupDialog1: TPageSetupDialog;
|
||||||
|
Panel1: TPanel;
|
||||||
|
PrinterSetupDialog1: TPrinterSetupDialog;
|
||||||
|
StringGrid1: TStringGrid;
|
||||||
|
procedure btnPrintClick(Sender: TObject);
|
||||||
|
procedure btnPreviewClick(Sender: TObject);
|
||||||
|
procedure ccbPreviewOptionsItemChange(Sender: TObject; AIndex: Integer);
|
||||||
|
procedure cmbLanguagesChange(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
FLanguagesDir: String;
|
||||||
|
procedure PopulateLanguages;
|
||||||
|
procedure SelectLanguage(AIndex: Integer);
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MainForm: TMainForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
FileUtil;
|
||||||
|
|
||||||
|
resourcestring
|
||||||
|
RSNoPrinterDialog = 'No printer dialog';
|
||||||
|
RSPageSetupDialog = 'Page-setup dialog';
|
||||||
|
RSPrinterDialog = 'Printer dialog';
|
||||||
|
|
||||||
|
RSNavigationButtons = 'Navigation buttons';
|
||||||
|
RSNavigationEdit = 'Navigation edit';
|
||||||
|
RSZoomButtons = 'Zoom buttons';
|
||||||
|
RSPageOrientationButtons = 'Page orientation buttons';
|
||||||
|
RSPageMarginsButtons = 'Page margins button';
|
||||||
|
RSHeaderFooterButton = 'Header/footer button';
|
||||||
|
RSPrintOrderButtons = 'Print order: colums first or rows first';
|
||||||
|
|
||||||
|
|
||||||
|
{ TMainForm }
|
||||||
|
|
||||||
|
procedure TMainForm.btnPrintClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
case cmbDialogs.ItemIndex of
|
||||||
|
0: GridPrinter1.PrintDialogs := gpdNone;
|
||||||
|
1: GridPrinter1.PrintDialogs := gpdPageSetup;
|
||||||
|
2: GridPrinter1.PrintDialogs := gpdPrintDialog;
|
||||||
|
end;
|
||||||
|
GridPrinter1.Print;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.btnPreviewClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
GridPrintPreviewDialog1.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.ccbPreviewOptionsItemChange(Sender: TObject; AIndex: Integer);
|
||||||
|
var
|
||||||
|
optns: TGridPrintPreviewOptions;
|
||||||
|
begin
|
||||||
|
optns := [];
|
||||||
|
if ccbPreviewOptions.Checked[0] then Include(optns, ppoNavigationBtns);
|
||||||
|
if ccbPreviewOptions.Checked[1] then Include(optns, ppoNavigationEdit);
|
||||||
|
if ccbPreviewOptions.Checked[2] then Include(optns, ppoZoomBtns);
|
||||||
|
if ccbPreviewOptions.Checked[3] then Include(optns, ppoPageOrientationBtns);
|
||||||
|
if ccbPreviewOptions.Checked[4] then Include(optns, ppoMarginsBtn);
|
||||||
|
if ccbPreviewOptions.Checked[5] then Include(optns, ppoHeaderFooterBtn);
|
||||||
|
if ccbPreviewOptions.Checked[6] then Include(optns, ppoPrintOrderBtns);
|
||||||
|
GridPrintPreviewDialog1.Options := optns;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.cmbLanguagesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelectLanguage(cmbLanguages.ItemIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.FormCreate(Sender: TObject);
|
||||||
|
const
|
||||||
|
NUM_ROWS = 100;
|
||||||
|
NUM_COLS = 20;
|
||||||
|
var
|
||||||
|
i, r, c: Integer;
|
||||||
|
begin
|
||||||
|
cmbDialogs.ItemIndex := 2;
|
||||||
|
ccbPreviewOptions.ItemIndex := 0;
|
||||||
|
for i := 0 to ccbPreviewOptions.Count-1 do
|
||||||
|
ccbPreviewOptions.Checked[i] := true;
|
||||||
|
|
||||||
|
FLanguagesDir := ExpandFileName(Application.Location + '../../languages/');
|
||||||
|
PopulateLanguages;
|
||||||
|
SelectLanguage(cmbLanguages.ItemIndex);
|
||||||
|
|
||||||
|
StringGrid1.BeginUpdate;
|
||||||
|
try
|
||||||
|
StringGrid1.Clear;
|
||||||
|
StringGrid1.RowCount := NUM_ROWS + StringGrid1.FixedRows;
|
||||||
|
StringGrid1.ColCount := NUM_COLS + StringGrid1.FixedCols;
|
||||||
|
for r := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
|
||||||
|
StringGrid1.Cells[0, r] := 'Row ' + IntToStr(r);
|
||||||
|
for c := StringGrid1.FixedCols to StringGrid1.ColCount-1 do
|
||||||
|
begin
|
||||||
|
StringGrid1.Cells[c, 0] := 'Column ' + IntToStr(c);
|
||||||
|
for r := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
|
||||||
|
StringGrid1.cells[c, r] := Format('C%d R%d', [c, r]);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
StringGrid1.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Populates the languages combobox: reads the names of the app's .po files
|
||||||
|
in the languages directory and adds the item the combobox. }
|
||||||
|
procedure TMainForm.PopulateLanguages;
|
||||||
|
var
|
||||||
|
List: TStringList;
|
||||||
|
s, lang: String;
|
||||||
|
i, j: Integer;
|
||||||
|
begin
|
||||||
|
List := TStringList.Create;
|
||||||
|
try
|
||||||
|
FindAllFiles(List, FLanguagesDir, 'multilanguage_demo.*.po');
|
||||||
|
for i := 0 to List.Count-1 do
|
||||||
|
begin
|
||||||
|
s := List[i];
|
||||||
|
lang := '';
|
||||||
|
for j := Length(s)-3 downto 0 do
|
||||||
|
begin
|
||||||
|
if s[j] = '.' then
|
||||||
|
break;
|
||||||
|
lang := s[j] + lang;
|
||||||
|
end;
|
||||||
|
case lowercase(lang) of
|
||||||
|
'de': List[i] := 'de - Deutsch';
|
||||||
|
'en': List[i] := 'en - English';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
List.Sort;
|
||||||
|
cmbLanguages.Items.Assign(List);
|
||||||
|
finally
|
||||||
|
List.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMainForm.SelectLanguage(AIndex: Integer);
|
||||||
|
var
|
||||||
|
lang: String;
|
||||||
|
i, idx1, idx2: Integer;
|
||||||
|
begin
|
||||||
|
idx1 := cmbDialogs.ItemIndex;
|
||||||
|
idx2 := ccbPreviewOptions.ItemIndex;
|
||||||
|
|
||||||
|
// Set the default language - the LCLTranslator translates all app strings
|
||||||
|
// as well as the LCL strings...
|
||||||
|
if AIndex = -1 then
|
||||||
|
begin
|
||||||
|
lang := SetDefaultLang('', FLanguagesDir);
|
||||||
|
for i := 0 to cmbLanguages.Items.Count-1 do
|
||||||
|
if pos(lang + ' - ', cmbLanguages.Items[i]) = 1 then
|
||||||
|
begin
|
||||||
|
cmbLanguages.ItemIndex := i;
|
||||||
|
break;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
lang := cmbLanguages.Items[AIndex];
|
||||||
|
lang := Copy(lang, 1, pos(' - ', lang) - 1);
|
||||||
|
SetDefaultLang(lang, FLanguagesDir);
|
||||||
|
end;
|
||||||
|
// ... and translate the strings of the GridPrinter package.
|
||||||
|
TranslateUnitResourceStrings('GridPrnStrings', FLanguagesDir + 'GridPrnStrings.' + lang + '.po');
|
||||||
|
|
||||||
|
// The LCL Translator does not update the strings in the comboboxes.
|
||||||
|
|
||||||
|
// Translate the items in the printer dialogs combobox...
|
||||||
|
cmbDialogs.Items[0] := RSNoPrinterDialog;
|
||||||
|
cmbDialogs.Items[1] := RSPageSetupDialog;
|
||||||
|
cmbDialogs.Items[2] := RSPrinterDialog;
|
||||||
|
cmbDialogs.ItemIndex := idx1;
|
||||||
|
|
||||||
|
// ... and of the preview dialog options check combobox.
|
||||||
|
ccbPreviewOptions.Items[0] := RSNavigationButtons;
|
||||||
|
ccbPreviewOptions.Items[1] := RSNavigationEdit;
|
||||||
|
ccbPreviewOptions.Items[2] := RSZoomButtons;
|
||||||
|
ccbPreviewOptions.Items[3] := RSPageOrientationButtons;
|
||||||
|
ccbPreviewOptions.Items[4] := RSPageMarginsButtons;
|
||||||
|
ccbPreviewOptions.Items[5] := RSHeaderFooterButton;
|
||||||
|
ccbPreviewOptions.Items[6] := RSPrintOrderButtons;
|
||||||
|
ccbPreviewOptions.ItemIndex := idx2;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@ -0,0 +1,92 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="MultiLanguage_Demo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N Value="True"/>
|
||||||
|
<OutDir Value="..\..\languages"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="Printer4Lazarus"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="GridPrinterPkg"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="multilanguage_demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="MainForm"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="multilanguage_demo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,26 @@
|
|||||||
|
program MultiLanguage_Demo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, Main, printer4lazarus
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Title:='MultiLanguage_Demo';
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TMainForm, MainForm);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
72
components/gridprinter/examples/stringgrid/main.lfm
Normal file
72
components/gridprinter/examples/stringgrid/main.lfm
Normal file
@ -0,0 +1,72 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 331
|
||||||
|
Height = 494
|
||||||
|
Top = 127
|
||||||
|
Width = 653
|
||||||
|
Caption = 'StringGrid Demo for TGridPrinter'
|
||||||
|
ClientHeight = 494
|
||||||
|
ClientWidth = 653
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object StringGrid1: TStringGrid
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = Owner
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
AnchorSideBottom.Control = btnPrint
|
||||||
|
Left = 6
|
||||||
|
Height = 451
|
||||||
|
Top = 6
|
||||||
|
Width = 641
|
||||||
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
ColCount = 6
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goCellEllipsis]
|
||||||
|
RowCount = 6
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object btnPrint: TButton
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideBottom.Control = Owner
|
||||||
|
AnchorSideBottom.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 25
|
||||||
|
Top = 463
|
||||||
|
Width = 60
|
||||||
|
Anchors = [akLeft, akBottom]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Print...'
|
||||||
|
OnClick = btnPrintClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object btnPreview: TButton
|
||||||
|
AnchorSideLeft.Control = btnPrint
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = btnPrint
|
||||||
|
Left = 72
|
||||||
|
Height = 25
|
||||||
|
Top = 463
|
||||||
|
Width = 76
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Left = 6
|
||||||
|
Caption = 'Preview...'
|
||||||
|
OnClick = btnPreviewClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object GridPrinter1: TGridPrinter
|
||||||
|
Grid = StringGrid1
|
||||||
|
Footer.Font.Height = -11
|
||||||
|
Header.Font.Height = -11
|
||||||
|
Header.Text = 'test||'
|
||||||
|
Orientation = poLandscape
|
||||||
|
PrintDialogs = gpdPrintDialog
|
||||||
|
Left = 168
|
||||||
|
Top = 96
|
||||||
|
end
|
||||||
|
object GridPrintPreviewDialog1: TGridPrintPreviewDialog
|
||||||
|
GridPrinter = GridPrinter1
|
||||||
|
Left = 288
|
||||||
|
Top = 96
|
||||||
|
end
|
||||||
|
end
|
||||||
80
components/gridprinter/examples/stringgrid/main.pas
Normal file
80
components/gridprinter/examples/stringgrid/main.pas
Normal file
@ -0,0 +1,80 @@
|
|||||||
|
unit main;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls,
|
||||||
|
ComboEx,
|
||||||
|
PrintersDlgs, GridPrn, GridPrnPreviewForm, GridPrnPreviewDlg;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
btnPrint: TButton;
|
||||||
|
btnPreview: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
GridPrinter1: TGridPrinter;
|
||||||
|
GridPrintPreviewDialog1: TGridPrintPreviewDialog;
|
||||||
|
PageSetupDialog1: TPageSetupDialog;
|
||||||
|
PrinterSetupDialog1: TPrinterSetupDialog;
|
||||||
|
StringGrid1: TStringGrid;
|
||||||
|
procedure btnPrintClick(Sender: TObject);
|
||||||
|
procedure btnPreviewClick(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
|
||||||
|
public
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.btnPrintClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
GridPrinter1.Print;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.btnPreviewClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
GridPrintPreviewDialog1.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Populate the string grid with dummy to have something for printing.
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
const
|
||||||
|
NUM_ROWS = 100;
|
||||||
|
NUM_COLS = 20;
|
||||||
|
var
|
||||||
|
r, c: Integer;
|
||||||
|
begin
|
||||||
|
StringGrid1.BeginUpdate;
|
||||||
|
try
|
||||||
|
StringGrid1.Clear;
|
||||||
|
StringGrid1.RowCount := NUM_ROWS + StringGrid1.FixedRows;
|
||||||
|
StringGrid1.ColCount := NUM_COLS + StringGrid1.FixedCols;
|
||||||
|
for r := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
|
||||||
|
StringGrid1.Cells[0, r] := 'Row ' + IntToStr(r);
|
||||||
|
for c := StringGrid1.FixedCols to StringGrid1.ColCount-1 do
|
||||||
|
begin
|
||||||
|
StringGrid1.Cells[c, 0] := 'Column ' + IntToStr(c);
|
||||||
|
for r := StringGrid1.FixedRows to StringGrid1.RowCount-1 do
|
||||||
|
StringGrid1.cells[c, r] := Format('C%d R%d', [c, r]);
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
StringGrid1.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@ -0,0 +1,92 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="12"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<General>
|
||||||
|
<Flags>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
</Flags>
|
||||||
|
<SessionStorage Value="InProjectDir"/>
|
||||||
|
<Title Value="stringgrid_demo"/>
|
||||||
|
<Scaled Value="True"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<XPManifest>
|
||||||
|
<DpiAware Value="True"/>
|
||||||
|
</XPManifest>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<BuildModes Count="1">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<FormatVersion Value="2"/>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="Printer4Lazarus"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="GridPrinterPkg"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="2">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="stringgrid_demo.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="main.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<HasResources Value="True"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
</Unit1>
|
||||||
|
</Units>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="stringgrid_demo"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Debugging>
|
||||||
|
<DebugInfoType Value="dsDwarf3"/>
|
||||||
|
</Debugging>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
@ -0,0 +1,25 @@
|
|||||||
|
program stringgrid_demo;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF HASAMIGA}
|
||||||
|
athreads,
|
||||||
|
{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, main, printer4lazarus
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource:=True;
|
||||||
|
Application.Scaled:=True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
64
components/gridprinter/gridprinterpkg.lpk
Normal file
64
components/gridprinter/gridprinterpkg.lpk
Normal file
@ -0,0 +1,64 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<CONFIG>
|
||||||
|
<Package Version="5">
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<Name Value="GridPrinterPkg"/>
|
||||||
|
<Type Value="RunAndDesignTime"/>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="11"/>
|
||||||
|
<PathDelim Value="\"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<OtherUnitFiles Value="source"/>
|
||||||
|
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Files Count="6">
|
||||||
|
<Item1>
|
||||||
|
<Filename Value="source\gridprnheaderfooterform.pas"/>
|
||||||
|
<UnitName Value="GridPrnHeaderFooterForm"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Filename Value="source\gridprn.pas"/>
|
||||||
|
<UnitName Value="GridPrn"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Filename Value="source\gridprnpreviewform.pas"/>
|
||||||
|
<UnitName Value="GridPrnPreviewForm"/>
|
||||||
|
</Item3>
|
||||||
|
<Item4>
|
||||||
|
<Filename Value="source\gridprnreg.pas"/>
|
||||||
|
<HasRegisterProc Value="True"/>
|
||||||
|
<UnitName Value="GridPrnReg"/>
|
||||||
|
</Item4>
|
||||||
|
<Item5>
|
||||||
|
<Filename Value="source\gridprnpreviewdlg.pas"/>
|
||||||
|
<UnitName Value="GridPrnPreviewDlg"/>
|
||||||
|
</Item5>
|
||||||
|
<Item6>
|
||||||
|
<Filename Value="source\gridprnstrings.pas"/>
|
||||||
|
<UnitName Value="GridPrnStrings"/>
|
||||||
|
</Item6>
|
||||||
|
</Files>
|
||||||
|
<CompatibilityMode Value="True"/>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N Value="True"/>
|
||||||
|
<OutDir Value="languages"/>
|
||||||
|
<EnableI18NForLFM Value="True"/>
|
||||||
|
</i18n>
|
||||||
|
<RequiredPkgs Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="Printer4Lazarus"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPkgs>
|
||||||
|
<UsageOptions>
|
||||||
|
<UnitPath Value="$(PkgOutDir)"/>
|
||||||
|
</UsageOptions>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<UseFileFilters Value="True"/>
|
||||||
|
</PublishOptions>
|
||||||
|
</Package>
|
||||||
|
</CONFIG>
|
||||||
23
components/gridprinter/gridprinterpkg.pas
Normal file
23
components/gridprinter/gridprinterpkg.pas
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
{ This file was automatically created by Lazarus. Do not edit!
|
||||||
|
This source is only used to compile and install the package.
|
||||||
|
}
|
||||||
|
|
||||||
|
unit GridPrinterPkg;
|
||||||
|
|
||||||
|
{$warn 5023 off : no warning about unused units}
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
GridPrnHeaderFooterForm, GridPrn, GridPrnPreviewForm, GridPrnReg,
|
||||||
|
GridPrnPreviewDlg, GridPrnStrings, LazarusPackageIntf;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterUnit('GridPrnReg', @GridPrnReg.Register);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterPackage('GridPrinterPkg', @Register);
|
||||||
|
end.
|
||||||
BIN
components/gridprinter/images/TGridPrintPreviewDialog.png
Normal file
BIN
components/gridprinter/images/TGridPrintPreviewDialog.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 855 B |
BIN
components/gridprinter/images/TGridPrintPreviewDialog_150.png
Normal file
BIN
components/gridprinter/images/TGridPrintPreviewDialog_150.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.4 KiB |
BIN
components/gridprinter/images/TGridPrintPreviewDialog_200.png
Normal file
BIN
components/gridprinter/images/TGridPrintPreviewDialog_200.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
BIN
components/gridprinter/images/TGridPrinter.png
Normal file
BIN
components/gridprinter/images/TGridPrinter.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 542 B |
BIN
components/gridprinter/images/TGridPrinter_150.png
Normal file
BIN
components/gridprinter/images/TGridPrinter_150.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 782 B |
BIN
components/gridprinter/images/TGridPrinter_200.png
Normal file
BIN
components/gridprinter/images/TGridPrinter_200.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 740 B |
3
components/gridprinter/images/make_res.bat
Normal file
3
components/gridprinter/images/make_res.bat
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
dir /b *.png > imagelist.txt
|
||||||
|
lazres ..\source\gridprinter_icons.res @imagelist.txt
|
||||||
|
del /q imagelist.txt
|
||||||
181
components/gridprinter/languages/gridprnstrings.de.po
Normal file
181
components/gridprinter/languages/gridprnstrings.de.po
Normal file
@ -0,0 +1,181 @@
|
|||||||
|
msgid ""
|
||||||
|
msgstr ""
|
||||||
|
"Project-Id-Version: GridPrinter\n"
|
||||||
|
"POT-Creation-Date: \n"
|
||||||
|
"PO-Revision-Date: \n"
|
||||||
|
"Last-Translator: \n"
|
||||||
|
"Language-Team: \n"
|
||||||
|
"Language: de\n"
|
||||||
|
"MIME-Version: 1.0\n"
|
||||||
|
"Content-Type: text/plain; charset=UTF-8\n"
|
||||||
|
"Content-Transfer-Encoding: 8bit\n"
|
||||||
|
"X-Generator: Poedit 3.1.1\n"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsbottommargin
|
||||||
|
msgid "Bottom margin"
|
||||||
|
msgstr "Unterer Rand"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsclose
|
||||||
|
msgid "Close"
|
||||||
|
msgstr "Schließen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfont
|
||||||
|
msgid "Font"
|
||||||
|
msgstr "Schriftart"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfooter
|
||||||
|
msgid "Footer"
|
||||||
|
msgstr "Fußzeile"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfootermargin
|
||||||
|
msgid "Footer margin"
|
||||||
|
msgstr "Fußzeilen-Rand"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheader
|
||||||
|
msgid "Header"
|
||||||
|
msgstr "Kopfzeile"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheaderfooterconfig
|
||||||
|
msgid "Header/footer configuration"
|
||||||
|
msgstr "Kopf/Fußzeilen-Konfiguration"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheaderfootersectionparameterinfo
|
||||||
|
msgid ""
|
||||||
|
"Each section can contain the following parameters:\n"
|
||||||
|
" $DATE - Current date\n"
|
||||||
|
" $TIME - Current time\n"
|
||||||
|
" $PAGE - Page number\n"
|
||||||
|
" $PAGECOUNT - Number of pages\n"
|
||||||
|
" $FULL_FILENAME - Full name of the printed file\n"
|
||||||
|
" $FILENAME - Name of the printed file, without path\n"
|
||||||
|
" $PATH - Path of the printed file"
|
||||||
|
msgstr ""
|
||||||
|
"Jeder Abschnitt kann die folgenden Parameter enthalten\n"
|
||||||
|
" $DATE - Aktuelles Datum\n"
|
||||||
|
" $TIME - Aktuelle Uhrzeit\n"
|
||||||
|
" $PAGE - Seitennummer\n"
|
||||||
|
" $PAGECOUNT - Seitenanzahl\n"
|
||||||
|
" $FULL_FILENAME - Voller Name der zu druckenden Datei\n"
|
||||||
|
" $FILENAME - Name der zu druckenden Datei ohne Pfad\n"
|
||||||
|
" $PATH - Pfad der zu druckenden Datei"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheadermargin
|
||||||
|
msgid "Header margin"
|
||||||
|
msgstr "Kopfzeilen-Rand"
|
||||||
|
|
||||||
|
#: gridprnstrings.rslandscapepageorientation
|
||||||
|
msgid "Landscape page orientation"
|
||||||
|
msgstr "Seite im Querformat"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsleftmargin
|
||||||
|
msgid "Left margin"
|
||||||
|
msgstr "Linker Rand"
|
||||||
|
|
||||||
|
#: gridprnstrings.rslinecolor
|
||||||
|
msgid "Line color"
|
||||||
|
msgstr "Linienfarbe"
|
||||||
|
|
||||||
|
#: gridprnstrings.rslinewidthmm
|
||||||
|
msgid "Line width (mm)"
|
||||||
|
msgstr "Linienbreite (mm)"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsoriginalsize
|
||||||
|
msgid "Original size (100%)"
|
||||||
|
msgstr "Originalgröße (100%)"
|
||||||
|
|
||||||
|
#: gridprnstrings.rspageandzoominfo
|
||||||
|
#, object-pascal-format
|
||||||
|
msgid "Page %d of %d, Zoom %d %%"
|
||||||
|
msgstr "Seite %d von %d, Skalierung %d %%"
|
||||||
|
|
||||||
|
#: gridprnstrings.rspagemarginsconfig
|
||||||
|
msgid "Page margins configuration"
|
||||||
|
msgstr "Einstellung der Seitenränder"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsportraitpageorientation
|
||||||
|
msgid "Portrait page orientation"
|
||||||
|
msgstr "Seite im Hochformat"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprint
|
||||||
|
msgid "Print"
|
||||||
|
msgstr "Drucken"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintcolsfirst
|
||||||
|
msgid ""
|
||||||
|
"First print columns from top to bottom,\n"
|
||||||
|
"then print from left to right"
|
||||||
|
msgstr ""
|
||||||
|
"Seiten zuerst entlang der Spalten von oben nach unten,\n"
|
||||||
|
"dann von links nach rechts drucken"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintpreview
|
||||||
|
msgid "Print Preview"
|
||||||
|
msgstr "Druckvorschau"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintrowsfirst
|
||||||
|
msgid ""
|
||||||
|
"First print rows from left to right,\n"
|
||||||
|
"then print from top to bottom"
|
||||||
|
msgstr ""
|
||||||
|
"Seiten zuerst entlang der Zeilen von links nach rechts,\n"
|
||||||
|
"dann von oben nach unten drucken"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsrightmargin
|
||||||
|
msgid "Right margin"
|
||||||
|
msgstr "Rechter Rand"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshow
|
||||||
|
msgid "Show"
|
||||||
|
msgstr "Anzeigen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowdividingline
|
||||||
|
msgid "Show dividing line"
|
||||||
|
msgstr "Trennlinie anzeigen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowfirstpage
|
||||||
|
msgid "Show first page"
|
||||||
|
msgstr "Erste Seite anzeigen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowlastpage
|
||||||
|
msgid "Show last page"
|
||||||
|
msgstr "Letzte Seite anzeigen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshownextpage
|
||||||
|
msgid "Show next page"
|
||||||
|
msgstr "Nächste Seite anzeigen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowprevpage
|
||||||
|
msgid "Show previous page"
|
||||||
|
msgstr "Vorige Seite anzeigen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextincenteredsection
|
||||||
|
msgid "Text in centered section"
|
||||||
|
msgstr "Zentrierter Text"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextinleftalignedsection
|
||||||
|
msgid "Text in left-aligned section"
|
||||||
|
msgstr "Linksbündiger Text"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextinrightalignedsection
|
||||||
|
msgid "Text in right-aligned section"
|
||||||
|
msgstr "Rechtsbündiger Text"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstopmargin
|
||||||
|
msgid "Top margin"
|
||||||
|
msgstr "Oberer Rand"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomin
|
||||||
|
msgid "Zoom in"
|
||||||
|
msgstr "Vergrößern"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomout
|
||||||
|
msgid "Zoom out"
|
||||||
|
msgstr "Verkleinern"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomtofitpageheight
|
||||||
|
msgid "Zoom to fit page height"
|
||||||
|
msgstr "Vergrößerung auf Seitenbreite einstellen"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomtofitpagewidth
|
||||||
|
msgid "Zoom to fit page width"
|
||||||
|
msgstr "Vergrößerung auf Seitenhöhe einstellen"
|
||||||
181
components/gridprinter/languages/gridprnstrings.en.po
Normal file
181
components/gridprinter/languages/gridprnstrings.en.po
Normal file
@ -0,0 +1,181 @@
|
|||||||
|
msgid ""
|
||||||
|
msgstr ""
|
||||||
|
"Project-Id-Version: GridPrinter\n"
|
||||||
|
"POT-Creation-Date: \n"
|
||||||
|
"PO-Revision-Date: \n"
|
||||||
|
"Last-Translator: \n"
|
||||||
|
"Language-Team: \n"
|
||||||
|
"Language: en\n"
|
||||||
|
"MIME-Version: 1.0\n"
|
||||||
|
"Content-Type: text/plain; charset=UTF-8\n"
|
||||||
|
"Content-Transfer-Encoding: 8bit\n"
|
||||||
|
"X-Generator: Poedit 3.1.1\n"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsbottommargin
|
||||||
|
msgid "Bottom margin"
|
||||||
|
msgstr "Bottom margin"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsclose
|
||||||
|
msgid "Close"
|
||||||
|
msgstr "Close"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfont
|
||||||
|
msgid "Font"
|
||||||
|
msgstr "Font"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfooter
|
||||||
|
msgid "Footer"
|
||||||
|
msgstr "Footer"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfootermargin
|
||||||
|
msgid "Footer margin"
|
||||||
|
msgstr "Footer margin"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheader
|
||||||
|
msgid "Header"
|
||||||
|
msgstr "Header"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheaderfooterconfig
|
||||||
|
msgid "Header/footer configuration"
|
||||||
|
msgstr "Header/footer configuration"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheaderfootersectionparameterinfo
|
||||||
|
msgid ""
|
||||||
|
"Each section can contain the following parameters:\n"
|
||||||
|
" $DATE - Current date\n"
|
||||||
|
" $TIME - Current time\n"
|
||||||
|
" $PAGE - Page number\n"
|
||||||
|
" $PAGECOUNT - Number of pages\n"
|
||||||
|
" $FULL_FILENAME - Full name of the printed file\n"
|
||||||
|
" $FILENAME - Name of the printed file, without path\n"
|
||||||
|
" $PATH - Path of the printed file"
|
||||||
|
msgstr ""
|
||||||
|
"Each section can contain the following parameters:\n"
|
||||||
|
" $DATE - Current date\n"
|
||||||
|
" $TIME - Current time\n"
|
||||||
|
" $PAGE - Page number\n"
|
||||||
|
" $PAGECOUNT - Number of pages\n"
|
||||||
|
" $FULL_FILENAME - Full name of the printed file\n"
|
||||||
|
" $FILENAME - Name of the printed file, without path\n"
|
||||||
|
" $PATH - Path of the printed file"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheadermargin
|
||||||
|
msgid "Header margin"
|
||||||
|
msgstr "Header margin"
|
||||||
|
|
||||||
|
#: gridprnstrings.rslandscapepageorientation
|
||||||
|
msgid "Landscape page orientation"
|
||||||
|
msgstr "Landscape page orientation"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsleftmargin
|
||||||
|
msgid "Left margin"
|
||||||
|
msgstr "Left margin"
|
||||||
|
|
||||||
|
#: gridprnstrings.rslinecolor
|
||||||
|
msgid "Line color"
|
||||||
|
msgstr "Line color"
|
||||||
|
|
||||||
|
#: gridprnstrings.rslinewidthmm
|
||||||
|
msgid "Line width (mm)"
|
||||||
|
msgstr "Line width (mm)"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsoriginalsize
|
||||||
|
msgid "Original size (100%)"
|
||||||
|
msgstr "Original size (100%)"
|
||||||
|
|
||||||
|
#: gridprnstrings.rspageandzoominfo
|
||||||
|
#, object-pascal-format
|
||||||
|
msgid "Page %d of %d, Zoom %d %%"
|
||||||
|
msgstr "Page %d of %d, Zoom %d %%"
|
||||||
|
|
||||||
|
#: gridprnstrings.rspagemarginsconfig
|
||||||
|
msgid "Page margins configuration"
|
||||||
|
msgstr "Page margins configuration"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsportraitpageorientation
|
||||||
|
msgid "Portrait page orientation"
|
||||||
|
msgstr "Portrait page orientation"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprint
|
||||||
|
msgid "Print"
|
||||||
|
msgstr "Print"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintcolsfirst
|
||||||
|
msgid ""
|
||||||
|
"First print columns from top to bottom,\n"
|
||||||
|
"then print from left to right"
|
||||||
|
msgstr ""
|
||||||
|
"First print columns from top to bottom,\n"
|
||||||
|
"then print from left to right"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintpreview
|
||||||
|
msgid "Print Preview"
|
||||||
|
msgstr "Print Preview"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintrowsfirst
|
||||||
|
msgid ""
|
||||||
|
"First print rows from left to right,\n"
|
||||||
|
"then print from top to bottom"
|
||||||
|
msgstr ""
|
||||||
|
"First print rows from left to right,\n"
|
||||||
|
"then print from top to bottom"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsrightmargin
|
||||||
|
msgid "Right margin"
|
||||||
|
msgstr "Right margin"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshow
|
||||||
|
msgid "Show"
|
||||||
|
msgstr "Show"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowdividingline
|
||||||
|
msgid "Show dividing line"
|
||||||
|
msgstr "Show dividing line"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowfirstpage
|
||||||
|
msgid "Show first page"
|
||||||
|
msgstr "Show first page"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowlastpage
|
||||||
|
msgid "Show last page"
|
||||||
|
msgstr "Show last page"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshownextpage
|
||||||
|
msgid "Show next page"
|
||||||
|
msgstr "Show next page"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowprevpage
|
||||||
|
msgid "Show previous page"
|
||||||
|
msgstr "Show previous page"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextincenteredsection
|
||||||
|
msgid "Text in centered section"
|
||||||
|
msgstr "Text in centered section"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextinleftalignedsection
|
||||||
|
msgid "Text in left-aligned section"
|
||||||
|
msgstr "Text in left-aligned section"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextinrightalignedsection
|
||||||
|
msgid "Text in right-aligned section"
|
||||||
|
msgstr "Text in right-aligned section"
|
||||||
|
|
||||||
|
#: gridprnstrings.rstopmargin
|
||||||
|
msgid "Top margin"
|
||||||
|
msgstr "Top margin"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomin
|
||||||
|
msgid "Zoom in"
|
||||||
|
msgstr "Zoom in"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomout
|
||||||
|
msgid "Zoom out"
|
||||||
|
msgstr "Zoom out"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomtofitpageheight
|
||||||
|
msgid "Zoom to fit page height"
|
||||||
|
msgstr "Zoom to fit page height"
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomtofitpagewidth
|
||||||
|
msgid "Zoom to fit page width"
|
||||||
|
msgstr "Zoom to fit page width"
|
||||||
160
components/gridprinter/languages/gridprnstrings.pot
Normal file
160
components/gridprinter/languages/gridprnstrings.pot
Normal file
@ -0,0 +1,160 @@
|
|||||||
|
msgid ""
|
||||||
|
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||||
|
|
||||||
|
#: gridprnstrings.rsbottommargin
|
||||||
|
msgid "Bottom margin"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsclose
|
||||||
|
msgid "Close"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfont
|
||||||
|
msgid "Font"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfooter
|
||||||
|
msgid "Footer"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsfootermargin
|
||||||
|
msgid "Footer margin"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheader
|
||||||
|
msgid "Header"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheaderfooterconfig
|
||||||
|
msgid "Header/footer configuration"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheaderfootersectionparameterinfo
|
||||||
|
msgid ""
|
||||||
|
"Each section can contain the following parameters:\n"
|
||||||
|
" $DATE - Current date\n"
|
||||||
|
" $TIME - Current time\n"
|
||||||
|
" $PAGE - Page number\n"
|
||||||
|
" $PAGECOUNT - Number of pages\n"
|
||||||
|
" $FULL_FILENAME - Full name of the printed file\n"
|
||||||
|
" $FILENAME - Name of the printed file, without path\n"
|
||||||
|
" $PATH - Path of the printed file"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsheadermargin
|
||||||
|
msgid "Header margin"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rslandscapepageorientation
|
||||||
|
msgid "Landscape page orientation"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsleftmargin
|
||||||
|
msgid "Left margin"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rslinecolor
|
||||||
|
msgid "Line color"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rslinewidthmm
|
||||||
|
msgid "Line width (mm)"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsoriginalsize
|
||||||
|
msgid "Original size (100%)"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rspageandzoominfo
|
||||||
|
#, object-pascal-format
|
||||||
|
msgid "Page %d of %d, Zoom %d %%"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rspagemarginsconfig
|
||||||
|
msgid "Page margins configuration"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsportraitpageorientation
|
||||||
|
msgid "Portrait page orientation"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprint
|
||||||
|
msgid "Print"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintcolsfirst
|
||||||
|
msgid ""
|
||||||
|
"First print columns from top to bottom,\n"
|
||||||
|
"then print from left to right"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintpreview
|
||||||
|
msgid "Print Preview"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsprintrowsfirst
|
||||||
|
msgid ""
|
||||||
|
"First print rows from left to right,\n"
|
||||||
|
"then print from top to bottom"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsrightmargin
|
||||||
|
msgid "Right margin"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshow
|
||||||
|
msgid "Show"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowdividingline
|
||||||
|
msgid "Show dividing line"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowfirstpage
|
||||||
|
msgid "Show first page"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowlastpage
|
||||||
|
msgid "Show last page"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshownextpage
|
||||||
|
msgid "Show next page"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rsshowprevpage
|
||||||
|
msgid "Show previous page"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextincenteredsection
|
||||||
|
msgid "Text in centered section"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextinleftalignedsection
|
||||||
|
msgid "Text in left-aligned section"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rstextinrightalignedsection
|
||||||
|
msgid "Text in right-aligned section"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rstopmargin
|
||||||
|
msgid "Top margin"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomin
|
||||||
|
msgid "Zoom in"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomout
|
||||||
|
msgid "Zoom out"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomtofitpageheight
|
||||||
|
msgid "Zoom to fit page height"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: gridprnstrings.rszoomtofitpagewidth
|
||||||
|
msgid "Zoom to fit page width"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
69
components/gridprinter/languages/multilanguage_demo.de.po
Normal file
69
components/gridprinter/languages/multilanguage_demo.de.po
Normal file
@ -0,0 +1,69 @@
|
|||||||
|
msgid ""
|
||||||
|
msgstr ""
|
||||||
|
"Project-Id-Version: \n"
|
||||||
|
"POT-Creation-Date: \n"
|
||||||
|
"PO-Revision-Date: \n"
|
||||||
|
"Last-Translator: \n"
|
||||||
|
"Language-Team: \n"
|
||||||
|
"Language: de\n"
|
||||||
|
"MIME-Version: 1.0\n"
|
||||||
|
"Content-Type: text/plain; charset=UTF-8\n"
|
||||||
|
"Content-Transfer-Encoding: 8bit\n"
|
||||||
|
"X-Generator: Poedit 3.1.1\n"
|
||||||
|
|
||||||
|
#: main.rsheaderfooterbutton
|
||||||
|
msgid "Header/footer button"
|
||||||
|
msgstr "Schalter für Kopf-/Fußzeile"
|
||||||
|
|
||||||
|
#: main.rsnavigationbuttons
|
||||||
|
msgid "Navigation buttons"
|
||||||
|
msgstr "Seitenwahl-Schalter"
|
||||||
|
|
||||||
|
#: main.rsnavigationedit
|
||||||
|
msgid "Navigation edit"
|
||||||
|
msgstr "Eingabe der Seitennummer"
|
||||||
|
|
||||||
|
#: main.rsnoprinterdialog
|
||||||
|
msgid "No printer dialog"
|
||||||
|
msgstr "Kein Dialog"
|
||||||
|
|
||||||
|
#: main.rspagemarginsbuttons
|
||||||
|
msgid "Page margins button"
|
||||||
|
msgstr "Schalter für Seitenränder"
|
||||||
|
|
||||||
|
#: main.rspageorientationbuttons
|
||||||
|
msgid "Page orientation buttons"
|
||||||
|
msgstr "Schalter für Seitenausrichtung"
|
||||||
|
|
||||||
|
#: main.rspagesetupdialog
|
||||||
|
msgid "Page-setup dialog"
|
||||||
|
msgstr "Seiteneinrichtungs-Dialog"
|
||||||
|
|
||||||
|
#: main.rsprinterdialog
|
||||||
|
msgid "Printer dialog"
|
||||||
|
msgstr "Drucker-Dialog"
|
||||||
|
|
||||||
|
#: main.rsprintorderbuttons
|
||||||
|
msgid "Print order: colums first or rows first"
|
||||||
|
msgstr "Druckreihenfolge: Spalten oder Zeilen zuerst"
|
||||||
|
|
||||||
|
#: main.rszoombuttons
|
||||||
|
msgid "Zoom buttons"
|
||||||
|
msgstr "Schalter für Vergrößerung"
|
||||||
|
|
||||||
|
#: tmainform.btnpreview.caption
|
||||||
|
msgid "Preview..."
|
||||||
|
msgstr "Druckvorschau..."
|
||||||
|
|
||||||
|
#: tmainform.btnprint.caption
|
||||||
|
msgid "Print..."
|
||||||
|
msgstr "Drucken..."
|
||||||
|
|
||||||
|
#: tmainform.caption
|
||||||
|
msgid "Multi-Language Demonstration of TGridPrinter"
|
||||||
|
msgstr "Mehrsprachige Demonstration von TGridPrinter"
|
||||||
|
|
||||||
|
#: tmainform.label1.caption
|
||||||
|
msgid "Language:"
|
||||||
|
msgstr "Sprache:"
|
||||||
|
|
||||||
69
components/gridprinter/languages/multilanguage_demo.en.po
Normal file
69
components/gridprinter/languages/multilanguage_demo.en.po
Normal file
@ -0,0 +1,69 @@
|
|||||||
|
msgid ""
|
||||||
|
msgstr ""
|
||||||
|
"Project-Id-Version: \n"
|
||||||
|
"POT-Creation-Date: \n"
|
||||||
|
"PO-Revision-Date: \n"
|
||||||
|
"Last-Translator: \n"
|
||||||
|
"Language-Team: \n"
|
||||||
|
"Language: en\n"
|
||||||
|
"MIME-Version: 1.0\n"
|
||||||
|
"Content-Type: text/plain; charset=UTF-8\n"
|
||||||
|
"Content-Transfer-Encoding: 8bit\n"
|
||||||
|
"X-Generator: Poedit 3.1.1\n"
|
||||||
|
|
||||||
|
#: main.rsheaderfooterbutton
|
||||||
|
msgid "Header/footer button"
|
||||||
|
msgstr "Header/footer button"
|
||||||
|
|
||||||
|
#: main.rsnavigationbuttons
|
||||||
|
msgid "Navigation buttons"
|
||||||
|
msgstr "Navigation buttons"
|
||||||
|
|
||||||
|
#: main.rsnavigationedit
|
||||||
|
msgid "Navigation edit"
|
||||||
|
msgstr "Navigation edit"
|
||||||
|
|
||||||
|
#: main.rsnoprinterdialog
|
||||||
|
msgid "No printer dialog"
|
||||||
|
msgstr "No printer dialog"
|
||||||
|
|
||||||
|
#: main.rspagemarginsbuttons
|
||||||
|
msgid "Page margins button"
|
||||||
|
msgstr "Page margins button"
|
||||||
|
|
||||||
|
#: main.rspageorientationbuttons
|
||||||
|
msgid "Page orientation buttons"
|
||||||
|
msgstr "Page orientation buttons"
|
||||||
|
|
||||||
|
#: main.rspagesetupdialog
|
||||||
|
msgid "Page-setup dialog"
|
||||||
|
msgstr "Page-setup dialog"
|
||||||
|
|
||||||
|
#: main.rsprinterdialog
|
||||||
|
msgid "Printer dialog"
|
||||||
|
msgstr "Printer dialog"
|
||||||
|
|
||||||
|
#: main.rsprintorderbuttons
|
||||||
|
msgid "Print order: colums first or rows first"
|
||||||
|
msgstr "Print order: colums first or rows first"
|
||||||
|
|
||||||
|
#: main.rszoombuttons
|
||||||
|
msgid "Zoom buttons"
|
||||||
|
msgstr "Zoom buttons"
|
||||||
|
|
||||||
|
#: tmainform.btnpreview.caption
|
||||||
|
msgid "Preview..."
|
||||||
|
msgstr "Preview..."
|
||||||
|
|
||||||
|
#: tmainform.btnprint.caption
|
||||||
|
msgid "Print..."
|
||||||
|
msgstr "Print..."
|
||||||
|
|
||||||
|
#: tmainform.caption
|
||||||
|
msgid "Multi-Language Demonstration of TGridPrinter"
|
||||||
|
msgstr "Multi-Language Demonstration of TGridPrinter"
|
||||||
|
|
||||||
|
#: tmainform.label1.caption
|
||||||
|
msgid "Language:"
|
||||||
|
msgstr "Language:"
|
||||||
|
|
||||||
59
components/gridprinter/languages/multilanguage_demo.pot
Normal file
59
components/gridprinter/languages/multilanguage_demo.pot
Normal file
@ -0,0 +1,59 @@
|
|||||||
|
msgid ""
|
||||||
|
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||||
|
|
||||||
|
#: main.rsheaderfooterbutton
|
||||||
|
msgid "Header/footer button"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rsnavigationbuttons
|
||||||
|
msgid "Navigation buttons"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rsnavigationedit
|
||||||
|
msgid "Navigation edit"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rsnoprinterdialog
|
||||||
|
msgid "No printer dialog"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rspagemarginsbuttons
|
||||||
|
msgid "Page margins button"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rspageorientationbuttons
|
||||||
|
msgid "Page orientation buttons"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rspagesetupdialog
|
||||||
|
msgid "Page-setup dialog"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rsprinterdialog
|
||||||
|
msgid "Printer dialog"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rsprintorderbuttons
|
||||||
|
msgid "Print order: colums first or rows first"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: main.rszoombuttons
|
||||||
|
msgid "Zoom buttons"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: tmainform.btnpreview.caption
|
||||||
|
msgid "Preview..."
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: tmainform.btnprint.caption
|
||||||
|
msgid "Print..."
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: tmainform.caption
|
||||||
|
msgid "Multi-Language Demonstration of TGridPrinter"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
|
#: tmainform.label1.caption
|
||||||
|
msgid "Language:"
|
||||||
|
msgstr ""
|
||||||
|
|
||||||
BIN
components/gridprinter/source/gridprinter_icons.res
Normal file
BIN
components/gridprinter/source/gridprinter_icons.res
Normal file
Binary file not shown.
1638
components/gridprinter/source/gridprn.pas
Normal file
1638
components/gridprinter/source/gridprn.pas
Normal file
File diff suppressed because it is too large
Load Diff
222
components/gridprinter/source/gridprnheaderfooterform.lfm
Normal file
222
components/gridprinter/source/gridprnheaderfooterform.lfm
Normal file
@ -0,0 +1,222 @@
|
|||||||
|
object GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm
|
||||||
|
Left = 552
|
||||||
|
Height = 369
|
||||||
|
Top = 253
|
||||||
|
Width = 582
|
||||||
|
Caption = 'Header/Footer'
|
||||||
|
ClientHeight = 369
|
||||||
|
ClientWidth = 582
|
||||||
|
OnActivate = FormActivate
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object ButtonPanel1: TButtonPanel
|
||||||
|
Left = 6
|
||||||
|
Height = 34
|
||||||
|
Top = 329
|
||||||
|
Width = 570
|
||||||
|
OKButton.Name = 'OKButton'
|
||||||
|
OKButton.DefaultCaption = True
|
||||||
|
OKButton.OnClick = OKClick
|
||||||
|
HelpButton.Name = 'HelpButton'
|
||||||
|
HelpButton.DefaultCaption = True
|
||||||
|
CloseButton.Name = 'CloseButton'
|
||||||
|
CloseButton.DefaultCaption = True
|
||||||
|
CancelButton.Name = 'CancelButton'
|
||||||
|
CancelButton.DefaultCaption = True
|
||||||
|
TabOrder = 0
|
||||||
|
ShowButtons = [pbOK, pbCancel]
|
||||||
|
end
|
||||||
|
object TabControl: TTabControl
|
||||||
|
Left = 6
|
||||||
|
Height = 317
|
||||||
|
Top = 6
|
||||||
|
Width = 570
|
||||||
|
OnChange = TabControlChange
|
||||||
|
OnChanging = TabControlChanging
|
||||||
|
TabIndex = 0
|
||||||
|
Tabs.Strings = (
|
||||||
|
'Header'
|
||||||
|
'Footer'
|
||||||
|
)
|
||||||
|
Align = alClient
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
TabOrder = 1
|
||||||
|
object edTextLeft: TEdit
|
||||||
|
AnchorSideLeft.Control = cbShow
|
||||||
|
AnchorSideTop.Control = cbShow
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = Bevel1
|
||||||
|
Left = 10
|
||||||
|
Height = 23
|
||||||
|
Top = 58
|
||||||
|
Width = 176
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Constraints.MinWidth = 125
|
||||||
|
TabOrder = 1
|
||||||
|
TextHint = 'Text in left-aligned section'
|
||||||
|
end
|
||||||
|
object edTextCenter: TEdit
|
||||||
|
AnchorSideLeft.Control = Bevel1
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = edTextLeft
|
||||||
|
AnchorSideRight.Control = Bevel2
|
||||||
|
Left = 194
|
||||||
|
Height = 23
|
||||||
|
Top = 58
|
||||||
|
Width = 185
|
||||||
|
Alignment = taCenter
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
Constraints.MinWidth = 125
|
||||||
|
TabOrder = 2
|
||||||
|
TextHint = 'Text in centered section'
|
||||||
|
end
|
||||||
|
object edTextRight: TEdit
|
||||||
|
AnchorSideLeft.Control = Bevel2
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = edTextLeft
|
||||||
|
AnchorSideRight.Control = TabControl
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 387
|
||||||
|
Height = 23
|
||||||
|
Top = 58
|
||||||
|
Width = 173
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Right = 8
|
||||||
|
Constraints.MinWidth = 125
|
||||||
|
TabOrder = 3
|
||||||
|
TextHint = 'Text in right-aligned section'
|
||||||
|
end
|
||||||
|
object cbShow: TCheckBox
|
||||||
|
AnchorSideLeft.Control = TabControl
|
||||||
|
AnchorSideTop.Control = TabControl
|
||||||
|
Left = 10
|
||||||
|
Height = 19
|
||||||
|
Top = 31
|
||||||
|
Width = 47
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
Caption = 'Show'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
Left = 186
|
||||||
|
Height = 51
|
||||||
|
Top = 31
|
||||||
|
Width = 8
|
||||||
|
Anchors = [akTop]
|
||||||
|
Shape = bsSpacer
|
||||||
|
end
|
||||||
|
object Bevel2: TBevel
|
||||||
|
Left = 379
|
||||||
|
Height = 59
|
||||||
|
Top = 24
|
||||||
|
Width = 8
|
||||||
|
Anchors = [akTop]
|
||||||
|
Shape = bsSpacer
|
||||||
|
end
|
||||||
|
object btnFont: TButton
|
||||||
|
AnchorSideLeft.Control = cbShow
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbShow
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 89
|
||||||
|
Height = 25
|
||||||
|
Top = 28
|
||||||
|
Width = 75
|
||||||
|
BorderSpacing.Left = 32
|
||||||
|
Caption = 'Font...'
|
||||||
|
OnClick = btnFontClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Bevel3: TBevel
|
||||||
|
AnchorSideLeft.Control = edTextLeft
|
||||||
|
AnchorSideTop.Control = lblTextInfo
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = edTextRight
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 10
|
||||||
|
Height = 4
|
||||||
|
Top = 224
|
||||||
|
Width = 550
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Top = 16
|
||||||
|
Shape = bsTopLine
|
||||||
|
end
|
||||||
|
object cbShowLine: TCheckBox
|
||||||
|
AnchorSideLeft.Control = cbShow
|
||||||
|
AnchorSideTop.Control = Bevel3
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 10
|
||||||
|
Height = 19
|
||||||
|
Top = 240
|
||||||
|
Width = 115
|
||||||
|
BorderSpacing.Top = 12
|
||||||
|
Caption = 'Show dividing line'
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object lblLineWidth: TLabel
|
||||||
|
AnchorSideLeft.Control = cbShowLine
|
||||||
|
AnchorSideTop.Control = seLineWidth
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 10
|
||||||
|
Height = 15
|
||||||
|
Top = 271
|
||||||
|
Width = 88
|
||||||
|
Caption = 'Line width (mm)'
|
||||||
|
end
|
||||||
|
object seLineWidth: TFloatSpinEdit
|
||||||
|
AnchorSideLeft.Control = lblLineWidth
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = cbShowLine
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 106
|
||||||
|
Height = 23
|
||||||
|
Top = 267
|
||||||
|
Width = 64
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Left = 8
|
||||||
|
BorderSpacing.Top = 8
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
DecimalPlaces = 1
|
||||||
|
Increment = 0.1
|
||||||
|
MaxValue = 3
|
||||||
|
MinValue = 0.1
|
||||||
|
TabOrder = 7
|
||||||
|
Value = 0.1
|
||||||
|
end
|
||||||
|
object clbLineColor: TColorButton
|
||||||
|
AnchorSideLeft.Control = seLineWidth
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = seLineWidth
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 186
|
||||||
|
Height = 25
|
||||||
|
Top = 266
|
||||||
|
Width = 94
|
||||||
|
BorderSpacing.Left = 16
|
||||||
|
BorderSpacing.Bottom = 8
|
||||||
|
BorderWidth = 2
|
||||||
|
ButtonColorAutoSize = False
|
||||||
|
ButtonColorSize = 16
|
||||||
|
ButtonColor = clBlack
|
||||||
|
Caption = 'Line color'
|
||||||
|
Margin = 4
|
||||||
|
end
|
||||||
|
object lblTextInfo: TLabel
|
||||||
|
Left = 10
|
||||||
|
Height = 120
|
||||||
|
Top = 88
|
||||||
|
Width = 278
|
||||||
|
Caption = 'Each section can contain the following parameters:'#13#10' $DATE - Current date'#13#10' $TIME - Current time'#13#10' $PAGE - Page number'#13#10' $PAGECOUNT - Number of pages'#13#10' $FULL_FILENAME - Full name of the printed file'#13#10' $FILENAME - Name of the printed file, without path'#13#10' $PATH - Path of the printed file'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object FontDialog: TFontDialog
|
||||||
|
MinFontSize = 0
|
||||||
|
MaxFontSize = 0
|
||||||
|
Left = 200
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
end
|
||||||
12
components/gridprinter/source/gridprnheaderfooterform.lrj
Normal file
12
components/gridprinter/source/gridprnheaderfooterform.lrj
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
{"version":1,"strings":[
|
||||||
|
{"hash":226739922,"name":"tgridprintheaderfooterform.caption","sourcebytes":[72,101,97,100,101,114,47,70,111,111,116,101,114],"value":"Header/Footer"},
|
||||||
|
{"hash":197166558,"name":"tgridprintheaderfooterform.edtextleft.texthint","sourcebytes":[84,101,120,116,32,105,110,32,108,101,102,116,45,97,108,105,103,110,101,100,32,115,101,99,116,105,111,110],"value":"Text in left-aligned section"},
|
||||||
|
{"hash":148404254,"name":"tgridprintheaderfooterform.edtextcenter.texthint","sourcebytes":[84,101,120,116,32,105,110,32,99,101,110,116,101,114,101,100,32,115,101,99,116,105,111,110],"value":"Text in centered section"},
|
||||||
|
{"hash":219388318,"name":"tgridprintheaderfooterform.edtextright.texthint","sourcebytes":[84,101,120,116,32,105,110,32,114,105,103,104,116,45,97,108,105,103,110,101,100,32,115,101,99,116,105,111,110],"value":"Text in right-aligned section"},
|
||||||
|
{"hash":368487,"name":"tgridprintheaderfooterform.cbshow.caption","sourcebytes":[83,104,111,119],"value":"Show"},
|
||||||
|
{"hash":224751950,"name":"tgridprintheaderfooterform.btnfont.caption","sourcebytes":[70,111,110,116,46,46,46],"value":"Font..."},
|
||||||
|
{"hash":67550677,"name":"tgridprintheaderfooterform.cbshowline.caption","sourcebytes":[83,104,111,119,32,100,105,118,105,100,105,110,103,32,108,105,110,101],"value":"Show dividing line"},
|
||||||
|
{"hash":248872777,"name":"tgridprintheaderfooterform.lbllinewidth.caption","sourcebytes":[76,105,110,101,32,119,105,100,116,104,32,40,109,109,41],"value":"Line width (mm)"},
|
||||||
|
{"hash":124613410,"name":"tgridprintheaderfooterform.clblinecolor.caption","sourcebytes":[76,105,110,101,32,99,111,108,111,114],"value":"Line color"},
|
||||||
|
{"hash":107799029,"name":"tgridprintheaderfooterform.lbltextinfo.caption","sourcebytes":[69,97,99,104,32,115,101,99,116,105,111,110,32,99,97,110,32,99,111,110,116,97,105,110,32,116,104,101,32,102,111,108,108,111,119,105,110,103,32,112,97,114,97,109,101,116,101,114,115,58,13,10,32,32,36,68,65,84,69,32,45,32,67,117,114,114,101,110,116,32,100,97,116,101,13,10,32,32,36,84,73,77,69,32,45,32,67,117,114,114,101,110,116,32,116,105,109,101,13,10,32,32,36,80,65,71,69,32,45,32,80,97,103,101,32,110,117,109,98,101,114,13,10,32,32,36,80,65,71,69,67,79,85,78,84,32,45,32,78,117,109,98,101,114,32,111,102,32,112,97,103,101,115,13,10,32,32,36,70,85,76,76,95,70,73,76,69,78,65,77,69,32,45,32,70,117,108,108,32,110,97,109,101,32,111,102,32,116,104,101,32,112,114,105,110,116,101,100,32,102,105,108,101,13,10,32,32,36,70,73,76,69,78,65,77,69,32,45,32,78,97,109,101,32,111,102,32,116,104,101,32,112,114,105,110,116,101,100,32,102,105,108,101,44,32,119,105,116,104,111,117,116,32,112,97,116,104,13,10,32,32,36,80,65,84,72,32,45,32,80,97,116,104,32,111,102,32,116,104,101,32,112,114,105,110,116,101,100,32,102,105,108,101],"value":"Each section can contain the following parameters:\r\n $DATE - Current date\r\n $TIME - Current time\r\n $PAGE - Page number\r\n $PAGECOUNT - Number of pages\r\n $FULL_FILENAME - Full name of the printed file\r\n $FILENAME - Name of the printed file, without path\r\n $PATH - Path of the printed file"}
|
||||||
|
]}
|
||||||
226
components/gridprinter/source/gridprnheaderfooterform.pas
Normal file
226
components/gridprinter/source/gridprnheaderfooterform.pas
Normal file
@ -0,0 +1,226 @@
|
|||||||
|
unit GridPrnHeaderFooterForm;
|
||||||
|
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, StdCtrls,
|
||||||
|
ComCtrls, ExtCtrls, Spin, GridPrn;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TGridPrintHeaderFooterForm }
|
||||||
|
|
||||||
|
TGridPrintHeaderFooterForm = class(TForm)
|
||||||
|
Bevel1: TBevel;
|
||||||
|
Bevel2: TBevel;
|
||||||
|
Bevel3: TBevel;
|
||||||
|
btnFont: TButton;
|
||||||
|
ButtonPanel1: TButtonPanel;
|
||||||
|
cbShow: TCheckBox;
|
||||||
|
cbShowLine: TCheckBox;
|
||||||
|
clbLineColor: TColorButton;
|
||||||
|
edTextLeft: TEdit;
|
||||||
|
edTextCenter: TEdit;
|
||||||
|
edTextRight: TEdit;
|
||||||
|
FontDialog: TFontDialog;
|
||||||
|
lblTextInfo: TLabel;
|
||||||
|
lblLineWidth: TLabel;
|
||||||
|
seLineWidth: TFloatSpinEdit;
|
||||||
|
TabControl: TTabControl;
|
||||||
|
procedure btnFontClick(Sender: TObject);
|
||||||
|
procedure OKClick(Sender: TObject);
|
||||||
|
procedure FormActivate(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure TabControlChange(Sender: TObject);
|
||||||
|
procedure TabControlChanging(Sender: TObject; var {%H-}AllowChange: Boolean);
|
||||||
|
private
|
||||||
|
type
|
||||||
|
THFParams = record
|
||||||
|
Visible: Boolean;
|
||||||
|
LeftText: String;
|
||||||
|
CenterText: String;
|
||||||
|
RightText: String;
|
||||||
|
Font: TFont;
|
||||||
|
ShowLine: Boolean;
|
||||||
|
LineWidth: Double;
|
||||||
|
LineColor: TColor;
|
||||||
|
end;
|
||||||
|
private
|
||||||
|
FGridPrinter: TGridPrinter;
|
||||||
|
FParams: array[0..1] of THFParams; // 0=Header, 1=Footer
|
||||||
|
procedure SetGridPrinter(AValue: TGridPrinter);
|
||||||
|
protected
|
||||||
|
procedure ControlsToParams(AIndex: Integer);
|
||||||
|
procedure ParamsToControls(AIndex: Integer);
|
||||||
|
procedure ParamsToPrinter(AIndex: Integer);
|
||||||
|
procedure PrinterToParams(AIndex: Integer);
|
||||||
|
public
|
||||||
|
procedure UpdateStrings;
|
||||||
|
property GridPrinter: TGridPrinter read FGridPrinter write SetGridPrinter;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
GridPrintHeaderFooterForm: TGridPrintHeaderFooterForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
GridPrnStrings;
|
||||||
|
|
||||||
|
{ TGridPrintHeaderFooterForm }
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.FormActivate(Sender: TObject);
|
||||||
|
var
|
||||||
|
delta: Integer;
|
||||||
|
begin
|
||||||
|
delta := TabControl.Height - TabControl.ClientHeight;
|
||||||
|
Constraints.MinHeight := delta + clbLineColor.Top + clbLineColor.Height +
|
||||||
|
clbLinecolor.BorderSpacing.Bottom + ButtonPanel1.Height +
|
||||||
|
TabControl.BorderSpacing.Around * 2;
|
||||||
|
Constraints.MinWidth := edTextLeft.Left + edTextLeft.Width + Bevel1.Width +
|
||||||
|
edTextCenter.Width + Bevel2.Width + edTextRight.Width + edTextRight.BorderSpacing.Right +
|
||||||
|
TabControl.BorderSpacing.Around * 2;
|
||||||
|
Width := 0;
|
||||||
|
Height := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.OKClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ControlsToParams(TabControl.TabIndex);
|
||||||
|
ParamsToPrinter(0);
|
||||||
|
ParamsToPrinter(1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.btnFontClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FontDialog.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UpdateStrings;
|
||||||
|
FParams[0].Font := TFont.Create;
|
||||||
|
FParams[1].Font := TFont.Create;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FParams[0].Font.Free;
|
||||||
|
FParams[1].Font.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.TabControlChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ParamsToControls(TabControl.TabIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.TabControlChanging(Sender: TObject;
|
||||||
|
var AllowChange: Boolean);
|
||||||
|
begin
|
||||||
|
ControlsToParams(TabControl.TabIndex);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.ControlsToParams(AIndex: Integer);
|
||||||
|
begin
|
||||||
|
FParams[AIndex].Visible := cbShow.Checked;
|
||||||
|
FParams[AIndex].LeftText := edTextLeft.Text;
|
||||||
|
FParams[AIndex].CenterText:= edTextCenter.Text;
|
||||||
|
FParams[AIndex].RightText := edTextRight.Text;
|
||||||
|
FParams[AIndex].Font.Assign(FontDialog.Font);
|
||||||
|
|
||||||
|
FParams[AIndex].ShowLine := cbShowLine.Checked;
|
||||||
|
FParams[AIndex].LineWidth := seLineWidth.Value;
|
||||||
|
FParams[AIndex].LineColor := clbLinecolor.ButtonColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.ParamsToControls(AIndex: Integer);
|
||||||
|
begin
|
||||||
|
cbShow.Checked := FParams[AIndex].Visible;
|
||||||
|
edTextLeft.Text := FParams[AIndex].LeftText;
|
||||||
|
edTextCenter.Text := FParams[AIndex].CenterText;
|
||||||
|
edTextRight.Text := FParams[AIndex].RightText;
|
||||||
|
FontDialog.Font.Assign(FParams[AIndex].Font);
|
||||||
|
|
||||||
|
cbShowLine.Checked := FParams[AIndex].ShowLine;
|
||||||
|
seLineWidth.Value := FParams[AIndex].LineWidth;
|
||||||
|
clbLinecolor.ButtonColor := FParams[AIndex].LineColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.ParamsToPrinter(AIndex: Integer);
|
||||||
|
var
|
||||||
|
HF: TGridPrnHeaderFooter;
|
||||||
|
begin
|
||||||
|
case AIndex of
|
||||||
|
0: HF := FGridPrinter.Header;
|
||||||
|
1: HF := FGridPrinter.Footer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with FParams[AIndex] do
|
||||||
|
begin
|
||||||
|
HF.Visible := Visible;
|
||||||
|
HF.Text := LeftText + HF.SectionSeparator + CenterText + HF.SectionSeparator + RightText;
|
||||||
|
HF.Font.Assign(Font);
|
||||||
|
HF.ShowLine := ShowLine;
|
||||||
|
HF.Linecolor := LineColor;
|
||||||
|
HF.LineWidth := LineWidth;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.PrinterToParams(AIndex: Integer);
|
||||||
|
var
|
||||||
|
HF: TGridPrnHeaderFooter;
|
||||||
|
begin
|
||||||
|
case AIndex of
|
||||||
|
0: HF := FGridPrinter.Header;
|
||||||
|
1: HF := FGridPrinter.Footer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with FParams[AIndex] do
|
||||||
|
begin
|
||||||
|
Visible := HF.Visible;
|
||||||
|
LeftText := HF.SectionText[hfsLeft];
|
||||||
|
CenterText := HF.SectionText[hfsCenter];
|
||||||
|
RightText := HF.SectionText[hfsRight];
|
||||||
|
Font.Assign(HF.Font);
|
||||||
|
ShowLine := HF.ShowLine;
|
||||||
|
LineColor := HF.RealLineColor;
|
||||||
|
LineWidth := HF.LineWidth;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.SetGridPrinter(AValue: TGridPrinter);
|
||||||
|
begin
|
||||||
|
if AValue = nil then
|
||||||
|
raise Exception.Create('GridPrinter is nil.');
|
||||||
|
|
||||||
|
if FGridPrinter <> AValue then
|
||||||
|
begin
|
||||||
|
FGridPrinter := AValue;
|
||||||
|
PrinterToParams(0);
|
||||||
|
PrinterToParams(1);
|
||||||
|
ParamsToControls(TabControl.TabIndex);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintHeaderFooterForm.UpdateStrings;
|
||||||
|
begin
|
||||||
|
TabControl.Tabs[0] := RSHeader;
|
||||||
|
TabControl.Tabs[1] := RSFooter;
|
||||||
|
cbShow.Caption := RSShow;
|
||||||
|
btnFont.Caption := RSFont;
|
||||||
|
lblTextInfo.Caption := RSHeaderFooterSectionParameterInfo;
|
||||||
|
cbShowLine.Caption := RSShowDividingLine;
|
||||||
|
lblLineWidth.Caption := RSLineWidthMM;
|
||||||
|
clbLineColor.Caption := RSLineColor;
|
||||||
|
edTextLeft.TextHint := RSTextInLeftAlignedSection;
|
||||||
|
edTextCenter.TextHint := RSTextInCenteredSection;
|
||||||
|
edTextRight.TextHint := RSTextInRightAlignedSection;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
67
components/gridprinter/source/gridprnpreviewdlg.pas
Normal file
67
components/gridprinter/source/gridprnpreviewdlg.pas
Normal file
@ -0,0 +1,67 @@
|
|||||||
|
unit GridPrnPreviewDlg;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, GridPrn, GridPrnPreviewForm;
|
||||||
|
|
||||||
|
type
|
||||||
|
TGridPrintPreviewDialog = class(TComponent)
|
||||||
|
private
|
||||||
|
FGridPrinter: TGridPrinter;
|
||||||
|
FOptions: TGridPrintPreviewOptions;
|
||||||
|
protected
|
||||||
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
procedure Execute;
|
||||||
|
published
|
||||||
|
property GridPrinter: TGridPrinter read FGridPrinter write FGridPrinter;
|
||||||
|
property Options: TGridPrintPreviewOptions
|
||||||
|
read FOptions write FOptions default DEFAULT_GRIDPRN_OPTIONS;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Controls;
|
||||||
|
|
||||||
|
constructor TGridPrintPreviewDialog.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FOptions := DEFAULT_GRIDPRN_OPTIONS;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewDialog.Execute;
|
||||||
|
var
|
||||||
|
F: TGridPrintPreviewForm;
|
||||||
|
begin
|
||||||
|
if FGridPrinter = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
F := TGridPrintPreviewForm.Create(nil);
|
||||||
|
try
|
||||||
|
F.GridPrinter := FGridPrinter;
|
||||||
|
F.Options := FOptions;
|
||||||
|
if (F.ShowModal = mrOK) then
|
||||||
|
FGridPrinter.Print;
|
||||||
|
finally
|
||||||
|
F.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewDialog.Notification(AComponent: TComponent;
|
||||||
|
Operation: TOperation);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Operation = opRemove then
|
||||||
|
begin
|
||||||
|
if AComponent = FGridPrinter then
|
||||||
|
FGridPrinter := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
596
components/gridprinter/source/gridprnpreviewform.lfm
Normal file
596
components/gridprinter/source/gridprnpreviewform.lfm
Normal file
@ -0,0 +1,596 @@
|
|||||||
|
object GridPrintPreviewForm: TGridPrintPreviewForm
|
||||||
|
Left = 331
|
||||||
|
Height = 649
|
||||||
|
Top = 129
|
||||||
|
Width = 938
|
||||||
|
Caption = 'Print Preview'
|
||||||
|
ClientHeight = 649
|
||||||
|
ClientWidth = 938
|
||||||
|
OnActivate = FormActivate
|
||||||
|
Position = poMainFormCenter
|
||||||
|
ShowHint = True
|
||||||
|
LCLVersion = '2.3.0.0'
|
||||||
|
object ToolBar: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Width = 938
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 24
|
||||||
|
ButtonWidth = 30
|
||||||
|
Caption = 'ToolBar'
|
||||||
|
EdgeBorders = []
|
||||||
|
Images = ToolbarImages
|
||||||
|
List = True
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
OnResize = ToolBarResize
|
||||||
|
object tbPrint: TToolButton
|
||||||
|
Left = 1
|
||||||
|
Top = 0
|
||||||
|
Action = acPrint
|
||||||
|
end
|
||||||
|
object tbClose: TToolButton
|
||||||
|
Left = 570
|
||||||
|
Top = 0
|
||||||
|
Action = acClose
|
||||||
|
end
|
||||||
|
object tbFirst: TToolButton
|
||||||
|
Left = 60
|
||||||
|
Top = 0
|
||||||
|
Action = acFirstPage
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbPrev: TToolButton
|
||||||
|
Left = 90
|
||||||
|
Top = 0
|
||||||
|
Action = acPrevPage
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbNext: TToolButton
|
||||||
|
Left = 160
|
||||||
|
Top = 0
|
||||||
|
Action = acNextPage
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbLast: TToolButton
|
||||||
|
Left = 190
|
||||||
|
Top = 0
|
||||||
|
Action = acLastPage
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbDivider1: TToolButton
|
||||||
|
Left = 55
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Caption = 'tbDivider1'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object tbDivider2: TToolButton
|
||||||
|
Left = 220
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Caption = 'tbDivider2'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object tbZoomIn: TToolButton
|
||||||
|
Left = 225
|
||||||
|
Top = 0
|
||||||
|
Action = acZoomIn
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbDivider3: TToolButton
|
||||||
|
Left = 375
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Caption = 'tbDivider3'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object tbZoomOut: TToolButton
|
||||||
|
Left = 255
|
||||||
|
Top = 0
|
||||||
|
Action = acZoomOut
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object InfoPanel: TPanel
|
||||||
|
Left = 720
|
||||||
|
Height = 24
|
||||||
|
Top = -1
|
||||||
|
Width = 196
|
||||||
|
Align = alRight
|
||||||
|
Alignment = taRightJustify
|
||||||
|
BorderSpacing.Top = 2
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clRed
|
||||||
|
ParentColor = False
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object tbZoomWidth: TToolButton
|
||||||
|
Left = 315
|
||||||
|
Top = 0
|
||||||
|
Action = acZoomToFitWidth
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbZoomHeight: TToolButton
|
||||||
|
Left = 345
|
||||||
|
Top = 0
|
||||||
|
Action = acZoomToFitHeight
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbZoom100: TToolButton
|
||||||
|
Left = 285
|
||||||
|
Top = 0
|
||||||
|
Action = acZoom100
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object edPageNumber: TEdit
|
||||||
|
Left = 120
|
||||||
|
Height = 23
|
||||||
|
Top = 0
|
||||||
|
Width = 40
|
||||||
|
Alignment = taCenter
|
||||||
|
OnEditingDone = edPageNumberEditingDone
|
||||||
|
OnKeyDown = edPageNumberKeyDown
|
||||||
|
OnMouseWheel = edPageNumberMouseWheel
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'edPageNumber'
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 470
|
||||||
|
Top = 0
|
||||||
|
Action = acPageMargins
|
||||||
|
ShowCaption = False
|
||||||
|
Style = tbsCheck
|
||||||
|
end
|
||||||
|
object tbHeaderFooter: TToolButton
|
||||||
|
Left = 440
|
||||||
|
Top = 0
|
||||||
|
Action = acHeaderFooter
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbDivider4: TToolButton
|
||||||
|
Left = 500
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Caption = 'tbDivider4'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
object tbPortraint: TToolButton
|
||||||
|
Left = 380
|
||||||
|
Top = 0
|
||||||
|
Action = acPortrait
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbLandscape: TToolButton
|
||||||
|
Left = 410
|
||||||
|
Top = 0
|
||||||
|
Action = acLandscape
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 505
|
||||||
|
Top = 0
|
||||||
|
Action = acPrintColsFirst
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 535
|
||||||
|
Top = 0
|
||||||
|
Action = acPrintRowsFirst
|
||||||
|
ShowCaption = False
|
||||||
|
end
|
||||||
|
object tbDivider5: TToolButton
|
||||||
|
Left = 565
|
||||||
|
Height = 24
|
||||||
|
Top = 0
|
||||||
|
Caption = 'tbDivider5'
|
||||||
|
Style = tbsDivider
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ScrollBox: TScrollBox
|
||||||
|
Left = 0
|
||||||
|
Height = 625
|
||||||
|
Top = 24
|
||||||
|
Width = 938
|
||||||
|
HorzScrollBar.Page = 98
|
||||||
|
HorzScrollBar.Tracking = True
|
||||||
|
VertScrollBar.Page = 98
|
||||||
|
VertScrollBar.Tracking = True
|
||||||
|
Align = alClient
|
||||||
|
ClientHeight = 621
|
||||||
|
ClientWidth = 934
|
||||||
|
Color = clAppWorkspace
|
||||||
|
ParentColor = False
|
||||||
|
TabOrder = 1
|
||||||
|
TabStop = True
|
||||||
|
OnMouseDown = ScrollBoxMouseDown
|
||||||
|
OnMouseWheel = PreviewImageMouseWheel
|
||||||
|
object PreviewImage: TImage
|
||||||
|
Left = 8
|
||||||
|
Height = 90
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
OnMouseDown = PreviewImageMouseDown
|
||||||
|
OnMouseMove = PreviewImageMouseMove
|
||||||
|
OnMouseUp = PreviewImageMouseUp
|
||||||
|
OnMouseWheel = PreviewImageMouseWheel
|
||||||
|
OnPaint = PreviewImagePaint
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolbarImages: TImageList
|
||||||
|
Scaled = True
|
||||||
|
Left = 248
|
||||||
|
Top = 56
|
||||||
|
Bitmap = {
|
||||||
|
4C7A1100000010000000100000001A0600000000000078DAED5B4B6CDD4414BD
|
||||||
|
8008B0E4271136E5B762C306092A214008A4F215E223B10195C20221D8F12F12
|
||||||
|
15A8503E855D11AAF8AB24CF2F01DA081650C40A2804819A9084CFE249B0005A
|
||||||
|
C85349241AC18B39C78CD3C9C463CF789C9797D48B2BDBE339F7DEB99FF1F578
|
||||||
|
1CC7B1C415D17791C42E9487779151746FBC215B4C996C73C5775B3EDADA45B6
|
||||||
|
C9B071DB94EBA3BF766CBBFA2D83DA2E328BC6B25AF0E8DB52985685F283EC1F
|
||||||
|
5798BF264D34E509920F662C92CB262239458DEF5352C20B6DBC679515491F64
|
||||||
|
BD9D8CAB29F79A78B6F11EFABDF5F52B727C862D7781E691678F45911C67E2D9
|
||||||
|
061E8FB30FE5E8D8F1A6DCA4783F62F05CC02FF4057FF69D6CC88D5ABF7DA089
|
||||||
|
788B1C5B844FF488640AF419AF7F78474E4B743264DBF0890E916C467B676C97
|
||||||
|
9C3C312417297DAE59826FCA6DA425ED0DB93E999386E4C2140F9B5CEDEA63D8
|
||||||
|
EBBA143FF5AE9C4AFDC1F361E7B8C258D598D338D987318D9BF6CB2265BF09F4
|
||||||
|
FF42E3778B9A631F70941DD3E747DAE5185C376853F07D304B8F442EC6C83E8C
|
||||||
|
35F37EEB753951F1883916F2A14D49F0C143D43989ED860CFCF4A19C909373B7
|
||||||
|
A2DF57894D8FE439CFBF04F666571B7F13C9E9C8B7F5249E2FE73CD14B043B7D
|
||||||
|
0B3BEDCCF0FBF9C8914B1DE7E451634E5B8FB6432EF3AD89D7B01DE8B0D107AF
|
||||||
|
6139AFDDE3F14C199D1A90B352B9C06EF27C2605E343F5AFC27E25FD17143F35
|
||||||
|
F51EC177377C3F206796AC81B6AADA6047592CE8E7FD919CED358F35E4A9143B
|
||||||
|
3E28E77A8EF7BEB2D82AF0AAF67852F1F805FCCE0BB17D19FB55E1BF2AE2A7A6
|
||||||
|
EE137D459F05F87B87AA89B796C1335619B3213C2687655DFABE091ECF97E1C1
|
||||||
|
DCD5F4B8BF9BF845FA47F25C37ED17EABFD0F8A969E588351A6BB58CE7E94ED6
|
||||||
|
760EF51FD7630EB16634DA475DD67A58A3AA77C4453C5CF1EA9975A7E2319BAE
|
||||||
|
99F8E0D53AC5A6540F954F5DC3EBFAA73573B7EC17EABFD0F859ED34362CE7A0
|
||||||
|
76BB3B59EBC091D72E38B58ED504FD0ADC1BA06DC991D79144BC5F80FD9198CF
|
||||||
|
233949BFC76BE8F22CEFDB78903FE819638DEC76A31EDDC67E99E3858E5CBFC9
|
||||||
|
5BE74FF4403FD31E89AD304E97EF04EC07BDEE3272E551E4DAD35AEC2F59E74D
|
||||||
|
DF7BD98FFD4BCB6FC89BA6FC74FCA6DD6DE3CFAAC393752FF828CFFED0FB65B4
|
||||||
|
8D64F94FAD215AFDAF9EE7F3C01F065D9B134351126F1867E26F1E23F98D7271
|
||||||
|
3CACEC69E561C63F6D958E173A6C00F66FC563AE4C7D40B9861E5705F21829F9
|
||||||
|
8CBC92D8ACF58CB592FF19B9E795FF26F9E6BF4587AEE5BF654DC139FF6DE377
|
||||||
|
CDFF8C9AA0CEFF5590FFE9B74DDBF7CF2ABE8F177C5B75A156D5F26B7C8D5F23
|
||||||
|
F1DB2A792F6F1F420773FCE5217603FD8E39F38AB278602FC9E3A1EF6B31F71A
|
||||||
|
A5C73C1E0578D3369D32BEC9ADCD2DF2F3C653CBEF3DF92BA87FBB57F60D95FC
|
||||||
|
6EBF26E69FBC7B2EF38FA36D966DFE49F4E49EA041B960E11ECED9E682A79F30
|
||||||
|
BE037A7F9EB32DF56141FEFC638B03D4BEFF2EB7FC80F1B73CECDFEAD5F53F4B
|
||||||
|
1D53987F0E7B3272F3AF085F947FA9EF1923A6AE2EF937392817334694AC03BC
|
||||||
|
F6CA3F152309DE889FBA4676987F02ED97E73F571D6DF11332D7761BEFF81ED2
|
||||||
|
AE9FBF2BFAFC6D2D674CA8BD7B7BB94E65F1E71CE2FC637EA3CFC2E3FC13EE93
|
||||||
|
E59E6CDB5E6DEE83260F0B9EEB637DCC41EEFFD17334BDE61E58F6B3E0E3744E
|
||||||
|
58D46E5E7B9C43D70F7C31597E71C4CCA5B64B7DADC96F398C7F2FED9B6BFF48
|
||||||
|
36E3F89119A35C2BA65FE99B3CFF136BF8BFCEFF1EA9BF6B7C8D3F5ADEFF3DF5
|
||||||
|
EED86AFBB2EF21BE78730E29E3379D8727BE6D7C17EC1C4DFFDFF5287E3AE0FF
|
||||||
|
BDE935F3DF4D53EE30DB921AA7292F2A1B4DF3DCF6EF9365BFCA4B68DF8D383F
|
||||||
|
03B54A3FCEF79087C79C3843ACB627B51FF8BF42E6645BBCD4F815C7CFE7B5B1
|
||||||
|
2E66DDACE6CD3EF35F22D4DBB38C0F7D0F30E347E335047A5FE52D8F4346FC33
|
||||||
|
CE47885358EE39D8AED7EC3ADEACEDD5FBC076D01FA083D0E705B34F52F737E5
|
||||||
|
55DB7BC12AFE3F67A3C79C399B378F38EC4BEF377D53667F38FD14883F18801D
|
||||||
|
617C2C8A9DFFE7CA5907FBCD98B1A56277B73E577A3E07A7CB6215FE4F17BCDA
|
||||||
|
933C6CC6BFD27F8F9EBF59C4FFC6F15EFC1EDFC5F5F8D19E5333AE71085D5EF3
|
||||||
|
1DA74DBEE79EECE12AF3FF3F3D4DF8CA
|
||||||
|
}
|
||||||
|
BitmapAdv = {
|
||||||
|
4C69020000004C7A110000001800000018000000B10B00000000000078DAED5D
|
||||||
|
7D8C5D45153FF583F8518D60D468B4884A827F68FC408D1FD1B4318A5634C658
|
||||||
|
BFA8FA8F088A1F51C0D428AE5A49255D4C50FF20048948E9BEFB762B58C5A8C5
|
||||||
|
2A6CD5D652BAFB76DBBAED525A43BB24162C867477E9F6797EF79E799DDEDE8F
|
||||||
|
99B9735FF775E78F93B77B67EE6FE69E3973CE99B9E79E69B7DBD4EE26F5D1D3
|
||||||
|
C6223AE1427CFBA232FC28A2A773DD36D3EF5B0DFAB609A12EEE41DF4CF15B11
|
||||||
|
5D63FACC634DBAD6157F3CA2738AA82ABEF02A97AAE2337FAF2FA285C21F2E9F
|
||||||
|
D4EF73E18F469319F8B83ECC757FEC2A9F638DF8DE61F55C697CEE4F5F55F907
|
||||||
|
868ECF63F450198F5D49C3BE879FED5B5E0998AA2D7E3EDF7AF294315FC0F82C
|
||||||
|
672B45FFAB71DDEB137FF77A7A25CBC96AC65803E2BF3FDF75FED4289F75CFAF
|
||||||
|
76B7FD873345ACBBF8796F0799D8115B62DC251A5F9754C3A3452C039F836FA3
|
||||||
|
FA0A3957F8F85B3D53ECFF705D13DF0A34BA8ECE55FE1268D700BD290F1F65BA
|
||||||
|
8C3FF86B7A41090FCEE3F9FE40870F4DBA15F6260F1F65A8A3F16D3BFA97CB93
|
||||||
|
88364ADD597EE64FA5F5C069FC51FD6AD267E27B92F2BBB37805BDA1F5E3D359
|
||||||
|
7A260F5FFC80CB347DF359BD6CFBCDF44C358FB92FBFCAD36345F8A273EE54FE
|
||||||
|
C3E6CDF48C4EDB4D7A9FF4FBF8E810BDCA15BF3540AFE6F2B9582E1AF45ECD77
|
||||||
|
F8A9F80C7F2DD2C365F88275BFF82A3FD1AE6D96FEAFCEC5DF402FE43A4F81F0
|
||||||
|
77815E5E237DFD9386BF5B78FFC522F9E5677E37A8C49E5D29CF39AEE18F4B9B
|
||||||
|
5756B62B0DFAB2E08F69F89B843F3754C567395D2B587F4C5FE3FEFFBD323E63
|
||||||
|
88AFB9B6A373227A8F3CD389D141BAC8197B805EAB7C8953C62959934E481B77
|
||||||
|
39F33EA2DF08C6BFD23A82C7E5639DF9CD63E4C0F7AF6A6B878F96CCEF39D4B7
|
||||||
|
E0F9D7D4BCE5FBEEC8ABB77D233D87EBDCA7F5E3772C076FC8D5E783F446DD56
|
||||||
|
70DDBFFC2DA26717F505E5DA7328DAC1FDBA89E7DF3741F81BD75275D6EDBF8D
|
||||||
|
9E656C6F9BF411BE67C4C0CFD9C9E3756905BBFE2EC6F83E78C5BFDB98B6F2B5
|
||||||
|
DFE21AE3BE73C1F84F81ECE6FB20BD9EE7C1D7E113D581CFF2775874D12DB97D
|
||||||
|
584FAFE03AFD5C67A903BE9A3F1BB3CA4722BA80CB1E963A477CE2A7B063DFD3
|
||||||
|
173E7CF3D49A6A78CFDDF43C1FF8BEB0B3F07D6267E1EB7E3B6C04B7B5B8A27C
|
||||||
|
7615BF6EFED43DBEDD90CF6ECC2F8FFAA156FD56B77E0E1428D099A1782FA249
|
||||||
|
3796ADE51DD703AF619DF36FD16B876BC4AEB496CDD99FD9EFD306F73AB6F825
|
||||||
|
2D0DFB5EAC91BDAE036AC6AF9B3F67531B75CEAF6EE8876EE8B7408102F50E41
|
||||||
|
07401714BD73F1B2CFC43A0DBAAD06FCBB347DECBD0DD9F3DE14DA306EE35EAD
|
||||||
|
8D915EC1AF933FBD8ADD8DF955B77EA85BBF050A14E8CC10F65EB1078BBD5887
|
||||||
|
3889A5D8FBC51E70419D5B5CD761D8B3967B1FC65E764E9D8D7A1CB125FE3D9A
|
||||||
|
5ECE6CA30ABED8953F6B6D1C447C8F2F7C9336AAE297B5E1035FE470B11E17C1
|
||||||
|
F4CF5EC1CFE0CF01150356C3F81ED0E3CB3CCBE78174ECDA7C9E5FB5EB879AF5
|
||||||
|
5BDDFA39D0596DB7178F37E92BB26E3924B1B5F8DD84EB55F66D59DE3EC9388F
|
||||||
|
C6F17C4DFA41AB491F1A8DE8EDF86579FF21BE1F609A6A356885430C1EBE159B
|
||||||
|
46FC9E1E3FAB13AECBB34DF3EF2A8B7DFE4F08F6D2AC98B89CF98D363E6E683F
|
||||||
|
1ECD8A3B8CE76844C7B2DE634BCCE1E191DBE9B925B17478DE892C9EEC594F2F
|
||||||
|
838EC16F16AFB86C5F593C642C273C96596545F8F27CABF558D5BC3528E443FD
|
||||||
|
BF23A217C196C4C4B2037CFCAA6B28D7F03FCCE58F94E0CF30FE3B3AF18DCCEF
|
||||||
|
9298C3636ACC711FEE2FC13F5467FF110B8DB9E3C4FF26FD88CBFF50229F5761
|
||||||
|
5EDACA0FE2E2E3EFEA9AF42503F99F829C5AC97F12177BA84CFE65AEACB09CBF
|
||||||
|
5F88E37423DACD63F366C398D5556803F3324FFF80277A3CAFD0E36303F41643
|
||||||
|
1DB742F664F6C563D7A04B6319E45F19CB7DB1BC494CBC4B1BE027E63CE62564
|
||||||
|
0FF28DDFF87F1E4B94832731A6631B467B43C9F7294752DF34FD777C90DED64B
|
||||||
|
6D802719BC3A9237277DB5E162430DDA50BCFA8FCFFE77C663885E8A7EE337F8
|
||||||
|
3FBDE1FF14AC6F2AFB3F06DF5C54F27F8AC887FF63F0ECD5FC9F0CEA29FFC743
|
||||||
|
FF8BFC1F039B5DC9FF29DC03F1E0FF187C1754D9FFC999BFC1FF09FE4FF07FE6
|
||||||
|
A9FF93B5DF5FF0CDEF4197F8FFD6205D6C10677FB1E3FEAA777C3CA787BC0907
|
||||||
|
8B7889792F73BFBD33A295EAFF3CDA99E4C768ABFF4DC6AC57F91FF0037EC00F
|
||||||
|
F8670ABF6EFD5CB77D39CBC6D7BB7F82359225AF876DF66AC467BCAC4C66947C
|
||||||
|
F15A60C2E63B06539EABBA23112D432C81E937A2B6F8A88B9C3FD2C696B23674
|
||||||
|
FCA27C7BE9BAD206722B6CD97B073DDF1BBE36566343B494D781BB79DDB6CD13
|
||||||
|
7FA6CAFA50A5FF2E73CDA6FF55F16DF55AE87FE87FE8FFC2E97FCFF2C7D0BE67
|
||||||
|
91CA01E7D13FC9A2A91083E4FCAD8215FFF1DEA00EFF50AD29E2DC5435F8874A
|
||||||
|
CE25D7A377FF509F47AEFEA1CD3C75F10F6DF58096BBF2BEAAF83CC6AF2BD375
|
||||||
|
55F51BDAC893ABF9605FBA812FFBED8F64C5C84A6E9843FAFB162BFB75F27D41
|
||||||
|
7FC1BBA6EBF5772136F82C6BC72DF4D0716BFCE4DDF72CF7EFBA027B85F771B3
|
||||||
|
BC2EBADA85FF62EF660AF83F8B3A55E4A728FE395D360FE4F3A0E9FEBDCF7731
|
||||||
|
819CF7E2865D6375F4BD445FFB3FB6FB73B6FB3FA998C6F37CEFFF68B6F412D1
|
||||||
|
5B3798CC4553FBAE611F13FC19D62F579BF86226FB3F9D581AC6947CC1880B7A
|
||||||
|
324B07B9ECFFE8B1A4EAF9CBF2A95678D769ADEB027EC0EF757C3557157E91FF
|
||||||
|
E0822F719EFDF1FAAA41DFCDF37F9CF1F53895263DA5FB4FBEF88F36E053B22E
|
||||||
|
FD465DE35B877FD54DFC32FBEEB2FFE3E95DE15478FF35FFDF7FD9F4C5F7FE46
|
||||||
|
2FBCFF3A1BF61F6C0963CB73E23B75E15791FF5D0DFAA0C8E04C89CE988973E0
|
||||||
|
37E903A6F86C6B96C7B1FE115D8758DC421DCAE58CFD3DB4936E230F1FF313D8
|
||||||
|
9D6B79E7FB68D7E51CB3AD86F8D32AD77F9C8F26A2A3BB06E9C2D3F2D468D751
|
||||||
|
1FF719E29FDC776AD28D2ADE44D9A1CCEB19B26A82DF4ECED169AB5896F8EFF8
|
||||||
|
BBFB93D77DE1C7FB949D6FFAEBC13FB9DFE21FDF237FA6F5B3221023ACE42495
|
||||||
|
4FE188A3FC6CC39CB191FFF8FC8A88FE516ADF07E922CCC3B164ADDD67327F05
|
||||||
|
7B066B75039BF1047241481B5B635E15EB9FE9F88C9906BD3F830F9396E79FED
|
||||||
|
B0F57FE48CC635A594E42EC7370CF75BF93FCC638BBA0DF9F66C8BB1FF6387DF
|
||||||
|
27E7DECC1AFB3F96F822EB466D58E327DFFDC4E7E9E15C1C8C07C6DC13FEA493
|
||||||
|
FF63889FF3BEA12FE007FC801FF0037E4DF89ACDB0A5F8DE62FC490FF13F93E1
|
||||||
|
FD9ED59AD707CF21170F64F971563EA183AF5855E6CB7C458FF899BEA24FFC2C
|
||||||
|
5FD11B7E86AFC8F4A027FC4219AC8A5FA4EB027EC05FF0F8156C7A99AD977C02
|
||||||
|
ED9A685FB0E1BD47D8D363F9BB027124C86B829C16A5392522BAA0EC5D2FFB06
|
||||||
|
E7C859DC732939D95F968F01FBE3383BB924A7C7CFE57CE57E9C4388F37825DE
|
||||||
|
6602718E45B16D65BEB53A5B5C3F17BAF3EC43F472EC9D73D92F9CF193DC46D8
|
||||||
|
D35B9263839B4C8F39E347B421293FFDEC78E1EF865671FFCAFA1FCA4379289F
|
||||||
|
A7E55C36D4B29CFFBB86E87C75DEBD8E1FE7588B68998EA5F417EEC9697FB095
|
||||||
|
D25F7CED36A6FFE1DDA3C2979C5243D0E3FA9919B0496237FA7362B58F8E37E9
|
||||||
|
D653F4F2067AB19C5FF724DB865F8A7E851E3C91753E3DAF657FA6EC07DA466C
|
||||||
|
A3BCD741CEBAC7D3F9BDE3B6EFA49770D9B8ACE960CB4EE4E5B982FD93B3E3E7
|
||||||
|
52EF711E627A6BEED8721BAD24A71EEA5E65628BB9DEE5F159F5112D37C9EB35
|
||||||
|
BA8EF95B92C72B503EC567DA39FAE23C5603E30D5A95255F9AFD5E29B259C51F
|
||||||
|
9F838C430E6BC8EB74BEC415626EDD54DB7E581247309797B3DED373609E5D5E
|
||||||
|
077E9C7B2D59D35D534B6ECF445F017FB9F73569A267F7425FE5E914C830F2E4
|
||||||
|
B1BF3C6021FF91F8B747A167B37461BC7648F4F39CA3EC3F06FB9037C7645D02
|
||||||
|
D95D9B67C3AAACA7F26C97A7BD822BE231B78815B69C73D702DF26D63F3DA7B0
|
||||||
|
36821DCBEC3F72C32673EE1227FEB28F023F027638AB0DF8147226FD04D66A4E
|
||||||
|
3C48E2599E609C3D59B9EBB07EC51A5364B819CBB4AD2D18A09B254E652A6BAD
|
||||||
|
8A6BE02364B9F2DE8C652E5A935CA0CAB7B2CDF36998A776A80E6CD12DCBF27C
|
||||||
|
423F448BF2F4CEFF0127F2618F4C7A110000002000000020000000B30D000000
|
||||||
|
00000078DAED5D6B8C1F55153F45041554C017A236C6E0EB93014D14A5E2BB7E
|
||||||
|
50636A29F2F0111E41890242C19860EC17AB0245D4885D302ED43EF63FB36DC5
|
||||||
|
6A31B1A6E2B6B5853EDCFD775FA911D8B2AD0462132A7DECBA5DCF993DB3BD3B
|
||||||
|
9DC79DB98FF9EFEEF97092FFEEDC99DF9973CF3D8FFB38333E3E0EE342A7D0DE
|
||||||
|
00C66DD274C5B725C799805F45D633095FFA7FE6F63FB6E9B2613734ED5897AE
|
||||||
|
BD7365C78BE4ED4AFF5A0D3FABDF3D519DD856F5CC542F055FF067127EC6D8EE
|
||||||
|
9A2DF8D3ADFF67A90FE8925CB71AF5067076B3013F27A2DFBEF111F7E6B81FE9
|
||||||
|
770DF84B14FC25CEC669085F6D06F0C7BE067C51179FDAD23D746F55DCC1D5F0
|
||||||
|
7A7CC67A65ACFC47179FDAC6D75037D6F5AF83D795D4ADF3F1DE5E75AC222F7F
|
||||||
|
D6C5A7B68971BE979EA9897D1EB61F54EE3DD11BC2CFB605F04A5D7C6A4BF7D0
|
||||||
|
BD8A1C067A56C1B9F9F83007DBFE4EC13EBEB7015FAAAA7F88B910AF8FA87D91
|
||||||
|
ABD3015CA7BE77338405A6FACF3CA872F87A5ABB7D1BE14CBC3EA43CF35E5BE3
|
||||||
|
0F65F853E5BD9E461ECE481967D72B6D0E24FBDB047FE7067815B63BA8E8F275
|
||||||
|
29FE78D3247E08B7DAB63F2883EF648D25D6F951EE9FFF3557C39B6CE3F7AD85
|
||||||
|
3763DB31BE6764CF7A3847B1571F5564BF436B9C86F083499DC2DF5A363B805D
|
||||||
|
8A1E5EAAC8E60605BF5D13FF9324AB88F0B7A6CF58A9C8EC5A45F7EE54F07FA4
|
||||||
|
6B277B3AE13D44DABEA4013F51F0172B7C2D5674EFC70E7DE6BD693A8EF2BB51
|
||||||
|
E1EB37CE7C69031E99C4C73E57F4FF52656CEC721873EF89717A02B864D23E04
|
||||||
|
F05A656C8CEA8CBF0AF1DAF9F11827AC7D2BE13509DEFE52C6FE94C60FE17645
|
||||||
|
C737A5E8C6B5CAF5E1EE157096CD58956CBAD2F75FCBB0D1FB15FB70B713BD0F
|
||||||
|
E0992CDF42F19AEA7FB37C7F49EC45AAFFC5BFAFC96CBF044EC3361B141E8ED1
|
||||||
|
FD95B103B8228A614E3EEF518A71727DE5C45850E32F1A17CBA87F74714977D8
|
||||||
|
E78F29CFE94FEA7CE6FD6BE1AD14332662C8217C9F3B282ECEBA6F77006F605B
|
||||||
|
BE5FBD1775A967600D5C504676142BE2BD1B5372D6B1C88E84F0308EA97B22DD
|
||||||
|
C2DF6C5BC692ED11FB0FAAAFADD0875F993276F4E900F277B5A5F17B06E7418F
|
||||||
|
27F42949C7B1ED5F89E7B418CF06916E91BF271B42362DB26BC81BE27DA28C8E
|
||||||
|
0A0909B53E715C720869378EF1B935CCD31E2A1393908F43DBF410C573689BE6
|
||||||
|
599E276ED3F0DD3B549FE90B3F05DB1B7E06F651CC6B3FE51A9FB1B727DA1D6B
|
||||||
|
86F03907EB046D3EB1F3F07D6067E147632CA5BF71DCCD77BC4ED3C679C25D3E
|
||||||
|
B05B15BF6EF9E7E8DF711FFAE793878AF6E7B80FFBD30AF6B715FC8F63FF5B6B
|
||||||
|
FC5177FC252424242424D4D2E75526D677FFD60CE016EF7B8142B8674A9CD201
|
||||||
|
EFAB0DDB237E2AB6C3F5D3445CB43465FE7B99603BDDF376F729EB2BA8035EC6
|
||||||
|
37EA745DD8AD805FB7FC9531FFC394317F9FF0500B0FB5D9DF56F03FADE07F5B
|
||||||
|
21FE1012121212129AD17B11D0B7928FC538F836EFFE3D11FFFB8EBB25FF90D8
|
||||||
|
7F3AE41F36F70D4F87FCA3D5E6DF7CC95FE6DF64FEADCEF937DF7EA7EEF84348
|
||||||
|
48484848A8C5EB62CCA5BD6AB4674D3DE36B10E3CE8BF6D205F06BDADF573246
|
||||||
|
3A6461FFDF907A36BB8807DAA368B97EDB5022EECAE5C1363EC63C9F8EF6166B
|
||||||
|
F2601B3FE22184CF60BF1E49D4C3D845E7F67DE097E1C115BE2E0F2EF1799D6B
|
||||||
|
7E9A3EC4674B5DE367F210C25DB301BF4EF993FE25B17DE99F0EB64BFBA3833D
|
||||||
|
13ED6FDDFEA76EFF5B77FC5177FC2524245437C19CBE0EB898EA4944FB8C90E8
|
||||||
|
37FDAFA89E8869CD1CA4FBA91E4D4ECD8961AA3562B7660FCCE13A22FFE5DA2D
|
||||||
|
5D54A389EA64C5359F7A02B88CEA91E0B52DCCC7E1899A4E66F2886AD705D0C1
|
||||||
|
CFDC8A32FE90467CF0E1C933800D58F3543BBCC2E0BD57C767DD76B6C1CB75EF
|
||||||
|
DDBC194EA7BD7F7C6F58450E4A1DAE5F18E8CC033C3F7F7B85FA4C8749E6F42E
|
||||||
|
39F1EFF78932CF00A2CCB82F0E97D149D6F31345FD8DED761215C4E81F29B71E
|
||||||
|
1BD53D1CD6A9C7AA83CF71D0566CF7AC8E1E343BE103C99A68C6F8AC4B1336AA
|
||||||
|
30C6BA9A6B825D660DBF011FE7F178A5C69A5E54FFADAF13DE99D4B5182F266C
|
||||||
|
F712D129FF4FE8647700EFD61D07716D30BAC7163ED9485E0FBE4D43565746FD
|
||||||
|
1FC2C76CC93FAA113491275D5158EB2980F773DB3B6CEB5F6F275C5462FC6DB1
|
||||||
|
F6FE016CA33A58BA7638AED149BEC4143FAEE757544374CA18405B19D9CC00FE
|
||||||
|
9EE77734EDEF13482F76AF8337965C5B5FCC63F69706F9627BEC03D3F2730D3D
|
||||||
|
5855D5FFF634E0C1E4F9F7A44D29228A1D2886E0FBB717E983D2DF4FA4C567E4
|
||||||
|
03CAF24072E0BE38CCCFD9128D27B4A971FC15D9D7067C97F59CDABC88D4698F
|
||||||
|
07D649F4A1C97A7209A26BCB48D7B88EEB904D1E6279901D89EC24C7DFF47BC2
|
||||||
|
B64C1DDF84415819BC1E6C76C07B5DE70BC283160F43E5ED83651E42B8C947FE
|
||||||
|
98C98327FC9887C4D87CDA87FC1376F23CF46FDF24F28D2DF9BFE4FF92FF9BE7
|
||||||
|
FF45E43AFFD78CE59DE5FF25E26027F97F595DB29DFF97E80327F97F16F9CAFF
|
||||||
|
75F15DE5FF25D6CD9CE4FF65F5CF76FE5FC29E38C9FF35B19DE5FF9AF657F27F
|
||||||
|
C9FF25FF97DC5BF27FC9FFA76DFE4FDFE1289BC7A4C4758306BEACB0E6A9CE5E
|
||||||
|
A8E9844FDF2971F8BDCB7ECD18A44DD947D6A7FC5D96FA62191295CDAF6663FF
|
||||||
|
0BBEE00BBEE00BBEE00BBEE00BFEECC2AF3BFEAE3BFF10FDAB37FF4E7C7BB32C
|
||||||
|
8DA8DFD53590799F81AED3F7DA6FF4DDE7CA78DD11F110C0B7EAC057BEC75389
|
||||||
|
0753FC680D44E521846F9BE017E95CD658231E682D27FA8E7D036EF68D5F9507
|
||||||
|
9BF8491E74FAA26AFFE3FB2D2FE2B519C2A82BFCDE4EF8A08E7D70257F5BBEC0
|
||||||
|
D4E7CC347CD39843E42FF217F98BFC45FE227FC117FD73987FB6598A3F071DCE
|
||||||
|
BF0CDA96ABD0CC2299FF91F99F569AFFA96ADF6DCDFF98F8171BF33FA6FE4DE6
|
||||||
|
7FCCE67F667BFCDD2AF868CB2EC4FF3F95779E83AE719B0B6DE233F67EAA3D49
|
||||||
|
67F032F778E235AE4FB93FC94355FCFE35F0767EA7233ADFB3271EF8DCE0141E
|
||||||
|
0CF28F91CAF14003464CF17B4F9E2B1CDC3B71BE203F0EA0368D891886EE35EF
|
||||||
|
FFE82CC0F2F86C6310C0CB32EF5F02A7ED0DE1617E463BFD6D45FFE9B9F1B98E
|
||||||
|
10EED438BF3805DBCAF8C7E7A1FFF81ED9D93C1B4C6D92D862FF4AE11BADF9BA
|
||||||
|
DA8B2D346BF3C17E9FF95FC17E18E7F99FE9F836CDFF4CF14DF33F1BF6CD24FF
|
||||||
|
53896A3AE3339E41BFF6A0AFFC4FC58ECFF6E1FDE345DFB5B595FF25B04FB04E
|
||||||
|
FD3B7A460E0FB6F2BF68CC05F0788CC7DFF36A8FF9C1F7B8C665FEC7CF5A89F4
|
||||||
|
0DD51FB32E04F80E97BBCCFF5CC50355F78209BEE00BBEE00BBE3FFC2AFEC72A
|
||||||
|
7E05FF6B13BF4AFC61BBFFCBC65F2EF48F78406C8A3F1FAA4BFF7DCF3F087EE5
|
||||||
|
FCB3CD51FCD9EF73FD5FD67F65FD57D67F65FD57D67F65FDD5F2FAC3E554DBB3
|
||||||
|
2E7C5BE39FE26FB26DC9EF10EA10DD436391EA3D56C18FFB906A19518E52D647
|
||||||
|
F23DC31C532F2F83CFEF4DF51C7FBB6F239C59794E17EF9DAC3197529B320B9F
|
||||||
|
65FEAC09F6941A73011CA0FCA2C4FE832324BF943A714BB1FDA69C3A72A9D759
|
||||||
|
062F9578FF53FE4FF50DF3CE21E55DCFB20765F0A36F210470300B3FEFBA0D7C
|
||||||
|
1DBB9683E3049FBF51F2645DF8844D31685DF875CB7FA6F67FBAFD89F67C5CAF
|
||||||
|
DA9753FA3F71BDAAFDE11872B87A6DEFA935C6D92E6CD57E7FAE914C3230E121
|
||||||
|
C28E6B8C87F0659DFC133117310FBFE2EB07587E6573D4557C2FF9F0074AE4DF
|
||||||
|
AB143DB88AFC5695F883BF9DB425EDBD15FC2E83FC7F2C9E37358CBF4CE88449
|
||||||
|
5DC7AADF4D9D826FB0EE6D8CDF801B4C7830C567BF5F99071BF8263CD8C2AFCA
|
||||||
|
834D7CB6FF37C53C50DD4F0FFA9F6B1F1CE27795390F671BDFD673055FF0055F
|
||||||
|
F0055FF0055FF005BF1E7C57642B8EAD485DB6E52A34EDCF77B8D4B7C2F920D7
|
||||||
|
E3AD683EC8B5BD29CAFF9DE317CC41F8B0B7793CF8B2F7593CF8F437693CF8F6
|
||||||
|
77C9F9200FFA9F6B1F1CE277D9F4CBAEE523F8822FF8822FF8DEF14F788841B3
|
||||||
|
6353B7F1B7E48342420E29DACF883135EF8F394444BF29B6AEB25791F7CD6FD7
|
||||||
|
DA531BC05CC4D995B9DF1AAF511B17F364BC87670FEF65196886B060CF7A3887
|
||||||
|
887ED3FFF859BBA9AD6D7CDA4FCF6D7BE99C56DABEF778CFB78BF5FFDE46B4CF
|
||||||
|
8BF2EBCFE7F4CF17F8794F3A98A78C72A7B4774FD44FD05A7777354F5BA14EBE
|
||||||
|
E00BBEE00BBEE00B7EE976DD2BE02CA2AC76C9EBB6F1F17FFFA4DA8BCD35F0B6
|
||||||
|
643BFA1F5DA33645CFCDAB3348D772F01FE36BDD038FC2ABE376FCBB9BFF7E2C
|
||||||
|
13BF012F501BFA5E79569BFE0E7817C73ECFA79E990FA0C9387F52E2D1DFC7DF
|
||||||
|
80EB5905E7E6C44C2BB8DDB29C3A87F731FE2369D77BD6C23BF0FA732931F173
|
||||||
|
742DAF5FFB3AE0626C379AB576C573E6147B8DF676C24559CFE909E0126C7354
|
||||||
|
C13E4AFFD31A0321DCAADCD78D32B99FA94789ED6FD18891174DB6E73DECA5CE
|
||||||
|
EBF159B1040D231F0BB59FD380A5445572ABCD9BE174C4FA2CBD6B540BA301F3
|
||||||
|
E97F92770A09399913DD6E7D8E11FD09D9F43C5BE914FF248D925DF5294FF2D3
|
||||||
|
E447C997C5F97AD5FA41A644BE2CB6DF75D9D038FE209B5E073EF9505DDF3913
|
||||||
|
F127E33FF4A3B341FF68FC45B1EA44BC38C6BAB7B0685E93E616A3F9BDC6C9FD
|
||||||
|
0936EC4F51BFD35C6D3CA76AD1FE3EAF637F69AE5A994BEEA379CDBCB945EBBA
|
||||||
|
39B12F259A4BF6899B38DF4A354A16D4343669ED609CE6CFA73B3EE5D7D88FFF
|
||||||
|
A23C332FD74BE8FE365BF2277CCEB3235D2ECAF994BC2ED23F5A3B30E561600D
|
||||||
|
5CA08CA717D0EFCF2B33FE68EDC0741CE033CEC6676DE0671ECBAB3BA2D89FDD
|
||||||
|
2ED79C8B7241B2BFB45E139D63B76B7FB5F02DFBFBA9F20FE02A5FD8FF08E02D
|
||||||
|
4A5F16EA9F4DAA32FE6CE397B53FB395FE0FAE915C78
|
||||||
|
}
|
||||||
|
end
|
||||||
|
object ActionList: TActionList
|
||||||
|
Images = ToolbarImages
|
||||||
|
OnUpdate = ActionListUpdate
|
||||||
|
Left = 408
|
||||||
|
Top = 56
|
||||||
|
object acPrint: TAction
|
||||||
|
Caption = 'Print'
|
||||||
|
Hint = 'Print'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = acPrintExecute
|
||||||
|
end
|
||||||
|
object acClose: TAction
|
||||||
|
Caption = 'Close'
|
||||||
|
Hint = 'Close'
|
||||||
|
ImageIndex = 1
|
||||||
|
OnExecute = acCloseExecute
|
||||||
|
end
|
||||||
|
object acFirstPage: TAction
|
||||||
|
Caption = 'First'
|
||||||
|
Hint = 'Show first page'
|
||||||
|
ImageIndex = 2
|
||||||
|
OnExecute = acFirstPageExecute
|
||||||
|
end
|
||||||
|
object acPrevPage: TAction
|
||||||
|
Caption = 'Previous'
|
||||||
|
Hint = 'Show previous page'
|
||||||
|
ImageIndex = 3
|
||||||
|
OnExecute = acPrevPageExecute
|
||||||
|
end
|
||||||
|
object acNextPage: TAction
|
||||||
|
Caption = 'Next'
|
||||||
|
Hint = 'Show next page'
|
||||||
|
ImageIndex = 4
|
||||||
|
OnExecute = acNextPageExecute
|
||||||
|
end
|
||||||
|
object acLastPage: TAction
|
||||||
|
Caption = 'Last'
|
||||||
|
Hint = 'Show last page'
|
||||||
|
ImageIndex = 5
|
||||||
|
OnExecute = acLastPageExecute
|
||||||
|
end
|
||||||
|
object acZoomIn: TAction
|
||||||
|
Caption = 'Zoom in'
|
||||||
|
Hint = 'Zoom in'
|
||||||
|
ImageIndex = 6
|
||||||
|
OnExecute = acZoomInZoomOutExecute
|
||||||
|
end
|
||||||
|
object acZoomOut: TAction
|
||||||
|
Caption = 'Zoom out'
|
||||||
|
Hint = 'Zoom out'
|
||||||
|
ImageIndex = 7
|
||||||
|
OnExecute = acZoomInZoomOutExecute
|
||||||
|
end
|
||||||
|
object acZoomToFitWidth: TAction
|
||||||
|
Caption = 'Fit width'
|
||||||
|
Hint = 'Zoom to fit width'
|
||||||
|
ImageIndex = 10
|
||||||
|
OnExecute = acZoomToFitWidthExecute
|
||||||
|
end
|
||||||
|
object acZoomToFitHeight: TAction
|
||||||
|
Caption = 'Fit height'
|
||||||
|
Hint = 'Zoom to fit page height'
|
||||||
|
ImageIndex = 11
|
||||||
|
OnExecute = acZoomToFitHeightExecute
|
||||||
|
end
|
||||||
|
object acZoom100: TAction
|
||||||
|
Caption = '100%'
|
||||||
|
Hint = 'Original size'
|
||||||
|
ImageIndex = 12
|
||||||
|
OnExecute = acZoom100Execute
|
||||||
|
end
|
||||||
|
object acPageMargins: TAction
|
||||||
|
Caption = 'Margins'
|
||||||
|
Hint = 'Page margins'
|
||||||
|
ImageIndex = 8
|
||||||
|
OnExecute = acPageMarginsExecute
|
||||||
|
end
|
||||||
|
object acHeaderFooter: TAction
|
||||||
|
Caption = 'Header/footer...'
|
||||||
|
Hint = 'Header/footer configuration'
|
||||||
|
ImageIndex = 9
|
||||||
|
OnExecute = acHeaderFooterExecute
|
||||||
|
end
|
||||||
|
object acPortrait: TAction
|
||||||
|
Caption = 'Portrait'
|
||||||
|
GroupIndex = 1
|
||||||
|
Hint = 'Portrait page orientation'
|
||||||
|
ImageIndex = 13
|
||||||
|
OnExecute = acPortraitExecute
|
||||||
|
end
|
||||||
|
object acLandscape: TAction
|
||||||
|
Caption = 'Landscape'
|
||||||
|
GroupIndex = 1
|
||||||
|
Hint = 'Landscape page orientation'
|
||||||
|
ImageIndex = 14
|
||||||
|
OnExecute = acLandscapeExecute
|
||||||
|
end
|
||||||
|
object acPrintColsFirst: TAction
|
||||||
|
Caption = 'Columns first'
|
||||||
|
GroupIndex = 2
|
||||||
|
Hint = 'First print columns from top to bottom,'#13#10'then print from left to right'
|
||||||
|
ImageIndex = 15
|
||||||
|
OnExecute = acPrintColsFirstExecute
|
||||||
|
end
|
||||||
|
object acPrintRowsFirst: TAction
|
||||||
|
Caption = 'Rows first'
|
||||||
|
GroupIndex = 2
|
||||||
|
Hint = 'First print rows from left to right,'#13#10'then print from top to bottom'
|
||||||
|
ImageIndex = 16
|
||||||
|
OnExecute = acPrintRowsFirstExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
44
components/gridprinter/source/gridprnpreviewform.lrj
Normal file
44
components/gridprinter/source/gridprnpreviewform.lrj
Normal file
@ -0,0 +1,44 @@
|
|||||||
|
{"version":1,"strings":[
|
||||||
|
{"hash":1874375,"name":"tgridprintpreviewform.caption","sourcebytes":[80,114,105,110,116,32,80,114,101,118,105,101,119],"value":"Print Preview"},
|
||||||
|
{"hash":191236306,"name":"tgridprintpreviewform.toolbar.caption","sourcebytes":[84,111,111,108,66,97,114],"value":"ToolBar"},
|
||||||
|
{"hash":13109985,"name":"tgridprintpreviewform.tbdivider1.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,49],"value":"tbDivider1"},
|
||||||
|
{"hash":13109986,"name":"tgridprintpreviewform.tbdivider2.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,50],"value":"tbDivider2"},
|
||||||
|
{"hash":13109987,"name":"tgridprintpreviewform.tbdivider3.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,51],"value":"tbDivider3"},
|
||||||
|
{"hash":14901026,"name":"tgridprintpreviewform.edpagenumber.text","sourcebytes":[101,100,80,97,103,101,78,117,109,98,101,114],"value":"edPageNumber"},
|
||||||
|
{"hash":13109988,"name":"tgridprintpreviewform.tbdivider4.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,52],"value":"tbDivider4"},
|
||||||
|
{"hash":13109989,"name":"tgridprintpreviewform.tbdivider5.caption","sourcebytes":[116,98,68,105,118,105,100,101,114,53],"value":"tbDivider5"},
|
||||||
|
{"hash":5738580,"name":"tgridprintpreviewform.acprint.caption","sourcebytes":[80,114,105,110,116],"value":"Print"},
|
||||||
|
{"hash":5738580,"name":"tgridprintpreviewform.acprint.hint","sourcebytes":[80,114,105,110,116],"value":"Print"},
|
||||||
|
{"hash":4863637,"name":"tgridprintpreviewform.acclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},
|
||||||
|
{"hash":4863637,"name":"tgridprintpreviewform.acclose.hint","sourcebytes":[67,108,111,115,101],"value":"Close"},
|
||||||
|
{"hash":5048740,"name":"tgridprintpreviewform.acfirstpage.caption","sourcebytes":[70,105,114,115,116],"value":"First"},
|
||||||
|
{"hash":217173685,"name":"tgridprintpreviewform.acfirstpage.hint","sourcebytes":[83,104,111,119,32,102,105,114,115,116,32,112,97,103,101],"value":"Show first page"},
|
||||||
|
{"hash":147653555,"name":"tgridprintpreviewform.acprevpage.caption","sourcebytes":[80,114,101,118,105,111,117,115],"value":"Previous"},
|
||||||
|
{"hash":239386821,"name":"tgridprintpreviewform.acprevpage.hint","sourcebytes":[83,104,111,119,32,112,114,101,118,105,111,117,115,32,112,97,103,101],"value":"Show previous page"},
|
||||||
|
{"hash":347380,"name":"tgridprintpreviewform.acnextpage.caption","sourcebytes":[78,101,120,116],"value":"Next"},
|
||||||
|
{"hash":923269,"name":"tgridprintpreviewform.acnextpage.hint","sourcebytes":[83,104,111,119,32,110,101,120,116,32,112,97,103,101],"value":"Show next page"},
|
||||||
|
{"hash":338084,"name":"tgridprintpreviewform.aclastpage.caption","sourcebytes":[76,97,115,116],"value":"Last"},
|
||||||
|
{"hash":84807877,"name":"tgridprintpreviewform.aclastpage.hint","sourcebytes":[83,104,111,119,32,108,97,115,116,32,112,97,103,101],"value":"Show last page"},
|
||||||
|
{"hash":23459486,"name":"tgridprintpreviewform.aczoomin.caption","sourcebytes":[90,111,111,109,32,105,110],"value":"Zoom in"},
|
||||||
|
{"hash":23459486,"name":"tgridprintpreviewform.aczoomin.hint","sourcebytes":[90,111,111,109,32,105,110],"value":"Zoom in"},
|
||||||
|
{"hash":106918100,"name":"tgridprintpreviewform.aczoomout.caption","sourcebytes":[90,111,111,109,32,111,117,116],"value":"Zoom out"},
|
||||||
|
{"hash":106918100,"name":"tgridprintpreviewform.aczoomout.hint","sourcebytes":[90,111,111,109,32,111,117,116],"value":"Zoom out"},
|
||||||
|
{"hash":108902056,"name":"tgridprintpreviewform.aczoomtofitwidth.caption","sourcebytes":[70,105,116,32,119,105,100,116,104],"value":"Fit width"},
|
||||||
|
{"hash":28176728,"name":"tgridprintpreviewform.aczoomtofitwidth.hint","sourcebytes":[90,111,111,109,32,116,111,32,102,105,116,32,119,105,100,116,104],"value":"Zoom to fit width"},
|
||||||
|
{"hash":116338068,"name":"tgridprintpreviewform.aczoomtofitheight.caption","sourcebytes":[70,105,116,32,104,101,105,103,104,116],"value":"Fit height"},
|
||||||
|
{"hash":122522228,"name":"tgridprintpreviewform.aczoomtofitheight.hint","sourcebytes":[90,111,111,109,32,116,111,32,102,105,116,32,112,97,103,101,32,104,101,105,103,104,116],"value":"Zoom to fit page height"},
|
||||||
|
{"hash":213797,"name":"tgridprintpreviewform.aczoom100.caption","sourcebytes":[49,48,48,37],"value":"100%"},
|
||||||
|
{"hash":23626005,"name":"tgridprintpreviewform.aczoom100.hint","sourcebytes":[79,114,105,103,105,110,97,108,32,115,105,122,101],"value":"Original size"},
|
||||||
|
{"hash":59301891,"name":"tgridprintpreviewform.acpagemargins.caption","sourcebytes":[77,97,114,103,105,110,115],"value":"Margins"},
|
||||||
|
{"hash":116328739,"name":"tgridprintpreviewform.acpagemargins.hint","sourcebytes":[80,97,103,101,32,109,97,114,103,105,110,115],"value":"Page margins"},
|
||||||
|
{"hash":208537918,"name":"tgridprintpreviewform.acheaderfooter.caption","sourcebytes":[72,101,97,100,101,114,47,102,111,111,116,101,114,46,46,46],"value":"Header/footer..."},
|
||||||
|
{"hash":120242270,"name":"tgridprintpreviewform.acheaderfooter.hint","sourcebytes":[72,101,97,100,101,114,47,102,111,111,116,101,114,32,99,111,110,102,105,103,117,114,97,116,105,111,110],"value":"Header/footer configuration"},
|
||||||
|
{"hash":110855028,"name":"tgridprintpreviewform.acportrait.caption","sourcebytes":[80,111,114,116,114,97,105,116],"value":"Portrait"},
|
||||||
|
{"hash":97583166,"name":"tgridprintpreviewform.acportrait.hint","sourcebytes":[80,111,114,116,114,97,105,116,32,112,97,103,101,32,111,114,105,101,110,116,97,116,105,111,110],"value":"Portrait page orientation"},
|
||||||
|
{"hash":79284965,"name":"tgridprintpreviewform.aclandscape.caption","sourcebytes":[76,97,110,100,115,99,97,112,101],"value":"Landscape"},
|
||||||
|
{"hash":214097038,"name":"tgridprintpreviewform.aclandscape.hint","sourcebytes":[76,97,110,100,115,99,97,112,101,32,112,97,103,101,32,111,114,105,101,110,116,97,116,105,111,110],"value":"Landscape page orientation"},
|
||||||
|
{"hash":252759476,"name":"tgridprintpreviewform.acprintcolsfirst.caption","sourcebytes":[67,111,108,117,109,110,115,32,102,105,114,115,116],"value":"Columns first"},
|
||||||
|
{"hash":179142132,"name":"tgridprintpreviewform.acprintcolsfirst.hint","sourcebytes":[70,105,114,115,116,32,112,114,105,110,116,32,99,111,108,117,109,110,115,32,102,114,111,109,32,116,111,112,32,116,111,32,98,111,116,116,111,109,44,13,10,116,104,101,110,32,112,114,105,110,116,32,102,114,111,109,32,108,101,102,116,32,116,111,32,114,105,103,104,116],"value":"First print columns from top to bottom,\r\nthen print from left to right"},
|
||||||
|
{"hash":90873668,"name":"tgridprintpreviewform.acprintrowsfirst.caption","sourcebytes":[82,111,119,115,32,102,105,114,115,116],"value":"Rows first"},
|
||||||
|
{"hash":159637965,"name":"tgridprintpreviewform.acprintrowsfirst.hint","sourcebytes":[70,105,114,115,116,32,112,114,105,110,116,32,114,111,119,115,32,102,114,111,109,32,108,101,102,116,32,116,111,32,114,105,103,104,116,44,13,10,116,104,101,110,32,112,114,105,110,116,32,102,114,111,109,32,116,111,112,32,116,111,32,98,111,116,116,111,109],"value":"First print rows from left to right,\r\nthen print from top to bottom"}
|
||||||
|
]}
|
||||||
970
components/gridprinter/source/gridprnpreviewform.pas
Normal file
970
components/gridprinter/source/gridprnpreviewform.pas
Normal file
@ -0,0 +1,970 @@
|
|||||||
|
unit GridPrnPreviewForm;
|
||||||
|
|
||||||
|
{$mode ObjFPC}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, Forms, Controls, Graphics, Types, LazLoggerBase,
|
||||||
|
StdCtrls, ExtCtrls, ComCtrls, Dialogs, Menus, ActnList,
|
||||||
|
GridPrn;
|
||||||
|
|
||||||
|
type
|
||||||
|
TGridPrintPreviewZoomMode = (zmCustom, zmFitWidth, zmFitHeight);
|
||||||
|
|
||||||
|
TGridPrintPreviewOption = (ppoNavigationBtns, ppoNavigationEdit,
|
||||||
|
ppoZoomBtns, ppoPageOrientationBtns, ppoMarginsBtn, ppoHeaderFooterBtn,
|
||||||
|
ppoPrintOrderBtns
|
||||||
|
);
|
||||||
|
TGridPrintPreviewOptions = set of TGridPrintPreviewOption;
|
||||||
|
|
||||||
|
const
|
||||||
|
DEFAULT_GRIDPRN_OPTIONS = [
|
||||||
|
ppoNavigationBtns, ppoNavigationEdit,
|
||||||
|
ppoZoomBtns, ppoPageOrientationBtns, ppoMarginsBtn, ppoHeaderFooterBtn,
|
||||||
|
ppoPrintOrderBtns
|
||||||
|
];
|
||||||
|
|
||||||
|
type
|
||||||
|
{ TGridPrintPreviewForm }
|
||||||
|
|
||||||
|
TGridPrintPreviewForm = class(TForm)
|
||||||
|
acPrint: TAction;
|
||||||
|
acClose: TAction;
|
||||||
|
acFirstPage: TAction;
|
||||||
|
acPrevPage: TAction;
|
||||||
|
acNextPage: TAction;
|
||||||
|
acLastPage: TAction;
|
||||||
|
acPageMargins: TAction;
|
||||||
|
acHeaderFooter: TAction;
|
||||||
|
acPortrait: TAction;
|
||||||
|
acLandscape: TAction;
|
||||||
|
acPrintColsFirst: TAction;
|
||||||
|
acPrintRowsFirst: TAction;
|
||||||
|
acZoom100: TAction;
|
||||||
|
acZoomToFitWidth: TAction;
|
||||||
|
acZoomToFitHeight: TAction;
|
||||||
|
acZoomOut: TAction;
|
||||||
|
acZoomIn: TAction;
|
||||||
|
ActionList: TActionList;
|
||||||
|
edPageNumber: TEdit;
|
||||||
|
InfoPanel: TPanel;
|
||||||
|
PreviewImage: TImage;
|
||||||
|
ScrollBox: TScrollBox;
|
||||||
|
ToolbarImages: TImageList;
|
||||||
|
ToolBar: TToolBar;
|
||||||
|
tbPrint: TToolButton;
|
||||||
|
tbClose: TToolButton;
|
||||||
|
tbFirst: TToolButton;
|
||||||
|
tbPrev: TToolButton;
|
||||||
|
tbNext: TToolButton;
|
||||||
|
tbLast: TToolButton;
|
||||||
|
tbDivider1: TToolButton;
|
||||||
|
tbDivider2: TToolButton;
|
||||||
|
tbDivider3: TToolButton;
|
||||||
|
tbZoomIn: TToolButton;
|
||||||
|
tbZoomOut: TToolButton;
|
||||||
|
tbZoomWidth: TToolButton;
|
||||||
|
tbZoomHeight: TToolButton;
|
||||||
|
tbZoom100: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
tbHeaderFooter: TToolButton;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
tbDivider5: TToolButton;
|
||||||
|
tbDivider4: TToolButton;
|
||||||
|
tbPortraint: TToolButton;
|
||||||
|
tbLandscape: TToolButton;
|
||||||
|
procedure acCloseExecute(Sender: TObject);
|
||||||
|
procedure acFirstPageExecute(Sender: TObject);
|
||||||
|
procedure acHeaderFooterExecute(Sender: TObject);
|
||||||
|
procedure acLandscapeExecute(Sender: TObject);
|
||||||
|
procedure acLastPageExecute(Sender: TObject);
|
||||||
|
procedure acNextPageExecute(Sender: TObject);
|
||||||
|
procedure acPageMarginsExecute(Sender: TObject);
|
||||||
|
procedure acPortraitExecute(Sender: TObject);
|
||||||
|
procedure acPrevPageExecute(Sender: TObject);
|
||||||
|
procedure acPrintColsFirstExecute(Sender: TObject);
|
||||||
|
procedure acPrintExecute(Sender: TObject);
|
||||||
|
procedure acPrintRowsFirstExecute(Sender: TObject);
|
||||||
|
procedure ActionListUpdate({%H-}AAction: TBasicAction; var {%H-}Handled: Boolean);
|
||||||
|
procedure acZoom100Execute(Sender: TObject);
|
||||||
|
procedure acZoomInZoomOutExecute(Sender: TObject);
|
||||||
|
procedure acZoomToFitHeightExecute(Sender: TObject);
|
||||||
|
procedure acZoomToFitWidthExecute(Sender: TObject);
|
||||||
|
procedure edPageNumberEditingDone(Sender: TObject);
|
||||||
|
procedure edPageNumberKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
|
||||||
|
procedure edPageNumberMouseWheel(Sender: TObject; {%H-}Shift: TShiftState;
|
||||||
|
WheelDelta: Integer; {%H-}MousePos: TPoint; var {%H-}Handled: Boolean);
|
||||||
|
procedure FormActivate(Sender: TObject);
|
||||||
|
procedure PreviewImageMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure PreviewImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
|
||||||
|
procedure PreviewImageMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
|
||||||
|
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
|
||||||
|
procedure PreviewImageMouseWheel(Sender: TObject; Shift: TShiftState;
|
||||||
|
WheelDelta: Integer; {%H-}MousePos: TPoint; var {%H-}Handled: Boolean);
|
||||||
|
procedure PreviewImagePaint(Sender: TObject);
|
||||||
|
procedure ScrollBoxKeyDown(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
|
||||||
|
procedure ScrollBoxMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
|
||||||
|
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
|
||||||
|
procedure ToolBarResize(Sender: TObject);
|
||||||
|
private
|
||||||
|
FActivated: Boolean;
|
||||||
|
FDraggedMargin: Integer; // 0=left margin, 1=top, 2=right, 3=bottom 4=header 5=footer
|
||||||
|
FDraggedPos: Integer;
|
||||||
|
FGridPrinter: TGridPrinter;
|
||||||
|
FHintWindow: THintWindow;
|
||||||
|
FPageCount: Integer;
|
||||||
|
FPageNumber: Integer;
|
||||||
|
FOptions: TGridPrintPreviewOptions;
|
||||||
|
FUpdatePreviewHandler: TNotifyEvent;
|
||||||
|
FZoom: Integer;
|
||||||
|
FZoomMax: Integer;
|
||||||
|
FZoomMin: Integer;
|
||||||
|
FZoomMode: TGridPrintPreviewZoomMode;
|
||||||
|
procedure SetGridPrinter(AValue: TGridPrinter);
|
||||||
|
procedure SetPageNumber(AValue: Integer);
|
||||||
|
procedure SetOptions(AValue: TGridPrintPreviewOptions);
|
||||||
|
protected
|
||||||
|
function CalcDraggedMargin(AMargin: Integer; APosition: Integer): Double;
|
||||||
|
procedure DoOnResize; override;
|
||||||
|
procedure HideDraggedMarginHint;
|
||||||
|
function MouseOverMarginLine(X, Y: Integer): Integer;
|
||||||
|
function NextZoomFactor(AZoomIn: Boolean): Integer;
|
||||||
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
|
procedure ShowDraggedMarginHint(AMarginIndex, ADraggedPos: Integer; AMarginName: String);
|
||||||
|
procedure ShowPage(APageNo: Integer; AZoom: Integer = 0;
|
||||||
|
AZoomMode: TGridPrintPreviewZoomMode = zmCustom);
|
||||||
|
procedure UpdateInfoPanel;
|
||||||
|
procedure VerifyZoomMin;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
procedure UpdateStrings;
|
||||||
|
procedure ZoomToFitHeight;
|
||||||
|
procedure ZoomToFitWidth;
|
||||||
|
property PageNumber: Integer read FPageNumber write SetPageNumber;
|
||||||
|
|
||||||
|
published
|
||||||
|
property GridPrinter: TGridPrinter read FGridPrinter write SetGridPrinter;
|
||||||
|
property Options: TGridPrintPreviewOptions
|
||||||
|
read FOptions write SetOptions default DEFAULT_GRIDPRN_OPTIONS;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
GridPrintPreviewForm: TGridPrintPreviewForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
LCLIntf, LCLType, Printers, GridPrnStrings, GridPrnHeaderFooterForm;
|
||||||
|
|
||||||
|
const
|
||||||
|
ZOOM_MULTIPLIER = 1.05;
|
||||||
|
|
||||||
|
{ Returns true when X1 is in range between X2-Delta and X2+Delta. }
|
||||||
|
function InRange(X1, X2, Delta: Integer): Boolean; inline;
|
||||||
|
begin
|
||||||
|
Result := (X1 >= X2-Delta) and (X1 <= X2+Delta);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Returns X if it is in the range between X1 and X2, otherwise either X1 or X2,
|
||||||
|
depending on wheter X is <X1 or >X2. }
|
||||||
|
function EnsureRange(X, X1, X2: Integer): Integer;
|
||||||
|
begin
|
||||||
|
if X < X1 then
|
||||||
|
Result := X1
|
||||||
|
else
|
||||||
|
if X > X2 then
|
||||||
|
Result := X2
|
||||||
|
else
|
||||||
|
Result := X;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TGridPrintPreviewForm }
|
||||||
|
|
||||||
|
constructor TGridPrintPreviewForm.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Scrollbox.OnKeyDown := @ScrollBoxKeyDown;
|
||||||
|
InfoPanel.ParentColor := true;
|
||||||
|
FPageNumber := 0;
|
||||||
|
FZoom := 100;
|
||||||
|
FZoomMax := 1000; // To avoid too-large bitmaps
|
||||||
|
FZoomMin := 10;
|
||||||
|
FDraggedMargin := -1;
|
||||||
|
FOptions := DEFAULT_GRIDPRN_OPTIONS;
|
||||||
|
VerifyZoomMin;
|
||||||
|
ActiveControl := Scrollbox;
|
||||||
|
UpdateStrings;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acCloseExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := mrCancel;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acFirstPageExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowPage(1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acHeaderFooterExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
F: TGridPrintHeaderFooterForm;
|
||||||
|
begin
|
||||||
|
F := TGridPrintHeaderFooterForm.Create(nil);
|
||||||
|
try
|
||||||
|
F.GridPrinter := FGridPrinter;
|
||||||
|
if F.ShowModal = mrOK then
|
||||||
|
ShowPage(FPageNumber, FZoom);
|
||||||
|
finally
|
||||||
|
F.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acLandscapeExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Assigned(FGridPrinter) then
|
||||||
|
begin
|
||||||
|
acLandscape.Checked := true;
|
||||||
|
FGridPrinter.Orientation := poLandscape;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acLastPageExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowPage(FPageCount);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acNextPageExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if FPageNumber < FPageCount then
|
||||||
|
ShowPage(FPageNumber+1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acPageMarginsExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
acPageMargins.Checked := not acPageMargins.Checked;
|
||||||
|
PreviewImage.Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acPortraitExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Assigned(FGridPrinter) then
|
||||||
|
begin
|
||||||
|
acPortrait.Checked := true;
|
||||||
|
FGridPrinter.Orientation := poPortrait;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acPrevPageExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if FPageNumber > 1 then
|
||||||
|
ShowPage(FPageNumber-1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acPrintColsFirstExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Assigned(FGridPrinter) then
|
||||||
|
begin
|
||||||
|
acPrintColsFirst.Checked := true;
|
||||||
|
FGridPrinter.PrintOrder := poColsFirst;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acPrintExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := mrOK;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acPrintRowsFirstExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Assigned(FGridPrinter) then
|
||||||
|
begin
|
||||||
|
acPrintRowsFirst.Checked := true;
|
||||||
|
FGridPrinter.PrintOrder := poRowsFirst;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acZoom100Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowPage(FPageNumber, 100);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acZoomToFitHeightExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ZoomToFitHeight;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ActionListUpdate(AAction: TBasicAction;
|
||||||
|
var Handled: Boolean);
|
||||||
|
begin
|
||||||
|
acPrint.Enabled := (FGridPrinter <> nil) and (FPageCount > 0);
|
||||||
|
acFirstPage.Enabled := (FGridPrinter <> nil) and (FPageCount > 0) and (FPageNumber > 1);
|
||||||
|
acPrevPage.Enabled := acFirstPage.Enabled;
|
||||||
|
acNextPage.Enabled := (FGridPrinter <> nil) and (FPageCount > 0) and (FPageNumber < FPageCount);
|
||||||
|
acLastPage.Enabled := acNextPage.Enabled;
|
||||||
|
|
||||||
|
acZoomIn.Enabled := acPrint.Enabled;
|
||||||
|
acZoomOut.Enabled := acPrint.Enabled;
|
||||||
|
acZoom100.Enabled := acPrint.Enabled;
|
||||||
|
acZoomToFitWidth.Enabled := acPrint.Enabled;
|
||||||
|
acZoomToFitHeight.Enabled := acPrint.Enabled;
|
||||||
|
|
||||||
|
acPortrait.Enabled := (FGridPrinter <> nil);
|
||||||
|
acLandscape.Enabled := (FGridPrinter <> nil);
|
||||||
|
acHeaderFooter.Enabled := acPrint.Enabled;
|
||||||
|
acPageMargins.Enabled := acPrint.Enabled;
|
||||||
|
acPrintColsFirst.Enabled := acPrint.Enabled;;
|
||||||
|
acPrintRowsFirst.Enabled := acPrint.Enabled;;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.acZoomInZoomOutExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
newZoom: Integer;
|
||||||
|
begin
|
||||||
|
newZoom := NextZoomFactor(Sender = acZoomIn);
|
||||||
|
ShowPage(FPageNumber, newZoom);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Selects a zoom factor such that the preview of the page fills the form. }
|
||||||
|
procedure TGridPrintPreviewForm.acZoomToFitWidthExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ZoomToFitWidth;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Converts the position of the dragged margin to millimeters. }
|
||||||
|
function TGridPrintPreviewForm.CalcDraggedMargin(AMargin: Integer;
|
||||||
|
APosition: Integer): Double;
|
||||||
|
begin
|
||||||
|
case AMargin of
|
||||||
|
0: Result := px2mm(APosition, FGridPrinter.PixelsPerInchX);
|
||||||
|
1: Result := px2mm(APosition, FGridPrinter.PixelsPerInchY);
|
||||||
|
2: Result := px2mm(FGridPrinter.PageWidth - APosition, FGridPrinter.PixelsPerInchX);
|
||||||
|
3: Result := px2mm(FGridPrinter.PageHeight - APosition, FGridPrinter.PixelsPerInchY);
|
||||||
|
4: Result := px2mm(APosition, FGridPrinter.PixelsPerInchY);
|
||||||
|
5: Result := px2mm(FGridPrinter.PageHeight - APosition, FGridPrinter.PixelsPerInchY);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.DoOnResize;
|
||||||
|
begin
|
||||||
|
case FZoomMode of
|
||||||
|
zmFitWidth: ZoomToFitWidth;
|
||||||
|
zmFitHeight: ZoomToFitHeight;
|
||||||
|
zmCustom: ;
|
||||||
|
end;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Allows to select a page by entering its number in the PageNo edit and
|
||||||
|
pressing ENTER: }
|
||||||
|
procedure TGridPrintPreviewForm.edPageNumberEditingDone(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if TryStrToInt(edPageNumber.Text, FPageNumber) then
|
||||||
|
begin
|
||||||
|
if FPageNumber < 1 then FPageNumber := 1;
|
||||||
|
if FPageNumber > FPageCount then FPageNumber := FPageCount;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.edPageNumberKeyDown(Sender: TObject; var Key: Word;
|
||||||
|
Shift: TShiftState);
|
||||||
|
begin
|
||||||
|
case Key of
|
||||||
|
VK_LEFT:
|
||||||
|
if FPageNumber > 1 then ShowPage(FPageNumber-1);
|
||||||
|
VK_RIGHT:
|
||||||
|
if FPageNumber < FPageCount then ShowPage(FPageNumber+1);
|
||||||
|
VK_HOME:
|
||||||
|
ShowPage(1);
|
||||||
|
VK_END:
|
||||||
|
ShowPage(FPageCount);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Activates scrolling of pages by means of rotating mouse wheel over the
|
||||||
|
PageNo edit. }
|
||||||
|
procedure TGridPrintPreviewForm.edPageNumberMouseWheel(Sender: TObject;
|
||||||
|
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
|
||||||
|
var Handled: Boolean);
|
||||||
|
begin
|
||||||
|
if WheelDelta < 0 then
|
||||||
|
begin
|
||||||
|
if FPageNumber < FPageCount then FPageNumber := FPageNumber + 1 else exit;
|
||||||
|
end else
|
||||||
|
if FPageNumber > 1 then FPageNumber := FPageNumber - 1 else exit;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.FormActivate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if FActivated then
|
||||||
|
exit;
|
||||||
|
FUpdatePreviewHandler := FGridPrinter.OnUpdatePreview;
|
||||||
|
ShowPage(1, 100);
|
||||||
|
FActivated := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.HideDraggedMarginHint;
|
||||||
|
begin
|
||||||
|
FreeAndNil(FHintWindow);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Result 0=left margin, 1=top margin, 2=right margin, 3=bottom margin, 4=header, 5=footer
|
||||||
|
function TGridPrintPreviewForm.MouseOverMarginLine(X, Y: Integer): Integer;
|
||||||
|
CONST
|
||||||
|
DELTA = 4;
|
||||||
|
var
|
||||||
|
coord: Integer;
|
||||||
|
begin
|
||||||
|
if (FGridPrinter = nil) or (not acPageMargins.Checked) then
|
||||||
|
exit(-1);
|
||||||
|
|
||||||
|
if InRange(X, FGridPrinter.PageRect.Left, DELTA) then
|
||||||
|
exit(0);
|
||||||
|
|
||||||
|
if InRange(Y, FGridPrinter.PageRect.Top, DELTA) then
|
||||||
|
exit(1);
|
||||||
|
|
||||||
|
if InRange(X, FGridPrinter.PageRect.Right, DELTA) then
|
||||||
|
exit(2);
|
||||||
|
|
||||||
|
if InRange(Y, FGridPrinter.PageRect.Bottom, DELTA) then
|
||||||
|
exit(3);
|
||||||
|
|
||||||
|
if FGridPrinter.Header.IsShown then
|
||||||
|
begin
|
||||||
|
coord := mm2px(FGridPrinter.Margins.Header, FGridPrinter.PixelsPerInchY);
|
||||||
|
if InRange(y, coord, DELTA) then
|
||||||
|
exit(4);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if FGridPrinter.Footer.IsShown then
|
||||||
|
begin
|
||||||
|
coord := mm2px(FGridPrinter.Margins.Footer, FGridPrinter.PixelsPerInchY);
|
||||||
|
if InRange(y, FGridPrinter.PageHeight - coord, DELTA) then
|
||||||
|
exit(5);
|
||||||
|
end;
|
||||||
|
|
||||||
|
Result := -1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TGridPrintPreviewForm.NextZoomFactor(AZoomIn: Boolean): Integer;
|
||||||
|
begin
|
||||||
|
if AZoomIn then
|
||||||
|
Result := round(FZoom * ZOOM_MULTIPLIER)
|
||||||
|
else
|
||||||
|
Result := round(FZoom / ZOOM_MULTIPLIER);
|
||||||
|
Result := EnsureRange(Result, FZoomMin, FZoomMax);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.Notification(AComponent: TComponent;
|
||||||
|
Operation: TOperation);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Operation = opRemove then
|
||||||
|
begin
|
||||||
|
if AComponent = FGridPrinter then
|
||||||
|
FGridPrinter := nil;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.PreviewImageMouseDown(Sender: TObject;
|
||||||
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
Scrollbox.SetFocus;
|
||||||
|
if (ssLeft in Shift) then
|
||||||
|
FDraggedMargin := MouseOverMarginLine(X, Y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.PreviewImageMouseMove(Sender: TObject;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
var
|
||||||
|
minWidth: Integer;
|
||||||
|
minHeight: Integer;
|
||||||
|
y0: Integer;
|
||||||
|
one_mm: Integer;
|
||||||
|
marginName: String;
|
||||||
|
begin
|
||||||
|
if (FGridPrinter = nil) or not (acPageMargins.Checked) then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if not (ssLeft in Shift) then
|
||||||
|
begin
|
||||||
|
FDraggedMargin := MouseOverMarginLine(X, Y);
|
||||||
|
case FDraggedMargin of
|
||||||
|
-1:
|
||||||
|
begin
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
HideDraggedMarginHint;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
0,2:
|
||||||
|
begin
|
||||||
|
Screen.Cursor := crHSplit;
|
||||||
|
FDraggedPos := X;
|
||||||
|
end;
|
||||||
|
1,3,4,5:
|
||||||
|
begin
|
||||||
|
Screen.Cursor := crVSplit;
|
||||||
|
FDraggedPos := Y;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (ssLeft in Shift) then
|
||||||
|
begin
|
||||||
|
minWidth := FGridPrinter.PageWidth div 4;
|
||||||
|
minHeight := FGridPrinter.PageHeight div 4;
|
||||||
|
one_mm := mm2px(1.0, FGridPrinter.PixelsPerInchY);
|
||||||
|
case FDraggedMargin of
|
||||||
|
0: begin
|
||||||
|
// Left margin
|
||||||
|
FDraggedPos := X;
|
||||||
|
if (FDraggedPos < 0) then
|
||||||
|
FDraggedPos := 0;
|
||||||
|
if FGridPrinter.PageRect.Right - FDraggedPos < minWidth then
|
||||||
|
FDraggedPos := FGridPrinter.PageRect.Right - minWidth
|
||||||
|
end;
|
||||||
|
1: begin
|
||||||
|
// Top margin
|
||||||
|
FDraggedPos := Y;
|
||||||
|
if FGridPrinter.Header.IsShown then
|
||||||
|
begin
|
||||||
|
y0 := FGridPrinter.HeaderMargin + one_mm;
|
||||||
|
if (FDraggedPos < y0) then
|
||||||
|
FDraggedPos := y0;
|
||||||
|
end;
|
||||||
|
if (FDraggedPos < 0) then
|
||||||
|
FDraggedPos := 0;
|
||||||
|
if FGridPrinter.PageRect.Bottom - FDraggedPos < minHeight then
|
||||||
|
FDraggedPos := FGridPrinter.PageRect.Bottom - minWidth;
|
||||||
|
end;
|
||||||
|
2: begin
|
||||||
|
// Right margin
|
||||||
|
FDraggedPos := X;
|
||||||
|
if FDraggedPos > FGridPrinter.PageWidth then
|
||||||
|
FDraggedPos := FGridPrinter.PageWidth;
|
||||||
|
if FDraggedPos - FGridPrinter.PageRect.Left < minWidth then
|
||||||
|
FDraggedPos := FGridPrinter.PageRect.Left + minWidth;
|
||||||
|
end;
|
||||||
|
3: begin
|
||||||
|
// Bottom margin
|
||||||
|
FDraggedPos := Y;
|
||||||
|
if FGridPrinter.Footer.IsShown then
|
||||||
|
begin
|
||||||
|
y0 := FGridPrinter.PageHeight - FGridPrinter.FooterMargin - one_mm;
|
||||||
|
if FDraggedPos > y0 then
|
||||||
|
FDraggedPos := y0;
|
||||||
|
end;
|
||||||
|
if FDraggedPos > FGridPrinter.PageHeight then
|
||||||
|
FDraggedPos := FGridPrinter.PageHeight;
|
||||||
|
if FDraggedPos - FGridPrinter.PageRect.Top < minHeight then
|
||||||
|
FDraggedPos := FGridPrinter.PageRect.Top + minHeight;
|
||||||
|
end;
|
||||||
|
4: begin
|
||||||
|
// Header
|
||||||
|
FDraggedPos := Y;
|
||||||
|
if FDraggedPos < 0 then
|
||||||
|
FDraggedPos := 0;
|
||||||
|
if FDraggedPos > FGridPrinter.PageRect.Top - one_mm then
|
||||||
|
FDraggedPos := FGridPrinter.PageRect.Top - one_mm;
|
||||||
|
end;
|
||||||
|
5: begin
|
||||||
|
// Footer
|
||||||
|
FDraggedPos := Y;
|
||||||
|
if FDraggedPos > FGridPrinter.PageHeight then
|
||||||
|
FDraggedPos := FGridPrinter.PageHeight;
|
||||||
|
if FDraggedPos < FGridPrinter.PageRect.Bottom + one_mm then
|
||||||
|
FDraggedPos := FGridPrinter.PageRect.Bottom + one_mm;
|
||||||
|
end;
|
||||||
|
else
|
||||||
|
raise Exception.Create('[PreviewImageMouseMove] Unexpected value of FDraggedMargin');
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
// Redraw the preview to update the dragged red margin line
|
||||||
|
PreviewImage.Repaint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
case FDraggedMargin of
|
||||||
|
0: marginName := RSLeftMargin;
|
||||||
|
1: marginName := RSTopMargin;
|
||||||
|
2: marginName := RSRightMargin;
|
||||||
|
3: marginName := RSBottomMargin;
|
||||||
|
4: marginName := RSHeaderMargin;
|
||||||
|
5: marginName := RSFooterMargin;
|
||||||
|
else
|
||||||
|
raise Exception.Create('[PreviewImageMouseMove] Unexpected value of FDraggedMargin');
|
||||||
|
end;
|
||||||
|
ShowDraggedMarginHint(FDraggedMargin, FDraggedPos, marginName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.PreviewImageMouseUp(Sender: TObject;
|
||||||
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
var
|
||||||
|
dragged: Integer;
|
||||||
|
newMargin: Double;
|
||||||
|
begin
|
||||||
|
if (FDraggedMargin > -1) then
|
||||||
|
begin
|
||||||
|
newMargin := CalcDraggedMargin(FDraggedMargin, FDraggedPos);
|
||||||
|
dragged := FDraggedMargin;
|
||||||
|
FDraggedMargin := -1;
|
||||||
|
case dragged of
|
||||||
|
0: FGridPrinter.Margins.Left := newMargin;
|
||||||
|
1: FGridPrinter.Margins.Top := newMargin;
|
||||||
|
2: FGridPrinter.Margins.Right := newMargin;
|
||||||
|
3: FGridPrinter.Margins.Bottom := newMargin;
|
||||||
|
4: FGridPrinter.Margins.Header := newMargin;
|
||||||
|
5: FGridPrinter.Margins.Footer := newMargin;
|
||||||
|
end;
|
||||||
|
HideDraggedMarginHint;
|
||||||
|
Screen.Cursor := crDefault;
|
||||||
|
ShowPage(FPageNumber);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.PreviewImageMouseWheel(Sender: TObject;
|
||||||
|
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
|
||||||
|
var Handled: Boolean);
|
||||||
|
var
|
||||||
|
newZoom: Integer;
|
||||||
|
begin
|
||||||
|
if (ssCtrl in Shift) then
|
||||||
|
begin
|
||||||
|
newZoom := NextZoomFactor(WheelDelta > 0);
|
||||||
|
ShowPage(FPageNumber, newZoom);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.PreviewImagePaint(Sender: TObject);
|
||||||
|
var
|
||||||
|
x, y: Integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if FGridPrinter = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
if acPageMargins.Checked then
|
||||||
|
begin
|
||||||
|
PreviewImage.Canvas.Pen.Color := clRed;
|
||||||
|
PreviewImage.Canvas.Pen.Style := psDash;
|
||||||
|
|
||||||
|
// Left margin line
|
||||||
|
if FDraggedMargin = 0 then
|
||||||
|
x := FDraggedPos
|
||||||
|
else
|
||||||
|
x := FGridPrinter.PageRect.Left;
|
||||||
|
PreviewImage.Canvas.Line(x, 0, x, PreviewImage.Height);
|
||||||
|
|
||||||
|
// Top margin line
|
||||||
|
if FDraggedMargin = 1 then
|
||||||
|
y := FDraggedPos
|
||||||
|
else
|
||||||
|
y := FGridPrinter.PageRect.Top;
|
||||||
|
PreviewImage.Canvas.Line(0, y, PreviewImage.Width, y);
|
||||||
|
|
||||||
|
// Right margin line
|
||||||
|
if FDraggedMargin = 2 then
|
||||||
|
x := FDraggedPos
|
||||||
|
else
|
||||||
|
x := FGridPrinter.PageRect.Right;
|
||||||
|
PreviewImage.Canvas.Line(x, 0, x, PreviewImage.Height);
|
||||||
|
|
||||||
|
// Bottom margin line
|
||||||
|
if FDraggedMargin = 3 then
|
||||||
|
y := FDraggedPos
|
||||||
|
else
|
||||||
|
y := FGridPrinter.PageRect.Bottom;
|
||||||
|
PreviewImage.Canvas.Line(0, y, PreviewImage.Width, y);
|
||||||
|
|
||||||
|
// Header line
|
||||||
|
if FGridPrinter.Header.IsShown then
|
||||||
|
begin
|
||||||
|
if FDraggedMargin = 4 then
|
||||||
|
y := FDraggedPos
|
||||||
|
else
|
||||||
|
y := mm2px(FGridPrinter.Margins.Header, FGridPrinter.PixelsPerInchY);
|
||||||
|
PreviewImage.Canvas.Line(0, y, PreviewImage.Width, y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Footer line
|
||||||
|
if FGridPrinter.Footer.IsShown then
|
||||||
|
begin
|
||||||
|
if FDraggedMargin = 5 then
|
||||||
|
y := FDraggedPos
|
||||||
|
else
|
||||||
|
y := FGridPrinter.PageHeight - mm2px(FGridPrinter.Margins.Footer, FGridPrinter.PixelsPerInchY);
|
||||||
|
PreviewImage.Canvas.Line(0, y, PreviewImage.Width, y);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ScrollBoxKeyDown(Sender: TObject;
|
||||||
|
var Key: Word; Shift: TShiftState);
|
||||||
|
begin
|
||||||
|
case Key of
|
||||||
|
VK_DOWN, VK_Next:
|
||||||
|
with Scrollbox.VertScrollbar do
|
||||||
|
begin
|
||||||
|
if (Position = Range-Page) and (FPageNumber < FPageCount) then
|
||||||
|
begin
|
||||||
|
ShowPage(FPageNumber+1);
|
||||||
|
Position := 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
case Key of
|
||||||
|
VK_DOWN: Position := Position + Increment;
|
||||||
|
VK_NEXT: Position := Position + Page;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
VK_UP, VK_PRIOR:
|
||||||
|
with Scrollbox.VertScrollbar do
|
||||||
|
begin
|
||||||
|
if (Position = 0) and (FPageNumber > 1) then
|
||||||
|
begin
|
||||||
|
ShowPage(FPageNumber-1);
|
||||||
|
Position := Range-Page;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
case Key of
|
||||||
|
VK_UP: Position := Position - Increment;
|
||||||
|
VK_PRIOR: Position := Position - Page;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
VK_LEFT:
|
||||||
|
with Scrollbox.HorzScrollbar do
|
||||||
|
Position := Position - Increment;
|
||||||
|
VK_RIGHT:
|
||||||
|
with Scrollbox.HorzScrollbar do
|
||||||
|
Position := Position + Increment;
|
||||||
|
VK_HOME:
|
||||||
|
with Scrollbox.HorzScrollbar do
|
||||||
|
Position := Position - Page;
|
||||||
|
VK_END:
|
||||||
|
with Scrollbox.HorzScrollbar do
|
||||||
|
Position := Position + Page;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ScrollBoxMouseDown(Sender: TObject;
|
||||||
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
Scrollbox.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.SetGridPrinter(AValue: TGridPrinter);
|
||||||
|
begin
|
||||||
|
if FGridPrinter <> AValue then
|
||||||
|
begin
|
||||||
|
FGridPrinter := AValue;
|
||||||
|
case FGridPrinter.Orientation of
|
||||||
|
poPortrait: acPortrait.Checked := true;
|
||||||
|
poLandscape: acLandscape.Checked := true;
|
||||||
|
end;
|
||||||
|
case FGridPrinter.PrintOrder of
|
||||||
|
poRowsFirst: acPrintRowsFirst.Checked := true;
|
||||||
|
poColsFirst: acPrintColsFirst.Checked := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.SetOptions(AValue: TGridPrintPreviewOptions);
|
||||||
|
begin
|
||||||
|
if FOptions <> AValue then
|
||||||
|
begin
|
||||||
|
FOptions := AValue;
|
||||||
|
|
||||||
|
acFirstPage.Visible := ppoNavigationBtns in FOptions;
|
||||||
|
acPrevpage.Visible := acFirstpage.Visible;
|
||||||
|
acNextPage.Visible := acFirstPage.Visible;
|
||||||
|
acLastPage.Visible := acFirstPage.Visible;
|
||||||
|
edPageNumber.Visible := ppoNavigationEdit in FOptions;
|
||||||
|
tbDivider1.Visible := acFirstPage.Visible or edPageNumber.Visible;
|
||||||
|
|
||||||
|
acZoomIn.Visible := ppoZoomBtns in FOptions;
|
||||||
|
acZoomOut.Visible := acZoomIn.Visible;
|
||||||
|
acZoom100.Visible := acZoomIn.Visible;
|
||||||
|
acZoomToFitWidth.Visible := acZoomIn.Visible;
|
||||||
|
acZoomtoFitHeight.Visible := acZoomIn.Visible;
|
||||||
|
tbDivider2.Visible := acZoomIn.Visible;
|
||||||
|
|
||||||
|
acPortrait.Visible := ppoPageOrientationBtns in FOptions;
|
||||||
|
acLandscape.Visible := acPortrait.Visible;
|
||||||
|
acHeaderFooter.Visible := ppoHeaderFooterBtn in FOptions;
|
||||||
|
acPageMargins.Visible := ppoMarginsBtn in FOptions;
|
||||||
|
tbDivider3.Visible := acPortrait.Visible or acHeaderFooter.Visible or acPageMargins.Visible;
|
||||||
|
|
||||||
|
acPrintColsFirst.Visible := ppoPrintOrderBtns in FOptions;
|
||||||
|
acPrintRowsFirst.Visible := acPrintColsFirst.Visible;
|
||||||
|
tbDivider4.Visible := acPrintColsFirst.Visible;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.SetPageNumber(AValue: Integer);
|
||||||
|
begin
|
||||||
|
if AValue <> FPageNumber then
|
||||||
|
ShowPage(AValue);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ShowDraggedMarginHint(
|
||||||
|
AMarginIndex, ADraggedPos: Integer; AMarginName: String);
|
||||||
|
var
|
||||||
|
hintStr: String;
|
||||||
|
P: TPoint;
|
||||||
|
R: TRect;
|
||||||
|
begin
|
||||||
|
if FHintWindow = nil then
|
||||||
|
FHintWindow := THintWindow.Create(nil);
|
||||||
|
hintStr := Format('%s: %.1f mm', [AMarginName, CalcDraggedMargin(AMarginIndex, ADraggedPos)]);
|
||||||
|
P := Mouse.CursorPos;
|
||||||
|
R := FHintWindow.CalcHintRect(Screen.Width, hintStr, nil);
|
||||||
|
OffsetRect(R, P.X, P.Y);
|
||||||
|
FHintWindow.ActivateHint(R, hintStr);
|
||||||
|
// Note: Application.Hint is not showing with pressed mouse button! }
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ShowPage(APageNo: Integer; AZoom: Integer = 0;
|
||||||
|
AZoomMode: TGridPrintPreviewZoomMode = zmCustom);
|
||||||
|
var
|
||||||
|
bmp: TBitmap;
|
||||||
|
begin
|
||||||
|
if FGridPrinter = nil then
|
||||||
|
begin
|
||||||
|
FPageCount := 0;
|
||||||
|
FPageNumber := 0;
|
||||||
|
PreviewImage.Picture.Clear;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
FPageNumber := APageNo;
|
||||||
|
if AZoom > 0 then
|
||||||
|
FZoom := AZoom;
|
||||||
|
|
||||||
|
FZoomMode := AZoomMode;
|
||||||
|
|
||||||
|
// Instruct the GridPrinter to create the preview bitmap of the selected page
|
||||||
|
bmp := FGridPrinter.CreatePreviewBitmap(FPageNumber, FZoom);
|
||||||
|
try
|
||||||
|
// Load the bitmap into the PreviewImage component
|
||||||
|
PreviewImage.Width := bmp.Width;
|
||||||
|
PreviewImage.Height := bmp.Height;
|
||||||
|
PreviewImage.Picture.Bitmap.Assign(bmp);
|
||||||
|
FPageCount := FGridPrinter.PageCount;
|
||||||
|
UpdateInfoPanel;
|
||||||
|
finally
|
||||||
|
bmp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ToolBarResize(Sender: TObject);
|
||||||
|
begin
|
||||||
|
UpdateInfoPanel;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.UpdateInfoPanel;
|
||||||
|
begin
|
||||||
|
InfoPanel.Caption := Format(RSPageAndZoomInfo, [FPageNumber, FPageCount, FZoom]);
|
||||||
|
InfoPanel.Width := InfoPanel.Canvas.TextWidth(InfoPanel.Caption);
|
||||||
|
InfoPanel.Left := Toolbar.ClientWidth - InfoPanel.Width - 8;
|
||||||
|
edPageNumber.Text := IntToStr(FPageNumber);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.UpdateStrings;
|
||||||
|
begin
|
||||||
|
Caption := RSPrintPreview;
|
||||||
|
|
||||||
|
// Toolbar captions
|
||||||
|
acPrint.Caption := RSPrint;
|
||||||
|
acClose.Caption := RSClose;
|
||||||
|
|
||||||
|
// Toolbar hints
|
||||||
|
acPrint.Hint := RSPrint;
|
||||||
|
acClose.Hint := RSClose;
|
||||||
|
acFirstPage.Hint := RSShowFirstPage;
|
||||||
|
acPrevPage.Hint := RSShowPrevPage;
|
||||||
|
acNextPage.Hint := RSShowNextPage;
|
||||||
|
acLastPage.Hint := RSShowLastPage;
|
||||||
|
acZoomIn.Hint := RSZoomIn;
|
||||||
|
acZoomOut.Hint := RSZoomOut;
|
||||||
|
acZoomToFitWidth.Hint := RSZoomToFitPageWidth;
|
||||||
|
acZoomToFitHeight.Hint := RSZoomToFitPageHeight;
|
||||||
|
acZoom100.Hint := RSOriginalSize;
|
||||||
|
acPageMargins.Hint := RSPageMarginsConfig;
|
||||||
|
acHeaderFooter.Hint := RSHeaderFooterConfig;
|
||||||
|
acPortrait.Hint := RSPortraitPageOrientation;
|
||||||
|
acLandscape.Hint := RSLandscapePageOrientation;
|
||||||
|
acPrintColsFirst.Hint := RSPrintColsFirst;
|
||||||
|
acPrintRowsFirst.Hint := RSPrintRowsFirst;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ Adjusts FZoomMin to avoid the situation that, due to integer rounding,
|
||||||
|
the zoom factor cannot be changed any more by clicking a zoom button or
|
||||||
|
by mousewheel. }
|
||||||
|
procedure TGridPrintPreviewForm.VerifyZoomMin;
|
||||||
|
var
|
||||||
|
nextHigherZoom: Integer;
|
||||||
|
begin
|
||||||
|
nextHigherZoom := round(FZoomMin * ZOOM_MULTIPLIER);
|
||||||
|
while nextHigherZoom = FZoomMin do
|
||||||
|
begin
|
||||||
|
FZoomMin := nextHigherZoom + 1;
|
||||||
|
nextHigherZoom := round(FZoomMin * ZOOM_MULTIPLIER);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ZoomToFitHeight;
|
||||||
|
var
|
||||||
|
h: Integer;
|
||||||
|
begin
|
||||||
|
if Printer = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
// Correct for scrollbar height when the horizontal scrollbar is currently hidden,
|
||||||
|
// but will be shown after displaying the preview page.
|
||||||
|
if (not Scrollbox.HorzScrollbar.IsScrollbarVisible) and
|
||||||
|
(Printer.PageHeight/Printer.PageWidth < Scrollbox.ClientHeight/Scrollbox.ClientWidth)
|
||||||
|
then
|
||||||
|
h := Scrollbox.HorzScrollbar.ClientSizeWithBar
|
||||||
|
else
|
||||||
|
h := Scrollbox.ClientHeight;
|
||||||
|
h := h - 2*PreviewImage.Top;
|
||||||
|
FZoom := round(h / Printer.PageHeight * Printer.YDPI / ScreenInfo.PixelsPerInchY * 100);
|
||||||
|
ShowPage(FPageNumber, FZoom, zmFitHeight);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TGridPrintPreviewForm.ZoomToFitWidth;
|
||||||
|
var
|
||||||
|
w: Integer;
|
||||||
|
begin
|
||||||
|
if Printer = nil then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
// Correct for scrollbar width when the vert scrollbar is currently hidden,
|
||||||
|
// but will be shown after displaying the preview page.
|
||||||
|
if (not Scrollbox.VertScrollbar.IsScrollbarVisible) and
|
||||||
|
(Printer.PageHeight/Printer.PageWidth > Scrollbox.ClientHeight/Scrollbox.ClientWidth)
|
||||||
|
then
|
||||||
|
w := Scrollbox.VertScrollbar.ClientSizeWithBar
|
||||||
|
else
|
||||||
|
w := Scrollbox.ClientWidth;
|
||||||
|
w := w - 2*PreviewImage.Left;
|
||||||
|
FZoom := round(w / Printer.PageWidth * Printer.XDPI/ ScreenInfo.PixelsPerInchX * 100);
|
||||||
|
ShowPage(FPageNumber, FZoom, zmFitWidth);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
25
components/gridprinter/source/gridprnreg.pas
Normal file
25
components/gridprinter/source/gridprnreg.pas
Normal file
@ -0,0 +1,25 @@
|
|||||||
|
unit GridPrnReg;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils;
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
GridPrn, GridPrnPreviewDlg;
|
||||||
|
|
||||||
|
{$R gridprinter_icons.res}
|
||||||
|
|
||||||
|
procedure Register;
|
||||||
|
begin
|
||||||
|
RegisterComponents('Misc', [TGridPrinter, TGridPrintPreviewDialog]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
67
components/gridprinter/source/gridprnstrings.pas
Normal file
67
components/gridprinter/source/gridprnstrings.pas
Normal file
@ -0,0 +1,67 @@
|
|||||||
|
unit GridPrnStrings;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils;
|
||||||
|
|
||||||
|
resourcestring
|
||||||
|
// Print Preview
|
||||||
|
RSPrintPreview = 'Print Preview';
|
||||||
|
RSPrint = 'Print';
|
||||||
|
RSClose = 'Close';
|
||||||
|
|
||||||
|
RSShowFirstPage = 'Show first page';
|
||||||
|
RSShowPrevPage = 'Show previous page';
|
||||||
|
RSShowNextPage = 'Show next page';
|
||||||
|
RSShowLastPage = 'Show last page';
|
||||||
|
RSZoomIn = 'Zoom in';
|
||||||
|
RSZoomOut = 'Zoom out';
|
||||||
|
RSZoomToFitPageWidth = 'Zoom to fit page width';
|
||||||
|
RSZoomToFitPageHeight = 'Zoom to fit page height';
|
||||||
|
RSOriginalSize = 'Original size (100%)';
|
||||||
|
RSPageMarginsConfig = 'Page margins configuration';
|
||||||
|
RSHeaderFooterConfig = 'Header/footer configuration';
|
||||||
|
RSPortraitPageOrientation = 'Portrait page orientation';
|
||||||
|
RSLandscapePageOrientation = 'Landscape page orientation';
|
||||||
|
RSPrintColsFirst = 'First print columns from top to bottom,' + LineEnding +
|
||||||
|
'then print from left to right';
|
||||||
|
RSPrintRowsFirst = 'First print rows from left to right,' + LineEnding +
|
||||||
|
'then print from top to bottom';
|
||||||
|
|
||||||
|
RSLeftMargin = 'Left margin';
|
||||||
|
RSTopMargin = 'Top margin';
|
||||||
|
RSRightMargin = 'Right margin';
|
||||||
|
RSBottomMargin = 'Bottom margin';
|
||||||
|
RSHeaderMargin = 'Header margin';
|
||||||
|
RSFooterMargin = 'Footer margin';
|
||||||
|
|
||||||
|
RSPageAndZoomInfo = 'Page %d of %d, Zoom %d %%';
|
||||||
|
|
||||||
|
// Header / footer
|
||||||
|
RSHeader = 'Header';
|
||||||
|
RSFooter = 'Footer';
|
||||||
|
RSShow = 'Show';
|
||||||
|
RSFont = 'Font';
|
||||||
|
RSHeaderFooterSectionParameterInfo =
|
||||||
|
'Each section can contain the following parameters:' + LineEnding +
|
||||||
|
' $DATE - Current date' + LineEnding +
|
||||||
|
' $TIME - Current time' + LineEnding +
|
||||||
|
' $PAGE - Page number' + LineEnding +
|
||||||
|
' $PAGECOUNT - Number of pages' + LineEnding +
|
||||||
|
' $FULL_FILENAME - Full name of the printed file' + LineEnding +
|
||||||
|
' $FILENAME - Name of the printed file, without path' + LineEnding +
|
||||||
|
' $PATH - Path of the printed file';
|
||||||
|
RSShowDividingLine = 'Show dividing line';
|
||||||
|
RSLineWidthMM = 'Line width (mm)';
|
||||||
|
RSLineColor = 'Line color';
|
||||||
|
RSTextInLeftAlignedSection = 'Text in left-aligned section';
|
||||||
|
RSTextInCenteredSection = 'Text in centered section';
|
||||||
|
RSTextInRightAlignedSection = 'Text in right-aligned section';
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
Reference in New Issue
Block a user