TreeView1.Items.Add(nil,a[20].name);

TreeView1.Items.Add(nil,a[21].name);

TreeView1.Items.Add(nil,a[22].name);

TreeView1.Items.Add(nil,a[23].name);

TreeView1.Items.Add(nil,a[24].name);

TreeView1.Items.Add(nil,a[25].name);

TreeView1.Items.Add(nil,a[28].name);

End;

if ComboBox2.Text='Лезневе' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[29].name);

TreeView1.Items.Add(nil,a[30].name);

TreeView1.Items.Add(nil,a[31].name);

TreeView1.Items.Add(nil,a[32].name);

TreeView1.Items.Add(nil,a[33].name);

TreeView1.Items.Add(nil,a[34].name);

TreeView1.Items.Add(nil,a[35].name);

TreeView1.Items.Add(nil,a[36].name);

TreeView1.Items.Add(nil,a[37].name);

TreeView1.Items.Add(nil,a[38].name);

TreeView1.Items.Add(nil,a[39].name);

TreeView1.Items.Add(nil,a[40].name);

TreeView1.Items.Add(nil,a[41].name);

TreeView1.Items.Add(nil,a[42].name);

TreeView1.Items.Add(nil,a[43].name);

TreeView1.Items.Add(nil,a[44].name);

TreeView1.Items.Add(nil,a[45].name);

TreeView1.Items.Add(nil,a[46].name);

TreeView1.Items.Add(nil,a[47].name);

TreeView1.Items.Add(nil,a[48].name);

TreeView1.Items.Add(nil,a[49].name);

TreeView1.Items.Add(nil,a[50].name);

TreeView1.Items.Add(nil,a[51].name);

TreeView1.Items.Add(nil,a[52].name);

TreeView1.Items.Add(nil,a[53].name);

TreeView1.Items.Add(nil,a[54].name);

TreeView1.Items.Add(nil,a[55].name);

TreeView1.Items.Add(nil,a[56].name);

TreeView1.Items.Add(nil,a[57].name);

TreeView1.Items.Add(nil,a[58].name);

TreeView1.Items.Add(nil,a[59].name);

TreeView1.Items.Add(nil,a[60].name);

TreeView1.Items.Add(nil,a[61].name);

TreeView1.Items.Add(nil,a[62].name);

TreeView1.Items.Add(nil,a[63].name);

TreeView1.Items.Add(nil,a[64].name);

TreeView1.Items.Add(nil,a[65].name);

TreeView1.Items.Add(nil,a[66].name);

End;

if ComboBox2.Text='Центр' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[67].name);

TreeView1.Items.Add(nil,a[68].name);

TreeView1.Items.Add(nil,a[69].name);

TreeView1.Items.Add(nil,a[70].name);

TreeView1.Items.Add(nil,a[71].name);

TreeView1.Items.Add(nil,a[72].name);

TreeView1.Items.Add(nil,a[73].name);

TreeView1.Items.Add(nil,a[74].name);

TreeView1.Items.Add(nil,a[75].name);

TreeView1.Items.Add(nil,a[76].name);

TreeView1.Items.Add(nil,a[77].name);

TreeView1.Items.Add(nil,a[78].name);

TreeView1.Items.Add(nil,a[79].name);

TreeView1.Items.Add(nil,a[80].name);

TreeView1.Items.Add(nil,a[81].name);

TreeView1.Items.Add(nil,a[82].name);

TreeView1.Items.Add(nil,a[83].name);

TreeView1.Items.Add(nil,a[84].name);

TreeView1.Items.Add(nil,a[85].name);

TreeView1.Items.Add(nil,a[86].name);

TreeView1.Items.Add(nil,a[98].name);

TreeView1.Items.Add(nil,a[99].name);

TreeView1.Items.Add(nil,a[100].name);

TreeView1.Items.Add(nil,a[101].name);

TreeView1.Items.Add(nil,a[102].name);

End;

if ComboBox2.Text='Ракове' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[87].name);

TreeView1.Items.Add(nil,a[88].name);

TreeView1.Items.Add(nil,a[89].name);

TreeView1.Items.Add(nil,a[90].name);

TreeView1.Items.Add(nil,a[91].name);

TreeView1.Items.Add(nil,a[92].name);

TreeView1.Items.Add(nil,a[93].name);

TreeView1.Items.Add(nil,a[94].name);

TreeView1.Items.Add(nil,a[95].name);

TreeView1.Items.Add(nil,a[96].name);

TreeView1.Items.Add(nil,a[97].name);

TreeView1.Items.Add(nil,a[112].name);

TreeView1.Items.Add(nil,a[113].name);

TreeView1.Items.Add(nil,a[114].name);

TreeView1.Items.Add(nil,a[115].name);

