Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Графика / Мне нужен временный canvas, но когда я пытаюсь его создать получаю сообщения об ошибках. Как создать TCanvas?

Мне нужен временный canvas, но когда я пытаюсь его создать получаю сообщения об ошибках. Как создать TCanvas?

Создайте Bitmap и используйте свойство canvas класса TBitmap. Пример создает Bitmap, рисует на его canvas'е, выводит этот canvas на форму и освобождает bitmap.
Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
    bm : TBitmap;
begin
    bm := TBitmap.Create;
    bm.Width := 100;
    bm.Height := 100;
    bm.Canvas.Brush.Color := clRed;
    bm.Canvas.FillRect(Rect(0, 0, 100, 100));
    bm.Canvas.MoveTo(0, 0);
    bm.Canvas.LineTo(100, 100);
    Form1.Canvas.StretchDraw(Form1.ClientRect,Bm);
    bm.Free;
end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru