Поиск в сформированном отчете

Комментарии

• -=Den=-

  August 2007 отредактировано 09:06

  Ну если по F3 поиск дальше не проходит - значит завершен.
  
  
• gpi

  August 2007 отредактировано 09:06

  Если есть исходники, модифицируйте frxPreview.pas

  procedure TfrxPreviewWorkspace.FindText;
  var
    EMFCanvas: TMetafileCanvas;
    PageBounds, TxtBounds: TRect;
  begin
    TextFound := False;
  
    while FLastFoundPage < FPageList.Count do
    begin
      if (FEMFImage = nil) or (FEMFImagePage <> FLastFoundPage) then
      begin
        if FEMFImage <> nil then
          FEMFImage.Free;
        FEMFImage := TMetafile.Create;
        EMFCanvas := TMetafileCanvas.Create(FEMFImage, 0);
        PreviewPages.DrawPage(FLastFoundPage, EMFCanvas, 1, 1, 0, 0);
        EMFCanvas.Free;
      end;
  
      FEMFImagePage := FLastFoundPage;
      RecordNo := 0;
      EnumEnhMetafile(0, FEMFImage.Handle, @EnumEMFRecordsProc, nil, Rect(0, 0, 0, 0));
  
      if TextFound then
      begin
        PageBounds := FPageList.GetPageBounds(FLastFoundPage, ClientWidth, Zoom);
        TxtBounds := Rect(Round(TextBounds.Left * Zoom),
          Round(TextBounds.Top * Zoom),
          Round(TextBounds.Right * Zoom),
          Round(TextBounds.Bottom * Zoom));
  
        if (PageBounds.Top + TxtBounds.Top < FOffset.Y) or
          (PageBounds.Top + TxtBounds.Bottom > FOffset.Y + ClientHeight) then
          VertPosition := PageBounds.Top + TxtBounds.Bottom - ClientHeight + 20;
        if (PageBounds.Left + TxtBounds.Left < FOffset.X) or
          (PageBounds.Left + TxtBounds.Right > FOffset.X + ClientWidth) then
          HorzPosition := PageBounds.Left + TxtBounds.Right - ClientWidth + 20;
        Repaint;
        break;
      end
      // добавлено
      else
        Application.MessageBox('Строка не найдена','Поиск завершён',mb_OK);
      //
      LastFoundRecord := -1;
      Inc(FLastFoundPage);
    end;
  end;
  
• mch Киров

  August 2007 отредактировано 09:06

  gpi написал: »

  Если есть исходники, модифицируйте frxPreview.pas

  Спасибо, модифицировать я могу, но может быть есть возможность включить это сообщение в релиз? А то каждый раз одно и то же править не очень удобно...