[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);

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

[Aristarh Dark]

В примере какая-то ересь. Посмотри в drkb, код статьи 03723

[mak-karpov]

В drkb поиск мудреный. На сайте только ссылки на скачивание программы, отдел онлайн в разработке, в программе ничего(вроде) нету

[Aristarh Dark]

Вот не думал что себя придется цитировать

Сообщение от Aristarh Dark

Посмотри в drkb, код статьи 03723

Я тебе код статьи зачем написал? Его в поиск и вбивай, выдает единственный результат.

[mak-karpov]

Все уже сам нашел

Код:

type
  TRGB32 = packed record
    B, G, R, A: Byte;
  end;
  TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32)-1] of TRGB32; 
  PRGB32Array = ^TRGB32Array;

Потом как обычно

Код:

function getPixel(x, y : ineteger) : tcolor;
var l : prgb32array;
begin
   l := bitmap.ScanLine[y];
   result := rgb(l[x].r,l[x].g,l[x].b);
end;