TreeView1.Items.Add(nil,a[116].name);

TreeView1.Items.Add(nil,a[116].name);

TreeView1.Items.Add(nil,a[117].name);

TreeView1.Items.Add(nil,a[118].name);

TreeView1.Items.Add(nil,a[119].name);

TreeView1.Items.Add(nil,a[313].name);

TreeView1.Items.Add(nil,a[120].name);

TreeView1.Items.Add(nil,a[121].name);

TreeView1.Items.Add(nil,a[122].name);

TreeView1.Items.Add(nil,a[123].name);

TreeView1.Items.Add(nil,a[124].name);

TreeView1.Items.Add(nil,a[125].name);

TreeView1.Items.Add(nil,a[126].name);

TreeView1.Items.Add(nil,a[127].name);

TreeView1.Items.Add(nil,a[128].name);

TreeView1.Items.Add(nil,a[129].name);

TreeView1.Items.Add(nil,a[130].name);

TreeView1.Items.Add(nil,a[131].name);

TreeView1.Items.Add(nil,a[132].name);

TreeView1.Items.Add(nil,a[133].name);

TreeView1.Items.Add(nil,a[134].name);

TreeView1.Items.Add(nil,a[135].name);

TreeView1.Items.Add(nil,a[136].name);

TreeView1.Items.Add(nil,a[137].name);

TreeView1.Items.Add(nil,a[138].name);

TreeView1.Items.Add(nil,a[154].name);

TreeView1.Items.Add(nil,a[155].name);

TreeView1.Items.Add(nil,a[156].name);

TreeView1.Items.Add(nil,a[157].name);

TreeView1.Items.Add(nil,a[158].name);

TreeView1.Items.Add(nil,a[159].name);

TreeView1.Items.Add(nil,a[160].name);

TreeView1.Items.Add(nil,a[161].name);

TreeView1.Items.Add(nil,a[162].name);

TreeView1.Items.Add(nil,a[163].name);

TreeView1.Items.Add(nil,a[164].name);

TreeView1.Items.Add(nil,a[213].name);

TreeView1.Items.Add(nil,a[214].name);

TreeView1.Items.Add(nil,a[215].name);

TreeView1.Items.Add(nil,a[216].name);

TreeView1.Items.Add(nil,a[217].name);

TreeView1.Items.Add(nil,a[218].name);

TreeView1.Items.Add(nil,a[219].name);

End;

if ComboBox2.Text='Ружична' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[165].name);

TreeView1.Items.Add(nil,a[166].name);

TreeView1.Items.Add(nil,a[167].name);

TreeView1.Items.Add(nil,a[168].name);

TreeView1.Items.Add(nil,a[169].name);

TreeView1.Items.Add(nil,a[170].name);

TreeView1.Items.Add(nil,a[171].name);

TreeView1.Items.Add(nil,a[172].name);

TreeView1.Items.Add(nil,a[173].name);

TreeView1.Items.Add(nil,a[174].name);

TreeView1.Items.Add(nil,a[175].name);

TreeView1.Items.Add(nil,a[176].name);

TreeView1.Items.Add(nil,a[177].name);

TreeView1.Items.Add(nil,a[178].name);

TreeView1.Items.Add(nil,a[179].name);

TreeView1.Items.Add(nil,a[180].name);

TreeView1.Items.Add(nil,a[181].name);

TreeView1.Items.Add(nil,a[182].name);

TreeView1.Items.Add(nil,a[183].name);

TreeView1.Items.Add(nil,a[184].name);

TreeView1.Items.Add(nil,a[185].name);

TreeView1.Items.Add(nil,a[186].name);

TreeView1.Items.Add(nil,a[187].name);

TreeView1.Items.Add(nil,a[188].name);

TreeView1.Items.Add(nil,a[189].name);

TreeView1.Items.Add(nil,a[223].name);

TreeView1.Items.Add(nil,a[224].name);

TreeView1.Items.Add(nil,a[225].name);

TreeView1.Items.Add(nil,a[226].name);

TreeView1.Items.Add(nil,a[227].name);

TreeView1.Items.Add(nil,a[228].name);

TreeView1.Items.Add(nil,a[229].name);

TreeView1.Items.Add(nil,a[230].name);

TreeView1.Items.Add(nil,a[231].name);

TreeView1.Items.Add(nil,a[232].name);

TreeView1.Items.Add(nil,a[233].name);

TreeView1.Items.Add(nil,a[234].name);

TreeView1.Items.Add(nil,a[235].name);

TreeView1.Items.Add(nil,a[236].name);

TreeView1.Items.Add(nil,a[237].name);

TreeView1.Items.Add(nil,a[238].name);

TreeView1.Items.Add(nil,a[239].name);

