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

Carbon: fixed crash when no printers installed. Issues #15475 and #20112

Browse Source 
git-svn-id: trunk@34340 -
This commit is contained in:
zeljko 2011-12-21 07:42:49 +00:00
parent 99f59d9279
commit 3f02801700
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/printers/carbon/carbonprinters.inc
View File

@ -126,7 +126,10 @@ var
begin
Result := '';
P := GetCurrentPrinter;
if P <> nil then Result := CFStringToStr(PMPrinterGetName(P));
if P <> nil then
Result := CFStringToStr(PMPrinterGetName(P));
if Trim(Result) = '' then
Result := '';
end;
procedure TCarbonPrinter.BeginPage;