paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed printing small fonts, and showprefix (bugs #1336,#1414)

Browse Source 
git-svn-id: trunk@8126 -
This commit is contained in:
jesus 2005-11-10 15:32:28 +00:00
parent 2786a70e3f
commit 26272265eb
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/graphics.pp
View File

@ -497,7 +497,7 @@ type
//property XBias: Integer read FXBias write FXBias;
//property YBias: Integer read FYBias write FYBias;
property Handle: HFONT read GetHandle write SetHandle;
property PixelsPerInch: Integer read FPixelsPerInch;
property PixelsPerInch: Integer read FPixelsPerInch write FPixelsPerInch;
property CanUTF8: boolean read FCanUTF8;
published
property CharSet: TFontCharSet read GetCharSet write SetCharSet default DEFAULT_CHARSET;

2
lcl/include/canvas.inc
View File

@ -1238,7 +1238,7 @@ begin
WordBreak := True;
SingleLine := False;
Clipping := True;
ShowPrefix := True;
ShowPrefix := False;
Opaque := False;
end;
end;

2
lcl/printers.pas
View File

@ -274,6 +274,8 @@ begin
TPrinterCanvas(Canvas).BeginDoc;
//Call the specifique Begindoc
DoBeginDoc;
// Set font resolution
Canvas.Font.PixelsPerInch := YDPI;
end;
//End the current document