![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
|||
|
|||
|
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; |
|
|
|