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
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.
|
||||
|
||||
Reference in New Issue
Block a user