Скачать: CL | DM;

Как можно создать 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 командоми!!!

---

← →
Dmk ©   (2003-08-30 20:46) [4]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c