paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

GridPrinter: Wordwrap header/footer texts if they are too long

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8886 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2023-07-19 20:09:14 +00:00
parent caa791fa8e
commit 319c3452e0
1 changed files with 83 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

193
components/gridprinter/source/gridprn.pas
View File

@ -5,7 +5,7 @@ unit GridPrn;
interface interface
uses uses
Classes, SysUtils, LCLVersion, Types, Graphics, StdCtrls, Grids, Classes, SysUtils, LCLType, LCLIntf, LCLVersion, Types, Graphics, StdCtrls, Grids,
Printers, PrintersDlgs; Printers, PrintersDlgs;
type type
@ -249,6 +249,7 @@ type
procedure PrintColHeaders(ACanvas: TCanvas; ACol1, ACol2, Y: Integer); procedure PrintColHeaders(ACanvas: TCanvas; ACol1, ACol2, Y: Integer);
procedure PrintFooter(ACanvas: TCanvas); procedure PrintFooter(ACanvas: TCanvas);
procedure PrintHeader(ACanvas: TCanvas); procedure PrintHeader(ACanvas: TCanvas);
procedure PrintHeaderFooter(ACanvas: TCanvas; HF: TGridPrnHeaderFooter);
procedure PrintGridLines(ACanvas: TCanvas; AStartCol, AStartRow, AEndCol, AEndRow, XEnd, YEnd: Integer); procedure PrintGridLines(ACanvas: TCanvas; AStartCol, AStartRow, AEndCol, AEndRow, XEnd, YEnd: Integer);
procedure PrintPage(ACanvas: TCanvas; AStartCol, AStartRow, AEndCol, AEndRow: Integer); procedure PrintPage(ACanvas: TCanvas; AStartCol, AStartRow, AEndCol, AEndRow: Integer);
procedure PrintRowHeader(ACanvas: TCanvas; ARow: Integer; X, Y: Double); procedure PrintRowHeader(ACanvas: TCanvas; ARow: Integer; X, Y: Double);
@ -324,7 +325,7 @@ function px2mm(px: Integer; dpi: Integer): Double;
implementation implementation
uses uses
LCLIntf, LCLType, Dialogs, OSPrinters, Themes, Math; Dialogs, OSPrinters, Themes, Math;
type type
TGridAccess = class(TCustomGrid); TGridAccess = class(TCustomGrid);
@ -1491,70 +1492,8 @@ begin
end; end;
procedure TGridPrinter.PrintFooter(ACanvas: TCanvas); procedure TGridPrinter.PrintFooter(ACanvas: TCanvas);
var
Width: array[TGridPrnHeaderFooterSection] of Integer = (0, 0, 0);
printableWidth, lineHeight: Integer;
x, y: Integer;
s: String;
R: TRect;
textStyle: TTextStyle;
begin begin
if not FFooter.IsShown then PrintHeaderFooter(ACanvas, FFooter);
exit;
SelectFont(ACanvas, FFooter.Font, 1.0);
ACanvas.Font.Color := GetFontColor(FFooter.Font.Color);
printableWidth := FPageRect.Width;
if (FFooter.SectionText[hfsLeft] <> '') and (FFooter.SectionText[hfsCenter] = '') and (FFooter.SectionText[hfsRight] = '') then
Width[hfsLeft] := printableWidth
else
if (FFooter.SectionText[hfsLeft] = '') and (FFooter.SectionText[hfsCenter] <> '') and (FFooter.SectionText[hfsRight] = '') then
Width[hfsCenter] := printableWidth
else
if (FFooter.SectionText[hfsLeft] = '') and (FFooter.SectionText[hfsCenter] = '') and (FFooter.SectionText[hfsRight] <> '') then
Width[hfsRight] := printableWidth
else begin
Width[hfsLeft] := printableWidth div 3;
Width[hfsCenter] := printableWidth div 3;
Width[hfsRight] := printableWidth div 3;
end;
lineHeight := ACanvas.TextHeight('Rg');
textStyle := DefaultTextStyle;
y := FPageHeight - FFooterMargin - lineHeight;
if FFooter.SectionText[hfsLeft] <> '' then
begin
s := FFooter.ProcessedText[hfsLeft];
x := FLeftMargin;
R := Rect(x, y, x + Width[hfsLeft], y + lineHeight);
ACanvas.TextRect(R, R.Left, R.Top, s);
end;
if FFooter.SectionText[hfsCenter] <> '' then
begin
s := FFooter.ProcessedText[hfsCenter];
x := (FPageRect.Left + FPageRect.Right - Width[hfsCenter]) div 2;
R := Rect(x, y, x + Width[hfsCenter], y + lineHeight);
textStyle.Alignment := taCenter;
ACanvas.TextRect(R, R.Left, R.Top, s, textStyle);
end;
if FFooter.SectionText[hfsRight] <> '' then
begin
s := Footer.ProcessedText[hfsRight];
x := FPageRect.Right;
R := Rect(x, y, x + Width[hfsRight], y + lineHeight);
textStyle.Alignment := taRightJustify;
ACanvas.TextRect(R, R.Left, R.Top, s, textStyle);
end;
if FFooter.ShowLine then
begin
ACanvas.Pen.Color := FFooter.RealLineColor;
ACanvas.Pen.Width := FFooter.RealLineWidth;
ACanvas.Pen.Style := psSolid;
dec(y, (ACanvas.Pen.Width+1) div 2);
ACanvas.Line(FPageRect.Left, y, FPageRect.Right, y);
end;
end; end;
procedure TGridPrinter.PrintGridLines(ACanvas: TCanvas; procedure TGridPrinter.PrintGridLines(ACanvas: TCanvas;
@ -1688,68 +1627,102 @@ begin
end; end;
procedure TGridPrinter.PrintHeader(ACanvas: TCanvas); procedure TGridPrinter.PrintHeader(ACanvas: TCanvas);
var
Width: array[TGridPrnHeaderFooterSection] of Integer = (0, 0, 0);
printableWidth, lineHeight: Integer;
x, y: Integer;
s: String;
R: TRect;
textStyle: TTextStyle;
begin begin
if not FHeader.IsShown then PrintHeaderFooter(ACanvas, FHeader);
end;
procedure TGridPrinter.PrintHeaderFooter(ACanvas: TCanvas;
HF: TGridPrnHeaderFooter);
var
Widths: array[TGridPrnHeaderFooterSection] of Integer = (0, 0, 0);
Heights: array[TGridPrnHeaderFooterSection] of Integer = (0, 0, 0);
Flags: array[TGridPrnHeaderFooterSection] of Integer;
TextRects: array[TGridPrnHeaderFooterSection] of TRect;
printableWidth: Integer;
hfs: TGridPrnHeaderFooterSection;
y: Integer;
s: String;
begin
if not HF.IsShown then
exit; exit;
SelectFont(ACanvas, FHeader.Font, 1.0); SelectFont(ACanvas, HF.Font, 1.0);
ACanvas.Font.Color := GetFontColor(FHeader.Font.Color); ACanvas.Font.Color := GetFontColor(HF.Font.Color);
printableWidth := FPageRect.Width; printableWidth := FPageRect.Width;
if (FHeader.SectionText[hfsLeft] <> '') and (FHeader.SectionText[hfsCenter] = '') and (FHeader.SectionText[hfsRight] = '') then if (HF.SectionText[hfsLeft] <> '') and (HF.SectionText[hfsCenter] = '') and (HF.SectionText[hfsRight] = '') then
Width[hfsLeft] := printableWidth Widths[hfsLeft] := printableWidth
else else
if (FHeader.SectionText[hfsLeft] = '') and (FHeader.SectionText[hfsCenter] <> '') and (FHeader.SectionText[hfsRight] = '') then if (HF.SectionText[hfsLeft] = '') and (HF.SectionText[hfsCenter] <> '') and (HF.SectionText[hfsRight] = '') then
Width[hfsCenter] := printableWidth Widths[hfsCenter] := printableWidth
else else
if (FHeader.SectionText[hfsLeft] = '') and (FHeader.SectionText[hfsCenter] = '') and (FHeader.SectionText[hfsRight] <> '') then if (HF.SectionText[hfsLeft] <> '') and (HF.SectionText[hfsCenter] = '') and (HF.SectionText[hfsRight] <> '') then
Width[hfsRight] := printableWidth begin
Widths[hfsLeft] := printableWidth div 2;
Widths[hfsRight] := printableWidth div 2;
end else
if (HF.SectionText[hfsLeft] = '') and (HF.SectionText[hfsCenter] = '') and (HF.SectionText[hfsRight] <> '') then
Widths[hfsRight] := printableWidth
else begin else begin
Width[hfsLeft] := printableWidth div 3; for hfs in TGridPrnHeaderFooterSection do
Width[hfsCenter] := printableWidth div 3; Widths[hfs] := printableWidth div 3;
Width[hfsRight] := printableWidth div 3;
end; end;
lineHeight := ACanvas.TextHeight('Rg'); // Measure sections
textStyle := DefaultTextStyle; if HF.SectionText[hfsLeft] <> '' then
y := FHeaderMargin;
if FHeader.SectionText[hfsLeft] <> '' then
begin begin
s := FHeader.ProcessedText[hfsLeft]; s := HF.ProcessedText[hfsLeft];
x := FLeftMargin; TextRects[hfsLeft] := Rect(0, 0, Widths[hfsLeft], 0);
R := Rect(x, y, x + Width[hfsLeft], y + lineHeight); Flags[hfsLeft] := DT_LEFT or DT_TOP or DT_WORDBREAK;
ACanvas.TextRect(R, R.Left, R.Top, s); DrawText(ACanvas.Handle, PChar(s), Length(s), TextRects[hfsLeft], Flags[hfsLeft] or DT_CALCRECT);
end; Heights[hfsLeft] := TextRects[hfsLeft].Bottom;
if FHeader.SectionText[hfsCenter] <> '' then
begin
s := FHeader.ProcessedText[hfsCenter];
x := (FPageRect.Left + FPageRect.Right - Width[hfsCenter]) div 2;
R := Rect(x, y, x + Width[hfsCenter], y + lineHeight);
textStyle.Alignment := taCenter;
ACanvas.TextRect(R, R.Left, R.Top, s, textStyle);
end;
if FHeader.SectionText[hfsRight] <> '' then
begin
s := FHeader.ProcessedText[hfsRight];
x := FPageRect.Right - Width[hfsRight];
R := Rect(x, y, x + Width[hfsRight], y + lineHeight);
textStyle.Alignment := taRightJustify;
ACanvas.TextRect(R, R.Left, R.Top, s, textStyle);
end; end;
if HF.SectionText[hfsCenter] <> '' then
begin
s := HF.ProcessedText[hfsCenter];
TextRects[hfsCenter] := Rect(0, 0, Widths[hfsCenter], 0);
Flags[hfsCenter] := DT_CENTER or DT_TOP or DT_WORDBREAK;
DrawText(ACanvas.Handle, PChar(s), Length(s), TextRects[hfsCenter], Flags[hfsCenter] or DT_CALCRECT);
Heights[hfsCenter] := TextRects[hfsCenter].Bottom;
end;
if HF.SectionText[hfsRight] <> '' then
begin
s := HF.ProcessedText[hfsRight];
TextRects[hfsRight] := Rect(0, 0, Widths[hfsRight], 0);
Flags[hfsRight] := DT_RIGHT or DT_TOP or DT_WORDBREAK;
DrawText(ACanvas.Handle, PChar(s), Length(s), TextRects[hfsRight], Flags[hfsRight] or DT_CALCRECT);
Heights[hfsRight] := TextRects[hfsRight].Bottom;
end;
if HF = FHeader then
y := FHeaderMargin
else
y := FPageHeight - FFooterMargin - MaxValue(Heights);
// Prepare print rect
OffsetRect(TextRects[hfsLeft], FLeftMargin, y);
OffsetRect(TextRects[hfsCenter], (FPageRect.Left + FPageRect.Right - TextRects[hfsCenter].Right) div 2, y);
OffsetRect(TextRects[hfsRight], FPageRect.Right - TextRects[hfsRight].Width, y);
// Print header/footer text
for hfs in TGridPrnHeaderFooterSection do
if HF.SectionText[hfs] <> '' then
begin
s := HF.ProcessedText[hfs];
DrawText(ACanvas.Handle, PChar(s), Length(s), TextRects[hfs], Flags[hfs]);
end;
// Draw header/footer line
if FHeader.ShowLine then if FHeader.ShowLine then
begin begin
ACanvas.Pen.Color := FHeader.RealLineColor; ACanvas.Pen.Color := FHeader.RealLineColor;
ACanvas.Pen.Width := FHeader.RealLineWidth; ACanvas.Pen.Width := FHeader.RealLineWidth;
ACanvas.Pen.Style := psSolid; ACanvas.Pen.Style := psSolid;
inc(y, lineHeight + (ACanvas.Pen.Width+1) div 2); if HF = FHeader then
inc(y, {%H-}MaxValue(Heights) + (ACanvas.Pen.Width+1) div 2)
else
dec(y, (ACanvas.Pen.Width+1) div 2);
ACanvas.Line(FPageRect.Left, y, FPageRect.Right, y); ACanvas.Line(FPageRect.Left, y, FPageRect.Right, y);
end; end;
end; end;