paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Added TPrinter.Write(ansistring) method, by LacaK, issue #27869

Browse Source 
git-svn-id: trunk@48770 -
This commit is contained in:
jesus 2015-04-17 17:38:27 +00:00
parent 91c6550644
commit e4ca357f5d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/printers.pas
View File

@ -277,6 +277,7 @@ type
procedure SetPrinter(aName : String);
Procedure RestoreDefaultBin; virtual;
function Write(const Buffer; Count:Integer; var Written: Integer): Boolean; virtual;
function Write(const s: ansistring): boolean; overload;
property PrinterIndex : integer read GetPrinterIndex write SetPrinterIndex;
property PrinterName: string read GetPrinterName;
@ -483,6 +484,13 @@ begin
result := False;
end;
function TPrinter.Write(const S: ansistring): Boolean; overload;
var
Written: integer;
begin
Result := Write(S[1], Length(S), Written);
end;
//Return an Canvas object
function TPrinter.GetCanvas: TCanvas;
begin