Rich no print!

Comments

• coolman_kk

  October 2004 edited 12:15AM

  Hello again,
  I return version 3.03 and this problem fix. Maybe problem is in version 3.04.
  
  Please check version 3.04.
  Thanks
• coolman_kk

  October 2004 edited 12:15AM

  ????
• AlexTZ

  October 2004 edited 12:15AM

  Please change the frxRich.pas file:
  

  procedure TfrxRichView.DrawRich;
  var
    Range: TFormatRange;
    LogX, LogY: Integer;
    EMFCanvas: TMetafileCanvas;
    EMF: TMetafile;
  begin
    EMF := nil;
    EMFCanvas := nil;
    FillChar(Range, SizeOf(TFormatRange), 0);
  
    with Range do
    begin
      if IsPrinting then
      begin
        hdc := FCanvas.Handle;
        LogX := GetDeviceCaps(hdc, LOGPIXELSX);
        LogY := GetDeviceCaps(hdc, LOGPIXELSY);
        rc := Rect(FX * 1440 div LogX, FY * 1440 div LogY,
          FX1 * 1440 div LogX, FY1 * 1440 div LogY);
      end
      else
      begin
        LogX := 96;
        LogY := 96;
        EMF := TMetafile.Create;
        EMF.Width := Round(Width);
        EMF.Height := Round(Height);
        EMFCanvas := TMetafileCanvas.Create(EMF, 0);
        if Color = clTransparent then
          FRichEdit.Color := clWhite else
          FRichEdit.Color := Color;
        hdc := EMFCanvas.Handle;
        rc := Rect(Round(GapX * 1440 / LogX), Round(GapY * 1440 / LogY),
          Round((Width - GapX) * 1440 / LogX),
          Round((Height - GapY) * 1440 / LogY));
      end;
  
      rcPage := rc;
      hdcTarget := hdc;
  
      chrg.cpMin := 0;
      chrg.cpMax := -1;
      FRichEdit.Perform(EM_FORMATRANGE, 1, Integer(@Range));
    end;
  
    FRichEdit.Perform(EM_FORMATRANGE, 0, 0);
  
    if not IsPrinting then
    begin
      EMFCanvas.Free;
      FCanvas.StretchDraw(Rect(FX, FY, FX1, FY1), EMF);
      EMF.Free;
    end;
  end;
  
• lnovy

  October 2004 edited 12:15AM

  I have same problem, but I have Standard edition of FR 3.04, so I don't have frxRich.pas. Can you please change it in file to be donwloaded in Download area? Or do I have to wait for FR 3.05 ?
  
  Lubos
• AlexTZ

  October 2004 edited 12:15AM

  Wait for 3.05, it will out soon.
• Misja

  October 2004 edited 12:15AM

  How soon is soon? Is there a date for the new Release?
• AlexTZ

  October 2004 edited 12:15AM

  In the next week.