49706 (Довідник по Хмельницькому), страница 5
Описание файла
Документ из архива "Довідник по Хмельницькому", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49706"
Текст 5 страницы из документа "49706"
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.
