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

Вниз

Как привельно использовать GetDIBits???   Найти похожие ветки 

 
LeReve ©   (2003-01-30 18:09) [0]

Как привельно использовать GetDIBits???
желателен пример =)


 
MBo ©   (2003-01-30 18:12) [1]

procedure TForm1.Button2Click(Sender: TObject);
var b:tbitmap;
a:array[0..9,0..9] of TRGBQuad;
s:string;
info:tbitmapinfo;
i,j:integer;
begin
b:=tbitmap.create;
b.PixelFormat:=pf24bit;
b.width:=10;
b.height:=10;
b.Canvas.moveTo(0,0);
b.Canvas.LineTo(6,6);
with info.bmiHeader do begin
biWidth:=b.Width;
biHeight:=b.Height;
biSize:=SizeOf(TBITMAPINFOHEADER);
biCompression:=BI_RGB;
biBitCount:=32;
biPlanes:=1;
biSizeImage:=0;//((biWidth*biBitCount+31)div 32)*biHeight*4;
end;
GetDIBits(b.canvas.handle, B.Handle, 0,B.Height,@a,Info,DIB_RGB_COLORS);
for i:=0 to 9 do begin
s:="";
for j:=0 to 9 do s:=s+inttohex(a[i,j].rgbRed,2)+" ";
memo1.lines.add(s);
end;
image1.picture.assign(b);
b.free;
end;


 
LeReve ©   (2003-01-30 18:18) [2]

огромное спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
3-87807
brestmarket
2003-03-08 03:43
2003.03.27
С какими параметрами необходимо создать(осуществлять доступ) к


14-88153
NightCold
2003-03-10 19:58
2003.03.27
Посетите мой сайт WWW.NSISOFT.BU.RU


3-87784
Conder
2003-03-07 11:35
2003.03.27
Структура таблиц


1-87886
neodiX
2003-03-13 17:50
2003.03.27
Назначение нового адреса переменной pointer


3-87794
ddd
2003-03-07 12:59
2003.03.27
sql кто на втором месте?