Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

Помогите разобраться с BITMAPINFO (+)   Найти похожие ветки 

 
VL7   (2002-03-22 16:22) [0]

А точнее каким образом в bmiColors записать больше одной структуры RGBQUAD. К примеру обявляю переменные Inf:BITMAPINFO и pal:array [0..255] of RGBQUAD, заполняю массив и пытаюсь присвоить его Inf.bmiColors, но Дельфи ругается, говорит - несовместимые типы. Как быть?


 
MBo ©   (2002-03-22 17:50) [1]

может, поможет
создать палитру в градациях серого

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..255,0..255] of byte;
ct:array[0..255] of TRGBQuad;
b:tbitmap;
i,j:integer;
begin
b:=tbitmap.create;
b.pixelformat:=pf8bit;
b.Width := 256;
b.Height := 256;
for i:=0 to 255 do begin
ct[i].rgbRed:=i;
ct[i].rgbBlue:=i;
ct[i].rgbGreen:=i;
ct[i].rgbReserved:=0;
end;
for i:=0 to 255 do for j:=0 to 255 do a[i,j]:=trunc(sqrt(i*j));
SetDIBColorTable(b.canvas.Handle,0,$100,ct);
SetBitmapBits(b.Handle, sizeof(a),@a);
Image1.picture.assign(b);
b.free;
end;



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

Текущий архив: 2002.04.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-9484
snoup
2002-03-25 19:57
2002.04.04
Как с помощью таймера и лебела сделать сикундомер?


3-9391
DPro
2002-03-12 19:07
2002.04.04
Как програмно задать в свойствах IE домашнюю страницу?


3-9402
Dima Kopachev
2002-03-11 10:35
2002.04.04
Как обработать перемещение записи


14-9614
VID
2002-02-20 18:22
2002.04.04
Об InterBase


3-9429
Skyter
2002-03-07 13:46
2002.04.04
HELP!!! Помогите. Есть база данных При выполнении запроса выдается ошибка см. msg