Tema: metafile
Ver Mensaje Individual
  #3  
Antiguo 09-10-2005
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
 
Registrado: dic 2004
Posts: 882
Reputación: 22
Héctor Randolph Va por buen camino
Aqui te pongo dos formas de hacerlo, la primera es para pegar el metafile desde el portapapeles de Windows y la segunda desde un archivo.

Código Delphi [-]
uses
  ClipBrd; // No olvides agregar esta línea en los uses

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Clipboard.HasFormat(  CF_METAFILEPICT ) then
   Image1.Picture.Metafile.Assign(ClipBoard)
 else
   ShowMessage('El contenido del portapapeles no es un MetaFile');
end;

Esta otra forma es para abrir el metafile desde un archivo.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.MetaFile.LoadFromFile('c:\drawing.wmf');
end;

Espero que te sea útil.
Responder Con Cita