Export To Word

Комментарии

• gpi

  December 2018 отредактировано 04:16

  Попробуйте исправить frxImageConverter.pas

    procedure SaveAsBitmap(PixFormat: TPixelFormat);
    var
      Image: TBitmap;
    begin
      Image := TBitmap.Create;
  
      try
        Image.Width := Graphic.Width;
        Image.Height := Graphic.Height;
        Image.PixelFormat := PixFormat;
  
        Image.TransparentColor := $FFFFFF;
        Image.Canvas.Lock;
        try
          Image.Canvas.Brush.Color := Image.TransparentColor;
          Image.Canvas.FillRect(Image.Canvas.ClipRect);
  
          Image.Canvas.Draw(0, 0, Graphic);
        finally
          Image.Canvas.Unlock;
        end;
        Image.SaveToStream(Stream);
      finally
        Image.Free
      end
    end;
  
    procedure SaveAsPNG;
    {$IFNDEF FPC}
    {$IFNDEF Delphi12}
    type
      TPngImage = TPngObject;
    {$ENDIF}
    var
      Image: TPngImage;
    begin
      Image := TPngImage.CreateBlank(COLOR_RGB, 8, Graphic.Width, Graphic.Height);
  
      try
        Image.TransparentColor := $FFFFFF;
        Image.Canvas.Lock;
        try
          Image.Canvas.Brush.Color := Image.TransparentColor;
          Image.Canvas.FillRect(Image.Canvas.ClipRect);
  
          Image.Canvas.Draw(0, 0, Graphic);
        finally
          Image.Canvas.Unlock;
        end;
        Image.SaveToStream(Stream);
      finally
        Image.Free
      end
    end;
  

  написал:

  В младших версиях был ещё и экспорт OLE, его полностью убрали или можно как-то подключить в 5 или 6?

  Добавьте TfrxXLSExport в проект
• Isaev

  December 2018 отредактировано December 2018

  gpi написал: »

  Попробуйте исправить frxImageConverter.pas...

  Хм, логично, работает, спасибо! Это автоматически войдёт в последующие версии?
  А откуда вообще была надумана константа $123456? )
  

  gpi написал: »

  Добавьте TfrxXLSExport в проект

  А вот это не понял, при чём тут вообще Excel для экспорта в Word?
  И попробовал, ничего не изменилось, добавился экспорт в Excel, как и ожидалось.
  Для Word остался только XML, как и прежде.
• gpi

  December 2018 отредактировано 04:16

  написал:

  А вот это не понял, при чём тут вообще Excel для экспорта в Word?

  OLE экспорт всегда был только для Excel