Почему на канве 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.

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