Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

TBitMap   Найти похожие ветки 

 
Fl@sh ©   (2005-05-12 11:43) [0]

(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:49) [1]

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


 
ЮЮ ©   (2005-05-12 11:51) [2]

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


 
Fl@sh ©   (2005-05-12 11:51) [3]


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

Сенкс



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

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
4-1122903549
Shopot
2005-08-01 17:39
2005.09.25
Как послать сообщение потоку процесса и отловить его?


2-1123945723
Саша У
2005-08-13 19:08
2005.09.25
Как правильно сделать одинаковые обработчики для нескольких компо


2-1124204973
Андрей Молчанов
2005-08-16 19:09
2005.09.25
невидимые TTreeNode


2-1123970686
ArtemESC
2005-08-14 02:04
2005.09.25
CopyFrom класса TStream


3-1123748480
topmoz
2005-08-11 12:21
2005.09.25
Запрос на запись в таблицу