Оттенки серого

[yulia]

Здравствуйте..
Помогите, пожалуйста, что-то сделать с процедурой...
У меня есть процедура преобразования изображения в оттенки серого, которая выложена по всему интернету

function RgbToGray(RGBColor: TColor): TColor;
var
  Gray: byte;
begin
  Gray := Round((0.30 * GetRValue(RGBColor)) +
  (0.59 * GetGValue(RGBColor)) +
  (0.11 * GetBValue(RGBColor )));
  Result := RGB(Gray, Gray, Gray);
end;

procedure TForm1.N3Click(Sender: TObject);
var
  h, w: integer;
begin
  for w := 0 to Image1.Width-1 do
    for h := 0 to Image1.Height-1 do
      Image1.Canvas.Pixels[w, h] :=
      RgbToGray(Image1.Canvas.Pixels[w, h]);
end;

Все бы хорошо, но
1. Оно картинку размером с иконку преобразовывает минуту!!
2. Когда картинка большая, то оно преобразовывает только кусок

Можно ли как-то исправить скорость ее выполнения и почему только кусок?

[Deight]

Отрисовывай все на отдельном tbitmap а итог уже загружай в image.

[BOBAH13]

Сколько не говори все бестолку... я вот не пойму я что не четко объясняю... ну или просто меня отказываются слушать ?

это так преамбула

Image1.Canvas.Pixels[w, h] :=
RgbToGray(Image1.Canvas.Pixels[w, h]); - это просто ужас... вы так будите вечность преобразовывать

есть два пути:
1. Старый для меня, и не очень функциональный для всех преобразовываем в Bitmap или вроде помниться функция зная HDC канвы получите массив битовых даных через GetDCDIBits вроде так (ну не помню все из MSDN) получаите данные потом зная их формат ну там 24 или 32 бита на пиксель юзаите TRGBQuard или TRGBTriple - в Windows.pas объявлены но юзаите как PRGBQuard и PRGBtriple - т.е. указатель...

2. Юзаем GDI+ создаем GpBitmap - грузит уйму форматов, потом получаем битовые данные в каком вам угодно формате и опять таки юзаем RGBQuard и т.п....

Далее в общем... вы перед вашими циклами указываите на ваши данные битовые например PRGBQuard := Bits ну вы поняли. и далее в цикле просто после обработки данного пикселя делаите инкремент вашей переменной inc(PRGBQuard) ну и в таком духе.... в таком случае можно сделать так же один цикл для скорости. просто умножив ширину на высоту и начинать с 1 to Width * Height. так кода будет меньше и скорость будет больше вы даже удивитесь как возростет скорость обработки.

p.s. по данной теме, всем советую переходить от String[Index] на PCHAR(String) + inc(PCHAR) + PCHAR^ - текущий символ, так же скорость будет намного больше чем через [Index]...

[Nester]

Когда-то делал так

[yulia]

Всем большое спасибо !!! )))