paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 05:29:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, identify more precisely the known 'std' windows papers

Browse Source 
git-svn-id: trunk@40475 -
This commit is contained in:
jesus 2013-03-04 06:06:05 +00:00
parent bf7a97b65f
commit 945ca45177
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazreport/source/lr_pgopt.pas
View File

@ -117,7 +117,8 @@ begin
Canvas.FillRect(aRect);
i := PtrInt(Items.Objects[Index]);
if (i>=1)and(i<256) then S:='W' else // Windows std paper size
if (i>=1)and(i<=MAX_TYP_KNOWN) then S := 'W' else // Known Windows std paper size
if (i>MAX_TYP_KNOWN)and (i<256) then S:='w' else // Unkknown Windows std paper size
if (i=256) then S:='U' else // User Defined paper size
if (i>=2000) then S:='I' else // Looks like an Input Slot
if (i>=1000) then S:='C' // Known Custom No-Std Paper Size

3
components/lazreport/source/lr_prntr.pas
View File

@ -70,6 +70,9 @@ type
var
Prn: TfrPrinter;
const
MAX_TYP_KNOWN = 118;
implementation
type