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]

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

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