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

get printer's count before freeing dests

Browse Source 
git-svn-id: trunk@8425 -
This commit is contained in:
jesus 2006-01-03 21:25:19 +00:00
parent ee3c5a89d3
commit 9269e2f551
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -438,7 +438,11 @@ begin
end;
procedure TCUPSPrinter.DoResetPrintersList;
var
PrintersCount: Longint;
begin
PrintersCount := Printers.Count;
inherited DoResetPrintersList;
if Assigned(fcupsPPD) then
@ -446,7 +450,7 @@ begin
ppdClose(fcupsPPD);
fcupsPPD:=nil;
end;
if fcupsPPDName<>'' then
begin
DeleteFile(fcupsPPDName);
@ -455,7 +459,7 @@ begin
FreeOptions;
if Assigned(fcupsPrinters) and CUPSLibInstalled then begin
cupsFreeDests(Printers.Count,fcupsPrinters);
cupsFreeDests(PrintersCount,fcupsPrinters);
fCupsPrinter := nil;
end;
end;