14. Немнюгин - Turbo Pascal.

15. Климов - Pascal 7.0

16. Юрий Гурский - Трюки и эффекты в Delphi 7.

17. Род Стивенс - Delphi. Готовые алгоритмы.

18. Виктор Пестриков, Артур Маслобоев - Delphi на примерах.

19. Михаил Фленов - Программирование в Delphi глазами хакера.

Додаток А

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, Menus, ToolWin, ActnMan,

ActnCtrls, ActnMenus, CheckLst, OleCtrls, AcroPDFLib_TLB, Buttons;

type

TForm1 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Panel1: TPanel;

ScrollBox1: TScrollBox;

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N5: TMenuItem;

N8: TMenuItem;

N7: TMenuItem;

N10: TMenuItem;

N14: TMenuItem;

N6: TMenuItem;

N16: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Timer1: TTimer;

Button1: TButton;

ComboBox1: TComboBox;

Button2: TButton;

ComboBox2: TComboBox;

TreeView1: TTreeView;

N15: TMenuItem;

N17: TMenuItem;

Button3: TButton;

Label1: TLabel;

ComboBox3: TComboBox;

AcroPDF1: TAcroPDF;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

CheckBox1: TCheckBox;

Label2: TLabel;

Label3: TLabel;

N9: TMenuItem;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

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

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

procedure N15Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

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

procedure Panel1Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Type Vul=Record

Name:string[35];

X,Y,X1,Y1,X2,Y2,X3,Y3:Integer;

X4,Y4,X5,Y5,X6,Y6,X7,Y7:Integer;

X8,Y8,X9,Y9,X10,Y10,X11,Y11,X12,Y12,X13,Y13:Integer;

end;

var

Form1: TForm1;

A:array[1..313] of vul;

F:file of Vul;

an, ani: byte;

k: integer;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

AcroPDF1.LoadFile ('Дані\Карта\Khmelnitskiy Map.pdf');

ComboBox2.Items.Add('Виставка');

ComboBox2.Items.Add('Гречани');

ComboBox2.Items.Add('Ракове');

ComboBox2.Items.Add('Лезневе');

ComboBox2.Items.Add('Дубове');

ComboBox2.Items.Add('Ружична');

ComboBox2.Items.Add('Катіон');

ComboBox2.Items.Add('Книжківці');

ComboBox2.Items.Add('Центр');

ComboBox2.Items.Add('Озерна');

Button1.Enabled:=false;

Button2.Enabled:=false;

Button3.Enabled:=false;

TreeView1.Enabled:=false;

RadioButton1.Checked:=true;

AssignFile(F, 'Дані/Вулиці/Координати вулиць.DKH');

Reset(F);

for i:=1 to 313 do begin

Read(F,A[i]);

ComboBox1.Items.Add(A[i].Name);

ComboBox3.Items.Add(A[i].Name);

end;

CloseFile(f);

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

znaydeno: boolean;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

znaydeno:=false;

for I:=1 to 313 do

if ComboBox3.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

znaydeno:=true;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

if znaydeno=false then begin

ShowMessage('Ведіть правильну назву вулиці!');

ComboBox3.Clear;

ComboBox3.SetFocus;

ComboBox3.SelectAll;

end;

end;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

RadioButton1.Checked:= true;

ComboBox3.SetFocus;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Halt;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Image1.Canvas.Pen.Mode:=Pmxor;

if(ani=1)or(an=1) then begin

Image1.Canvas.MoveTo(a[k].x,a[k].y);

Image1.Canvas.LineTo(a[k].x1,a[k].y1);

Image1.Canvas.MoveTo(a[k].X1,a[k].y1);

Image1.Canvas.LineTo(a[k].X2,a[k].Y2);

Image1.Canvas.MoveTo(a[k].X2,a[k].y2);

Image1.Canvas.LineTo(a[k].X3,a[k].Y3);

Image1.Canvas.MoveTo(a[k].X3,a[k].y3);

Image1.Canvas.LineTo(a[k].X4,a[k].Y4);

Image1.Canvas.MoveTo(a[k].X4,a[k].y4);

Image1.Canvas.LineTo(a[k].X5,a[k].Y5);

Image1.Canvas.MoveTo(a[k].X5,a[k].y5);

Image1.Canvas.LineTo(a[k].X6,a[k].Y6);

Image1.Canvas.MoveTo(a[k].X6,a[k].y6);

Image1.Canvas.LineTo(a[k].X7,a[k].Y7);

Image1.Canvas.MoveTo(a[k].X7,a[k].y7);

Image1.Canvas.LineTo(a[k].X8,a[k].Y8);

Image1.Canvas.MoveTo(a[k].X8,a[k].y8);

Image1.Canvas.LineTo(a[k].X9,a[k].Y9);

Image1.Canvas.MoveTo(a[k].X9,a[k].y9);

Image1.Canvas.LineTo(a[k].X10,a[k].Y10);

Image1.Canvas.MoveTo(a[k].X10,a[k].y10);

Image1.Canvas.LineTo(a[k].X11,a[k].Y11);

Image1.Canvas.MoveTo(a[k].X11,a[k].y11);

Image1.Canvas.LineTo(a[k].X12,a[k].Y12);

Image1.Canvas.MoveTo(a[k].X12,a[k].y12);

Image1.Canvas.LineTo(a[k].X13,a[k].Y13);

end;

if an=0 then an:=1 else an:=0;

end;

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

for I:=1 to 313 do

if ComboBox1.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Image1.AutoSize:=false;

Image1.Align:=alClient;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

TabSheet1.Show;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

TabSheet2.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

RadioButton2.Checked:= true;

ComboBox1.SetFocus;

ComboBox1.DroppedDown := True

end;

procedure TForm1.N4Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.TreeView1Click(Sender: TObject);

var i:integer;

begin

PatBlt(Image1.Canvas.Handle, 0, 0, Image1.ClientWidth, Image1.ClientHeight, WHITENESS);

for I:=1 to 313 do

if TreeView1.Selected.Text=A[i].Name Then begin K:=I;

Image1.Align:=alNone;

ani:=1;

Image1.Picture.LoadFromFile('Дані/Карта/Карта Хмельницького2.bmp');

Image1.AutoSize:=true;

Image1.Canvas.Pen.Mode:=Pmxor;

Image1.Canvas.Pen.Color :=$af;

Image1.Canvas.Pen.Width := 6;

ScrollBox1.HorzScrollBar.Position:=a[k].X-160;

ScrollBox1.VertScrollBar.Position:=a[k].Y-380;

end;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.Text<>'' then Button2.Enabled:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if ComboBox2.Text<>'' then

TreeView1.Enabled:=true;

if ComboBox2.Text='Виставка' then begin

TreeView1.Items.Clear;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End;

if ComboBox2.Text='Озерна' then begin

TreeView1.Items.Clear;

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

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

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

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

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

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