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

LCL, set default copies=1 in print dialog, from C. Western, issue #15831

Browse Source 
git-svn-id: trunk@23755 -
This commit is contained in:
jesus 2010-02-21 21:35:55 +00:00
parent 84ee7a6b32
commit 55303289f0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dialogs.pp
View File

@ -470,7 +470,7 @@ type
constructor Create(TheOwner: TComponent); override;
public
property Collate: Boolean read FCollate write FCollate default False;
property Copies: Integer read FCopies write FCopies default 0;
property Copies: Integer read FCopies write FCopies default 1;
property FromPage: Integer read FFromPage write FFromPage default 0;
property MinPage: Integer read FMinPage write FMinPage default 0;
property MaxPage: Integer read FMaxPage write FMaxPage default 0;
@ -698,6 +698,7 @@ constructor TCustomPrintDialog.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FPrintRange:=prAllPages;
FCopies:=1;
end;
initialization