|
#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); Кнопка "+" - весы в правом верхнем углу сообщения... |
#2
|
||||
|
||||
В примере какая-то ересь. Посмотри в drkb, код статьи 03723
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
В drkb поиск мудреный. На сайте только ссылки на скачивание программы, отдел онлайн в разработке, в программе ничего(вроде) нету
Кнопка "+" - весы в правом верхнем углу сообщения... |
#4
|
||||
|
||||
Вот не думал что себя придется цитировать
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#5
|
||||
|
||||
Все уже сам нашел
Код:
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; Кнопка "+" - весы в правом верхнем углу сообщения... |