Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Вниз

scanline   Найти похожие ветки 

 
3d[Power]   (2002-01-07 03:17) [0]

Можете подробно объяснить основные принципы работы со Picture.Bitmap.scanline и с пикселями вообще


 
Donal_Graeme   (2002-02-04 05:42) [1]

хм..на подробность не претендую, но :
scanline имеет тип PByteArray, если я правильно помню.
соответственно, когда пишешь Bitmap.scanline[x] (где x - номер строчки) получаешь массив, содержащий информацию о цветах точек в заданной линии сканирования. данные в этом массиве зависят от типа битмапа. если битмап имеет глубину цвета 8 бит, то в массиве идут байты адреса цвета в палитре, если глубина 16 бит, то на каждый цвет уходит 2 байта и это уже реальный цвет в формате RRRRRGGG|GGGBBBBB (порядок следования байт я не помню, но это нетрудно установить экспериментально), при глубине в 24 бита цвета в массиве идут тройками B(8)G(8)R(8), т.е. сперва идёт байт синей составляющей, потом зелёной а затем красной; при 32 битной глубине, соответственно, на цвет уходит 4 байта, из которых первый - это альфа составляющая, потом цвет, как в 24-битном битмапе.
теперь небольшой примерчик :-)


function GetRColor (Bmp: TBitmap; x, y: LongInt): Byte;
var ScanLine : PByteArray;
begin
SL := Bmp.Scanline[y];
case Bmp.pixelformat of
pf24bit: Result := SL[x*3 +2];
pf32bit: Result := SL[x*4 +3];
else Result := 0;
end;
end;


надеюсь, это поможет :-)



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
1-55124
PTE
2002-06-06 12:53
2002.06.17
при запуске меняется код программы


3-55046
QWest
2002-05-23 17:28
2002.06.17
Не пойму, где ошибка......


14-55295
Ketmar
2002-05-04 08:14
2002.06.17
хм... старею, что ли?..


1-55102
Alexis2k
2002-06-06 10:26
2002.06.17
Как встроить VCL компонент в PopUpMenu?


1-55121
Nat21
2002-06-05 22:33
2002.06.17
Спираль





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский