paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:16:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa-printer: Now it can already list printer names, part 2

Browse Source 
git-svn-id: trunk@47775 -
This commit is contained in:
sekelsenmat 2015-02-14 10:14:24 +00:00
parent 37da396bcd
commit 0c07d2cc8b
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/printers/cocoa/cocoaprinters.inc
View File

@ -336,7 +336,7 @@ var
FPrinterArray: NSArray;
//NewPrinter: NSPrinter;
begin
{FPrinterArray := NSPrinter.printerNames();
FPrinterArray := NSPrinter.printerNames();
FPrinterArray.retain;
if FPrinterArray = nil then Exit;
@ -355,7 +355,7 @@ begin
Lst.InsertObject(0, NewPrinterName, nil{TObject(NewPrinter)})
else
Lst.AddObject(NewPrinterName, nil{TObject(NewPrinter)});
end;}
end;
end;
procedure TCocoaPrinter.DoResetPrintersList;

3
components/printers/cocoa/cocoaprinters_h.inc
View File

@ -1,6 +1,7 @@
{%MainUnit ../osprinters.pas}
//{$modeswitch objectivec1}
{$modeswitch objectivec1}
{$H+}
uses
// fpc