|
#1
|
||||
|
||||
ScanLine
Подскажите пожалуйста, что делат функция 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); Кнопка "+" - весы в правом верхнем углу сообщения... |