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

Вниз

Оптимизатия   Найти похожие ветки 

 
Andy BitOff ©   (2006-03-01 11:25) [0]

Помогите ускорить код:

procedure TForm1.Proc(Source: TBitMap; i, j: integer; var a: TArrayM);
var
 hd:Integer;
begin
 hd:=Source.Canvas.Handle;
 a[1] := GetPixel(hd, i - 1, j - 1);
 a[2] := GetPixel(hd, i - 1, j);
 a[3] := GetPixel(hd, i - 1, j + 1);
 a[4] := GetPixel(hd, i, j + 1);
 a[5] := GetPixel(hd, i + 1, j + 1);
 a[6] := GetPixel(hd, i + 1, j);
 a[7] := GetPixel(hd, i + 1, j - 1);
 a[8] := GetPixel(hd, i, j - 1);
end;

Задача, получить значения пикселей, стоящих вокруг указанного.


 
jack128 ©   (2006-03-01 11:47) [1]

Scanline + F1



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

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

Наверх




Память: 0.46 MB
Время: 0.061 c
15-1141471106
Pazitron_Brain
2006-03-04 14:18
2006.04.02
Службы на подобии web2mail.com


2-1142577578
worldmen
2006-03-17 09:39
2006.04.02
Прога D5 не печатает под XP


15-1141971458
Mozart
2006-03-10 09:17
2006.04.02
ADSL


3-1139471775
kyn66
2006-02-09 10:56
2006.04.02
Не срабатывает позиционирование в таблице !!!


4-1137257217
Guest386x
2006-01-14 19:46
2006.04.02
Чтение видеобуфера