Закрашивание Image по пикселям.

[A-IX-2]

Всем доброго времени суток!
У меня такой вопрос: Image по пикселям закрашивается очень медленно, как можно сделать быстрее?

Function ToColor(r: real): TColor;
  var
    b: byte;
begin
  b:=255-round(255*r);
  result:=RGB(255,b,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);

  var
    _p:real;
    i,j: integer;

begin

  for I := 0 to h do
  for j := 0 to image1.Height do
  begin
    _p:=p[i];
    Pixels[h-i,j]:=ToColor(_p);
  end;

  h:=h+1;

  if h>Image1.Width then Timer1.Enabled:=False;

end;

[_Engine_]

например, через ScanLine

[cargo29]

Надо задавать какое то уровнение тогда будет быстрее например рисование гиперболы или параболы (геометрия)

[Stilet]

А помоему лучще будет создавать в памяти канву, ее закрашивать а потом функциями типа CopyRect или подобными все скопом переносить на видимую канву.

[A-IX-2]

Сообщение от Stilet

А помоему лучще будет создавать в памяти канву, ее закрашивать а потом функциями типа CopyRect или подобными все скопом переносить на видимую канву.

Можно подробней, как это реализовать? Или ссылку на что-нибудь почитать по этому поводу)
А то я что-то не пойму, что значить создать в памяти канву) Я так понимаю, добавить ещё один Image и сделать у него Visible в False и на этом Image рисовать не прокатит?

[Человек_Борща]

Вообще-то можно в run-time создать обьект TCanvas и с ним работать. После использования FREE. Думаю об этом тебе и говорит Stilet.

[ZvEr_HaCkEr]

http://www.delphisources.ru/pages/fa...xelformat.html

[A-IX-2]

Сделал по аналогии вот с этим http://delphiworld.narod.ru/base/fast_draw_graphic.html
Но после того, как примерно половина Image закрашивается всё равно немного начинает притормаживать. Это как-нибудь можно исправить? И еще, не пойму, что вот это значит PARGB = ^ARGB? Точнее для чего символ этот ^?

var
  btm: TBitMap;

type
  TRGB = record
  b,g,r: byte;
end;
  ARGB = array[0..1] of TRGB;
  PARGB = ^ARGB;

procedure TForm1.FormCreate(Sender: TObject);
begin
  btm := TBitMap.Create;
  btm.pixelformat := pf24bit;
  btm.width := Clientwidth;
  btm.height := Clientheight;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var
    _p: PARGB;
    i,j: integer;
begin
  for I := 0 to h do
  for j := 0 to image1.Height do
  begin
    _p:=btm.scanline[j];
    _p[h-i].r:=255;
    _p[h-i].g:=255-round(p[i]*255);
    _p[h-i].b:=0;
  end;

  h:=h+1;
  Image1.Canvas.Draw(0,0,btm);
  if h>Image1.Width then Timer1.Enabled:=False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  btm.Free;
end;

[_Engine_]

Сообщение от A-IX-2

Точнее для чего символ этот ^?

Батенька, да Вам для начала азы надо выучить. Вы бы хоть почитали что-нибудь

[A-IX-2]

Сообщение от _Engine_

Батенька, да Вам для начала азы надо выучить. Вы бы хоть почитали что-нибудь

Я читал что-нибудь. С подобным нигде не сталкивался. Гугл не помог. Ценю Ваш совет, но вопроса он, к сожалению, не решает. Я бы был Вам больше благодарен, если бы Вы дали ссылку на это самое почитать что-нибудь по этой теме.