paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 02:01:18 +01: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; FPrinterArray: NSArray;
//NewPrinter: NSPrinter; //NewPrinter: NSPrinter;
begin begin
{FPrinterArray := NSPrinter.printerNames(); FPrinterArray := NSPrinter.printerNames();
FPrinterArray.retain; FPrinterArray.retain;
if FPrinterArray = nil then Exit; if FPrinterArray = nil then Exit;
@ -355,7 +355,7 @@ begin
Lst.InsertObject(0, NewPrinterName, nil{TObject(NewPrinter)}) Lst.InsertObject(0, NewPrinterName, nil{TObject(NewPrinter)})
else else
Lst.AddObject(NewPrinterName, nil{TObject(NewPrinter)}); Lst.AddObject(NewPrinterName, nil{TObject(NewPrinter)});
end;} end;
end; end;
procedure TCocoaPrinter.DoResetPrintersList; procedure TCocoaPrinter.DoResetPrintersList;

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

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