ject) ;//Фільтрація зображення з виьранним порогомy: = 1 to ny dox: = nx downto 1 do: = matr [x, y]; a
: label5.Caption: = FormatDatetime ('c', now);
: label5.Caption: = FormatDatetime ('m, tt', now);
: label5.Caption: = FormatDatetime ('dddd, t', now);
: label5.Caption: = FormatDatetime ('ddddd, t', now);; new = false then.canvas.Pen.Color: = clgreen; (xnach, ynach, xkon, ykon, nx );;; TForm2.N12Click (Sender: TObject) ;//вибір формату відображення годин: = 1;; TForm2.N21Click (Sender: TObject) ;//вибір формату відображення годин: = 2; TForm2.N31Click (Sender: TObject ) ;//вибір формату відображення годин: = 3;; TForm2.N41Click (Sender: TObject) ;//вибір формату відображення годин: = 4;; TForm2.N14Click (Sender: TObject) ;//вибір колірної схеми формиcolordialog1.Execute then.Color: = colordialog1.Color;; TForm2.N15Click (Sender: TObject) ;//вибір колірної форми панеліcolordialog1.Execute then.Panel1.Color: = colordialog1.Color;. Panel2.Color: = colordialog1.Color;; TForm2 . Edit1Change (Sender: TObject) ;//процедура зміни полів edit в Області пошуку: = false;. canvas.Pen.Color: = clwhite; (xnach, ynach, xkon, ykon, nx); strtoint (edit1.text) < ; 0 then edit1.text: = '0 '; strtoint (edit1.text)> nx then edit1.Text: = inttostr (nx);: = strtoint (edit1.Text);. Enabled: = true;; TForm2. Edit3Change (Sender: TObject) ;//процедура зміни полів edit в Області пошуку: = false;. canvas.Pen.Color: = clwhite; (xnach, ynach, xkon, ykon, nx); strtoint (edit3.text) < 0 then edit3.text: = '0 '; strtoint (edit3.text)> nx then edit3.Text: = inttostr (nx);: = strtoint (edit3.Text);. Enabled: = true;; TForm2.Edit2Change (Sender: TObject) ;//процедура зміни полів edit в Області пошуку: = false;. canvas.Pen.Color: = clwhite; (xnach, ynach, xkon, ykon, nx); strtoint (edit2.text) <0 then edit2.text: = '0 '; strtoint (edit2.text)> ny then edit2.Text: = inttostr (ny);: = strtoint (edit2.Text);. Enabled: = true;; TForm2.Edit4Change ( Sender: TObject) ;//процедура зміни полів edit в Області пошуку: = false;. canvas.Pen.Color: = clwhite; (xnach, ynach, xkon, ykon, nx); strtoint (edit4.text) <0 then edit4.text: = '0 '; strtoint (edit4.text)> ny then edit4.Text: = inttostr (ny);: = strtoint (edit4.Text);. Enabled: = true;; TForm2.Button4Click (Sender : TObject) ;//Процедура виділення області: = false;. Cursor: = crCross;. Enabled: ...
