Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 28-11-2008
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Poder: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Prueba a ver si esto te sirve, es la traducción mas o menos de aquello:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

 var
   R: TRect;
   Image: TImage;

begin
   Image := TImage.Create(Self);

   // Aquí dimensionamos la nueva imagen....
   Image.Height := 100;
   Image.Width  := 100;

   // Preparamos para la función StretchDraw
    R.Left := 0;
    R.Top := 0;
    R.Bottom := Image.Height;
    R.Right := Image.Width;

   // Copiamos la imagen cambiada de tamaño a Image desde Image1...
   // Image1 esta definida en tiempo de diseño....
   Image.Canvas.StretchDraw(R, Image1.Picture.Graphic);

   // La salvamos para ver que ha pasado. ....EURECA....
   Image.Picture.Graphic.SaveToFile('a.bmp');

end;

Saludos.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
propiedad Canvas de TScrollBox islu Varios 2 13-06-2007 10:04:32
stretch y la propiedad pixels delphiladero Gráficos 2 24-04-2007 13:45:05
PngComponents y la Propiedad Stretch kloud Gráficos 11 22-04-2007 02:14:55
¿Stretch de video en un Mediaplayer? NPIdea Gráficos 1 05-02-2007 23:14:04
eliminar contraseña guardad Manuel Windows 3 26-10-2006 15:22:00


La franja horaria es GMT +2. Ahora son las 23:24:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi