Ver Mensaje Individual
  #3  
Antiguo 08-09-2003
Adrix Adrix is offline
Miembro
 
Registrado: jul 2003
Ubicación: Argentina
Posts: 23
Reputación: 0
Adrix Va por buen camino
Gracias delphi.com.ar por tu respuesta, pero a decir verdad no entendi casi nada de lo del enlace, porque tengo poca experiencia en programar (casi nula comparada con la de ustedes!!!). Bueno, pero igual gracias al truco 254 de trucomania, con algun que otro cambio llegue a esto:
Código:
procedure TForm1.WmfToJPG(FicheroJPG:string);
var
   MetaFile:TMetafile;
   BMP:TBitmap;
   JPG:TJpegImage;
begin
   If clipboard.HasFormat(CF_METAFILEPICT)
   then begin
          Metafile:=TMetaFile.create;
          Bmp:=TBitmap.create;
          JPG:=TJpegImage.Create;
          MetaFile.Assign(clipboard);
          with Bmp do
          begin
            Height:=Metafile.Height;
            Width:=Metafile.Width;
            Canvas.Draw(0,0,MetaFile);
          end;
          JPG.Assign(BMP);
          JPG.SaveToFile(FicheroJPG);
          bmp.Free;
          MetaFile.Free;
          JPG.Free;
        end;
end;
Pero al grabarlo queda en el tamaño original, y necesito que si la imagen que se pega en el RxRichEdit se redimensiona, al volver a copiarla al clipboard el tamaño sea el que el usuario le dio...
No se si se entiende bien lo que quiero decir...
Bueno espero que alguien pueda entenderme y ayudarme!
Gracias!
Responder Con Cita