← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to components/lazreport/source/lr_prntr.pas

  • Committer: Package Import Robot
  • Author(s): Abou Al Montacir
  • Date: 2014-07-14 20:16:50 UTC
  • mfrom: (1.1.15)
  • Revision ID: package-import@ubuntu.com-20140714201650-ossm36rrsdomp379
Tags: 1.2.4+dfsg-1
* New upstream release with few fixes and official support of FPC 2.6.4.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.2_fixes_branch#Fixes_for_1.2.4_.28Merged.29

Show diffs side-by-side

added added

removed removed

Lines of Context:
components/lazreport/source/lr_prntr.pas
60
60
    function GetArrayPos(pgSize: Integer): Integer;
61
61
    function DefaultPaperIndex: Integer;
62
62
    function DefaultPageSize: Integer;
 
63
    function UseVirtualPrinter: boolean;
 
64
    {$IFDEF DbgPrinter}
 
65
    procedure DumpPrinterInfo;
 
66
    {$ENDIF}
63
67
    
64
68
    property PaperNames: TStringList read GetPaperNames;
65
69
    property Printer: TPrinter read FPrinter write SetPrinter;
806
810
  {$Endif}
807
811
  // if selected printer is default printer, ie our virtual printer
808
812
  // then select our own set of papers
809
 
  if FPrinterIndex = FDefaultPrinter then
 
813
  if UseVirtualPrinter then
810
814
  begin
811
815
    (*
812
816
    // a papersize has been selected, maybe from a page recently loaded
953
957
var
954
958
  kx, ky: Double;
955
959
begin
 
960
  {$ifdef DbgPrinter}
 
961
  DebugLnEnter(['TfrPrinter.FillPrnInfo INIT IsDefaultPrinter=',UseVirtualPrinter]);
 
962
  {$endif}
 
963
 
956
964
  kx := 93 / 1.022;
957
965
  ky := 93 / 1.015;
958
966
  
959
 
  if (FPrinterIndex = FDefaultPrinter) then
 
967
  if UseVirtualPrinter then
960
968
  begin
961
969
    with p do
962
970
    begin
1060
1068
    result := 9;
1061
1069
end;
1062
1070
 
 
1071
function TfrPrinter.UseVirtualPrinter: boolean;
 
1072
begin
 
1073
  result := FPrinterIndex = FDefaultPrinter;
 
1074
end;
 
1075
 
 
1076
{$IFDEF DbgPrinter}
 
1077
procedure TfrPrinter.DumpPrinterInfo;
 
1078
begin
 
1079
 
 
1080
  DbgOut(['PrinterIndex=',FPrinterIndex]);
 
1081
  if (FPrinters<>nil)and(FPrinters.Count>0) then begin
 
1082
    if FPrinterIndex>=0 then
 
1083
      DbgOut([' (',FPrinters[FPrinterIndex],')'])
 
1084
  end else
 
1085
    DbgOut(' (no defined internal list of printers)');
 
1086
  DebugLn([' Is Default(Virtual) printer=',UseVirtualPrinter]);
 
1087
  if FPrinter=nil then
 
1088
    DebugLn('SysPrinter is nil')
 
1089
  else
 
1090
    DebugLn(['Sys Printer: Index = ', FPrinter.PrinterIndex,' Name=',FPrinter.PrinterName]);
 
1091
end;
 
1092
{$ENDIF}
 
1093
 
1063
1094
procedure TfrPrinter.SetPrinterIndex(Value: Integer);
1064
1095
begin
1065
1096
  FPrinterIndex := Value;
1066
 
  if Value = FDefaultPrinter then
 
1097
  if UseVirtualPrinter then
1067
1098
    SetSettings
1068
1099
  else
1069
1100
    if FPrinter.Printers.Count > 0 then