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

Inc(XOffset);

Inc(ChangeCount);

if X + XOffset + 1 > Image1.Picture.Bitmap.Width - 1 then

Break;

end;

Inc(YOffset);

until ChangeCount = 0;

Image1.Visible := False;

Image1.Visible := True;

end;

end;

Результаты работы программы можно увидеть на рис. № 8 и № 9.

Рис. № 8. Исходное изображение для заполнения.

Рис. № 9. Результат заполнения.

5. Инверсия.

Ну и напоследок сделаем инверсию нашего изображения (Рис. 10, 11):

procedure TMainForm.N7Click(Sender: TObject);

var

Line:pByteArray;

I,J:Integer;

Bits:Byte;

begin

Bits := 1;

for I :=0 to Image1.Picture.Bitmap.Height - 1 do

begin

Line := Image1.Picture.Bitmap.ScanLine[I];

case Image1.Picture.Bitmap.PixelFormat of