bitmap отображение на форме проверьте код

[hunter03]

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

[Slym]

procedure TForm1.Timer1Timer(Sender: TObject);
CONST PixelCountMax = 32768;
TYPE
  TRGBArray = ARRAY[0..PixelCountMax-1] OF TRGBTriple;
  pRGBArray = ^TRGBArray;
var
  bmp:TBitmap;
  row,col:Integer;
  Line:pRGBArray;
begin
  Inc(count); if count = 256 then count:=0;
  bmp:=TBitmap.Create;
  try
    bmp.Width:=324;
    bmp.Height:=256;
    bmp.PixelFormat:=pf24bit;
    for row:=0 to bmp.Height-1 do
    begin
      Line:=bmp.ScanLine[row];
      for col:=0 to bmp.Width do
        with Line[col] do
        begin
          rgbtBlue:=row+count;
          rgbtGreen:=rgbtBlue;
          rgbtRed:=rgbtBlue;
        end;
    end;
    Image1.Picture.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

Для еще быстрее - вынести создание и убийство битмапа в OnCreate/OnClose

[hunter03]

Спасибо большое!!!