Текущий архив: 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.054 c
