Реферат: Программная система обработки и анализа изображений

{ Сканируем внутри квадрата по x }

for x := x1 to x1+Range do begin

{ Подсчитываем число не белых пикселов }

if Image.Canvas.Pixels[x,y] <> clWhite then Inc(Count);

end; { for x }

end; { for y }

x1 := x1+dx; { Следующий квадрат по горизонтали }

end; { for j }

y1 := y1+dy; { Следующий квадрат по вертикали }

end; { for i }

end;

procedure TMainForm.FormCreate(Sender: TObject);

begin

OpenDialog.FileName := 'c:\delphi\mydir\diplom\pict\pict1.bmp';

Image.ImageName := OpenDialog.FileName;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

if Button = mbRight then begin

Image.ImageName := OpenDialog.FileName;

Exit;

end;

BegSelect := True;

with Image.Canvas do begin

Pen.Mode := pmXor;

Pen.Color := clGreen;

Pen.Style := psDot;

Brush.Style := bsClear;