= true;; TForm2.FormMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer) ;//натискання на клавіші миші при виділення
beginform2.Cursor = crcross then: = true;: = x-nx-41; y: = y-21;. text: = inttostr (X);. text: = inttostr (Y) ;;; TForm2.FormMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer) ;//переменщеніе курсору миші під час процедури виділення
beginmove = true then: = x-nx-41; y: = y-21;. Text: = inttostr (x);. Text: = inttostr (y);;; TForm2.FormMouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer) ;//відпускання клавіші мишіform2.Cursor = crcross then: = false;: = x-nx-41; y: = y-21;. Text : = inttostr (x);. Text: = inttostr (y);;; TForm2.Button6Click (Sender: TObject) ;//Кінець виділення областіb: string; y: = 1 to ny dox: = nx downto 1 then begin b: = edit1.text; edit1.Text: = edit3.Text; edit3.Text: = b; end; strtoint (edit2.text)> strtoint (edit4.text) then begin b: = edit2.text; edit2.Text: = edit4.Text; edit4.Text: = b; end;. Enabled: = False;; TForm2.N2Click (Sender: TObject) ;//Закриття программи.close;; TForm2.Button5Click (Sender: TObject) ;//Процедура пошуку об'єкта, summ, ykvkon, x, xkvnach, yKVnach, xKVkon, r, b: integer;: array [0 .. 1000] of byte;: array [0 .. 500,0 .. 500] of byte;, Yest, yest1: boolean; (strtoint (edit6.text) = 0) or (strtoint (edit8.text) = 0) then
begin ('Розміри об'єкта не вказані, будь ласка вкажіть їх', mtInformation, [mbOk], 0);
exit; (strtoint (edit6.text)
begin ('Розміри об'єкта введені не коректно', mterror, [mbOk], 0);
exit;;. Enabled: = true;. Clear;. Lines.Add ('Область пошуку');. Lines.Add ('Xнач =' + edit1.text + 'Xкон =' + edit3 . text);. Lines.Add ('Yнач =' + edit2.text + 'Yкон =' + edit4.text);: = false;: = false;: = 0;: = 0; ynach: = strtoint (edit2. text) to ykon doxnach: = (strtoint (edit1.text)) to xkon to ykon do: = 0;: = true; Yest = true thenxnach: = (strtoint (edit1.text)) to xkon donewmatr [xnach, ynach] = 255 then then yest1: = false; yest1 = false then: = false;: = true;: = false; ((XKVkon-XKVnach +1)> = strtoint (edit5.text)) and ((XKVkon-XKVnach +1) < ; = strtoint (edit6.text)) and ((yKVkon-yKVnach +1)> = strtoint (edit7.text)) and ((yKVkon-yKVnach +1) <= strtoint (edit8.text)) then: = objekt +1;. Lines.Add ('Координати області об'єкту' + inttostr (objekt) + ':');. Lines.Add ('Xнач =' + inttostr (Xkvnach) + 'Xкон =' + inttostr (Xkvkon)) ;. Lines.Add ('Yнач =' + inttostr (ykvnach) + ' to xkon donewmatr [xnach, ynach] = 0 then: = true; xnach
