| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите, как скопировать с Form1 изображение, нарисованное

Aleks ©   (2006-10-25 13:38:00) 

Доброго времени суток.
Подскажите, как скопировать с Form1 изображение, нарисованное с помощью Canvas и сохранить его в файл JPG или BMP

---

Aleks   (2006-10-25 14:21:00) [1]

Если рисовать на канве формы в обработчике OnPaint, то всё отлично получается.

---

Джо   (2006-10-25 14:05:00) [2]

> [2] Aleks ©   (25.10.06 14:02)
> Form1.Canvas.Rectangle(12+i,12,57+i,58); // Для примера
> рисуем квадратики

Ты эти квадратики должен рисовать на канве формы в обработчике OnPaint.

---

Aleks   (2006-10-25 14:02:00) [3]

(Не совсем понятно, что такое "изображение, нарисованное с помощью Canvas",)

Всё что находится на форме (компоненты), сохраняются в файл,
Но то что нарисованно (Извиняюсь если не точно выражаюсь) на ней, нету.
Например вот это

var
Bmp: TBitmap;
i:integer;
begin
Bmp := TBitmap.Create;
For i:=0 to 100 do
Form1.Canvas.Rectangle(12+i,12,57+i,58); // Для примера рисуем квадратики
Bmp := TBitmap.Create;
try
  Bmp.Width := ClientWidth;
  Bmp.Height := ClientHeight;
  PaintTo(Bmp.Canvas,0,0);
  Bmp.SaveToFile('d:\123.bmp');
finally
  Bmp.Free
end
end;

---

Джо   (2006-10-25 13:45:00) [4]

Не совсем понятно, что такое "изображение, нарисованное с помощью Canvas", но взгляни на это:
var
 Bmp: TBitmap;
begin
 Bmp := TBitmap.Create;
 try
   Bmp.Width := ClientWidth;
   Bmp.Height := ClientHeight;
   PaintTo(Bmp.Canvas,0,0);
   Bmp.SaveToFile('d:\123.bmp');
 finally
   Bmp.Free
 end
end;


---

Наверх