Реферат: Программа фильтрации шумов

Image1.Visible := True;

N4.Enabled := True;

end

else

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

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

end;

end;

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

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

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

// Запоминаем значение пиксела на котором щелкнули мышкой

TargetPixel := pByteArray(Image1.Picture.Bitmap.ScanLine[Y])^[X];

YOffset := 0;

// Пока число замен не станет равным 0 двигаемся вверх