こんにちは、凛です。
メタファイルにコメントを埋め込む方法。


procedure TForm1.Button1Click(Sender: TObject);
Var
  MyMetafile : TMetafile;
  mc:TMetafileCanvas;
begin
  MyMetafile := TMetafile.Create;
  try
    mc:=TMetafileCanvas.CreateWithComment(MyMetafile,0,'凛','テスト');
    with mc do
      try
        Brush.Color := clRed;
        Pen.Width   := 1;
        Ellipse(0,0,200,200);
      finally
        Free;
      end;
    Mymetafile.SaveToFile('c:\poo.emf');
  finally
    MyMetafile.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  MyMetafile : TMetafile;
begin
  MyMetafile := TMetafile.Create;
  try
    MyMetafile.LoadFromFile('c:\poo.emf');
    Caption:=MyMetafile.CreatedBy+MyMetafile.Description;
    Canvas.Draw(200,200,MyMetafile);
  finally
    MyMetafile.Free;
  end;
end;

                              2001/10/14(Sun) 07:22am  MXB01744 凛
 



Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。