paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 15:29:46 +01: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> </Item5>
<Item6> <Item6>
<Filename Value="unix\cupsdyn.pp"/> <Filename Value="unix\cupsdyn.pp"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="cupsdyn"/> <UnitName Value="cupsdyn"/>
</Item6> </Item6>
<Item7> <Item7>

2
components/printers/printer4lazarus.pas
View File

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

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

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