paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 05:59:08 +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

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

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