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

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

TBitMap [D7, WinXP]

Fl@sh ©   (2005-05-12 11:43:00) 

(1)
Как отобразить BitMap


Const
 Letter : array [1..8, 1..8] of Integer =
((1, 1, 1, 1, 1, 1, 1, 1),
(1, 1, 1, 1, 1, 1, 1, 1),
(1, 1, 0, 1, 1, 0, 1, 1),
(1, 1, 0, 1, 1, 0, 1, 1),
(1, 1, 0, 1, 1, 0, 1, 1),
(1, 1, 0, 1, 1, 0, 1, 1),
(1, 1, 0, 1, 1, 0, 1, 1),
(1, 1, 0, 1, 1, 0, 1, 1));
....

BitMap := TBitMap.Create;
 for i := 1 to 8 do
 for j := 1 to 8 do
 if Letter[i, j] = 1 then BitMap.Canvas.Pixels[i, j] := clRed;

 Form1.Image1.Picture.Assign(BitMap);



НЕ работает
А когда
(2)

 BitMap.LoadFromFile('D:\disk2\My project\bmp-ico\mushu2.bmp');
 Form1.Image1.Picture.Assign(BitMap);

Работает

Вопрос
-Почему не работает вариант (1)
-Как сделать чтоб отобразить Битмап

---

ЮЮ   (2005-05-12 11:51:00) [1]

И ещё очистить (залить каким нибуть цветом) до заполнения

---

Fl@sh   (2005-05-12 11:51:00) [2]

> ЮЮ ©   (12.05.05 11:49) [1]

Сенкс

---

ЮЮ   (2005-05-12 11:49:00) [3]

BitMap.Width :=
BitMap.Height :=
и циклы с 0, пожалуйста.

---

Наверх