Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Помогите разобраться с 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-9575            BlackJack             2002-03-23 19:36  2002.04.04  
Как сделать так чтобы при нажатии на 0 ряд(столбец) в DrawGrid ячейки западали вниз?


1-9440            Graf57                2002-03-23 13:25  2002.04.04  
Как пользоваться Tcanvas, TPen и т.п?


3-9390            Beer                  2002-03-12 14:41  2002.04.04  
Дерево из записей


14-9618           Suntechnic            2002-02-21 20:47  2002.04.04  
Загадки, которые в этой конференции по-моему всё актуальнее и актуальнее :)))


14-9628           Владимир Васильев     2002-02-22 18:04  2002.04.04  
---|Ветка была без названия|---