paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 52034 #e586deab07 from trunk:

Browse Source 
TurboPower_iPro: Improved text rendering in print preview by antialiasing.
........

git-svn-id: branches/fixes_1_6@52035 -
This commit is contained in:
maxim 2016-03-23 21:57:09 +00:00
parent 7daa1cb776
commit 9dbe8bfc73
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/turbopower_ipro/iphtml.pas
View File

@ -2235,6 +2235,7 @@ type
PrintWidth, PrintHeight: Integer;
PrintTopLeft: TPoint;
PageCount: Integer;
function AntiAliasingMode: TAntiAliasingMode;
{$ENDIF}
procedure InvalidateSize;
property Hyper : TIpHtml read FHyper write SetHtml;
@ -2396,6 +2397,7 @@ type
TIpHtmlPrintSettings = class(TPersistent)
private
FAntiAliasingMode: TAntiAliasingMode;
FMarginTop: Double;
FMarginLeft: Double;
FMarginBottom: Double;
@ -2403,6 +2405,7 @@ type
public
constructor Create;
published
property AntiAliasingMode: TAntiAliasingMode read FAntiAliasingMode write FAntiAliasingMode;
property MarginLeft: Double read FMarginLeft write FMarginLeft;
property MarginTop: Double read FMarginTop write FMarginTop;
property MarginRight: Double read FMarginRight write FMarginRight;
@ -13321,6 +13324,11 @@ begin
end;
{$IFDEF Html_Print}
function TIpHtmlInternalPanel.AntiAliasingMode: TAntiAliasingMode;
begin
Result := HTMLPanel.PrintSettings.AntiAliasingMode;
end;
procedure TIpHtmlInternalPanel.BeginPrint;
begin
if InPrint = 0 then begin

1
components/turbopower_ipro/iphtmlpv.pas
View File

@ -246,6 +246,7 @@ begin
R.Right := R.Left + round(SCRATCH_WIDTH * Scale) + 1;
R.Bottom := R.Top + round(SCRATCH_HEIGHT * Scale) + 1;
PaintBox1.Canvas.AntialiasingMode := OwnerPanel.AntiAliasingMode;
PaintBox1.Canvas.StretchDraw(R, Scratch);
inc(WindowLeft, SCRATCH_WIDTH);