Как можно создать HBITMAP одного цвета???

← →
helper (2003-08-30 14:49) [0]

Используя только API функции!!!!

← →
Dmk © (2003-08-30 15:14) [1]

type DBufferType = record
dbWidth: DWord;
dbHeight: DWord;
dbBpp: DWord;
dbMemDC: HDC;
dbMemEntry: pointer;
dbLinearAddr: DWord;
dbBitmap: hBitmap;
dbOldBitmap: hBitmap;
end;

Type PBMInfo =^TBMInfo;
TBMInfo = record
bmiHeader: TBitmapInfoHeader;
case Boolean of
True: (bmiColors:TFColorTable);
False: (r,g,b:Longint);
end;

Function InitCustomDBuffer(IWidth, IHeight:Integer; IBpp:Integer; var BufInfo:TBmInfo):DBufferType;
var
DIB_colors: Integer;
DBufferSize: DWord;
NumPlanes: DWord;

begin
//

← →
Dmk © (2003-08-30 15:16) [2]

У меня это глобальная переменная
ResRec: DBufferType;

← →
helper (2003-08-30 17:05) [3]

Спасибо но, sorry. Этот код не дорабртан и занимает слишком много места. Этуже процедуру можно сделать и с 5 командоми!!!

Прошу указать на недоработку

Как можно создать HBITMAP одного цвета??? Найти похожие ветки