![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
hola Craven
sin más que decir creo que el código que necesitas es similar al siguiente: procedure TForm1.Button1Click(Sender: TObject); Var Bmp:TBitmap; begin Bmp:=Tbitmap.Create; Bmp.Height:=100; Bmp.Width:=100; Bmp.Canvas.CopyRect(Rect(1,1,100,100),Canvas,Rect(1,1,100,100)); Bmp.SaveToFile('c:\bmp.bmp'); Bmp.Free; end; |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|