Реферат: Программа фильтрации шумов
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