metafile

[dmagui]

Buenas tardes:

Tengo un problema deseo mostrar un metafile en un image pero no se con que instruccion puedo hacerlo.

Gracias y disculpen si la pregunta no cumple con la minima especificacion.

[dmagui]

Holaaaa

me esta saliendo este error

"Unsupported clipboard format"

cuando uso la instruccion:

image1.Picture.Metafile.LoadFromClipboardFormat(Aformat,Adata,Apalette);


Porfaaa ayudenme

[[Héctor Randolph]]

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.