|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
(bmp) в монохромное изображение
Здравствуйте.Я начинающий.Хочу смастерить програмку перевода кортинки (bmp)в монохромное изображение(белое в черное,а остальное все в белое).Блин,ну нифига неполучается.
Вот нашел кусок програмного исходника. for Y := 0 to Height-1 do for X := 0 to Width-1 do begin Color := Pixel[X,Y]; Color := (Red(Color)+Green(Color)+Blue(Color)) div 3; if Color > 100 then Pixel[X,Y] := White else Pixel[X,Y] := Black; end; А как его использовать? создаю procedure TForm1.Button1Click(Sender: TObject); //записываю var x,y:integer: begin for X := 0 to Width-1 do begin Color := Pixel[X,Y]; Color := (Red(Color)+Green(Color)+Blue(Color)) div 3; if Color > 100 then Pixel[X,Y] := White else Pixel[X,Y] := Black; end; end. И это произведение исскуство выдает ошибку!!! Если вам не лень,немогли б вы мне исправить ошибки и пояснить построчно исходник.Что б я мог посидеть и поразбираться сам исходя из вашей помощи. |