Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

PixelArray[VertB] := PixelArray[HorB];

PixelArray[HorB] := Temp; end; end; end;

// Берем то что посередине и присваиваем текущему пикселю

CurrentLine^[Hor] := PixelArray[((Value*Value) div 2) + 1]; end;

end;

Image1.Visible := False;

Image1.Visible := True;

N4.Enabled := True; end else

MessageBox(Handle,'Такой формат файла пока не подерживается...',

'Слабоват я пока...',MB_OK or MB_ICONSTOP or
MB_APPLMODAL); end; end;

Результат работы фильтра можно увидеть на рис. № 6.

[pic]

Рис. № 6. Начало работы медианного фильтра – запрос на размер окна фильтра.

[pic]

Рис. № 7.Результат работы медианного фильтра с окном 3 на 3.

4. Заполнение объекта другим цветом.

Для упрощения алгоритма слудующая процедура заполняет графические объекты только белым цветом, однако путем простого добавления диалогового окна с вопросом о цвете заполнения можно добиться заполнения объектов любым цветом.

procedure TMainForm.Image1MouseDown(Sender: TObject; Button:
TMouseButton;

Shift: TShiftState; X, Y: Integer); var

TargetPixel:Byte;

ChangeCount:Integer;

CurrentLine:pByteArray;

PrevLine:pByteArray;

NextLine:pByteArray;

YOffset, XOffset:Integer; begin if Image1.Picture.Bitmap.PixelFormat = pf8bit then begin

Рекомендуем скачать другие рефераты по теме: экзамены, реферат деловой.





Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата