TDRep shareware component (Version 1.7 + Bonus Pack 1.51)
Copyright by Uri Siman, January 2000.

QRShapes, QRImages, QRCharts, QRMemo, QRRichText now supported !

Program page for download is www.korzh.com/download/pro.zip
See Link.txt file.

Now components of Bonus Pack using a Fast method for transfering data!
Full version for Registered users Only (full source code included!).
Bonus Pack source code for Registered users as well.
Bonus Pack includes components for transferring data into MS Word and MS Excel from
Tables, Queries e.t.c... Components Works in Design and Runtime mode.

Version 1.7 for
 Delphi 2 (Quick Report 1.*... ); <<<--  (images, charts, memos and "richtext" not supported :-(() 
 Delphi 3 (Quick Report 2.*...);
 Delphi 4 (Quick Report 3.*...);
 Delphi 5 (Quick Report 3.*...); Please, using Delphi4 version.

Bonus Pack components designed for Delphi 2,3,4,5.

 About Bonus Pack 1.51!
 ---------------------
 Bonus Pack includes components for transferring data into MS Word and MS Excel from
 Tables, Queries e.t.c... 
 When you place TRepTbl2Word or TRepTbl2Excel component onto your form 
 and set `DataSet` property of components the method `Execute` of the component will be
 transferring data into MS Word and MS Excel as table... 
 TRepTbl2Word and TRepTbl2Excel component will be work with any other components
 with `DataSet` property! 

Tables with borders now supported and more !!!
QRShapes, QRImages, QRCharts, QRMemo, QRRichText now supported !!!

This is a useful component for Delphi to transferring reports into Microsoft Word using standard
Delphi`s Quick Report. 
TDRep component provides a mechanism for transferring data of Quick Report into MS Word.

Component is derived from TComponent.  
When you place TDRep component onto your Quick Report form the component will be 
transferred data into MS Word if global variable ExecuteToWord is True.
All Quick Report components with event OnPrint are supported.
QRShapes, QRImages, QRCharts, QRMemo, QRRichText, Tables with borders now supported !
All Quick Report controls on your QR form must belong one of the bands else
runtime exception will called!..


Example:     (See Demo.Dpr) 
---------------
Set the global variable ExecuteToWord as True before prepared or printed your Quick 
report form. (ExecuteToWord variable belong module Pro)
For executing Quick report into MS Word you will need as well: 

	procedure Execute2Word   {Example for Quick Report 1.*}
	begin
        	   Application.CreateForm(TForm1, Form1);        {creating report form Form1 as well}
                   ExecuteToWord:=True;                 { Set the global variable ExecuteToWord as True}
                   Form1.Report.Prepare;              { preparing and transferring data into MS Word} 
                   {Form1.Report.Preview;}           { preview and transferring data into MS Word}
                   {Form1.Report.Print;}                { printing and transferring data into MS Word}
                  Form1.Free;                               { destroing report form Form1}
                end;

	procedure Execute2Word   {Example for Quick Report 2.* and 3.*}
	begin
        	   Application.CreateForm(TForm1, Form1);        {creating report form Form1 as well}
                   ExecuteToWord:=True;                 { Set the global variable ExecuteToWord as True}
                   Form1.Report.Preview;           { preview and transferring data into MS Word}
                   Form1.Free;                               { destroing report form Form1}
                end;

Component`s Property
------------------------------------
{default values}
Stencil
    VerticalSensitiv:= 14;       {Scale sensitivity for Vertical placement in pixels (min 8)}
    HorizontalSensitiv:= 4;      {Scale sensitivity for Horizontal placement in pixels (min 3)}  
    EndPageLimit:=825;          {special limit for images in MS Word / pixels}
    StartPageLimit:=30;          {special limit for images in MS Word / pixels}
    PageLength:= 1100;           {special image length in pixels in MS Word } 
    LeftPosCoef:=0.74;           {special `coefficient` for scaling left position Images&Shapes to MS Word}
    TopPosCoef:=0.74;            {special `coefficient` for scaling top position Images&Shapes to MS Word} 
WordParams
    IgnorePageHeader:=True;      {Transferring PageHeader band only ones on first page}
    IgnorePageFooter:=True;      {Ignore transferring PageFooter band in MS Word}
    TopMargin:= 22;              { Top Margin on page in Word }
    BottomMargin:= 22;           { Bottom Margin on page in Word } 
    LeftMargin:= 22;             { Left Margin on page in Word }
    RightMargin:= 22;            { Right Margin on page in Word }
    LineSpacing:= '1.37';        { Spacing between lines on page in Word (see alsov TopPosCoef)}
    FileName:= 'RepWord';        { default file`s name in Word for autosaving, see next...}
    AutoClose:= False;           { if True Word automatically will saved file and closed}
    ScaleFontSize:= 0;           { Difference between a size font in QReport and Word if need}
    HeaderDistance:='1.5';       { Header Distance on page in Word }
    FooterDistance:='1.5';       { Footer Distance on page in Word }
    FontNameTabs:='Arial';       { Font`s Name for empty tabs between a data in Word }
    FontSizeTabs:= 8;            { Font`s Size for empty tabs between a data in Word }
WordImages
    Enabled:=True               {enabled transfer images into MS Word} 
    Transparent:=True;          {enabled transparent pictures in MS Word}
    Lock:=False;                {lock pictures in MS Word to original text} 
WordShapes
    Enabled :=True;              {enabled transfer Shapes to MS Word}
    Lock:=False;                 {lock Shapes in MS Word to original text}
WordRTF
    Enabled :=True;              {enabled transfer Memos&RTF to MS Word} 
    Justify :=True;              {Justify Memo text into boxes}
    TextBox :=True;              {enables Memo text as TextBox in MS Word}
    RTFAsText :=False;           {transfer RTF to MS Word as Plain Text}
VerticalCorr
    FDetail: Integer;           {correction of start position for Shapes&Images of Detail}
    FTitle: Integer;            {correction of start position for Shapes&Images of Title}
    FPageHeader : Integer;      {correction of start position for Shapes&Images of PageHeader}
    FPageFooter : Integer;      {correction of start position for Shapes&Images of PageFooter}
    FGroupHeader : Integer;                --//--
    FGroupFooter : Integer;                --//--
    FSubDetail : Integer;                  --//-- 
    FColumnHeader : Integer;               --//--
    FOverlay : Integer;                    --//--
    FSummary : Integer;                    --//--
    FChild : Integer;                      --//--
WordTable
    TableAutoFormat :=16          {standard table number of autoformat in MS Word list}  
    TableAutoFit:=True;           {if True then Width columns in Word tables will be minimize as need}
    TableRealWidth:=True;         {if True then Width columns in Word tables will be set as original fields width}
    DetailToTable:=False;         {if True then Detail bands in QR form will be transferred in MS Word as table}
    DetailMultyRows:=False;       {reserved for next version}
    TitleToTable:=False;          {if True then Title band in QR form will be transferred in MS Word as table}
    PageHeaderToTable:=False;     {if True then PageHeader bands in QR form will be transferred in MS Word as table}
    PageFooterToTable:=False;     {if True then PageFooter bands in QR form will be transferred in MS Word as table}
    GroupHeaderToTable:=False;    {if True then GroupHeader bands in QR form will be transferred in MS Word as table}
    GroupFooterToTable:=False;    {if True then GroupFooter bands in QR form will be transferred in MS Word as table}
    SubDetailToTable:=False;      {if True then SubDetail bands in QR form will be transferred in MS Word as table}
    ColumnHeaderToTable:=False;   {if True then Column Header bands in QR form will be transferred in MS Word as table}
    OverlayToTable:=False;        {if True then Overlay bands in QR form will be transferred in MS Word as table}
    SummaryToTable:=False;        {if True then Summary bands in QR form will be transferred in MS Word as table}
    ChildToTable:=False;          {if True then Child bands in QR form will be transferred in MS Word as table (QR 2&3 only)}
TransferScale
    TabA:= 1;                     {difference between an empty tabs in QReport and Word  (A/B pixels), parameter A}      
    TabB:= 1;                     {difference between an empty tabs in QReport and Word  (A/B pixels), parameter B}
    MainA:= 32;                   {difference between width a data in QReport and Word  (A/B pixels), parameter A}
    MainB:= 33;                   {difference between width a data in QReport and Word  (A/B pixels), parameter B}
TabBorders
    BorderInside :=True;          {if True then in MS Word tables will be Border Inside, Ignoring for TableAutoFormat>0}            
    BorderOutside :=True;         {if True then in MS Word tables will be Border Outside, Ignoring for TableAutoFormat>0}

 ShowExecute:=False;              {if True then showed execution and transferring the data into the Word}

For better understanding all properties you need more experiment with transferring a data 
into the MS Word using difference values in properties.


 Files list
 --------------
 pro.dcu           - ( TDrep - component )
 pro.dcr              
 prosub.dcu        - ( TDRep`s Transfer unit ) 
 README.TXT -   ( this file )

 Demo.Dpr  -  (directory with demo projects for Delphi 2,3,4,5)
 Bonus     -  (directory with bonus Pack) 

 Installation
 ------------------
 Installation process consist of the following steps:
  1. Unpack and move files in your library directory.
  2. Standard Installation of a component

 Registration and cost
 -----------------------------------
 Full version of the component is shareware to use for all users.

 Registration cost is only $28.00 
 Registration cost with full source code & Bonus Pack source code is only $48.00 
 Site license: registration cost with full source code is only $98.00

 All Registered users have the benefit of support via E-mail. 

 All NEXT Versions will be absolutely FREE for Registered users!!! 

 How the customer can be register:
 --------------------------------------------------------
 You may register component TDRep through ShareIt:      www.ShareIt.com 

If you would like to register TDRep component for Delphi`s Quick Report, you can do the 
registration online on the Internet at http://www.shareit.com/programs/102985.htm. 
Alternatively, you can go to http://www.shareit.com and enter the program number there: 
102985. If you do not have access to the Internet, you can register via phone, fax or postal 
mail. Please print out the following form, and fax or mail it to:

ShareIt!
element 5 AG
Sachsenring 69
50677 Koeln
Germany

Phone: 	 +49-221-2407279 
Fax: 		+49-221-2407278
E-Mail: register@shareit.com

US customers may also order by calling 1-800-903-4152 (orders only please!). US check and 
cash orders can be sent to our US office at

ShareIt! Inc.
PO Box 844
Greensburg, PA 15601-0844
USA

Tel. 724-850-8186
Fax. 724-850-8187


 Sincerely yours :
 ----------------------------
 Uri Siman
E-mail:
 uri@korzh.com (work)
 urimob@korzh.com (SMS to my mobile phone)
 uri@erriu.ukrpack.net (home) 
