orm_MyPreview.ToolButton4Click(Sender: TObject);
begin
  QRPreview1.ZoomToWidth;
end;

procedure TForm_MyPreview.SpeedButton1Click(Sender: TObject);
begin
  QRPreview1.PageNumber := 1;
  UpdatePanelShow;
end;

procedure TForm_MyPreview.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
  FPageCount := PageNum ;
  UpdatePanelShow ;

end;

procedure TForm_MyPreview.SpeedButton5Click(Sender: TObject);
begin
  QRPreview1.PageNumber := QRPreview1.PageNumber-1;
  if QRPreview1.PageNumber =0 then
  QRPreview1.PageNumber:=1;
  UpdatePanelShow;

end;

procedure TForm_MyPreview.SpeedButton6Click(Sender: TObject);
begin
  QRPreview1.PageNumber := QRPreview1.PageNumber+1;
  UpdatePanelShow;
end;

procedure TForm_MyPreview.SpeedButton2Click(Sender: TObject);
begin
  QRPreview1.PageNumber := FPageCount;
  UpdatePanelShow;

end;

procedure TForm_MyPreview.SpeedButton3Click(Sender: TObject);
begin
  QRPreview1.QRPrinter.PrintSetup;
   
end;

procedure TForm_MyPreview.SpeedButton4Click(Sender: TObject);
begin
  QRPreview1.QRPrinter.Print;

end;

procedure TForm_MyPreview.SpeedButton9Click(Sender: TObject);
begin
  Close;
end;

procedure TForm_MyPreview.SpeedButton7Click(Sender: TObject);
begin
    if SaveDialog1.Execute then
    begin
      if (SaveDialog1.FIlterIndex <>1) and (CurRep = nil) then Exit;
      //--*.QR
      QRPreview1.QRPrinter.Save(SaveDialog1.FileName);
    end;
end;

procedure TForm_MyPreview.SpeedButton8Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    QRPreview1.QRPrinter.Load(OpenDialog1.FileName);
end;

procedure TForm_MyPreview.QRPreview1ProgressUpdate(Sender: TObject;
  Progress: Integer);
begin
  ProgressBar1.Position := Progress;

end;

end.