Определение цвета пикселя, Как определить цвет каждой точки экрана Опции

[Xineger]

Граждане обитатели форума, возник вопрос один к Вам. Ничего подобного на форуме нет, так что решил создать новую тему. Итак.
Допустим, вывел я на экран bmp-шку. И очень надо определить цвет каждого пикселя на экране. Как это сделать? И можно ли потом этот пиксель перекрасить, не меняя всего рисунка?
Модуль для просмотра bmp взят тут же, http://pascal.dax.ru/forum/index.php?act=A...e=post&id=14456 если быть точным.

[GoodWind]

а если асмом то вот так:

Код

Function getpixel(x,y : integer):byte;
begin
asm
 mov ax,y
 mov bx,ax
 shl ax,8
 shl bx,6
 add bx,ax
 add bx,x
 mov ax,0a000h
 mov es,ax
 mov al,es:[bx]
 mov @result,al
end;
end;

поставить точку:

Код

procedure putpixel(x,y : integer;color : byte); assembler;
asm
 pusha
 mov ax,y
 mov bx,ax
 shl ax,8
 shl bx,6
 add bx,ax
 add bx,x
 mov ax,0a000h
 mov es,ax
 mov al,color
 mov es:[bx],al
 popa
end;

Сообщение отредактировано: GoodWind - 17.10.2004 7:01