| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно создать HBITMAP одного цвета??? [D5]
helper © (2003-08-30 14:49:00)
Используя только API функции!!!!
Dmk (2003-08-30 20:46:00) [1]
Прошу указать на недоработку
helper (2003-08-30 17:05:00) [2]
Спасибо но, sorry. Этот код не дорабртан и занимает слишком много места. Этуже процедуру можно сделать и с 5 командоми!!!
Dmk (2003-08-30 15:16:00) [3]
У меня это глобальная переменная
ResRec: DBufferType;
Dmk (2003-08-30 15:14:00) [4]
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
//
| |