TreeView1.Items.Add(nil,a[240].name);

TreeView1.Items.Add(nil,a[241].name);

TreeView1.Items.Add(nil,a[242].name);

TreeView1.Items.Add(nil,a[243].name);

TreeView1.Items.Add(nil,a[244].name);

TreeView1.Items.Add(nil,a[245].name);

TreeView1.Items.Add(nil,a[246].name);

TreeView1.Items.Add(nil,a[247].name);

TreeView1.Items.Add(nil,a[248].name);

TreeView1.Items.Add(nil,a[249].name);

TreeView1.Items.Add(nil,a[250].name);

TreeView1.Items.Add(nil,a[251].name);

End;

if ComboBox2.Text='Книжківці' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[136].name);

TreeView1.Items.Add(nil,a[139].name);

TreeView1.Items.Add(nil,a[140].name);

TreeView1.Items.Add(nil,a[141].name);

TreeView1.Items.Add(nil,a[142].name);

TreeView1.Items.Add(nil,a[143].name);

TreeView1.Items.Add(nil,a[144].name);

TreeView1.Items.Add(nil,a[145].name);

TreeView1.Items.Add(nil,a[146].name);

TreeView1.Items.Add(nil,a[147].name);

TreeView1.Items.Add(nil,a[148].name);

TreeView1.Items.Add(nil,a[149].name);

TreeView1.Items.Add(nil,a[150].name);

TreeView1.Items.Add(nil,a[151].name);

TreeView1.Items.Add(nil,a[152].name);

TreeView1.Items.Add(nil,a[153].name);

End;

if ComboBox2.Text='Дубове' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[91].name);

TreeView1.Items.Add(nil,a[103].name);

TreeView1.Items.Add(nil,a[104].name);

TreeView1.Items.Add(nil,a[105].name);

TreeView1.Items.Add(nil,a[106].name);

TreeView1.Items.Add(nil,a[107].name);

TreeView1.Items.Add(nil,a[108].name);

TreeView1.Items.Add(nil,a[109].name);

TreeView1.Items.Add(nil,a[110].name);

TreeView1.Items.Add(nil,a[111].name);

TreeView1.Items.Add(nil,a[189].name);

TreeView1.Items.Add(nil,a[190].name);

TreeView1.Items.Add(nil,a[191].name);

TreeView1.Items.Add(nil,a[192].name);

TreeView1.Items.Add(nil,a[193].name);

TreeView1.Items.Add(nil,a[194].name);

TreeView1.Items.Add(nil,a[195].name);

TreeView1.Items.Add(nil,a[196].name);

TreeView1.Items.Add(nil,a[197].name);

TreeView1.Items.Add(nil,a[198].name);

TreeView1.Items.Add(nil,a[199].name);

TreeView1.Items.Add(nil,a[200].name);

TreeView1.Items.Add(nil,a[201].name);

TreeView1.Items.Add(nil,a[202].name);

TreeView1.Items.Add(nil,a[203].name);

TreeView1.Items.Add(nil,a[204].name);

TreeView1.Items.Add(nil,a[205].name);

TreeView1.Items.Add(nil,a[206].name);

TreeView1.Items.Add(nil,a[207].name);

TreeView1.Items.Add(nil,a[208].name);

TreeView1.Items.Add(nil,a[209].name);

TreeView1.Items.Add(nil,a[210].name);

TreeView1.Items.Add(nil,a[211].name);

TreeView1.Items.Add(nil,a[212].name);

TreeView1.Items.Add(nil,a[220].name);

TreeView1.Items.Add(nil,a[221].name);

TreeView1.Items.Add(nil,a[222].name);

End;

if ComboBox2.Text='Катіон' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[252].name);

TreeView1.Items.Add(nil,a[253].name);

TreeView1.Items.Add(nil,a[254].name);

TreeView1.Items.Add(nil,a[255].name);

TreeView1.Items.Add(nil,a[256].name);

TreeView1.Items.Add(nil,a[257].name);

TreeView1.Items.Add(nil,a[258].name);

TreeView1.Items.Add(nil,a[259].name);

TreeView1.Items.Add(nil,a[260].name);

TreeView1.Items.Add(nil,a[261].name);

TreeView1.Items.Add(nil,a[262].name);

TreeView1.Items.Add(nil,a[263].name);

TreeView1.Items.Add(nil,a[264].name);

TreeView1.Items.Add(nil,a[265].name);

TreeView1.Items.Add(nil,a[266].name);

TreeView1.Items.Add(nil,a[267].name);

TreeView1.Items.Add(nil,a[268].name);

TreeView1.Items.Add(nil,a[269].name);

TreeView1.Items.Add(nil,a[270].name);

TreeView1.Items.Add(nil,a[271].name);

