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

LCL, fix recursion on getting default paper name, issue #16496

Browse Source 
git-svn-id: trunk@25492 -
This commit is contained in:
jesus 2010-05-18 01:13:27 +00:00
parent 99acaf9013
commit 94774d56fb
1 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lcl/printers.pas
View File

@ -155,6 +155,7 @@ type
function GetSupportedPapers: TStrings;
procedure SetPaperName(const AName: string);
function PaperRectOfName(const AName: string) : TPaperRect;
procedure CheckSupportedPapers;
private
fInternalPapers : array of TPaperItem;
fDefaultPapers : boolean;
@ -885,6 +886,8 @@ end;
function TPaperSize.GetDefaultPaperName: string;
begin
CheckSupportedPapers;
if fDefaultPapers then
Result := FSupportedPapers[0]
else
@ -924,6 +927,8 @@ end;
function TPaperSize.GetPaperName: string;
begin
CheckSupportedPapers;
if fDefaultPapers then
Result := SupportedPapers[FDefaultPaperIndex]
else
@ -945,21 +950,8 @@ end;
function TPaperSize.GetSupportedPapers: TStrings;
begin
if (fSupportedPapers.Count=0) or
(fLastPrinterIndex<>fOwnedPrinter.PrinterIndex) then
begin
fOwnedPrinter.SelectCurrentPrinterOrDefault;
fSupportedPapers.Clear;
fDefaultPapers := false;
//DebugLn(['TPaperSize.GetSupportedPapers ',dbgsName(fOwnedPrinter),' ',dbgsName(Printer),' ',fOwnedPrinter=Printer]);
fOwnedPrinter.DoEnumPapers(fSupportedPapers);
CheckSupportedPapers;
if fSupportedPapers.Count=0 then
FillDefaultPapers;
fLastPrinterIndex:=fOwnedPrinter.PrinterIndex;
end;
Result:=fSupportedPapers;
end;
@ -1016,6 +1008,25 @@ begin
else raise EPrinter.Create(Format('Paper "%s" not supported !',[aName]));
end;
procedure TPaperSize.CheckSupportedPapers;
begin
if (fSupportedPapers.Count=0) or
(fLastPrinterIndex<>fOwnedPrinter.PrinterIndex) then
begin
fOwnedPrinter.SelectCurrentPrinterOrDefault;
fSupportedPapers.Clear;
fDefaultPapers := false;
//DebugLn(['TPaperSize.GetSupportedPapers ',dbgsName(fOwnedPrinter),' ',dbgsName(Printer),' ',fOwnedPrinter=Printer]);
fOwnedPrinter.DoEnumPapers(fSupportedPapers);
if fSupportedPapers.Count=0 then
FillDefaultPapers;
fLastPrinterIndex:=fOwnedPrinter.PrinterIndex;
end;
end;
constructor TPaperSize.Create(aOwner: TPrinter);
begin
if not assigned(aOwner) then