HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу TCanvas сохранение изображения
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

TCanvas сохранение изображения
  #1  
Старый 28.11.2009, 18:53
ky_kask
Познающий
Регистрация: 18.11.2009
Сообщений: 32
С нами: 8673277

Репутация: 92
По умолчанию TCanvas сохранение изображения
Кто-нибудь знает как можно сохранить изображение из TForm.Canvas в файл?

код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap:Tbitmap;  MyRect,MyOther: TRect;
begin
Bitmap:=Tbitmap.Create;
MyRect:=Rect(0,0,100, 200);
MyOther := Rect(0,0,100, 200);
Bitmap.Width:=100;
Bitmap.Height:=200;
Bitmap.Canvas.CopyRect(MyOther, Form1.Canvas, MyRect);
Bitmap.SaveToFile('ok.bmp');
Bitmap.Free;
end;
подобный код не подходит совершенно. Т.к. при перекрытии формы другим окном в файл сохраняется совсем не TCanvas моей формы, а скриншот части экрана. Есть ли вообще возможность сохранения изображения именно своей формы, а не участков экрана?
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 29.11.2009, 09:15
Proger10
Познающий
Регистрация: 19.12.2008
Сообщений: 78
С нами: 9154741

Репутация: 13
По умолчанию
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  BMP: TBitmap;
begin
  BMP:=TBitmap.Create;
  BMP.Height:=Form1.Height;
  BMP.Width:=Form1.Width;
  BMP.Canvas.CopyRect(BMP.Canvas.ClipRect, Form1.Canvas, Form1.Canvas.ClipRect);
  BMP.SaveToFile('C:\bmp.bmp');
  BMP.Free;
end;
Хм... Странно! А у меня это работает!!
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
NVIDIA создала систему трехмерного изображения tinyM Мировые новости. Обсуждения. 4 30.10.2009 22:57
Изображения в интернете будут защищать "водяными знаками" dinar_007 Мировые новости. Обсуждения. 11 19.08.2006 04:34



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.