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

Printers, fix dialogs title (cups/linux), issue #14186

Browse Source 
git-svn-id: trunk@41116 -
This commit is contained in:
jesus 2013-05-10 18:18:36 +00:00
parent cfa31199d1
commit 34d14fbf7a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/printers/unix/cupsprndialogs.inc
View File

@ -63,6 +63,7 @@ begin
Dlg.Options := Self.Options; Dlg.Options := Self.Options;
Dlg.PrintRange := Self.PrintRange; Dlg.PrintRange := Self.PrintRange;
Dlg.cbCollate.Checked := Self.Collate; Dlg.cbCollate.Checked := Self.Collate;
Dlg.Caption := Self.Title;
if FromPage<1 then FromPage:=1; if FromPage<1 then FromPage:=1;
if ToPage<FromPage then ToPage:=FromPage; if ToPage<FromPage then ToPage:=FromPage;
Dlg.edRange.Text := IntToStr(Self.FromPage) +'-'+ IntToStr(Self.ToPage); Dlg.edRange.Text := IntToStr(Self.FromPage) +'-'+ IntToStr(Self.ToPage);
@ -112,6 +113,7 @@ var
Dlg: TDlgPageSetup; Dlg: TDlgPageSetup;
begin begin
Dlg:=TdlgPageSetup.Create(nil); Dlg:=TdlgPageSetup.Create(nil);
Dlg.Caption:=Title;
try try
Result:=(Dlg.ShowModal=mrOk); Result:=(Dlg.ShowModal=mrOk);
if Result then begin if Result then begin