You've already forked lazarus-ccr
applications
bindings
components
acs
beepfp
chelper
cmdline
colorpalette
epiktimer
fpspreadsheet
geckoport
gradcontrols
iphonelazext
jvcllaz
manualdock
mplayer
multithreadprocs
onguard
orpheus
powerpdf
Example
LazarusExamples
FontDemo
JpegImageExample
LineDemo
MakeDoc
MultiSizePagesDemo
PageLayoutModeExample
PageLayoutMode.lpi
PageLayoutMode.lpr
PageLayoutMode.res
Unit1.pas
unit1.lfm
unit1.lrs
xpm
PRAnnotation.pas
PRJpegImage.pas
PReport.pas
PdfDoc.pas
PdfFonts.pas
PdfGBFonts.pas
PdfImages.pas
PdfJPFonts.pas
PdfJpCMap.pas
PdfJpegImage.pas
PdfTypes.pas
PowerPdf.dcr
PowerPdf.lrs
PowerPdf.pas
PowerPdfRef.pdf
lgpl.txt
pack_powerpdf.cfg
pack_powerpdf.dof
pack_powerpdf.dpk
pack_powerpdf.dsk
pack_powerpdf.lpk
pack_powerpdf.pas
pack_powerpdf.res
readme-lazarus.txt
readme.txt
rgbgraphics
richmemo
richview
rtfview
rx
smnetgradient
svn
thtmlport
tparadoxdataset
tvplanit
virtualtreeview
virtualtreeview-new
xdev_toolkit
examples
lclbindings
wst
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 �錾 }
|
|
public
|
|
{ Public �錾 }
|
|
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.
|