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

fixed Printer4Lazarus linux compilation

Browse Source 
git-svn-id: trunk@8251 -
This commit is contained in:
jesus 2005-12-04 01:51:59 +00:00
parent 205d76944f
commit 6ef8592ac3
2 changed files with 0 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/printers/linux/cupsprinters.inc
View File

@ -4,35 +4,6 @@ Implementation for cupsprinter
uses udlgSelectPrinter,udlgpropertiesprinter, FileUtil;
function TCUPSPrinter.PrintDialog: Boolean;
Var Dlg : TdlgSelectPrinter;
begin
Dlg:=TdlgSelectPrinter.Create(nil);
try
Dlg.btnPreview.Visible:=False;
Result:=(Dlg.ShowModal=mrOk);
finally
Dlg.Free;
end;
end;
function TCUPSPrinter.PrinterSetup: Boolean;
Var Dlg : Tdlgpropertiesprinter;
begin
//Set default printer
SelectCurrentPrinterOrDefault;
Dlg:=TdlgPropertiesPrinter.Create(nil);
try
Result:=(Dlg.ShowModal=mrOk);
if Result then
Dlg.InitProperties;
finally
Dlg.Free;
end;
end;
//Return always 72 because, PostScript it's 72 only
function TCUPSPrinter.GetXDPI: Integer;
begin

3
components/printers/linux/cupsprinters_h.inc
View File

@ -139,9 +139,6 @@ type
constructor Create; override;
destructor Destroy; override;
function PrintDialog : Boolean; override;
function PrinterSetup: Boolean; override;
{-------------------------------------------------
SPECIFIC CUPS METHODS OR PROPERTIES
--------------------------------------------------}