Рисунок 3. Укрупненная блок-схема алгоритма
Развернутая схема алгоритма представлена на рисунках 4 и 5
Рисунок 4. Основная программа
Рисунок 5. Процедура распространения волны и построения трассы
Перечень идентификаторов, использованных при написании программы
DRP – двумерный массив ячеек ДРП;
a – одномерный массив, хранящий координаты ячеек старого фронта волны;
b – одномерный массив, хранящий координаты ячеек нового фронта волны;
xa, ya – координаты начала трассы;
xb, yb – координаты конца трассы;
z1 – номер текущей трассы;
z2 – общее число трасс;
c, d – логические переменные;
i,j,k,l,m,n,i1,j1,per,z,t,f – вспомогательные переменные
Скриншот программы:
Исходный текст:
Project6.dpr
program Project6;
uses
Forms,
Unit6 in 'Unit6.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Unit6.pas
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Buttons, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Button6: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
GroupBox3: TGroupBox;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure Button6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure BuildFind;
procedure Clean;
procedure First;
procedure Change;
procedure Output;
var
Form1: TForm1;
DRP: array[0..20,0..15] of integer;
a,b: array[1..100] of integer;
xa,ya,xb,yb,z,z1,z2:integer;
c:boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
t:integer;
begin
z:=0;
z1:=1;
for t:=1 to z2 do
BuildFind;
Form1.Button1.Enabled:=False;
Form1.Button3.Enabled:=False;
Form1.Button4.Enabled:=False;
Form1.Button5.Enabled:=False;
Form1.Button7.Enabled:=False;
end;
procedure Clean;
var
l,n:integer;
begin
for l:=1 to 100 do
begin
a[l]:=0;
b[l]:=0;
end;
for l:=1 to 20 do
for n:=1 to 15 do
if (DRP[l,n]<>5) and (DRP[l,n]<>8) and (DRP[l,n]<>9) and
(DRP[l,n]<>10) and (DRP[l,n]<>11) and (DRP[l,n]<>6)
then DRP[l,n]:=0;
end;
procedure BuildFind;
var
i,j,k,l,m,n,i1,j1,per: integer;
d:boolean;
begin
Clean;
First;
Form1.StringGrid1.Font.Charset:=SYMBOL_CHARSET;
Form1.StringGrid1.Font.Size:=18;
a[1]:=xa;
a[2]:=ya;
m:=0;
d:=false;
per:=0;
repeat
i:=1;
j:=2;
l:=1;
n:=2;
k:=0;
c:=False;
repeat
if (a[i]-1>0) and (DRP[a[i]-1,a[j]]=0) and (DRP[a[i]-1,a[j]]<>5)
and (DRP[a[i]-1,a[j]]<>8) and (DRP[a[i]-1,a[j]]<>9) and (DRP[a[i]-1,a[j]]<>10)
and (DRP[a[i]-1,a[j]]<>11) and (DRP[a[i]-1,a[j]]<>6) and (DRP[a[i]-1,a[j]]<>21)
and (DRP[a[i]-1,a[j]]<>22) and (DRP[a[i]-1,a[j]]<>23) and (DRP[a[i]-1,a[j]]<>24)
and (DRP[a[i]-1,a[j]]<>25) and (DRP[a[i]-1,a[j]]<>26) and (DRP[a[i]-1,a[j]]<>27)
and (DRP[a[i]-1,a[j]]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i]-1,a[j]]:=m+1;
m:=DRP[a[i]-1,a[j]];
k:=k+1;
end
else begin
DRP[a[i]-1,a[j]]:=m;
end;
b[l]:=a[i]-1;
b[n]:=a[j];
l:=l+2;
n:=n+2;
c:=True;
end;
if (a[j]-1>0) and (DRP[a[i],a[j]-1]=0) and (DRP[a[i],a[j]-1]<>5)
and (DRP[a[i],a[j]-1]<>8) and (DRP[a[i],a[j]-1]<>9) and (DRP[a[i],a[j]-1]<>10)
and (DRP[a[i],a[j]-1]<>11) and (DRP[a[i],a[j]-1]<>6) and (DRP[a[i],a[j]-1]<>21)
and (DRP[a[i],a[j]-1]<>22) and (DRP[a[i],a[j]-1]<>23) and (DRP[a[i],a[j]-1]<>24)
and (DRP[a[i],a[j]-1]<>25) and (DRP[a[i],a[j]-1]<>26) and (DRP[a[i],a[j]-1]<>27)
and (DRP[a[i],a[j]-1]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i],a[j]-1]:=m+1;
m:=DRP[a[i],a[j]-1];
k:=k+1;
end
else begin
DRP[a[i],a[j]-1]:=m;
end;
b[l]:=a[i];
b[n]:=a[j]-1;
l:=l+2;
n:=n+2;
c:=True;
end;
if (a[i]+1<21) and (DRP[a[i]+1,a[j]]=0) and (DRP[a[i]+1,a[j]]<>5)
and (DRP[a[i]+1,a[j]]<>8) and (DRP[a[i]+1,a[j]]<>9) and (DRP[a[i]+1,a[j]]<>10)
and (DRP[a[i]+1,a[j]]<>11) and (DRP[a[i]+1,a[j]]<>6) and (DRP[a[i]+1,a[j]]<>21)
and (DRP[a[i]+1,a[j]]<>22) and (DRP[a[i]+1,a[j]]<>23) and (DRP[a[i]+1,a[j]]<>24)
and (DRP[a[i]+1,a[j]]<>25) and (DRP[a[i]+1,a[j]]<>26) and (DRP[a[i]+1,a[j]]<>27)
and (DRP[a[i]+1,a[j]]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i]+1,a[j]]:=m+1;
m:=DRP[a[i]+1,a[j]];
k:=k+1;
end
else begin
DRP[a[i]+1,a[j]]:=m;
end;
b[l]:=a[i]+1;
b[n]:=a[j];
l:=l+2;
n:=n+2;
c:=True;
end;
if (a[j]+1<16) and (DRP[a[i],a[j]+1]=0) and (DRP[a[i],a[j]+1]<>5)
and (DRP[a[i],a[j]+1]<>8) and (DRP[a[i],a[j]+1]<>9) and (DRP[a[i],a[j]+1]<>10)
and (DRP[a[i],a[j]+1]<>11) and (DRP[a[i],a[j]+1]<>6) and (DRP[a[i],a[j]+1]<>21)
and (DRP[a[i],a[j]+1]<>22) and (DRP[a[i],a[j]+1]<>23) and (DRP[a[i],a[j]+1]<>24)
and (DRP[a[i],a[j]+1]<>25) and (DRP[a[i],a[j]+1]<>26) and (DRP[a[i],a[j]+1]<>27)
and (DRP[a[i],a[j]+1]<>28)
then
begin
if k=0 then begin
if m=3 then m:=0;
DRP[a[i],a[j]+1]:=m+1;
m:=DRP[a[i],a[j]+1];
k:=k+1;
end
else begin
DRP[a[i],a[j]+1]:=m;
end;
b[l]:=a[i];
b[n]:=a[j]+1;
l:=l+2;
n:=n+2;
c:=True;
end;
i:=i+2;
j:=j+2;
if (c=False) and (a[i]=0) then begin
Form1.StringGrid1.Font.Charset:=RUSSIAN_CHARSET;
Form1.StringGrid1.Font.Size:=15;
Application.MessageBox('Невозможно построить трассу',
'Внимание!',MB_OK);
break;
end;
until a[i]=0;
Change;
i1:=1;
j1:=2;
repeat
if (a[i1]=xb) and (a[j1]=yb) then
begin
d:=True;
break;
end;
i1:=i1+2;
j1:=j1+2;
until a[i1]=0;
if (d=True) or (c=False) then break;
until a[1]=0;
i1:=xb;
j1:=yb;
m:=DRP[i1,j1];
repeat
if c=False then break;
if m=1 then m:=4;
if DRP[i1,j1-1]=m-1 then
begin
DRP[i1,j1-1]:=8;
if per=2 then DRP[a[1],a[2]]:=26;
if per=4 then DRP[a[1],a[2]]:=25;
j1:=j1-1;
m:=m-1;
per:=1;
a[1]:=i1;
a[2]:=j1;
end
else if DRP[i1-1,j1]=m-1 then
begin
DRP[i1-1,j1]:=10;
if per=1 then DRP[a[1],a[2]]:=28;
if per=3 then DRP[a[1],a[2]]:=27;
i1:=i1-1;
m:=m-1;
per:=2;
a[1]:=i1;
a[2]:=j1;
end
else if DRP[i1,j1+1]=m-1 then
begin
DRP[i1,j1+1]:=9;
if per=2 then DRP[a[1],a[2]]:=22;
if per=4 then DRP[a[1],a[2]]:=21;
j1:=j1+1;
m:=m-1;
per:=3;
a[1]:=i1;
a[2]:=j1;
end
else if DRP[i1+1,j1]=m-1 then
begin
DRP[i1+1,j1]:=11;
if per=1 then DRP[a[1],a[2]]:=24;
if per=3 then DRP[a[1],a[2]]:=23;
i1:=i1+1;
m:=m-1;
per:=4;
a[1]:=i1;
a[2]:=j1;
end;
until (i1=xa) and (j1=ya);
Form1.Button1.Enabled:=False;
Form1.Button3.Enabled:=True;
Form1.Button4.Enabled:=False;
Output;
end;
procedure First;
var
i,j:integer;
begin
for i:=1 to 20 do
for j:=1 to 15 do
begin
if Form1.StringGrid1.Cells[j-1,i-1]='X' then DRP[i,j]:=5;
if Form1.StringGrid1.Cells[j-1,i-1]=#240 then DRP[i,j]:=8;
if Form1.StringGrid1.Cells[j-1,i-1]=#239 then DRP[i,j]:=9;
if Form1.StringGrid1.Cells[j-1,i-1]=#242 then DRP[i,j]:=10;
if Form1.StringGrid1.Cells[j-1,i-1]=#241 then DRP[i,j]:=11;
if Form1.StringGrid1.Cells[j-1,i-1]=#198 then DRP[i,j]:=24;
if Form1.StringGrid1.Cells[j-1,i-1]=#196 then DRP[i,j]:=28;
if Form1.StringGrid1.Cells[j-1,i-1]=#201 then DRP[i,j]:=22;
if Form1.StringGrid1.Cells[j-1,i-1]=#202 then DRP[i,j]:=26;
if Form1.StringGrid1.Cells[j-1,i-1]=#197 then DRP[i,j]:=23;
if Form1.StringGrid1.Cells[j-1,i-1]=#195 then DRP[i,j]:=27;
if Form1.StringGrid1.Cells[j-1,i-1]=#199 then DRP[i,j]:=21;
if Form1.StringGrid1.Cells[j-1,i-1]=#200 then DRP[i,j]:=25;
if Form1.StringGrid1.Cells[j-1,i-1]='A'+Inttostr(z1) then begin
DRP[i,j]:=3;
xa:=i;
ya:=j;
end;
if Form1.StringGrid1.Cells[j-1,i-1]='B'+Inttostr(z1) then begin
xb:=i;
yb:=j;
end;
end;
end;
procedure Change;
var
f:integer;
begin
for f:=1 to 100 do
begin
a[f]:=0;
a[f]:=b[f];
b[f]:=0;
end;
end;
procedure Output;
var
i,j:integer;
begin
Form1.StringGrid1.Font.Size:=18;
Form1.StringGrid1.Font.Charset:=SYMBOL_CHARSET;
for i:=0 to 19 do
for j:=0 to 14 do
begin
if DRP[i+1,j+1]=5 then Form1.StringGrid1.Cells[j,i]:=#251;
end;
for i:=0 to 19 do
for j:=0 to 14 do
begin
if DRP[i+1,j+1]=8 then Form1.StringGrid1.Cells[j,i]:=#240;
if DRP[i+1,j+1]=9 then Form1.StringGrid1.Cells[j,i]:=#239;
if DRP[i+1,j+1]=10 then Form1.StringGrid1.Cells[j,i]:=#242;
if DRP[i+1,j+1]=11 then Form1.StringGrid1.Cells[j,i]:=#241;
if DRP[i+1,j+1]=21 then Form1.StringGrid1.Cells[j,i]:=#199;
if DRP[i+1,j+1]=22 then Form1.StringGrid1.Cells[j,i]:=#201;
if DRP[i+1,j+1]=23 then Form1.StringGrid1.Cells[j,i]:=#197;
if DRP[i+1,j+1]=24 then Form1.StringGrid1.Cells[j,i]:=#198;
if DRP[i+1,j+1]=25 then Form1.StringGrid1.Cells[j,i]:=#200;
if DRP[i+1,j+1]=26 then Form1.StringGrid1.Cells[j,i]:=#202;
if DRP[i+1,j+1]=27 then Form1.StringGrid1.Cells[j,i]:=#195;
if DRP[i+1,j+1]=28 then Form1.StringGrid1.Cells[j,i]:=#196;
end;
DRP[xa,ya]:=3;
if z1=1 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#129;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#129;
if c=true then DRP[xb,yb]:=6;
end;
if z1=2 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#130;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#130;
if c=true then DRP[xb,yb]:=6;
end;
if z1=3 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#131;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#131;
if c=true then DRP[xb,yb]:=6;
end;
if z1=4 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#132;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#132;
if c=true then DRP[xb,yb]:=6;
end;
if z1=5 then begin
Form1.StringGrid1.Cells[ya-1,xa-1]:=#133;
if c=True then DRP[xa,ya]:=6;
Form1.StringGrid1.Cells[yb-1,xb-1]:=#133;
if c=true then DRP[xb,yb]:=6;
end;
z1:=z1+1;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
l,n:integer;
begin
Form1.StringGrid1.Font.Charset:=RUSSIAN_CHARSET;
Form1.StringGrid1.Font.Size:=15;
for l:=0 to 19 do
for n:=0 to 14 do
Form1.StringGrid1.Cells[n,l]:='';
for l:=1 to 20 do
for n:=1 to 15 do
DRP[l,n]:=0;
z1:=0;
Form1.Button1.Enabled:=False;
Form1.Button4.Enabled:=False;
Form1.Button3.Enabled:=True;
Form1.Button5.Enabled:=True;
Form1.Button7.Enabled:=True;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if z1=0 then z1:=1;
If (z=1) and (Form1.StringGrid1.Cells[ACol,ARow]='') then
begin
Form1.StringGrid1.Cells[ACol,ARow]:='A'+Inttostr(z1);
Form1.Button4.Enabled:=True;
Form1.Button5.Enabled:=True;
z:=0;
end;
If (z=2) and (Form1.StringGrid1.Cells[ACol,ARow]='') then
begin
z2:=z1;
Form1.StringGrid1.Cells[ACol,ARow]:='B'+Inttostr(z1);
Form1.Button1.Enabled:=True;
Form1.Button3.Enabled:=True;
Form1.Button5.Enabled:=True;
z:=0;
z1:=z1+1;
end;
If (z=3) and (Form1.StringGrid1.Cells[ACol,ARow]='')
then Form1.StringGrid1.Cells[ACol,ARow]:='X';
If (z=4) and (Form1.StringGrid1.Cells[ACol,ARow]='X')
then Form1.StringGrid1.Cells[ACol,ARow]:='';
if z1=6 then begin
Form1.Button3.Enabled:=False;
Form1.Button4.Enabled:=False;
exit;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
z:=1;
Form1.Button3.Enabled:=False;
Form1.Button1.Enabled:=False;
Form1.Button5.Enabled:=False;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
z:=2;
Form1.Button4.Enabled:=False;
Form1.Button5.Enabled:=False;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
z:=3;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form1.StringGrid1.Font.Charset:=RUSSIAN_CHARSET;
Form1.StringGrid1.Font.Size:=15;
Form1.Button1.Enabled:=False;
Form1.Button4.Enabled:=False;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
z:=4;
end;
end.
Unit6.dfm
object Form1: TForm1
Left = 298
Top = 145
Width = 624
Height = 577
BorderIcons = [biSystemMenu]
Caption = #1042#1086#1083#1085#1086#1074#1086#1081' '#1072#1083#1075#1086#1088#1080#1090#1084' '#1090#1088#1072#1089#1089#1080#1088#1086#1074#1082#1080
Color = clGradientActiveCaption
Font.Charset = OEM_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
DesignSize = (
616
550)
PixelsPerInch = 96
TextHeight = 14
object StringGrid1: TStringGrid
Left = 8
Top = 16
Width = 393
Height = 523
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clWhite
ColCount = 15
DefaultColWidth = 25
DefaultRowHeight = 25
FixedColor = clSilver
FixedCols = 0
RowCount = 20
FixedRows = 0
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnSelectCell = StringGrid1SelectCell
end
object GroupBox1: TGroupBox
Left = 408
Top = 11
Width = 201
Height = 222
TabOrder = 1
object Button5: TButton
Left = 8
Top = 144
Width = 185
Height = 25
Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1079#1072#1087#1088#1077#1097#1077#1085#1085#1099#1077' '#1103#1095#1077#1081#1082#1080
TabOrder = 0
OnClick = Button5Click
end
object Button4: TButton
Left = 8
Top = 104
Width = 185
Height = 25
Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1082#1086#1085#1077#1094' '#1090#1088#1072#1089#1089#1099
TabOrder = 1
OnClick = Button4Click
end
object Button3: TButton
Left = 8
Top = 64
Width = 185
Height = 25
Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100' '#1085#1072#1095#1072#1083#1086' '#1090#1088#1072#1089#1089#1099
TabOrder = 2
OnClick = Button3Click
end
object Button1: TButton
Left = 8
Top = 24
Width = 185
Height = 25
Caption = #1055#1086#1089#1090#1088#1086#1080#1090#1100' '#1090#1088#1072#1089#1089#1091
TabOrder = 3
OnClick = Button1Click
end
object Button7: TButton
Left = 8
Top = 184
Width = 185
Height = 25
Caption = #1054#1095#1080#1089#1090#1080#1090#1100' '#1103#1095#1077#1081#1082#1091
TabOrder = 4
OnClick = Button7Click
end
end
object GroupBox2: TGroupBox
Left = 408
Top = 432
Width = 201
Height = 105
TabOrder = 2
object Button2: TButton
Left = 8
Top = 24
Width = 185
Height = 25
Caption = #1057#1073#1088#1086#1089
TabOrder = 0
OnClick = Button2Click
end
object Button6: TButton
Left = 8
Top = 64
Width = 185
Height = 25
Caption = #1042#1099#1093#1086#1076
TabOrder = 1
OnClick = Button6Click
end
end
object GroupBox3: TGroupBox
Left = 408
Top = 240
Width = 201
Height = 187
TabOrder = 3
object Label2: TLabel
Left = 5
Top = 36
Width = 188
Height = 13
Caption = '"'#1040#1074#1090#1086#1084#1072#1090#1080#1079#1072#1094#1080#1103' '#1082#1086#1085#1089#1090#1088#1091#1082#1090#1086#1088#1089#1082#1086#1075#1086' '#1080
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 25
Top = 12
Width = 152
Height = 13
Caption = #1050#1091#1088#1089#1086#1074#1072#1103' '#1088#1072#1073#1086#1090#1072' '#1087#1086' '#1087#1088#1077#1076#1084#1077#1090#1091
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 11
Top = 52
Width = 182
Height = 13
Caption = #1090#1077#1093#1085#1086#1083#1086#1075#1080#1095#1077#1089#1082#1086#1075#1086' '#1087#1088#1086#1077#1082#1090#1080#1088#1086#1074#1072#1085#1080#1103'"'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 75
Top = 73
Width = 54
Height = 16
Caption = #1085#1072' '#1090#1077#1084#1091':'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 5
Top = 94
Width = 190
Height = 13
Caption = '"'#1058#1088#1072#1089#1089#1080#1088#1086#1074#1082#1072' '#1087#1077#1095#1072#1090#1085#1099#1093' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1081'"'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 69
Top = 124
Width = 108
Height = 13
Caption =
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 126
Top = 140
Width = 67
Height = 13
Caption =
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 89
Top = 164
Width = 32
Height = 13
Caption = '2007'#1075'.'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
end
|
Главная
Каталог файлов
