Создание Bitmap

← →
ma5ter © (2006-01-14 01:17) [0]

Уважаемые! Прошу покритиковать приведенный код. Мне он не нравится, не знаю почему. Корректен ли он?
bmp:=TBitmap.create; hBmp := CreateDIBitmap( ImagoDC, BIH, CBM_INIT, pCHar(lBr), // массив 256*256 BI^, DIB_RGB_COLORS ); Bmp.Height := 256; Bmp.Width := 256; Bmp.Handle := hBmp;

← →
Gero © (2006-01-14 02:15) [1]

1. Он не скомпилируется.
2. Прочитать его не так-то просто.
3. Если bmp существует только в пределах текущей подпрограммы, работу с ним нужно размещать в блоку try..finally.
4. Что такое «массив 256*256»? Массив чего?
5.

> Bmp.Height := 256;
> Bmp.Width := 256;

Это лишнее.

> ma5ter © (14.01.06 01:17)

Зачем использовать API функцию CreateDIBitmap, когда уже используешь объект класса TBitmap?
TBitmap вызовет CreateDIBitmap без тебя )

Создание Bitmap Найти похожие ветки