Помогите разобраться с BITMAPINFO (+) [D5, Win2k]
VL7 © (2002-03-22 16:22:00)
А точнее каким образом в bmiColors записать больше одной
структуры RGBQUAD. К примеру обявляю переменные Inf:BITMAPINFO и
pal:array [0..255] of RGBQUAD, заполняю массив и пытаюсь присвоить
его Inf.bmiColors, но Дельфи ругается, говорит - несовместимые
типы. Как быть?
MBo (2002-03-22 17:50:00) [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;
Наверх 
ЧАТ |
Орешник |
|
