Главная страница
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.042 c
15-1141749259
ArtemESC
2006-03-07 19:34
2006.04.02
JavaScript - как напечатать в данном месте стр. строку?


15-1141848625
LordOfRock
2006-03-08 23:10
2006.04.02
Dr. Web лезет в инет


6-1134831725
KvORubin
2005-12-17 18:02
2006.04.02
Мастера!!! как програмным путём передать файл.* по сети...


2-1142475814
tigra
2006-03-16 05:23
2006.04.02
DBGrid


2-1142850343
Новичоккк
2006-03-20 13:25
2006.04.02
Работа с буффером