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

Revert r54133 #338d5c3fb5, cupsdyn unit compiles only on Unix systems. Remove LCLProc.

Browse Source 
git-svn-id: trunk@54134 -
This commit is contained in:
juha 2017-02-09 21:39:20 +00:00
parent 338d5c3fb5
commit 960ee79438
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/printers/printer4lazarus.lpk
View File

@ -55,6 +55,7 @@
</Item5>
<Item6>
<Filename Value="unix\cupsdyn.pp"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="cupsdyn"/>
</Item6>
<Item7>

2
components/printers/printer4lazarus.pas
View File

@ -8,7 +8,7 @@ unit Printer4Lazarus;
interface
uses
PrintersDlgs, OSPrinters, cupsdyn, Printer4LazStrConst, LazarusPackageIntf;
PrintersDlgs, OSPrinters, Printer4LazStrConst, LazarusPackageIntf;
implementation

4
components/printers/unix/cupsdyn.pp
View File

@ -49,7 +49,7 @@ interface
uses
Classes, SysUtils, LCLProc, dynlibs,
Classes, SysUtils, dynlibs,
{$ifdef UseLibC}
{$IFDEF darwin}
miniCupsLibc
@ -1204,7 +1204,7 @@ begin
if CupsLibHandle = nilhandle then
begin
debugln('InitializeCups load cups lib failed');
//debugln('InitializeCups load cups lib failed');
RefCount := 0;
raise EInOutError.Create('Can not load cups library');
end;