paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 08:41:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IPro, TIpHtmlPanel: Support color printers. Issue #27420, patch from Michl.

Browse Source 
git-svn-id: trunk@47652 -
This commit is contained in:
juha 2015-02-08 18:05:37 +00:00
parent 83ce9e7c08
commit 54f7e2e148
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iphtml.pas
View File

@ -13000,7 +13000,7 @@ begin
// printer should have 2 colors, somebody else needs to clarify. // printer should have 2 colors, somebody else needs to clarify.
BWPrinter := false; BWPrinter := false;
{$ELSE} {$ELSE}
BWPrinter := GetDeviceCaps(Printer.Canvas.Handle, PLANES) = 1; BWPrinter := GetDeviceCaps(Printer.Canvas.Handle, NUMCOLORS) = 2;
{$ENDIF} {$ENDIF}
{$IFDEF IP_LAZARUS} {$IFDEF IP_LAZARUS}
LogPixX := Printer.XDPI; LogPixX := Printer.XDPI;

1
lcl/lcltype.pp
View File

@ -2124,6 +2124,7 @@ const
VERTRES = 10; { Vertical height in pixels } VERTRES = 10; { Vertical height in pixels }
BITSPIXEL = 12; { Number of bits per pixel } BITSPIXEL = 12; { Number of bits per pixel }
PLANES = 14; { Number of planes } PLANES = 14; { Number of planes }
NUMCOLORS = 24; { Number of colors }
LOGPIXELSX = 88; { Logical pixelsinch in X } LOGPIXELSX = 88; { Logical pixelsinch in X }
LOGPIXELSY = 90; { Logical pixelsinch in Y } LOGPIXELSY = 90; { Logical pixelsinch in Y }
SIZEPALETTE = 104; { Number of entries in physical palette } SIZEPALETTE = 104; { Number of entries in physical palette }