Очень интересное свойство FR при печати

Комментарии

• alecsandr Izhevsk Удмуртия, г. Ижевск

  February 2005 отредактировано 03:05

  Вообще разработчики FastReport присутствуют на данном форуме?
• -=Serg=-

  February 2005 отредактировано 03:05

  "Если вы не получили ответа, не принимайте это на свой счет, как наш отказ помочь лично вам. Иногда участники форума просто не знают ответ. Отсутствие ответа не равносильно игнорированию, хотя извне разницу заметить сложно."
  (с) http://webhelp.ru/
• alecsandr Izhevsk Удмуртия, г. Ижевск

  February 2005 отредактировано 03:05

  написал:

  "Если вы не получили ответа, не принимайте это на свой счет, как наш отказ помочь лично вам. Иногда участники форума просто не знают ответ. Отсутствие ответа не равносильно игнорированию, хотя извне разницу заметить сложно."
  (с) http://webhelp.ru/

  Я ничего против Вас в целом не имел ввиду, но только хотелось бы получать иногда ответы, например, в топике "Как отформатировать строку по время постоения?", можно написать, что это не возможно или никак (нет таких функций) и т.п.
• AlexTZ

  February 2005 отредактировано 03:05

  Пришлите пример отчета (файлы .fr3 и .fp3) на tz@fast-report.com.
• alecsandr Izhevsk Удмуртия, г. Ижевск

  February 2005 отредактировано 03:05

  AlexTZ написал:

  Пришлите пример отчета (файлы .fr3 и .fp3) на tz@fast-report.com.

  У меня есть только файлы с расширением *.fr3!
• Markus

  February 2005 отредактировано 03:05

  Сделай превью отчета и сохрани результат, будет fp3
• alecsandr Izhevsk Удмуртия, г. Ижевск

  February 2005 отредактировано 03:05

  AlexTZ написал:

  Пришлите пример отчета (файлы .fr3 и .fp3) на tz@fast-report.com.

  Выслал файлы!
• AlexTZ

  February 2005 отредактировано 03:05

  Проблема в том, что объект Rich печатается виндой. На разных устройствах (экран и принтер) текст выглядит по-разному. В процесс печати я вмешаться не могу.
• nazghul2k

  February 2005 отредактировано 03:05

  И что же тогда делать в таком случае???
  Не использовать Рич??
  У меня например не только место остается между бендами, но еще текст обрезается при печати - на превью все нормально выглядит....как с этим бороться??
• AlexTZ

  February 2005 отредактировано 03:05

  Можно вернуть процедуру отрисовки, что была в версии 3.03. При этом, правда,
  будут косяки с межсимвольными расстояниями, но, увы, третьего не дано.
  
  frxRich.pas:
  

   TfrxRichView = class(TfrxStretcheable)
    private
      function CreateMetafile: TMetafile;
  
  
  function TfrxRichView.CreateMetafile: TMetafile;
  var
    Range: TFormatRange;
    LogX, LogY: Integer;
    EMFCanvas: TMetafileCanvas;
  begin
    FillChar(Range, SizeOf(TFormatRange), 0);
  
    with Range do
    begin
      LogX := 96;
      LogY := 96;
      rc := Rect(Round(GapX * 1440 / LogX), Round(GapY * 1440 / LogY),
        Round((Width - GapX) * 1440 / LogX),
        Round((Height - GapY) * 1440 / LogY));
      rcPage := rc;
  
      Result := TMetafile.Create;
      Result.Width := Round(Width);
      Result.Height := Round(Height);
  
      EMFCanvas := TMetafileCanvas.Create(Result, 0);
      hdc := EMFCanvas.Handle;
      hdcTarget := hdc;
      if Color = clTransparent then
        FRichEdit.Color := clWhite else
        FRichEdit.Color := Color;
  
      chrg.cpMin := 0;
      chrg.cpMax := -1;
      FRichEdit.Perform(EM_FORMATRANGE, 1, Integer(@Range));
    end;
  
    FRichEdit.Perform(EM_FORMATRANGE, 0, 0);
    EMFCanvas.Free;
  end;
  
  procedure TfrxRichView.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX,
    OffsetY: Extended);
  var
    EMF: TMetafile;
  begin
    BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
    DrawBackground;
  
    EMF := CreateMetafile;
    Canvas.StretchDraw(Rect(FX, FY, FX1, FY1), EMF);
    EMF.Free;
  
    DrawFrame;
  end;