Скачать: CL | DM;

Почему на канве Tbitmap ничего не рисуется?   Найти похожие ветки 

← →
Sour ©   (2003-04-27 13:32) [0]

Cоздаю Tbitmap:

Bitmap := Tbitmap.Create;
Bitmap.Canvas.Brush.Color = clBlack;
Bitmap.Canvas.Pen.Color := clBlack;
Bitmap.Canvas.Rectangle(0, 0, 100, 100);

Image1.Canvas.Draw(0, 0, Bitmap);
Но на канве Timage ничего не появляется?
Хотя если в Bitmap загрузить файл (Bitmap.LoadFromFile()), а потом также отобразить с помощью Draw,
на Image появляется картинка?
Как рисовать на канве Bitmap-a, чтобы потом ее можно было вывести на другую методом Draw?

---

← →
Набережных С.   (2003-04-27 14:12) [1]

После Bitmap := Tbitmap.Create посмотри, чему равны Bitmap.Width и Bitmap.Height.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.015 c