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

fixed refresh list of printers returns empty list

Browse Source 
git-svn-id: trunk@8549 -
This commit is contained in:
jesus 2006-01-18 05:32:25 +00:00
parent 7e79e0d25c
commit 56054cce54
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -438,13 +438,7 @@ begin
end;
procedure TCUPSPrinter.DoResetPrintersList;
var
PrintersCount: Longint;
begin
PrintersCount := Printers.Count;
inherited DoResetPrintersList;
if Assigned(fcupsPPD) then
begin
ppdClose(fcupsPPD);
@ -459,9 +453,11 @@ begin
FreeOptions;
if Assigned(fcupsPrinters) and CUPSLibInstalled then begin
cupsFreeDests(PrintersCount,fcupsPrinters);
cupsFreeDests(Printers.Count,fcupsPrinters);
fCupsPrinter := nil;
end;
inherited DoResetPrintersList;
end;
procedure TCUPSPrinter.DoEnumPrinters(Lst: TStrings);

4
components/printers/win32/winprinters.inc
View File

@ -264,8 +264,6 @@ procedure TWinPrinter.DoResetPrintersList;
var i : Integer;
Obj : TObject;
begin
inherited DoResetPrintersList;
if Printers.Count>0 then
begin
for i:=0 to Printers.Count-1 do
@ -275,6 +273,8 @@ begin
FreeAndNil(Obj);
end;
end;
inherited DoResetPrintersList;
end;
procedure TWinPrinter.DoEnumPapers(Lst: TStrings);