unit fprevio;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FR_Ctrls, FR_View, ExtCtrls,dbclient, Buttons;

type
  TPREVIO = class(TForm)
    Panel1: TPanel;
    frPreview1: TfrPreview;
    frSpeedButton1: TfrSpeedButton;
    frSpeedButton2: TfrSpeedButton;
    frSpeedButton3: TfrSpeedButton;
    frSpeedButton4: TfrSpeedButton;
    frSpeedButton5: TfrSpeedButton;
    frSpeedButton6: TfrSpeedButton;
    frSpeedButton7: TfrSpeedButton;
    frSpeedButton8: TfrSpeedButton;
    frSpeedButton9: TfrSpeedButton;
    frSpeedButton10: TfrSpeedButton;
    frSpeedButton11: TfrSpeedButton;
    SaveDialog1: TSaveDialog;
    frSpeedButton12: TfrSpeedButton;
    frSpeedButton13: TfrSpeedButton;
    frSpeedButton14: TfrSpeedButton;
    frSpeedButton15: TfrSpeedButton;
    procedure frSpeedButton4Click(Sender: TObject);
    procedure frSpeedButton5Click(Sender: TObject);
    procedure frSpeedButton6Click(Sender: TObject);
    procedure frSpeedButton7Click(Sender: TObject);
    procedure frSpeedButton8Click(Sender: TObject);
    procedure frSpeedButton9Click(Sender: TObject);
    procedure frSpeedButton10Click(Sender: TObject);
    procedure frSpeedButton1Click(Sender: TObject);
    procedure frSpeedButton2Click(Sender: TObject);
    procedure frSpeedButton3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure frSpeedButton11Click(Sender: TObject);
    procedure frSpeedButton13Click(Sender: TObject);
    procedure frSpeedButton12Click(Sender: TObject);
    procedure frSpeedButton14Click(Sender: TObject);
    procedure frSpeedButton15Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    IMPRESO:BOOLEAN;
    { Public declarations }
  end;

var
  PREVIO: TPREVIO;

implementation

uses  FLISTADOS;

{$R *.DFM}

procedure TPREVIO.frSpeedButton4Click(Sender: TObject);
begin
  frPreview1.First;
end;

procedure TPREVIO.frSpeedButton5Click(Sender: TObject);
begin
   FRPREVIEW1.PREV;
end;

procedure TPREVIO.frSpeedButton6Click(Sender: TObject);
begin
   frPreview1.NEXT;
end;

procedure TPREVIO.frSpeedButton7Click(Sender: TObject);
begin
// hacerlo general
{  while not (dm.cdsq_constructora.eof) do
  begin
   dm.cdsq_constructora.last;
   IF DM.CDSQ_CONSTRUCTORA.EOF  THEN
   try
     DM.CDSQ_CONSTRUCTORA.GetNextPacket;
   except
   end;
  end;
} frPreview1.Last;
end;

procedure TPREVIO.frSpeedButton8Click(Sender: TObject);
begin
  frPreview1.LoadFromFile;
end;

procedure TPREVIO.frSpeedButton9Click(Sender: TObject);
begin
  frPreview1.SaveToFile;
{  SaveDialog1.Execute;
  if SaveDialog1.Execute then
     dm.CDSQ_CONSTRUCTORA.SaveToFile(savedialog1.FileName+'.xml',dfxml)
}
end;

procedure TPREVIO.frSpeedButton10Click(Sender: TObject);
begin
  frPreview1.Print;
  IMPRESO:= TRUE;
end;

procedure TPREVIO.frSpeedButton1Click(Sender: TObject);
begin
  frPreview1.OnePage;
end;

procedure TPREVIO.frSpeedButton2Click(Sender: TObject);
begin
  frPreview1.Zoom := 100;
end;

procedure TPREVIO.frSpeedButton3Click(Sender: TObject);
begin
  frPreview1.PageWidth;
end;

procedure TPREVIO.FormActivate(Sender: TObject);
begin
  frSpeedButton2.Down := True;
  frSpeedButton2Click(nil);
end;

procedure TPREVIO.frSpeedButton11Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TPREVIO.frSpeedButton13Click(Sender: TObject);
begin
  frPreview1.Zoom := 100;
end;

procedure TPREVIO.frSpeedButton12Click(Sender: TObject);
begin
  frPreview1.Zoom := frpreview1.Zoom * 1.25;
end;

procedure TPREVIO.frSpeedButton14Click(Sender: TObject);
begin
  frPreview1.Zoom := frpreview1.Zoom / 1.25;
end;

procedure TPREVIO.frSpeedButton15Click(Sender: TObject);
begin
//   IF LISTADOS.frReport2.Preview = FRPREVIEW1 THEN
//     LISTADOS.FRREPORT2.DESIGNREPORT
//   ELSE
    IF LISTADOS.frReport1.Preview = FRPREVIEW1 THEN
        LISTADOS.frReport1.DesignReport
//   ELSE IF LISTADOS.frReport3.Preview = FRPREVIEW1 THEN
//        LISTADOS.frReport3.DesignReport


end;

procedure TPREVIO.FormCreate(Sender: TObject);
begin
  IMPRESO := FALSE;
end;

end.