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

← →
Aleks © (2006-10-25 13:38) [0]

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

← →
Джо © (2006-10-25 13:45) [1]

Не совсем понятно, что такое "изображение, нарисованное с помощью 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;

← →
Aleks © (2006-10-25 14:02) [2]

(Не совсем понятно, что такое "изображение, нарисованное с помощью 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 14:05) [3]

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

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

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

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