87fdff01a2
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4
108 lines
2.3 KiB
ObjectPascal
108 lines
2.3 KiB
ObjectPascal
unit Unit1;
|
||
|
||
{$MODE Delphi}
|
||
|
||
interface
|
||
|
||
uses
|
||
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
StdCtrls, ExtCtrls, PdfDoc, PReport, {ShellAPI,} LResources, Buttons;
|
||
|
||
type
|
||
TForm1 = class(TForm)
|
||
PRPage1: TPRPage;
|
||
PRLayoutPanel1: TPRLayoutPanel;
|
||
PRLabel1: TPRLabel;
|
||
PRLabel2: TPRLabel;
|
||
PRLabel3: TPRLabel;
|
||
PRLabel4: TPRLabel;
|
||
PRLabel5: TPRLabel;
|
||
PRLabel6: TPRLabel;
|
||
PRLabel7: TPRLabel;
|
||
PRLabel8: TPRLabel;
|
||
PRLabel9: TPRLabel;
|
||
PRLabel10: TPRLabel;
|
||
PRLabel11: TPRLabel;
|
||
PRLabel12: TPRLabel;
|
||
PRLabel13: TPRLabel;
|
||
PRLabel14: TPRLabel;
|
||
PRLabel15: TPRLabel;
|
||
PRLabel16: TPRLabel;
|
||
PRLabel17: TPRLabel;
|
||
PRLabel18: TPRLabel;
|
||
PRLabel19: TPRLabel;
|
||
PRLabel20: TPRLabel;
|
||
PRLabel21: TPRLabel;
|
||
PRLabel22: TPRLabel;
|
||
PRLabel23: TPRLabel;
|
||
PRLabel24: TPRLabel;
|
||
PRLabel25: TPRLabel;
|
||
PRLabel26: TPRLabel;
|
||
PRLabel27: TPRLabel;
|
||
Button1: TButton;
|
||
PReport1: TPReport;
|
||
RadioGroup1: TRadioGroup;
|
||
RadioGroup2: TRadioGroup;
|
||
PRPage2: TPRPage;
|
||
PRLayoutPanel2: TPRLayoutPanel;
|
||
PRLabel28: TPRLabel;
|
||
PRLabel29: TPRLabel;
|
||
PRLabel30: TPRLabel;
|
||
PRLabel31: TPRLabel;
|
||
PRLabel32: TPRLabel;
|
||
PRLabel33: TPRLabel;
|
||
PRLabel34: TPRLabel;
|
||
PRLabel35: TPRLabel;
|
||
PRLabel36: TPRLabel;
|
||
PRLabel37: TPRLabel;
|
||
PRLabel38: TPRLabel;
|
||
PRLabel39: TPRLabel;
|
||
PRLabel40: TPRLabel;
|
||
PRLabel41: TPRLabel;
|
||
PRLabel42: TPRLabel;
|
||
PRLabel43: TPRLabel;
|
||
PRLabel44: TPRLabel;
|
||
PRLabel45: TPRLabel;
|
||
PRLabel46: TPRLabel;
|
||
PRLabel47: TPRLabel;
|
||
PRLabel48: TPRLabel;
|
||
PRLabel49: TPRLabel;
|
||
PRLabel50: TPRLabel;
|
||
PRLabel51: TPRLabel;
|
||
PRLabel52: TPRLabel;
|
||
PRLabel53: TPRLabel;
|
||
PRLabel54: TPRLabel;
|
||
procedure Button1Click(Sender: TObject);
|
||
private
|
||
{ Private <20>錾 }
|
||
public
|
||
{ Public <20>錾 }
|
||
end;
|
||
|
||
var
|
||
Form1: TForm1;
|
||
|
||
implementation
|
||
|
||
|
||
procedure TForm1.Button1Click(Sender: TObject);
|
||
begin
|
||
with PReport1 do
|
||
begin
|
||
BeginDoc;
|
||
PReport1.PageLayout := TPRPageLayout(RadioGroup1.ItemIndex);
|
||
PReport1.PageMode := TPRPageMode(RadioGroup2.ItemIndex);
|
||
Print(PRPage1);
|
||
Print(PRPage2);
|
||
Print(PRPage1);
|
||
Print(PRPage2);
|
||
EndDoc;
|
||
end;
|
||
//ShellExecute(Self.Handle, 'Open', 'default.pdf', '', '', SW_SHOW);
|
||
end;
|
||
|
||
initialization
|
||
{$i Unit1.lrs}
|
||
|
||
end.
|