[mak-karpov]

Подскажите пожалуйста, что делат функция scanline
нашел где-то пример, а он не работает

Код:

  TRGB = record
    r,g,b : byte;
  end;
  TRGBA = array [0..1] of TRGB;
  PRGBA = ^TRGBA;

.......
var l : prgba;
    i,j : integer;

......


  for i := 0 to 239 do begin
    l := bm.ScanLine[i];
    for j := 0 to 319 do
      form3.Canvas.Pixels[j,i] := rgb(l[j].r, l[j].g, l[j].b);

выводит картинку, но на ней полосы