Unit1.pas

{* This file is part of the bring.out FMK, a free and open source        *} 
{* accounting software suite,                                            *}
{* Copyright (c) 1996-2011 by bring.out doo Sarajevo.                    *} 
{* It is licensed to you under the Common Public Attribution License     *}
{* version 1.0, the full text of which (including FMK specific Exhibits) *}
{* is available in the file LICENSE_CPAL_bring.out_FMK.md located at the *}
{* root directory of this source code archive.                           *}
{* By using this software, you agree to be bound by its terms.           *}


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ppPrnabl, ppClass, ppStrtch, ppRichTx, ppBands, ppProd, ppReport, ppComm,
  ppRelatv, ppCache, ppDB, ppTxPipe, StdCtrls, ppVar, ppCtrls, clipfn32, printers,
  jpeg, RxGIF, ExtCtrls, ppViewr, ppTypes, ppPrvDlg, Buttons, Mask, ppForms, dmUtil,
  ActnList, ppArchiv,IniFiles; // ppSearchPreview; //ppCustomSearchEngine, Ovo sam privremeno izbacio

  //const HEIGHT_6  =  3.969;
  const HEIGHT_6  =  3.969;
  const HEIGHT_10  =  4.25;
  const HEIGHT_100  =  20;

type
  //TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
  //{$NODEFINE TFontStyle}
  //TFontStyles = set of TFontStyle;


  TAtributi = class
    FontS: TFontStyles;
    TekStrana: String;
    Font: TFont;
    RowHeight: double;
  end;

  TArgumenti = class
    Datum: Boolean;
    Print: Boolean;
    Logo:  Boolean;
    BrStrane: Boolean;
    Opis1: String;
    Opis2: String;
    Opis3: String;
    AReader: Boolean;
    Compat50: Boolean;
    DocumentName: String;
  end;



  TForm1 = class(TdmCustomForm)
    ppOutfPipeline: TppTextPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    Linija: TppField;
    ppGenByLabel: TppLabel;
    ppDatumVar: TppSystemVariable;
    ppRichText: TppRichText;
    ppPageStyle1: TppPageStyle;
    ppGroup2: TppGroup;
    ppGroupHeaderBand2: TppGroupHeaderBand;
    ppGroupFooterBand2: TppGroupFooterBand;
    ppGenByImage: TppImage;
    ppDatumLabel: TppLabel;
    ppLine1: TppLine;
    ppSystemVariable2: TppSystemVariable;
    ppLabel4: TppLabel;
    pnlStatusBar: TPanel;
    pnlPreview: TPanel;
    ppViewer1: TppViewer;
    pnlKomande: TPanel;
    Edit1: TEdit;
    spbPreviewPrint: TSpeedButton;
    spbPreviewWhole: TSpeedButton;
    spbPreviewWidth: TSpeedButton;
    spbPreview100Percent: TSpeedButton;
    spbPreviewFirst: TSpeedButton;
    spbPreviewPrior: TSpeedButton;
    mskPreviewPage: TMaskEdit;
    spbPreviewNext: TSpeedButton;
    spbPreviewLast: TSpeedButton;
    mskPreviewPercentage: TMaskEdit;
    btnGo: TButton;
    ActionList1: TActionList;
    Printer: TAction;
    Escape: TAction;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    Button1: TButton;
    ppArchiveReader1: TppArchiveReader;
    OpenDialog1: TOpenDialog;
    BitBtn1: TBitBtn;
    chkCompat50: TCheckBox;


    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ppRichTextPrint(Sender: TObject);
    procedure ppVarPageCalc(Sender: TObject; var Value: Variant);
    procedure ppVarStrReset(Sender: TObject; var Value: Variant);
    procedure ppVariable1Calc(Sender: TObject; var Value: Variant);
    procedure ppGrupaDataFieldAfterGroupBreak(Sender: TObject);
    procedure ppVariable1Reset(Sender: TObject; var Value: Variant);
    procedure ppGroupHeaderBand1BeforeGenerate(Sender: TObject);
    procedure ppGroup2GetBreakValue(Sender: TObject;
      var aBreakValue: String);
    procedure ppReport1Cancel(Sender: TObject);
    procedure ppOutfPipelineLast(Sender: TObject);


    procedure ppViewer1PrintStateChange(Sender: TObject);
    procedure ppViewer1StatusChange(Sender: TObject);
    procedure ppViewer1PageChange(Sender: TObject);
    procedure spbPreviewCancelClick(Sender: TObject);
    procedure spbPreviewPrintClick(Sender: TObject);
    procedure spbPreviewWidthClick(Sender: TObject);
    procedure spbPreview100PercentClick(Sender: TObject);
    procedure spbPreviewWholeClick(Sender: TObject);
    procedure spbPreviewFirstClick(Sender: TObject);
    procedure spbPreviewPriorClick(Sender: TObject);
    procedure spbPreviewNextClick(Sender: TObject);
    procedure spbPreviewLastClick(Sender: TObject);
    procedure mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
    procedure mskPreviewPercentageKeyPress(Sender: TObject; var Key: Char);
    procedure btnGoClick(Sender: TObject);
    procedure EscapeExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ppArchiveReader1Cancel(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ppReport1AssignPreviewFormSettings(Sender: TObject);
    procedure ppDetailBand1BeforePrint(Sender: TObject);



  private
    { Private declarations }
    Atributi: TAtributi;
    Args    : TArgumenti;
    nCounter :Integer;

    procedure SetRtfAttr(var rt: TppRichText);

  end;

var
  Form1: TForm1;

implementation

uses ufrmTrazi;



{$R *.DFM}


procedure TForm1.FormCreate(Sender: TObject);
var i, j :integer;

    ini  :TIniFile;
    res:  string;
    nLeftMargin: integer;
    ExePath: string;

begin
   Atributi:=TAtributi.Create;
   Args:=TArgumenti.Create;

   Atributi.Font:=TFont.Create;
   Atributi.Font.Name:='SC Tahoma Mono';
   Atributi.Font.Size:=10;
   Atributi.TekStrana:='1';
   Atributi.Fonts:=[];
   
   // visina
   if Args.Compat50 then
      Atributi.RowHeight:= HEIGHT_6
   else
      Atributi.RowHeight:= HEIGHT_10;

   ppDetailBand1.Height := Atributi.RowHeight;
   ppRichText.Height := Atributi.RowHeight;

   nCounter := 0;


   if Paramcount>0 then begin

     if paramcount=2 then begin
      ppOutfPipeline.Filename:=ParamStr(1);
      Edit1.Text:=ParamStr(1);
     end else begin
      Edit1.Text:=ParamStr(1);
     end;
       // podesi format strane
     ppOutfPipeline.Close;
     ppOutfPipeline.FileName:=Edit1.Text;
     ppoutfpipeline.Open;

     // pogledaj prve tri linije
     for i:=1 to 3 do begin
       res := ppOutfPipeline.GetFieldAsString('Linija');

       // primjer:
       // #INI__##%DOCNA#FAKTURA_00232
       if InStr('#%DOCNA#', res, '_') then begin
          res := StrTran(res, '#%INI__#', '', 0, 0);
          Args.DocumentName := Substr(res, 9, 0);
       end;

       if Instr('#%LANDS#', res, '_') then begin
        ppReport1.Printersetup.Orientation:=poLandscape;

        ppLine1.Width:=  ppLine1.Width + 80;
        ppGenByLabel.Left := ppGenByLabel.Left + 80;
        ppGenByImage.Left:=  ppGenByImage.Left + 80;

        // sredina strane
        ppLabel4.Left := ppLabel4.Left + 50;
        ppSystemVariable2.Left:= ppSystemVariable2.Left + 50;
        Break;

       end;

    
       ppoutfpipeline.Next;
     end;

     if Args.DocumentName <> '' then
        ppReport1.PrinterSetup.DocumentName := Args.DocumentName
     else
	ppReport1.PrinterSetup.DocumentName := '_noname_report_';

     Args.Logo:=True;
     Args.Datum:=False;
     Args.Brstrane:=True;
     Args.Print:=False;
     Args.Compat50:=False;

     for j:=2 to paramcount do begin
       Args.opis1:='';
       Args.opis2:='';

       if paramstr(j)='/D' then Args.Datum:=True;

       if Upper(paramstr(j))='/1' then Args.Opis1:=substr(paramstr(j),3,0);

       if Upper(paramstr(j))='/2' then Args.Opis2:=substr(paramstr(j),3,0);

       if Upper(paramstr(j))='/P' then Args.Print:=True;

       if Upper(paramstr(j))='/A' then
        Args.AReader:=True;

       if paramstr(j)='/l' then Args.Logo:=False;

       if paramstr(j)='/s' then Args.Brstrane:=False;

       if paramstr(j)='/noline' then ppLine1.Visible:=False;

       // kompatibilnost sa PTXT < 01.52
       if paramstr(j)='/c50' then Args.Compat50 := True;
       if paramstr(j)='/nc50' then Args.Compat50 := False;

       if Args.Compat50 then
         chkCompat50.Checked := True;

       res := Upper(SubStr(paramstr(j), 1, 2));
       if res = '/D' then begin
          Args.DocumentName := substr(paramstr(j), 3, 0);
       end;
     end;


     ppLabel4.Visible:=Args.BrStrane;
     ppSystemVariable2.Visible:=Args.BrStrane;

     ppDatumVar.Visible:=Args.Datum;
     ppDatumLabel.Visible:=Args.Datum;


     ppGenByLabel.Visible:=Args.Logo;
     ppGenByImage.Visible:=Args.Logo;


      if Args.AReader then  begin
      OpenDialog1.FileName := ParamStr(1);

      Button1.Click;
      end else if Args.Print then begin

      ExePath := ExtractFilePath(Application.ExeName);
      ini:= TIniFile.Create(ExePath+'FMK.INI');

      try
        // procitani string (ime printera)
        // smjesti u varijablu res
        res := ini.ReadString('PTXT', 'DefaultWinPrinter', '');

        // lijeva margina pri stampi
        nLeftMargin := ini.ReadInteger('PTXT', 'LeftMargin', 5);

      finally
        ini.Free;
      end;

      if res<>'' then begin
          ppReport1.ShowPrintDialog:=false;
          ppReport1.PrinterSetup.PrinterName:=res;
      end;


      // ako je lijeva margina podesena na vise od 5 pomjeri je
      // ali smanji i samu sirinu ppRichText-a
      if nLeftMargin > 5 then begin
        ppRichText.Left := nLeftMargin;
        ppRichText.Width := ppRichText.Width - nLeftMargin;
      end;

      ppReport1.ShowCancelDialog := false;
      ppViewer1.Print;

      Btngo.click;
     end else begin
      Btngo.Click;
     end;

   end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Atributi.Free;
end;

procedure TForm1.ppRichTextPrint(Sender: TObject);
var
  rtCurrent: TppRichText;
  sPom:String;

begin

  // na pocetku svakog reda setuj ovo na false
  ppRichtext.Stretch:=False;


  spom:=space(300);
  OemToAnsi(Pchar(ppOutfPipeline.GetFieldAsString('Linija')),PChar(sPom));
  ppRichText.RichText:=sPom;

  SetRTFAttr(ppRichText); // setuj rtf atribute


  ppRichText.Height := Atributi.RowHeight;

  // ciscenje rtf-a ....
  ppRichText.RichText := StrTran(ppRichText.RichText,'\fcharset0','',0,0);
  ppRichText.RichText := StrTran(ppRichText.RichText,'\fcharset238','',0,0);
  ppRichText.RichText := StrTran(ppRichText.RichText,'\viewkind4','',0,0);
  ppRichText.RichText := StrTran(ppRichText.RichText,'\fnil','',0,0);


end;

procedure TForm1.ppVarPageCalc(Sender: TObject; var Value: Variant);
var
 AttrPos: integer;
 spom: string;
 i: integer;
begin
  Value:=Linija.AsString;
end;


procedure TForm1.ppVarStrReset(Sender: TObject; var Value: Variant);
begin
  //Value:='0';
end;

procedure TForm1.ppVariable1Calc(Sender: TObject; var Value: Variant);
begin
    Value:=xLeft(Linija.AsString,1);
end;



procedure TForm1.ppGrupaDataFieldAfterGroupBreak(Sender: TObject);
begin
  //ShowMessage('Evo kraja grupe - after');
end;



procedure TForm1.ppVariable1Reset(Sender: TObject; var Value: Variant);
begin
  //ShowMessage('Izvrsen reset varijable:'+ Value);
end;

procedure TForm1.ppGroupHeaderBand1BeforeGenerate(Sender: TObject);
begin

 // ppLabelaGrupeH.Caption:=ppVariable1.AsString;

end;



procedure TForm1.ppGroup2GetBreakValue(Sender: TObject;
  var aBreakValue: String);
begin


  if xLeft(aBreakValue,8)='#%NSTR_#' then begin
     ppOutfPipeline.Next;
     Atributi.TekStrana:= IntToStr(strtoint(Atributi.Tekstrana)+1);
     //ppOutfPipeline.Prior;
  end;

  aBreakValue:=Atributi.TekStrana;
end;

procedure TForm1.SetRtfAttr(var rt: TppRichText);
var
 AttrPos: integer;
 maxRowHeight: double;

begin

rt.SelectAll;
rt.SelAttributes.Size:=Atributi.Font.Size;
rt.SelAttributes.Style:=Atributi.FontS;
rt.SelAttributes.Name:=Atributi.Font.Name;


// tekuæi
maxRowHeight := 0;

AttrPos:=100;
while AttrPos>=0 do begin

   AttrPos := rt.FindText('#%',0,300,[]);

   if AttrPos>=0 then begin

     rt.SelStart:=AttrPos;
     rt.SelLength:=8;
     if  rt.SelText = '#%INI__#' then begin

           Atributi.Font.Size:=10;
           Atributi.Font.Name:='SC Tahoma Mono';
           if Args.Compat50 then
              Atributi.RowHeight:= HEIGHT_6
           else
             Atributi.RowHeight := HEIGHT_10;

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if   Instr('#%FS',rt.SelText, 'x') then begin
           // sablon: '#%FS012#'  - fontsize = 12 pointa
           Atributi.Font.Size:=StrToInt(substr(rt.SelText,5,3));
           Atributi.Font.Name:='SC Tahoma Mono';
           if (Atributi.Font.Size > 8) then begin
             if (maxRowHeight < HEIGHT_10) then
                maxRowHeight := HEIGHT_10;
           end else begin
             if (maxRowHeight < HEIGHT_6) then
                 maxRowHeight := HEIGHT_6;
           end;

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%BON__#' then begin
           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;
           Atributi.FontS:=Atributi.Fonts + [fsBold];
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%LANDS#' then begin
           rt.ClearSelection;
           ppReport1.PrinterSetup.Orientation:=poLandscape;
           ppRichText.Width:=260;

     end else if  rt.SelText = '#%DOCNA#' then begin
           rt.ClearSelection;
           rt.Clear;

     end else if  rt.SelText = '#%PORTR#' then begin
           rt.ClearSelection;
           ppRichText.Width:=174.89;
           ppReport1.PrinterSetup.Orientation:=poPortrait;

     end else if  rt.SelText = '#%BOFF_#' then begin

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           Atributi.FontS:=Atributi.Fonts - [fsBold];

           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;


     end else if  rt.SelText = '#%UON__#' then begin
           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;
           Atributi.FontS:=Atributi.Fonts + [fsUnderline];

           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%UOFF_#' then begin
           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;
           Atributi.FontS:=Atributi.Fonts - [fsUnderline];

           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%ION__#' then begin
           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;
           Atributi.FontS:=Atributi.Fonts + [fsItalic];

           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%IOFF_#' then begin
           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;
           Atributi.FontS:=Atributi.Fonts - [fsItalic];

           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%NSTR_#' then begin
           rt.ClearSelection;


     end else if  rt.SelText = '#%KON17#' then begin

           Atributi.Font.Size:=8;
           Atributi.Font.Name:='SC Tahoma Mono 2';

           if (maxRowHeight < HEIGHT_6) then
              maxRowHeight := HEIGHT_6;

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%KON20#' then begin
           Atributi.Font.Size:=6;
           Atributi.Font.Name:='SC Tahoma Mono 2';

           if (maxRowHeight < HEIGHT_6) then
              maxRowHeight := HEIGHT_6;

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%12CPI#' then begin
           Atributi.Font.Size:=10;
           Atributi.Font.Name:='SC Tahoma Mono 2';

           if (maxRowHeight < HEIGHT_10) then
              maxRowHeight := HEIGHT_10;

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%10CPI#' then begin
           Atributi.Font.Size:=10;
           Atributi.Font.Name:='SC Tahoma Mono';

           if (maxRowHeight < HEIGHT_10) then
              maxRowHeight := HEIGHT_10;

           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else if  rt.SelText = '#%AR100#' then begin
           Atributi.Font.Size:=100;
           Atributi.Font.Name:='SC Art';
           rt.ClearSelection;
           rt.SelStart:=AttrPos; rt.SelLength:=300;

           if (maxRowHeight < HEIGHT_100) then
              maxRowHeight := HEIGHT_100;

           rt.SelAttributes.Style:=Atributi.Fonts;
           rt.SelAttributes.Size:=Atributi.Font.Size;
           rt.SelAttributes.Name:=Atributi.Font.Name;

     end else begin

     end;


   end;
end; // while


if ((maxRowHeight > 0) and (not Args.Compat50)) then
  Atributi.RowHeight := maxRowHeight;
end;

procedure TForm1.ppReport1Cancel(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm1.ppOutfPipelineLast(Sender: TObject);
begin
  //ShowMessage('Na zadnjem sam slogu');
  Atributi.TekStrana:=IntToStr(strtoint(Atributi.Tekstrana)-1)
end;

{------------------------------------------------------------------------------}
{ TfrmDMMain.ppViewer1PrintStateChange }

procedure TForm1.ppViewer1PrintStateChange(Sender: TObject);
var
  lPosition: TPoint;
begin

  if ppViewer1.Busy then
    begin
      mskPreviewPercentage.Enabled := False;
      mskPreviewPage.Enabled := False;

      ppViewer1.Cursor := crHourGlass;

      pnlStatusBar.Cursor := crHourGlass;

    end
  else
    begin
      mskPreviewPercentage.Enabled := True;
      mskPreviewPage.Enabled := True;

      //pnlPreviewBar.Cursor := crDefault;

      ppViewer1.Cursor := crDefault;

      pnlStatusBar.Cursor := crDefault;

      //spbPreviewCancel.Cursor := crDefault;

      //spbPreviewCancel.Enabled := False;
    end;

  {this code will force the cursor to update}
  GetCursorPos(lPosition);
  SetCursorPos(lPosition.X, lPosition.Y);

end; {procedure, ppViewer1PrintStateChange}

{------------------------------------------------------------------------------}
{ TfrmDMMain.ppViewer1StatusChange }

procedure TForm1.ppViewer1StatusChange(Sender: TObject);
begin

  pnlStatusBar.Caption := ppViewer1.Status;

end; {procedure, ppViewer1StatusChange}

{------------------------------------------------------------------------------}
{ TfrmDMMain.ppViewerPageChange }

procedure TForm1.ppViewer1PageChange(Sender: TObject);
begin
  mskPreviewPage.Text := IntToStr(ppViewer1.AbsolutePageNo);
  mskPreviewPercentage.Text := IntToStr(ppViewer1.CalculatedZoom);
end; {procedure, ppViewerPageChange}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewPrintClick }

procedure TForm1.spbPreviewPrintClick(Sender: TObject);
begin
 if CheckBox1.Checked then     begin
  ppReport1.DeviceType:='ArchiveFile';
  ppReport1.ArchiveFileName:='c:\sigma\outf.raf';

  ppReport1.AllowPrintToArchive := True;
 end;

  ppReport1.ShowCancelDialog := False;
  ppViewer1.Print;




end; {procedure, spbPreviewPrintClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewCancelClick }

procedure TForm1.spbPreviewCancelClick(Sender: TObject);
begin
  if ppViewer1.Report.Printing then
    ppViewer1.Cancel;
end; {procedure, spbPreviewCancelClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewFirstClick}

procedure TForm1.spbPreviewFirstClick(Sender: TObject);
begin
  ppViewer1.FirstPage;
end; {procedure, spbCloseClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewPriorClick}

procedure TForm1.spbPreviewPriorClick(Sender: TObject);
begin
  ppViewer1.PriorPage;
end; {procedure, spbPreviewFirstClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewNextClick}

procedure TForm1.spbPreviewNextClick(Sender: TObject);
begin
  ppViewer1.NextPage;
end; {procedure, spbPreviewNextClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewLastClick}

procedure TForm1.spbPreviewLastClick(Sender: TObject);
begin
  ppViewer1.LastPage;
end; {procedure, spbPreviewLastClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.mskPreviewPageKeyPress}

procedure TForm1.mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
var
  liPage: Longint;
begin

  if (Key = #13) then
    begin
      liPage := StrToInt(mskPreviewPage.Text);

      ppViewer1.GotoPage(liPage);
    end; {if, carriage return pressed}

end; {procedure, mskPreviewPageKeyPress}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewZoomClick }

procedure TForm1.spbPreviewWholeClick(Sender: TObject);
begin
  ppViewer1.ZoomSetting := zsWholePage;

  mskPreviewPercentage.Text := IntToStr(ppViewer1.CalculatedZoom);

  //pnlPreviewBar.SetFocus;
end; {procedure, spbPreviewZoomClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreviewWidthClick}

procedure TForm1.spbPreviewWidthClick(Sender: TObject);
begin
  ppViewer1.ZoomSetting := zsPageWidth;

  mskPreviewPercentage.Text := IntToStr(ppViewer1.CalculatedZoom);

  //pnlPreviewBar.SetFocus;
end; {procedure, spbPreviewWidthClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.spbPreview100PercentClick}

procedure TForm1.spbPreview100PercentClick(Sender: TObject);
begin
  ppViewer1.ZoomSetting := zs100Percent;

  mskPreviewPercentage.Text := IntToStr(ppViewer1.CalculatedZoom);

  //pnlPreviewBar.SetFocus;
end; {procedure, spbPreview100PercentClick}

{------------------------------------------------------------------------------}
{ TfrmDMMain.mskPreviewPercentageKeyPress}

procedure TForm1.mskPreviewPercentageKeyPress(Sender: TObject; var Key: Char);
var
  liPercentage: Integer;
begin
  if (Key = #13) then
    begin
      liPercentage := StrToIntDef(mskPreviewPercentage.Text, 100);

      ppViewer1.ZoomPercentage := liPercentage;

      spbPreviewWhole.Down := False;
      spbPreviewWidth.Down := False;
      spbPreview100Percent.Down := False;

      mskPreviewPercentage.Text := IntToStr(ppViewer1.CalculatedZoom);
    end; {if, carriage return pressed}

end; {procedure, mskPreviewPercentageKeyPress}



procedure TForm1.btnGoClick(Sender: TObject);
var
  lForm: TForm;
  liRow: Integer;
begin

    {reset viewer to page 1}
    ppViewer1.Reset;
    ppReport1.PrintToDevices;

end;

procedure TForm1.EscapeExecute(Sender: TObject);
begin
  Application.Terminate;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  if not  FileExists(OpenDialog1.FileName) then
     OpenDialog1.Execute;

  ppArchiveReader1.ArchiveFileName := OpenDialog1.FileName;
  ppReport1.DeviceType := 'Screen';

  ppArchiveReader1.Print;

end;

procedure TForm1.ppArchiveReader1Cancel(Sender: TObject);
begin
  Application.Terminate;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ppReport1.Print;
end;

procedure TForm1.ppReport1AssignPreviewFormSettings(Sender: TObject);
begin
  ppReport1.TextSearchSettings.Visible:=True;
end;

procedure TForm1.ppDetailBand1BeforePrint(Sender: TObject);
begin
 ppDetailBand1.Height := Atributi.RowHeight;
end;

end.