Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как сохранить содержимое TPaintBox в BMP

Программист смотрит фильм "Чужой":
- Ну запишись же, запишись.


 var
   Bitmap: TBitmap;
   Source: TRect;
   Dest: TRect;
 begin
   Bitmap := TBitmap.Create;
   try
     with Bitmap do
     begin
       Width := MyPaintBox.Width;
       Height := MyPaintBox.Height;
       Dest := Rect(0, 0, Width, Height);
     end;
     with MyPaintBox do
       Source := Rect(0, 0, Width, Height);
     Bitmap.Canvas.CopyRect(Dest, MyPaintBox.Canvas, Source);
     Bitmap.SaveToFile('MYFILE.BMP');
   finally
     Bitmap.Free;
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS