FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
recortar una foto
Hola.
uso la función CopyRect(), he aplicado un ejemplo de ayuda de delphi 6, y no entiendo los parámetros de esta función. Este es el código q he usado: procedure TForm1.Recortar_ImagenClick(Sender: TObject); begin //MyRect := Rect(10,10,100,100); MyRect:=Rect(10,10,100,100); MyOther:=Rect(10,111,210,340); //MyOther := Rect(10,111,100,210); Bitmap := TBitmap.Create; Bitmap.LoadFromFile('D:\COSAS\INTERNET_DELPHI\002.bmp'); //Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); Bitmap.Free; end; Saludos,gracias. |
#2
|
||||
|
||||
Antes de nada, comentarte que utilices TAG's cuando coloques código Delphi.
En código que has puesto funciona bien; Lo que hay que saber es qué quieres hacer. Esto copia una parte del canvas (el que delimita MyRect(origen) del Bitmap) a otro canvas (el de form1) en la zona que delimita MyOther (destino).
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como recortar caracteres... | alexander66 | Varios | 2 | 17-11-2006 19:06:43 |
architect dvd 3.0 entre foto y foto | tulajvs | Gráficos | 2 | 06-11-2006 10:11:02 |
entre foto y foto, architect dvd 3.0 | tulajvs | Varios | 2 | 05-09-2006 15:03:48 |
Recortar Imagen | fmtidona | Gráficos | 2 | 26-09-2005 19:18:20 |
Rectángulo para recortar imagen | JAV | Gráficos | 3 | 05-07-2005 10:08:23 |
|