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, 5, 6