TreeView1.Items.Add(nil,a[272].name);

TreeView1.Items.Add(nil,a[273].name);

TreeView1.Items.Add(nil,a[274].name);

End;

if ComboBox2.Text='Гречани' then begin

TreeView1.Items.Clear;

TreeView1.Items.Add(nil,a[275].name);

TreeView1.Items.Add(nil,a[276].name);

TreeView1.Items.Add(nil,a[277].name);

TreeView1.Items.Add(nil,a[278].name);

TreeView1.Items.Add(nil,a[279].name);

TreeView1.Items.Add(nil,a[280].name);

TreeView1.Items.Add(nil,a[281].name);

TreeView1.Items.Add(nil,a[282].name);

TreeView1.Items.Add(nil,a[283].name);

TreeView1.Items.Add(nil,a[284].name);

TreeView1.Items.Add(nil,a[285].name);

TreeView1.Items.Add(nil,a[286].name);

TreeView1.Items.Add(nil,a[287].name);

TreeView1.Items.Add(nil,a[288].name);

TreeView1.Items.Add(nil,a[289].name);

TreeView1.Items.Add(nil,a[290].name);

TreeView1.Items.Add(nil,a[291].name);

TreeView1.Items.Add(nil,a[292].name);

TreeView1.Items.Add(nil,a[293].name);

TreeView1.Items.Add(nil,a[294].name);

TreeView1.Items.Add(nil,a[295].name);

TreeView1.Items.Add(nil,a[296].name);

TreeView1.Items.Add(nil,a[297].name);

TreeView1.Items.Add(nil,a[298].name);

TreeView1.Items.Add(nil,a[299].name);

TreeView1.Items.Add(nil,a[300].name);

TreeView1.Items.Add(nil,a[301].name);

TreeView1.Items.Add(nil,a[302].name);

TreeView1.Items.Add(nil,a[303].name);

TreeView1.Items.Add(nil,a[304].name);

TreeView1.Items.Add(nil,a[305].name);

TreeView1.Items.Add(nil,a[306].name);

TreeView1.Items.Add(nil,a[307].name);

TreeView1.Items.Add(nil,a[308].name);

TreeView1.Items.Add(nil,a[309].name);

TreeView1.Items.Add(nil,a[310].name);

TreeView1.Items.Add(nil,a[311].name);

TreeView1.Items.Add(nil,a[312].name);

end;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

if ComboBox2.Text<>'' then

Button3.Enabled:=true;

if CheckBox1.Checked=true then begin

Image1.AutoSize:=true;

Image1.Align:=alNone;

Image1.Picture.LoadFromFile('Дані\Райони\'+ComboBox2.Text+'.bmp');

ScrollBox1.HorzScrollBar.Position:=800;

ScrollBox1.VertScrollBar.Position:=1200;

end;

end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button2.Click;

end;

procedure TForm1.ComboBox2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button3.Click;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

RadioButton3.Checked:= true;

ComboBox2.SetFocus;

ComboBox2.DroppedDown := True

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

begin

if ComboBox3.Text<>'' then Button1.Enabled:=true;

end;

procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Button1.Click;

end;

procedure TForm1.Panel1Click(Sender: TObject);

begin

Image1.Canvas.Pen.Mode:=Pmxor;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked = true then begin

ComboBox3.Enabled :=true;

ComboBox1.Enabled :=false;

Button2.Enabled :=false;

ComboBox2.Enabled :=false;

Button3.Enabled :=false;

CheckBox1.Enabled :=false;

Label3.Enabled :=false;

end;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked = true then begin

ComboBox1.Enabled :=true;

ComboBox3.Enabled :=false;

Button1.Enabled :=false;

ComboBox2.Enabled :=false;

Button3.Enabled :=false;

CheckBox1.Enabled :=false;

Label3.Enabled :=false;

end;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked = true then begin

ComboBox1.Enabled :=false;

ComboBox3.Enabled :=false;

Button1.Enabled :=false;

Button2.Enabled :=false;

ComboBox2.Enabled :=true;

CheckBox1.Enabled :=true;

Label3.Enabled :=true;

end;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=true then

Button3.Enabled:=false else

Button3.Enabled:=true;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm2 = class(TForm)

TreeView1: TTreeView;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.TreeView1Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Дані\Справка\'+TreeView1.Selected.Text+'.FSH');

end;

end.

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, jpeg;

type

TForm4 = class(TForm)

Panel1: TPanel;

Button1: TButton;

ScrollBox1: TScrollBox;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Close;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

Image1.Picture.LoadFromFile('Дані\Умовні позначення\Умовні позначення.jpg');

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm5 = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('Дані\Справка\History.FSH');

end;

end.

Страницы: 1, 2, 3, 4