сунок.Canvas.CopyRect (BackRct, Back.Canvas, BackRct);: = x +100; (x> Image1.Width) and (Form2.VHODIM = true) and (sss = false) then begin.Show; Form4.Hide; sss: = true;; x> Image1.Width then
x: =-W;
// визначимо зберігається область фону
BackRct: = Bounds (x, y, W, H);
// виведемо рісунок.Canvas.Draw (x, y, Picture);;; TForm4.FormCloseQuery (Sender: TObject; var CanClose: Boolean);
begin
// звільнимо пам'ять, виділену
// для зберігання бітових образів
Back.Free;. Free;; TForm4.Button1Click (Sender: TObject);. Show;. Hide;;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , StdCtrls, Buttons; = class (TForm): TBitBtn;: TBitBtn;: TLabel; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}: boolean;
{Public declarations};: TForm5; Unit1_1;
{$ R *. dfm} TForm5.BitBtn1Click (Sender: then to Form1.m do begin.s: = inttostr (i);. StringGrid1.Cells [i, 0]: = 'Пункт призначення' + Form1.s;; j: = 1 to Form1.n do begin.s: = inttostr (j);. StringGrid1.Cells [0, j]: = 'Пункт to Form1.m do then to Form1.m do begin.s: = inttostr (i);. StringGrid1.Cells [i, 0]: = 'Пункт призначення' + Form1.s;; j: = 1 to Form1.n do begin.s: = inttostr (j);. StringGrid1.Cells [0, j]: = 'Пункт to Form1.n do to Form1.n doj: = 1 to Form1.m do.ishod [i, j]: = strtoint (Form1.StringGrid1.Cells [j, i]); j: = 1 to Form1.m do begin.potr [j ]: = strtoint (Form1.StringGrid1.Cells [j, Form1.n +1]);; i: = 1 to Form1.n do begin.zap [i]: = strtoint (Form1.StringGrid1.Cells [Form1.m +1, i]);;; TForm5.BitBtn2Click (Sender: TObject);;;.
