paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-11 07:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Printers, dialogs, if Title='' use DefaultTitle like in qt, (cups/linux)

Browse Source 
git-svn-id: trunk@41118 -
This commit is contained in:
jesus 2013-05-10 18:39:38 +00:00
parent 8224cfda56
commit 9f4729fa53
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,7 +63,10 @@ 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 Title<>'' then
Dlg.Caption := Title
else
Dlg.Caption := DefaultTitle;
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);
@ -113,7 +116,10 @@ var
Dlg: TDlgPageSetup; Dlg: TDlgPageSetup;
begin begin
Dlg:=TdlgPageSetup.Create(nil); Dlg:=TdlgPageSetup.Create(nil);
Dlg.Caption:=Title; if Title<>'' then
Dlg.Caption:=Title
else
Dlg.Caption:=DefaultTitle;
try try
Result:=(Dlg.ShowModal=mrOk); Result:=(Dlg.ShowModal=mrOk);
if Result then begin if Result then begin