LightReport2 Documentation
Version 2.4.1
1999-2000 Copyright(c) Takeshi Kanno
2001-2001 Copyright(c) Kazuyoshi Ohta
----------------------------------------------------------------------------
 ͂߂
----------------------------------------------------------------------------
@LightReportR|lǵuyăVvŃI[v\[XvRZvgɂ
  čꂽR|[lgłB

@"Kvȕ̓R[h"ƂOɍꂽR|[lĝ߁A
QuickReportƔׂƋ@\͗܂̕yĂAExet@C
TCY܂B

@܂AcȃvpeB̒Kvȋ@\ToԂAR|[lg
̕GȈˑ֌WEׂoOɔY܂邱Ƃ߁A኱̃R[fBO
Kvł_ĂAJ͂ނAbv͂łB

@ɁA\[XJŃJXg}CY₷悤ɍĂ܂̂ŁAׂȐ
䂪KvȋƖVXe̒[iɓ`[ށj쐬ꍇɂ𗧂Ǝv܂B

@TvvOĂ΂킩Ǝv܂Aقڂ`̒
[쐬鎖o܂B܂Ao[W2.2́AԊuEsԊuƎ
włTLRVariableTextR|[lgX֔ԍJX^}[o[R[ho͂
TLRPostBarItemR|[lgǉAɑ푽l̒[쐬\ɂ
܂BTvvO̓eɂẮÃhLǵuTvv
ȌЉvĂA܂ÃR|lggꍇ͂
hLǵuJ҃KChvĂB
----------------------------------------------------------------------------
 TLightRepR|[lg
----------------------------------------------------------------------------
TLightRep = class(TComponent);
TLightRep͈sR|lgłBTLightRepɃplEACe
邱ƂɂAGȒ[ȒPɏo͂邱Ƃł܂܂A܂
łȂꍇ̂߂ TextRectStretchDrawƂ`ʃ]bhpӂĂ
܂ɁAPreview]bhgp邱ƂɂACӂCanvasPreview\
邱Ƃł܂
----------------------------------------------------------------------------
 TLightRepR|[lg̃vpeB
----------------------------------------------------------------------------
property Title: TCaption;  
TitlevpeB͈Ƀvg}l[Wɕ\eLXgw肵܂B
property Printer: TPrinter;  
PrintervpeB͈Ɏgpv^Ԃ܂B 
property PageNumber: integer; 
PageNumbervpeB݈͌̃y[W܂łȂꍇ0
܂ 
H1 property PrintCanvas: TCanvas; 
T PrintCanvasvpeB݈͌CanvasԂ܂̂ݗLȃvpe
T BłB
H1 property PaperSize: TPaperSize; 
T PaperSizevpeB͈sp̑傫w肵܂psNoneȊOɐݒ肵
T ꍇ́AIɃR|[lg̑傫ݒ肳Av^̐ݒōs
T ܂BȊO̗pgpꍇE܂͓Ȑݒ肪Kvȏꍇ́Ap
T TCY psNoneɐݒ肵AOnSetupPrinterCxgœƎɐݒs܂i
T ͍s܂jB 
H1 property Orientation: TPrinterOrientation; 
T OrientationvpeB͈w肵܂ 
H1 property MarginTop: integer; 
T MarginTopvpeB̓|[g̏̃}[Ww肵܂ 
H1 property MarginLeft: integer; 
T MarginLeftvpeB̓|[g̍̃}[Ww肵܂ 
H1 property MarginRight: integer; 
T MarginRightvpeB̓|[g̉Ẽ}[Ww肵܂ 
H1 property MarginBottom: integer; 
T MarginBottomvpeB̓|[g̉̃}[Ww肵܂ 
#----------------------------------------------------------------------------
H0 TLightRepR|[lg̃\bh
#----------------------------------------------------------------------------
H1 procedure BeginDoc; 
T BeginDo\bh͈Jn܂ 
H1 procedure BeginPreview; 
T BeginPreview\bh́Av[JnɌĂяoA|[gv[
T [hɐݒ肵܂B 
H1 procedure Print; 
T Print\bh́ATLightReportɔzuꂽR|lg̈s܂
T y[Ẅsꍇ́Ã]bh𕡐Ăяo܂ 
T procedure EndDoc; 
T EndDoc\bh́AI܂ 
H1 procedure NewPage; 
T NewPage\bh́Ã݂y[ẄIy[Ws܂ 
H1 procedure StretchDIBDraw(Rect: TRect; Graphic: TGraphic); 
T StretchDIBDraw\bh́AGraphicŎw肳ꂽOtBbÑ݂y[W
T RectŎw肵ʒuɈ܂ 
H1 procedure TextRect(Rect: TRect; X, Y: Integer; 
M -03
BH                                             const Text: string; Font: TFont); 
M 003
T TextŎw肳ꂽ݂̃y[WRectŎw肵ʒuɏo͂܂
#----------------------------------------------------------------------------
H0 TLightRepR|[lg̃Cxg
#----------------------------------------------------------------------------
H1 property OnSetupPrinter: TNotifyEvent; 
T OnSetupPrinterCxǵApTCY psNoneɐݒ肵ꍇɁAJn
T Ăяo܂BƎ̗pgpꍇ́AOnSetupPrinterCxg̃Cx
T gnh쐬ĂŃv^ݒ̃R[hA܂̓v^Zb
T gAbṽ_CAOĂяoăv^̐ݒs܂B
R
T OnSetupPrinterCxg̓vr[ɂ͌Ăяo܂B
#----------------------------------------------------------------------------
H0 TLRLayoutPanelR|[lg
#----------------------------------------------------------------------------
H1 TLRLayoutPanel = class(TCustomLRPanel);
T TLRLRLayoutPanelR|lǵA|[g̃CAEg\plR|l
T głBLRALignvpeBݒ肷邱ƂŁAʒu߂s܂B܂AlX
T gzuT|[gĂ邽߁Ãpld˂Ĕzu邱ƂŁAG
T |[g쐬\łB 
#----------------------------------------------------------------------------
H0 TLRLayoutPanelR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property LRAlign: TLRAlign; 
BT TLRAlign = (laTop, laLeft, laRight, laClient, laBottom);
M 003
T LRAlignvpeB́CReiieRg[jŃRg[𑵂@
T w肵܂B
R
T ʓIȒ[̏ꍇATLightRepLRAlignlaTopɎw肵pl(wb_[)A
T laBottomɎw肵pl(tb^[)2uAԂlaClientɎw肵ו
T u\ɂȂ܂B
#----------------------------------------------------------------------------
H0 TLRLayoutPanelR|[lg̃Cxg
#----------------------------------------------------------------------------
H1 property BeforePrint: TBeforePrintEvent; 
B TBeforePrintEvent = procedure(Sender: TObject; 
B                                       Rect: TRect; var Status: TPrintStatus) of object; 
M 003
T BeforePrintCxǵApl钼Oɔ܂B̃CxgvV
T [WŁAACeɒl邱ƂɂAsɁA|[gύX邱
T Ƃo܂B܂ATPrintStatusɒl邱ƂŁA̐sƂ
T o܂B
P
BT PrintStatus̒lƓ
R
T   psNormal: ɐ͍sȂ 
R
T   psLineOnly: ACéAĝ݈B 
R
T   psEndNow: ͍sȂ
H1 property AfterPrint: TNotifyEvent
T AfterPrintCxǵAplɔ܂B
#----------------------------------------------------------------------------
H0 TLRGridPanelR|[lg
#----------------------------------------------------------------------------
H1 TLRGridPanel = class(TCustomLRPanel);
T TLRGridPanelR|lǵA\`̃|[g\plR|lgłB
T LRALignvpeBݒ肷邱ƂŁAʒu߂s܂BColCountARowCountv
T peBɁAlݒ肷邱ƂɂȒPɕ\`̃|[g쐬邱Ƃł
T ܂B 
#----------------------------------------------------------------------------
H0 TLRGridPanelR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property LRAlign: TLRAlign; 
BT TLRAlign = (laTop, laLeft, laRight, laClient, laBottom);
M 003
T LRAlignvpeB́CReiieRg[jŃRg[𑵂@
T w肵܂B
H1 property ColCount: integer; 
T ColCountvpeB́C\̗񐔂w肵܂B
H1 property RowCount: integer; 
T RowCountvpeB́C\̍sw肵܂B
H1 property ReplacePanel: TLRSubPanel; 
T ŝ݂̃vpeBłBReplacePanelvpeBɁAnilȊO̒l
T ƂɂAplւ邱Ƃł܂B
H1 property PrintDirection: TPrintDirection; 
BT TPrintDirection = (pdHolz, pdVert); 
M 003
T PrintDirectionvpeB́AObḧw肵܂BpdHolzɐݒ肵
T ꍇ͍=>E=>=>ȄŁApdVertɎw肵ꍇ͍=>=>E=>
T ȄňȂ܂B
#----------------------------------------------------------------------------
H0 TLRGridPanelR|[lg̃Cxg
#----------------------------------------------------------------------------
H1 property BeforePrint: TBeforePrintEvent; 
BT TBeforePrintEvent = procedure(Sender: TObject; Rect: TRect; 
BT                                          var Status: TPrintStatus) of object; 
M 002
BT TPrintStatus = (psNormal, psLineOnly, psEndNow);
M 003
T BeforePrintCxǵApl钼Oɔ܂B̃CxgvV
T [WŃACeɒl邱ƂɂAsɃ|[gύX邱Ƃ
T o܂B܂ATPrintStatusɒl邱ƂŁA̐sƂo
T ܂B
P
BT PrintStatus̒lƓ
T    psNormal: ɐ͍sȂ 
R
T    psLineOnly: ACéAĝ݈B 
R
T    psEndNow: ͍sȂ 
H1 property OnPrintPanel: TPrintPanelEvent; 
BT TPrintPanelEvent = procedure(Sender: TObject; ACol, ARow: integer;
BT                                     Rect: TRect; var Status: TPrintStatus) of object;
M 003
T OnPrintPaneĺApľX̗vfxɔ܂BACol,ARowp
T [^A\vf̈ʒu킵܂B
H1 property AfterPrint: TNotifyEvent
T AfterPrintCxǵAplɔ܂B
H1 property AfterPrintPanel: TNotifyEvent
T AfterPrintPanelCxǵApľX̎qplۂɔ܂B
T ReplacePanelvpeBɂplւĂꍇ́A
T Cxg̑ւReplacePanelvpeBŎw肳ꂽTSubPanelAfterPrint
T CxgĂяo܂B
#----------------------------------------------------------------------------
H0 TLRSubPanelR|[lg
#----------------------------------------------------------------------------
H1 TLRSubPanel = class(TCustomLRPanel);
T TLRSubPanelR|lgTLRGridPanelƑgݍ킹ĎgpAɍvsŃ
T CAEgύXꍇɎgp܂B̃pl͑̃plƈႢA
T TLightReportȊȌꏊzuł܂B
R
T TLRSubPanelR|[lǵAGridPanelvpeBA֌W
T TLRGridPanelR|[lgw肵܂BsɁATLRGridPanelR|[lg
T ReplacePanelvpeBTLRSubPanelR|[lgƁATLRGridPanel
T ̃pl̑ɁAw肵TLRSubPanelR|[lg邱Ƃł
T B킵gṕATvvOSubPanel.dprQlɂĂB 
#----------------------------------------------------------------------------
H0 TLRSubPanelR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property GridPanel: TLRGridPanel; 
T GridPanelvpeB́C̐eƂȂTLRGridPanelRg[w肵܂B
T Rg[̃TCÝAGridPanelR|[lg̃Obh̃TCYɎIɒ
T ܂B
H1 property BeforePrint: TBeforePrintEvent; 
BT TBeforePrintEvent = procedure(Sender: TObject; Rect: TRect; 
BT                                                         var Status: TPrintStatus) of object; 
M 002
BT TPrintStatus = (psNormal, psLineOnly, psEndNow);
M 003
T BeforePrintCxǵApl钼Oɔ܂B̃CxgvV
T [WŃACeɒl邱ƂɂAsɃ|[gύX邱Ƃ
T o܂B܂ATPrintStatusɒl邱ƂŁA̐sƂo
T ܂B
P
BT PrintStatus̒lƓ
R
T    psNormal: ɐ͍sȂ 
R
T    psLineOnly: ACéAĝ݈B 
R
T    psEndNow: ͍sȂ 
#----------------------------------------------------------------------------
H0 TLRItemR|[lg
#----------------------------------------------------------------------------
H1 TLRItem = class(TCustomLRItem);
T TLRItemR|[lg̓|[gɈseLXgr܂͑̃R|[
T lg̔wiƂĎgpėpR|lgłB\eLXgTextvp
T eBɎw肵܂BAlignmentvpeBōEALayoutvpeBŏ㉺̕\ʒu
T ݒ肵܂BHMarginEVMarginvpeBŏ㉺EE̗]ݒ肵܂B
T DisplayMaskvpeBw肷邱ƂɂÃtH[}bgsƂ
T ܂BLineTop`LineBottomvpeBݒ肷邱ƂɂAr̈s
T ł܂ 
#----------------------------------------------------------------------------
H0 TLRItemR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property Align: TAlign; 
T AlignvpeB́CReiieRg[jŃRg[𑵂@
T w肵܂B
H1 property Alignment: TAlignment; 
T AlignmentvpeBݒ肷ƁCxRg[ ClientRect Ńx
T ̃eLXg𑵂@wł܂BAlignment ł͎̒lwł܂B
R
M 005
T    taLeftJustify: eLXg̓x̍[ɑ 
R
T    taRightJustify: eLXg̓x̉E[ɑ 
R
T    taCenter: eLXg̓x̉̒ɑ 
H1 property Color: TColor; 
T @ColorvpeB̓Rg[̔wiFw肵܂BTransparentvpeB
T falseݒ肳ĂƂɂ̂ݗLłB
H1 property DisplayMask: string; 
T DisplayMaskvpeB́ATextŎw肳ꂽ񂪐̏ꍇFormatFloat֐
T EłȂꍇFormatMaskText֐gpătH[}bg܂Bڍׂ
T Delphĩwvt@CFormatFloatFormatMaskText֐QlɂĂ
T B
H1 property Font: TFont; 
T FontvpeB͎gpeLXg̃tHgw肵܂B
H1 property HMargin: integer; 
T HMarginvpeB̗͐]irƕ̊ԁj̐ݒs܂
T AlimentvpeBtaCenterȊȌꍇ̂ݗLł
H1 property LineColor: TColor; 
T LineColorvpeB͌r̐F̎ws܂
H1 property LineTop: TLineStyle; 
T LineTopvpeB͏r̎ws܂rƂ̓R|[lg̏[ɂ
T ĕ`悳钼łBwłl͈ȉ̒ʂłB
R
M 005
T   lsNone: r͕\ijȂ 
R
T   lsSingle: r͕W̕ŕ`ʂB 
R
T   lsHalf: r͔̕ŕ`ʂB 
R
T   lsDouble: r͂Q{̕ŕ`ʂB 
H1 property LineLeft: TLineStyle; 
T LineLeftvpeB͍r̎ws܂włlLineTopvpeB
T QƂĂ
H1 property LineRight: TLineStyle; 
T LineRightvpeB͉Er̎ws܂włlLineTopvpeB
T QƂĂ
H1 property LineBottom: TLineStyle; 
R
T LineBottomvpeB͉r̎ws܂włlLineTopvpeB
T QƂĂ
H1 property Layout: TTextLayout; 
T Layout vpeB́CeLXg̏c̔zuw肵܂B
R
M 005
T   tlTop: eLXg̓x̏[ɕ\ 
R
T   tlCenter: eLXg̓x̏c̒ɕ\ 
R
T   tlBottom: eLXg̓x̉[ɕ\ 
H1 property Text: string; 
T TextvpeB͈镶w肵܂
H1 property Transparent: boolean; 
T TransparentvpeB͔wi𓧖ɂ邩ǂw肵܂B 
H1 property VMargin: integer; 
T VMarginvpeB̗͐]irƕ̊ԁj̐ݒs܂Layout
T vpeBtaCenterȊȌꍇ̂ݗLł
H1 property Wordwrap: boolean; 
T Wordwrap vpeB́AeLXgx̕蒷ꍇɃeLXgs
T ǂw肵܂BtrueɎw肳ꂽꍇAR|[lg̕ɓ肫Ȃ
T ͎̍sɉsďo͂܂Bs1oCg̏ꍇ͒P(pX
T y[Xŋ؂ꂽ)PʁA2oCg̏ꍇ͕Pʂōs܂B܂A2o
T Cgōs̐擪"B","A"ɂȂꍇ͈ꕶOŉs܂(֑)B
#----------------------------------------------------------------------------
H0 TLRVariableTextR|[lg
#----------------------------------------------------------------------------
H1 TLRVariableText = class(TCustomLRItem)
R
T TLRVariableText̓|[gɈseLXgR|lgłB
T TLRVariableTextCharSpace,WordSpace,Leading̃vpeBݒ肷邱Ƃŕ
T ԊuEPԊuEsԊuRɕύXAĥ悢[쐬邱Ƃ\
T ɂ܂B
#----------------------------------------------------------------------------
H0 TLRVariableTextR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property Align: TAlign; 
T AlignvpeB́CReiieRg[jŃRg[𑵂@
T w肵܂B
H1 property Color: TColor; 
T ColorvpeB̓Rg[̔wiFw肵܂BTransparentvpeB
T falseݒ肳ĂƂɂ̂ݗLłB
H1 property CharSpace: integer;
T CharSpacevpeB͒PԂ̊Ԋuw肵܂B
H1 property Font: TFont; 
T FontvpeB͎gpeLXg̃tHgw肵܂B
H1 property Leading: integer;
T LeadingvpeB͍sԊuw肵܂B
H1 property Text: string; 
T TextvpeB͈镶w肵܂
H1 property Transparent: boolean; 
T TransparentvpeB̓ACe𓧖ɂ邩ǂw肵܂B
H1 property VMargin: integer; 
T VMarginvpeB̗͐]irƕ̊ԁj̐ݒs܂Layout
T vpeBtaCenterȊȌꍇ̂ݗLł
H1 property WordSpace: integer;
T WordSpace͒PԂ̊Ԋuw肵܂BPƂ͔pXy[Xŋ؂ꂽPoC
T ĝƂłA񂪑SĂQoCg̏ꍇ┼pXy[X݂Ȃ
T ꍇ͖܂B
H1 property Wordwrap: boolean; 
T WordwrapvpeB́AeLXgx̕蒷ꍇɃeLXgs邩
T ǂw肵܂BtrueɎw肳ꂽꍇAR|[lg̕ɓ肫Ȃ
T ͎̍sɉsďo͂܂Bs1oCg̏ꍇ͒P(pXy
T [Xŋ؂ꂽ)PʁA2oCg̏ꍇ͕Pʂōs܂B܂A2oCg
T ōs̐擪"B","A"ɂȂꍇ͈ꕶOŉs܂(֑)B
#----------------------------------------------------------------------------
H0 TLRImageR|[lg
#----------------------------------------------------------------------------
H1 TLRImage = class(TCustomLRItem)
T TLRImageR|[lg͉摜f[^R|[lgłBTLRImage̓rb
T g}bv܂JPEGC[W݌v܂͎sɃ[h邱ƂŁA摜f[^
T 邱Ƃo܂B܂AsusievOCR|[lgƑgݍ킹
T 邱ƂŎsBMPAJPEGȊÕC[W[hĈ邱Ƃ\łB
#----------------------------------------------------------------------------
H0 TLRImageR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property Align: TAlign; 
T AlignvpeB́CReiieRg[jŃRg[𑵂@
T w肵܂B
H1 property Picture: TPicture; 
T PicturevpeB́C|[gɈC[Ww肵܂BwłC
T [ẂABitmapJPEGC[WłB݌v Picture ݒ肷Ɖ摜
T ̐ݒ_CAONAC[W܂ރt@Cwł܂B
H1 property Stretch: boolean; 
T StretchvpeB́CPicture vpeBŎw肳ꂽC[W̃TCYύX
T TLRImageR|[lg̘gɊSɂ͂ߍ݂܂B
#----------------------------------------------------------------------------
H0 TLRCustBarItemmR|[lg
#----------------------------------------------------------------------------
H1 TLRCustBarItem = class(TCustomLRItem);
T TLRCustBarItem͗X֔ԍ̃JX^}[o[R[ho͂邽߂̃R|[lg
T łBCodevpeBɃJX^}[o[R[h쐬̂߂̏Zݒ肷邱
T ŃJX^}[o[R[ho͂邱Ƃo܂B܂AX֔ԍo[R[h̖
T ̃`FbNfWbǧvZłȂĂ܂BTLRCustBarItem̓R|[
T lg̍ɂāAo[R[hC[Wg^kĈȂ
T AŏIIɈo[R[h́A64mm`88mm̑傫ɂȂKv܂B
T ܂Av^̎ނɂẮiCN̂ɂݓŁjʂłȂꍇ
T ̂ŁAKeXgɎgpĂB 
#----------------------------------------------------------------------------
H0 TLRCustBarItemmR|[lg̃vpeB
#----------------------------------------------------------------------------
H1 property Code: string; 
T CodevpeB́CX֔ԍJX^}[o[R[h쐬̂߂̏Zݒ肵
T B݂̂Ƃ늿Z̉̓[`͔ĂȂ߁AJXg}[o[R[
T hɕKvȕ̓vOŐKv܂B̏
R
M 003
T  www.mpt.go.jp/pressrelease/japanese/yubin/0912d202.html
R
T  www.mpt.go.jp/pressrelease/japanese/yubin/0912d203.html
R
M 005
T  肷邱Ƃł܂B
#----------------------------------------------------------------------------
H0 P[`̃|[g̍쐬@
#----------------------------------------------------------------------------
H1 TLightRepR|[lg̔zu
T tH[TLightRepR|[lgzu܂B
#------------------------------------------------------------------------------
H1 TLRLayoutPanelR|[lg̔zu
T TLightRepR|[lgTLRLayoutPanelR|[lgzuALRAlign
T laClientɐݒ肵܂B
#------------------------------------------------------------------------------
H1 TLRItemR|[lg̔zu
T TLRLayoutPanelR|[lgɓKTLRItemzuATLRItemFontA
T AlignmentAColorALineTop`LineBottomvpeBݒ肵܂BŒ荀ڂɂ
T ͂̎_TextvpeBɕݒ肵܂B
#------------------------------------------------------------------------------
H1 BeforePrintCxgnh̍쐬
T TLRLayoutPanelBeforePrintCxgTLRItemɕꍇiy[W
T ꂽꍇ͂̕@ȒPłjȉ̂悤ȃR[h܂B
R
M 005
T    procedure TForm1.LRLayoutPanel1BeforePrint(Sender: TObject;
R
T                                     Rect: TRect; var Status: TPrintStatus);
R
T    begin
R
T      LRItem1.Text := 'PAGE:' + IntToStr(LightRep1.PageCount);
R
T    end;
#------------------------------------------------------------------------------
H1 ̊Jn
T  BeginDoc\bhňJn܂B
P
T      LightRep1.BeginDoc;
#------------------------------------------------------------------------------
H1 y[Ẅ
T  KvłTLRItem̃eLXgvpeBɒlAPrint\bhňȂ܂B
R
M 005
T      LRItem2.Text := 'Hello World';
R
T      LightRep1.Print;
#------------------------------------------------------------------------------
H1 y[W
T  7.y[Wꍇ́ANewPage\bhĂяoĉy[WēxPrint\bhĂяo܂B
R
M 005
T      LightRep1.NewPage;
R
T      LRItem2.Text := 'Hello World2';
R
T      LightRep1.Print;
#------------------------------------------------------------------------------
H1 ̏I
T  ŏIy[W܂ňIAEndDoc\bhňI܂B
R
M 005
T      LightRep1.EndDoc;
#----------------------------------------------------------------------------
H0 \`̃|[g
#----------------------------------------------------------------------------
H1 TLightRepR|[lg̔zu
T tH[TLightRepR|[lgzu܂B
#------------------------------------------------------------------------------
H1 |[gwb_[̍쐬
T TLightRepR|[lgTLRLayoutPanelR|[lgzuALRAlign
T laTopɐݒ肵܂Bꂪ|[gwb_[ɂȂ܂B
T ̃wb_[ɓKTLRItemzuAKvɉTextvpeBɕ
T 肵A|[gwb_[쐬܂B
#------------------------------------------------------------------------------
H1 |[gtb^[̍쐬
T TLightRepR|[lgTLRLayoutPanelR|[lgzuALRAlign
T laBottomɐݒ肵܂Bꂪ|[gtb^[ɂȂ܂B쐬tb^[
T KTLRItemzuAKvɉTextvpeBɕݒ肵A|[gt
T b^[쐬܂B
#------------------------------------------------------------------------------
H1 חpTLRGrigPanelR|[lg̔zu
T TLRGrigPanelR|[lgzuLRAlignvpeBlaClientɐݒ肵܂B
T RowCountvpeB𖾍ׂ̍sɐݒ肷邱ƂŁAw肵sɃpl
T ܂Big݂̒[쐬ꍇColCountvpeBɗ񐔂͂܂B
#------------------------------------------------------------------------------
H1 ׍sւTLRItemR|[lg̔zu
T ꂽTLRGrigPanelɓKȐTLRItemR|[lgzuAevpe
T BKɐݒ肵܂B
#------------------------------------------------------------------------------
H1 OnPrintPanelCxgnh̍쐬
T TLRGrigPanelR|[lgOnPrintPanelCxgnh쐬܂B
T OnPrintPanelCxg͕ꂽplxɔAACol, ARowp
T [^͌݉Ԗڂ̗^sĂ邩Ă܂Bɕꂽep
T l̃f[^ݒ肷R[hLq܂BȉTTableR|[lg̃f[^
T Ɉꍇ̗łB
R
M 005
T    procedure TDBPrintForm.LRGridPanel1PrintPanel(Sender: TObject; ACol,
R
T                    ARow: Integer; Rect: TRect; var Status: TPrintStatus);
R
T    begin
T    // Ō܂ŏo͂Ăr݈̂
R
T      if Table1.EOF then
R
T        Status := psLineOnly
R
T      else
R
T      with Table1 do
R
T        begin
R
T        // f[^Zbg
R
T          ItemNo.Text := IntToStr(Table1.RecNo);
R
T          ItemCustNo.Text := Table1CustNo.AsString;
R
T          ItemCompany.Text := Table1Company.AsString;
R
T          ItemAddr.Text := Table1City.AsString + Table1Addr1.AsString;
R
T          ItemZip.Text := Table1Zip.AsString;
R
T          ItemPhon.Text := Table1Phone.AsString;
R
T          ItemState.Text := Table1State.AsString;
R
T          ItemLastInvoice.Text := Table1LastInvoiceDate.AsString;
R
T          Table1.Next;
R
T        end;
R
T    end;
R
M 005
T ̗ł͊epl邲ƂTTableNext\bhĂяoăR[h
T i߂Ă܂B܂AŏIR[h܂ŒBĂꍇ͌r݈̂Ȃ
T ɂĂ܂B
T Ƃ́uP[`̃|[gv̗ƓlBeginDoc,Print,NewPage,EndDoc4
T \bhňȂ킯łATTablê悤ȃf[^Zbg
T AŏIIɉy[WȂsɂ킩ȂƂꍇ͎኱
T HvKvłBȉ̗͂łB
P
T procedure TDBPrintForm.MnuPrintClick(Sender: TObject);
R
T begin
R
T    // e[uJ
R
T   Table1.Open;
R
T    // f[^Ȃ܂ňs
R
T   with LightRep1 do
R
T   begin
R
T     BeginDoc;
R
T     while not Table1.EOF do
R
T     begin
R
T       Print;
R
T       NewPage;
R
T     end;  
R
T     EndDoc;
R
T   end;
R
T end;
R
M 005
T ̗ł̓e[u̖ɒB܂Print\bhĂяoĂ܂BɂA
T (R[ȟRowCount)̐؂グňy[WvZ̉񐔂for`
T Next[vňȂ@܂BR[ȟɎ擾ł
T for`Next[vňȂ@̕R[fBOIɂ͂킩₷
T ꍇAr@\rIȒPłB
#------------------------------------------------------------------------------
H0 TvvȌЉ
#------------------------------------------------------------------------------
T LightReport2gp|[g̃TvvO̐łBꂼ̃T
T vɂ́AEvr[ETlCikvr[jyуv^̐؂
T ̋@\Ă܂B 
#------------------------------------------------------------------------------
H1 @\fiPj Samp1.dpr
T @\fṔATLRItem̋@\Љ邽߂̃fłB
#------------------------------------------------------------------------------
T TLRIteḿAAlignmentCLayoutCHMarginCVMargiñvpeBgp邱Ƃ
T Ag̃eLXg̈ʒuRɐݒł邽߁A̋@\gp邱
T ɂAȒPɌh̗ǂ|[g쐬邱Ƃł܂B
#------------------------------------------------------------------------------
H1 @\fiQj Samp2.dpr
T @\fQ́ATLRLayoutPanel,TLRGridPanel̋@\Љ邽߂̃fłB
#------------------------------------------------------------------------------
H1 @\fiRj Samp3.dpr
T @\fŔAlXgpl̋@\Љ邽߂̃fłBTLRLayoutPanel
T RzuāA|[g̊{CAEg쐬ȀɕTLRLayoutPanel
T TLRGridPanelzuGȃCAEg̃|[głB
#------------------------------------------------------------------------------
H1 @\fiSj NewSamp1.dpr
T @\fŚAo[W2.2̐V@\(LRVariableText,LRPostBarItem)̋@\
T Љ邽߂̃fłB
#------------------------------------------------------------------------------
H1 e[ü̂P DBPrint.dpr
T Customer.db̈ꗗTvłBTDataSetۂPrintPanel
T Cxg̎gp@yсA|[g̐@Ă܂B
#------------------------------------------------------------------------------
H1 e[ü̂Q DBPicture.dpr
T Biolife.db̈ꗗTvłBC[W̕@yTLRGridPanel
T gpig݈̕@ɂĐTvłB
#------------------------------------------------------------------------------
H1 TLRSubPanel̋@\f SubPanel.dpr
T TLRSubPanelgpāATLRGridPanel̒ɌosEsE׍s؂ւ
T sTvłB
#------------------------------------------------------------------------------
H1 `O̗pňsf SampHagaki.dpr 
T pTCYpsNoneɐݒ肵āATLightRepŒ`ĂȂTCY̗pɈ
T sTvvOłB
#------------------------------------------------------------------------------
H1 LRRountRectR|[lg LRRountRect.pas
T TLRCustomItempč쐬ꂽR|[lg̃TvB
#----------------------------------------------------------------------------
H0 J҃KCh
#----------------------------------------------------------------------------
H1 ̃JjY 
T LightReport2͈̈ȉ̎菇ōs܂B
#----------------------------------------------------------------------------
H2 PrintItem\bȟĂяo
T TLightRepPrintPreview]bhɂPrintItem]bhĂяo
T ܂B 
#----------------------------------------------------------------------------
H2 qRg[̃\bȟĂяo
T PrintItem]bh͎̎qRg[ׂČATCustomLRPanelp
T ĂRg[΂Print]bhĂяo܂B̎Ƃ
T ĈTCanvasÄÃXP[n܂B 
H2 ċAIȎqRg[̃\bhĂяo
T TCustomLRPanelPrint]bh́AlɎ̎qRg[ׂČ
T \ȃRg[Print]bhĂяo܂BŏIIɌĂяoꂽ
T TCustomLRItempꂽR|[lgۂ̕`揈s܂B 
#----------------------------------------------------------------------------
H2 ۂ̈
T LightReport2̎ۂׂ̈͂TCustomLRItempR|[lg
T sĂ܂B܂ATCustomLRItemR|[lgpAPrint]bh
T I[o[Ch邾ŁAƎ̈Rg|[lgiႦ΁AceLXg
T }``̃R|[lgj쐬邱Ƃł܂B
#----------------------------------------------------------------------------
H1 VR|[lg̍쐬
T @TLRItemR|[lg,TLRImageR|[lg͂ǂTCustomLRItemR|[
T lgpč쐬Ă܂BTCustomLRItemR|[lgp邱Ƃ
T AƎ̋@\ACeȒPɍ쐬邱Ƃł܂Bȉ͂̎
T łB
#----------------------------------------------------------------------------
H2 TLRCustomItem̌p
T TCustomLRItempR|[lg쐬܂B
#----------------------------------------------------------------------------
H2 Print]bh̍쐬 
T Print]bhI[o[Ch܂BPrint]bh́A̃p[^
T AACe͂̃p^ɂĈsKv܂B
P
M 005
T    procedure Print(ACanvas: TCanvas; ARect: TRect; 
R
T                PrintScale: Double; APrintStatus: TPrintStatus); virtual;
P
BT p^̎ނƐ
R
T ACanvas: TCanvas킷BR|[lgACanvasɑ΂ĕ`ʂsB 
R
T ARect: ̗̈킷BR|[lgARectŎw肳̈ɕ`ʂ
T sB 
R
T APrintScale: XN[ƃv^̉𑜓x̍킷B 
R
T APrintStatus: psNormal, psLineOnly, psEndNoŵRނ̒lBpsLineOnly
T w肳ꂽƂ́AR|[lg͌rȊO͈łȂBpsEndNoww肳
T Ƃ́AłȂB 
P
T Ⴆ΁ANCAg̈Ɋpۂlp``R|[lgiTLRRoundRect)
T R|[lg쐬ꍇAPrint]bh͈ȉ̂悤ɂȂ܂B
R
M 005
T  procedure TLRRoundRect.Print(ACanvas: TCanvas; Rect: TRect;
R
T                                         APrintScale: Double; APrintStatus: TPrintStatus);
R
T  var
R
T    DstRect: TRect;
R
T    RoundSize: integer;
R
T  begin
R
T    // tOpsNormalȊȌꍇ͉Ȃ
R
T    if APrintStatus <> psNormal then Exit;
P
T    // TCỸXP[ɕϊ
R
T    DstRect := PrintScaleRect(Rect, APrintScale);
R
T    RoundSize := ToPrintScale(10, APrintScale);
P
T    ACanvas.Brush.Style := bsClear;
R
T    // NCAg̈悢ςɕ`揈s
R
T    ACanvas.RoundRect(DstRect.Left, DstRect.Top, DstRect.Right-1,
R
T        @@@@@@@@@@@                    DstRect.Bottom-1, RoundSize, RoundSize);
R
T  end;
#----------------------------------------------------------------------------
H2 Paint]bh̍쐬
T ݌v̕`s߂ɁAPaint]bhI[o[Ch܂BƓ
T `sꍇ́APaint]bhPrint]bhĂяo܂B݌vɂ͕ʂ
T `siႦ΁AR|[lg\ꍇj́AŋLq܂B
T ł́A݌vɂƓ`sĂ܂B
R
M 005
T  procedure TLRRoundRect.Paint;
R
T  begin
R
T    Print(Canvas, GetClientRect, 1, psNormal);
R
T  end;
P
T TLRCustomItempR|[lg̍쐬ɂĂڂm肽́A
T TvvOuTLRRoundRect.pasvSourcetH_ɂLightRep.pas
T QlɂĂB
#----------------------------------------------------------------------------
H0 Ō
#----------------------------------------------------------------------------
H1 ֘AR|[lg̏Љ
H2 OBCBR|[lgΉLRItemALRVariableText(TAKl)
T TAKl쐬LRItemLRVariableTextODBCR|[lgΉłODBCR|[l
T gɓČJĂ܂BvpeBGfB^Ȃ񂩂ĂāA
T !!̏ohłB
H2 LightReport2 [R|[lg(Ohtakal)
T Ohtakal쐬̃f[^x[XΉ̃plACeƒǉ̃R|[lgłBߓ
T J\Ƃ̂ƂłBɊpۂgLRItemŔA4̊pꂼ
T 邩ǂw肪oA܂hԂꂢɂł̂ŏd󂵂łB
P
T L2ȊOɂ쐬ꂽΐ񋳂ĂB
#----------------------------------------------------------------------------
H1 CZX̑ɂ
#----------------------------------------------------------------------------
T LightReport2LGPLɊÂČJĂ܂B܂AvO̓Ŏgp
T ꍇɌApE񏤗pіEL킸RɎgp\łA
T R|[lgR|[lgJꍇ́A\[XJ
T Kv܂B܂A]ڂɂĂɐ͂܂񂪁Ał玖
T ł܂܂̂Ń[ł񂢂ƂꂵłB
#----------------------------------------------------------------------------
H1 ӎ
#----------------------------------------------------------------------------
T ̃R|[lg̍쐬ɂẮAFDelphic̔n߁A
T Delphian WorldŌJĂR|[lgA낢ȕ̂낢ȏ
T QlɂĂ܂B֌W҂̊Flɂ\グ܂B܂A
T TGridPanel̃qgēc ilAǂ肪Ƃ܂Bx[^
T ł̃eXgɋ͂ĂXAӌEv][ŉXɂ
T \܂B
P
T ӌEv]takeshi_kanno@est.hi-ho.ne.jp܂Ń[ĂB
P
L 0.7
r PDFt@CRiko PDF Producerō쐬Ă܂B
r (http://www.est.hi-ho.ne.jp/takeshi_kanno\ł)


