Приложение а

Установочный диск электронного пособия

Приложение б

Листинг программы

Код главного окна пособия

unit glavnaya;

interface

uses

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

Dialogs, StdCtrls, AdvGlowButton, jpeg, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

AdvGlowButton1: TAdvGlowButton;

AdvGlowButton2: TAdvGlowButton;

AdvGlowButton3: TAdvGlowButton;

AdvGlowButton4: TAdvGlowButton;

AdvGlowButton5: TAdvGlowButton;

Label1: TLabel;

Label2: TLabel;

procedure AdvGlowButton1Click(Sender: TObject);

procedure AdvGlowButton5Click(Sender: TObject);

procedure AdvGlowButton2Click(Sender: TObject);

procedure AdvGlowButton4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses glossary, teoriya, Unit4;

{$R *.dfm}

procedure TForm1.AdvGlowButton1Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.AdvGlowButton5Click(Sender: TObject);

begin

Form2.Show;

Form1.Hide;

end;

procedure TForm1.AdvGlowButton2Click(Sender: TObject);

begin

Form1.Hide;

Form3.Show;

end;

procedure TForm1.AdvGlowButton4Click(Sender: TObject);

begin

Form4.Show;

Form1.Hide;

end;

end.

Код окна – Теория

unit teoriya;

interface

uses

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

Dialogs, Menus, AdvMenuStylers, AdvMenus, StdCtrls, RxRichEd,

AdvOfficeStatusBar, AdvOfficeStatusBarStylers;

type

TForm3 = class(TForm)

AdvMainMenu1: TAdvMainMenu;

AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

style: TMenuItem;

help1: TMenuItem;

Help2: TMenuItem;

Office1: TMenuItem;

Office2003Blue1: TMenuItem;

Office2003Olive1: TMenuItem;

Office2003Silver1: TMenuItem;

OfficeXP1: TMenuItem;

Office2007Obsidian1: TMenuItem;

AdvMenuFantasyStyler1: TAdvMenuFantasyStyler;

RxRichEdit1: TRxRichEdit;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

N41: TMenuItem;

N51: TMenuItem;

N61: TMenuItem;

N71: TMenuItem;

N111: TMenuItem;

N121: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N211: TMenuItem;

N221: TMenuItem;

N12: TMenuItem;

N241: TMenuItem;

N251: TMenuItem;

N31RS232C1: TMenuItem;

N321: TMenuItem;

N331: TMenuItem;

N341: TMenuItem;

BBS1: TMenuItem;

N411: TMenuItem;

N421: TMenuItem;

N431: TMenuItem;

N441: TMenuItem;

N51internet1: TMenuItem;

N52Internet1: TMenuItem;

N53SLIP1: TMenuItem;

N541: TMenuItem;

N551: TMenuItem;

N561: TMenuItem;

N61Telnet1: TMenuItem;

N621: TMenuItem;

N63Usenet1: TMenuItem;

N641: TMenuItem;

N65FTP1: TMenuItem;

N71WWW1: TMenuItem;

N72HTML1: TMenuItem;

N73HTMLhyperTextTransferProtokol1: TMenuItem;

N74WorldWideWeb1: TMenuItem;

N751: TMenuItem;

N13: TMenuItem;

N77Intranet1: TMenuItem;

N78Internet1: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N22: TMenuItem;

N17: TMenuItem;

N32: TMenuItem;

N18: TMenuItem;

N42: TMenuItem;

N19: TMenuItem;

N52: TMenuItem;

N20: TMenuItem;

N62: TMenuItem;

N23: TMenuItem;

N72: TMenuItem;

N4311: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N26: TMenuItem;

procedure N4Click(Sender: TObject);

procedure Office2003Blue1Click(Sender: TObject);

procedure Office2003Olive1Click(Sender: TObject);

procedure Office2003Silver1Click(Sender: TObject);

procedure OfficeXP1Click(Sender: TObject);

procedure Office2007Obsidian1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N211Click(Sender: TObject);

procedure N221Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N241Click(Sender: TObject);

procedure N251Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure N71WWW1Click(Sender: TObject);

procedure N72HTML1Click(Sender: TObject);

procedure N73HTMLhyperTextTransferProtokol1Click(Sender: TObject);

procedure N74WorldWideWeb1Click(Sender: TObject);

procedure N751Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N77Intranet1Click(Sender: TObject);

procedure N78Internet1Click(Sender: TObject);

procedure N72Click(Sender: TObject);

procedure N111Click(Sender: TObject);

procedure N121Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N411Click(Sender: TObject);

procedure N421Click(Sender: TObject);

procedure N4311Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N441Click(Sender: TObject);

procedure N42Click(Sender: TObject);

procedure N51internet1Click(Sender: TObject);

procedure N52Internet1Click(Sender: TObject);

procedure N53SLIP1Click(Sender: TObject);

procedure N541Click(Sender: TObject);

procedure N551Click(Sender: TObject);

procedure N561Click(Sender: TObject);

procedure N52Click(Sender: TObject);

procedure N61Telnet1Click(Sender: TObject);

procedure N621Click(Sender: TObject);

procedure N63Usenet1Click(Sender: TObject);

procedure N641Click(Sender: TObject);

procedure N65FTP1Click(Sender: TObject);

procedure N62Click(Sender: TObject);

procedure N31RS232C1Click(Sender: TObject);

procedure N321Click(Sender: TObject);

