ct); N12Click (Sender: TObject); N21Click (Sender: TObject) ; N31Click (Sender: TObject); N41Click (Sender: TObject); N14Click (Sender: TObject); N15Click (Sender: TObject); Edit1Change (Sender: TObject); Edit3Change (Sender: TObject); Edit2Change (Sender: TObject); Edit4Change (Sender: TObject); Button4Click (Sender: TObject); FormMouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); FormMouseMove (Sender: TObject; Shift: TShiftState; X,: Integer); FormMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Button6Click (Sender: TObject); N2Click (Sender: TObject); Button5Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); Edit3KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char) ; Edit7KeyPress (Sender: TObject; var Key: Char); N7Click (Sender: TObject); Edit5Change (Sender: TObject); Edit7Change (Sender: TObject); Edit6Change (Sender: TObject); Edit8Change (Sender: TObject); N5Click ( Sender: TObject);
{Private declarations}
{Public declarations} ;//newmatr, matr-матриці сприяння з вих і бін изображ; ykon, ynach, xnach, xkon-коорд обл пошук: TForm2;, matr: array [1 .. 1000, 1 .. 1000] of Unit3;
{$ R *. dfm} pryamoug (xnach, ynach, xkon, ykon, nx: integer) ;//процедура малювання TObject; var Action: TCloseAction) ;//Натискання на кнопку закриття окнаN9.Enabled = true then k: = messagedlg ('Ви хочете зберегти результати роботи програми?', Mtwarning, [mbYes, mbNo], 0); k = 6 then N9.Click;. Close;; TForm2.N6Click (Sender: TObject) ;//Виклик форми "про програму". showmodal; TForm2.N9Click (Sender: TObject) ;//Збереження результатів роботи програми: textfile;. Filter: = '*. txt | *. txt'; savedialog1.execute then.Enabled: = false;. FileName: = changeFileExt (savedialog1.FileName, '. txt'); (fail, savedialog1.FileName); (fail);
writeln (fail, 'Час і дата початку роботи програми:' + startwork);
writeln (fail,''); (fail, 'Файл:' + opendialog1.FileName); (fail, 'Роздільна здатність:' + inttostr (nx) + 'x' + inttostr (ny )); (fail,''); (fail, 'Обраний поріг обробки зображення:' + inttostr (scrollbar1.position));
writeln (fail,''); (fail, 'предпологаются розміри об'єкта:');
writeln (fail, 'minШіріна =' + edit5.text + 'maxШіріна =' + edit6.text); (fail, 'minВисота =' + edit7.text + 'maxВисота =' + edit8. text); (fail,''); (fail, memo1.text); (fail, 'Час виявлення об'єкта:' + Formatdatetime ('c', now)); (fail); ('Файл' + savedialog1.FileName + 'успішно збережений');;; TForm2.Button2Click (Sender: TOb...
