526互联

将memo转化为JPG输出

发布时间 2023-08-16 17:07:28作者: lucken
units1;

interface

uses
 Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls,
 Classes;

type
 TForm1 = class(TForm)
 Button1: TButton;
 Memo1: TMemo;

 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation
uses jpeg;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 vBitmap: TBitmap;
 vJpegImage: TJpegImage;
 vOldHeight: Integer;
begin
 Canvas.Font.Assign(Memo1.Font);
 vOldHeight := Memo1.Height;
 Memo1.ClientHeight := Canvas.TextHeight('|') * Memo1.Lines.Count + 2;
 vBitmap := TBitmap.Create;
 vJpegImage := TJpegImage.Create;
 try
 vBitmap.Height := Memo1.ClientHeight;
 vBitmap.Width := Memo1.ClientWidth;
 Memo1.PaintTo(vBitmap.Canvas, -2, -2);
 vJpegImage.Assign(vBitmap);
 vJpegImage.CompressionQuality := 75;
 vJpegImage.Compress;
 vJpegImage.SaveToFile('输出.jpg');
 //  Image1.Picture.Graphic  :=  vJpegImage;
 finally
 vBitmap.Free;
 Memo1.Height := vOldHeight;
 end;

end;