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

added printer initialization after populating printers list

Browse Source 
git-svn-id: trunk@9492 -
This commit is contained in:
jesus 2006-06-23 19:36:26 +00:00
parent 746c0804a0
commit 8c58074886
3 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/printers/unix/cupsprinters.inc
View File

@ -489,13 +489,6 @@ begin
GetEnumAttributeString('media-supported',Lst);
end;
procedure TCUPSPrinter.DoInitialization;
begin
//printer list has been obtained
if Printers.Count > 0 then
SelectCurrentPrinterOrDefault;
end;
function TCUPSPrinter.DoSetPrinter(aName: string): Integer;
Var i : Integer;
P : Pcups_dest_t;

1
components/printers/unix/cupsprinters_h.inc
View File

@ -102,7 +102,6 @@ type
procedure DoEnumPrinters(Lst : TStrings); override;
procedure DoEnumPapers(Lst : TStrings); override;
procedure DoInitialization; override;
function DoSetPrinter(aName : string): Integer; override;
function DoGetCopies : Integer; override;
procedure DoSetCopies(aValue : Integer); override;

2
lcl/printers.pas
View File

@ -489,6 +489,8 @@ begin
if not fPrintersValid then begin
fPrintersValid:=true;
DoEnumPrinters(fPrinters);
if FPrinters.Count>0 then
SelectCurrentPrinterOrDefault;
DoInitialization;
end;
end;