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

LazReport, debug info

Browse Source 
git-svn-id: trunk@40477 -
This commit is contained in:
jesus 2013-03-04 08:12:13 +00:00
parent fceb1d9776
commit 9dcc0cfc38
1 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/lazreport/source/lr_class.pas
View File

@ -3549,7 +3549,7 @@ var
begin begin
{$IFDEF DebugLR} {$IFDEF DebugLR}
WriteStr(St, DrawMode); WriteStr(St, DrawMode);
DebugLnEnter('TfrMemoView.Print INIT %s DrawMode=%s',[ViewInfoDIM(Self), st]); DebugLnEnter('TfrMemoView.Print INIT %s DrawMode=%s Visible=%s',[ViewInfoDIM(Self), st, dbgs(Visible)]);
{$ENDIF} {$ENDIF}
BeginDraw(TempBmp.Canvas); BeginDraw(TempBmp.Canvas);
Streaming := True; Streaming := True;
@ -3581,6 +3581,9 @@ begin
if not Visible then if not Visible then
begin begin
{$IFDEF DebugLR}
DebugLnExit('TfrMemoView.Print EXIT Not Visible!');
{$ENDIF}
DrawMode := drAll; DrawMode := drAll;
Exit; Exit;
end; end;
@ -9968,9 +9971,11 @@ end;
procedure TfrReport.SetPrinterTo(const PrnName: String); procedure TfrReport.SetPrinterTo(const PrnName: String);
begin begin
{$ifdef dbgPrinter} {$ifdef dbgPrinter}
DebugLn('TfrReport.SetPrinterTo PrnName=%s PrintToDefault=%d PrnExist?=%d PrnIndex=%d PrinterIndex=%d Name=%s', DebugLn;
[prnName, Ord(PrintToDefault), Ord(Prn.Printers.IndexOf(PrnName)>=0), DebugLnENTER('TfrReport.SetPrinterTo PrnName="%s" PrnExist?=%s CurPrinter=%s',
prn.PrinterIndex, Prn.Printer.PrinterIndex, prn.Printer.Printers[prn.Printer.PrinterIndex]]); [prnName, dbgs(Prn.Printers.IndexOf(PrnName)>=0), prn.Printer.PrinterName]);
DebugLn(['PrintToDefault=',PrintToDefault,' prnIndex=',prn.PrinterIndex,
' PrinterIndex=',Prn.Printer.PrinterIndex]);
{$endif} {$endif}
if not PrintToDefault then if not PrintToDefault then
begin begin
@ -9981,6 +9986,9 @@ begin
Prn.PrinterIndex := 0 // either the system default or Prn.PrinterIndex := 0 // either the system default or
// own virtual default printer // own virtual default printer
end; end;
{$ifdef dbgPrinter}
DebugLnExit('TfrReport.SetPrinterTo DONE Printer="%s"',[Prn.Printer.PrinterName]);
{$endif}
end; end;
function TfrReport.ChangePrinter(OldIndex, NewIndex: Integer): Boolean; function TfrReport.ChangePrinter(OldIndex, NewIndex: Integer): Boolean;
@ -9997,24 +10005,30 @@ function TfrReport.ChangePrinter(OldIndex, NewIndex: Integer): Boolean;
end; end;
begin begin
{$ifdef dbgPrinter}
DebugLn;
DebugLnEnter('TfrReport.ChangePrinter INIT CurIndex=%d OldIndex=%d NewIndex=%d',
[Prn.PrinterIndex,OldIndex,NewIndex]);
DebugLn('CurPrinter=%s NewPrinter=%s',[prn.Printer.PrinterName, prn.Printer.Printers[NewIndex]]);
{$endif}
Result := True; Result := True;
try try
{$ifdef dbgPrinter}
DebugLn('TfrReport.ChangePrinter CurIndex=%d OldIndex=%d NewIndex=%d',
[Prn.PrinterIndex,OldIndex,NewIndex]);
{$endif}
Prn.PrinterIndex := NewIndex; Prn.PrinterIndex := NewIndex;
Prn.PaperSize := -1; Prn.PaperSize := -1;
ChangePages; ChangePages;
except except
on Exception do on E:Exception do
begin begin
{$ifdef dbgPrinter}DebugLn('Change printer error: %s',[E.Message]);{$endif}
MessageDlg(sPrinterError,mtError,[mbOk],0); MessageDlg(sPrinterError,mtError,[mbOk],0);
Prn.PrinterIndex := OldIndex; Prn.PrinterIndex := OldIndex;
ChangePages; ChangePages;
Result := False; Result := False;
end; end;
end; end;
{$ifdef dbgPrinter}
DebugLnExit('TfrReport.ChangePrinter DONE Printer=%s', [Prn.Printer.PrinterName]);
{$endif}
end; end;
procedure TfrReport.EditPreparedReport(PageIndex: Integer); procedure TfrReport.EditPreparedReport(PageIndex: Integer);