procedure N331Click(Sender: TObject);

procedure N341Click(Sender: TObject);

procedure BBS1Click(Sender: TObject);

procedure N32Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses glavnaya;

{$R *.dfm}

procedure TForm3.N4Click(Sender: TObject);

begin

Form3.Close;

Form1.Close;

end;

procedure TForm3.Office2003Blue1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler := AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked := true;

end;

AdvMenuOfficeStyler1.Style := TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked := true;

end;

procedure TForm3.Office2003Olive1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler := AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked := true;

end;

AdvMenuOfficeStyler1.Style := TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked := true;

end;

procedure TForm3.Office2003Silver1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler := AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked := true;

end;

AdvMenuOfficeStyler1.Style := TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked := true;

end;

procedure TForm3.OfficeXP1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler := AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked := true;

end;

AdvMenuOfficeStyler1.Style := TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked := true;

end;

procedure TForm3.Office2007Obsidian1Click(Sender: TObject);

begin

if (AdvMainMenu1.MenuStyler = AdvMenuFantasyStyler1) then

begin

AdvMainMenu1.MenuStyler := AdvMenuOfficeStyler1;

(Sender as TMenuItem).Parent.Checked := true;

end;

AdvMenuOfficeStyler1.Style := TOfficeStyle((Sender as TMenuItem).Tag);

(Sender as TMenuItem).Checked := true;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\vvedenie.rtf');

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form1.Show;

Form3.Close;

end;

procedure TForm3.N211Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_1.rtf');

end;

procedure TForm3.N221Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_2.rtf');

end;

procedure TForm3.N12Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_3.rtf');

end;

procedure TForm3.N241Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_4.rtf');

end;

procedure TForm3.N251Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\lek_5.rtf');

end;

procedure TForm3.N22Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_2\kontrol_2.rtf');

end;

procedure TForm3.N71WWW1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_1.rtf');

end;

procedure TForm3.N72HTML1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_2.rtf');

end;

procedure TForm3.N73HTMLhyperTextTransferProtokol1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_3.rtf');

end;

procedure TForm3.N74WorldWideWeb1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_4.rtf');

end;

procedure TForm3.N751Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_5.rtf');

end;

procedure TForm3.N13Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_6.rtf');

end;

procedure TForm3.N77Intranet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_7.rtf');

end;

procedure TForm3.N78Internet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\lek_8.rtf');

end;

procedure TForm3.N72Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_7\kontrol_7.rtf');

end;

procedure TForm3.N111Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_1.rtf');

end;

procedure TForm3.N121Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_2.rtf');

end;

procedure TForm3.N6Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_3.rtf');

end;

procedure TForm3.N7Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_4.rtf');

end;

procedure TForm3.N8Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_5.rtf');

end;

procedure TForm3.N9Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_6.rtf');

end;

procedure TForm3.N10Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\lek_7.rtf');

end;

procedure TForm3.N15Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_1\kontrol_1.rtf');

end;

procedure TForm3.N411Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_1.rtf');

end;

procedure TForm3.N421Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_2.rtf');

end;

procedure TForm3.N4311Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3.rtf');

end;

procedure TForm3.N24Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3_hub.rtf');

end;

procedure TForm3.N25Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3_switch.rtf');

end;

procedure TForm3.N26Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_3_router.rtf');

end;

procedure TForm3.N441Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\lek_4.rtf');

end;

procedure TForm3.N42Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_4\kontrol_4.rtf');

end;

procedure TForm3.N51internet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_1.rtf');

end;

procedure TForm3.N52Internet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_2.rtf');

end;

procedure TForm3.N53SLIP1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_3.rtf');

end;

procedure TForm3.N541Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_4.rtf');

end;

procedure TForm3.N551Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_5.rtf');

end;

procedure TForm3.N561Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\lek_6.rtf');

end;

procedure TForm3.N52Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_5\kontrol_5.rtf');

end;

procedure TForm3.N61Telnet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_1.rtf');

end;

procedure TForm3.N621Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_2.rtf');

end;

procedure TForm3.N63Usenet1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_3.rtf');

end;

procedure TForm3.N641Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_4.rtf');

end;

procedure TForm3.N65FTP1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\lek_5.rtf');

end;

procedure TForm3.N62Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_6\kontrol_6.rtf');

end;

procedure TForm3.N31RS232C1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_1.rtf');

end;

procedure TForm3.N321Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_2.rtf');

end;

procedure TForm3.N331Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_3.rtf');

end;

procedure TForm3.N341Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_4.rtf');

end;

procedure TForm3.BBS1Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\lek_5.rtf');

end;

procedure TForm3.N32Click(Sender: TObject);

begin

RxRichEdit1.Lines.LoadFromFile('Resources\razdel_3\kontrol_3.rtf');

end;

end.

Код окна глоссария

unit glossary;

interface

uses

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

Dialogs, Menus, AdvMenus, StdCtrls, ComCtrls, AdvMenuStylers;

type

TForm2 = class(TForm)

AdvMainMenu1: TAdvMainMenu;

N1: TMenuItem;

RichEdit1: TRichEdit;

AdvMenuOfficeStyler1: TAdvMenuOfficeStyler;

procedure N1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses glavnaya;

{$R *.dfm}

procedure TForm2.N1Click(Sender: TObject);

begin

Form1.Show;

Form2.Close;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

RichEdit1.Lines.LoadFromFile('resources\glossary\glossary.rtf');

end;

end.