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




Вниз

Как из массива байтов сделать битмап? 


MBo   (2002-02-14 14:00) [7]

вот рабочий пример, в нем используется устаревшая функция
SetBitmapBits, вместо нее рекомендуется SetDiBits

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;




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




Наверх





Память: 0.71 MB
Время: 0.04 c
1-46402           Ne0N                  2002-04-02 13:34  2002.04.15  
Загрузка Word овских DOC ов


1-46393           Немировский Шурик     2002-04-02 12:16  2002.04.15  
Работа с циклами.


14-46479          Alexandr              2002-03-06 14:02  2002.04.15  
Знак


3-46225           tima_binsprog         2002-03-23 20:16  2002.04.15  
Getting username using TDatabase


1-46429           konusov               2002-04-02 23:33  2002.04.15  
Как в delphi сделать невидимым приложение на панели задач?