Поясните код...

[Masip]

type TRGB=record
 b,g,r:byte;
end;
  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;
var
 b:TBitMap;
 p:PARGB;
 x,y,temp:integer;
begin
 temp:=255;
 b:=TBitMap.Create;
 b.pixelformat:=pf24bit;
 b.width:=Image1.Clientwidth;
 b.height:=Image1.Clientheight;
 for y:=0 to b.height-1 do
  begin
  p:=b.scanline[y];
  for x:=0 to b.width-1 do
    begin
    p[y].r:=255;
    p[y].g:=temp;
    p[y].b:=temp;
    end;
   if temp > 0 then
   temp:=temp-1 else temp:=0
  end;
 Image1.canvas.draw(0,0,b);

 b.free;

Здравствуйте!есть вот такой коднапишите комментарии к работе!?ни когда не работал с градиентами!(заранее спасибо!

[Utkin]

Смысл в том, что для рисунка создается отдельный буфер b в котором все и происходит, а затем уже он копируется в рисунок. Работа осуществляется построчно сверху вниз и слева направо.