Реферат Розробка мультимедійного електронного підручника

); BitBtn1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;

{$ R *. dfm}

Процедура забезпечує відображення курсу лекцій у вікні WebBrowser

procedure TForm2.ListBox1Click (Sender: TObject);. Navigate (ExtractFilePath (Application.ExeName) + 'сторінка'

+ IntToStr (ListBox1.ItemIndex +1) + '. htm');;

Процедура реалізує вивід на друк курс лекцій

procedure TForm2.BitBtn1Click (Sender: TObject);. ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_DOD);; TForm2.Button1Click (Sender: TObject);. Close;;.

Оригінальний текст модулів. Unit3 - пошук термінів і визначень. br/>

unit Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TButton;: TButton;: TListBox;: TLabel;: TEdit;: TMemo; Button1Click (Sender: TObject); FormCreate (Sender: TObject); ListBox1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm3; unit1;

{$ R *. dfm} Gloss: TStringList; TForm3.Button1Click (Sender: TObject);

Form3.Close;

end;

Процедура додає список термінів і визначень з файлу Глоссарій.txt

procedure TForm3.FormCreate (Sender: TObject); i: integer;: = TStringList.Create;. LoadFromFile ('Глоссарій.txt'); i: = 0 to Gloss.Count-1 do begin . Items.Add (Gloss.Names [i]);;

end;

Процедура очищає вікно в якому виводиться розшифровка терміну і виводить в ньому нове, знайдене в результаті пошуку визначення

procedure TForm3.ListBox1Click (Sender: TObject); i: integer; i: = 0 to ListBox1.Items.Count-1 dopos (Edit1.Text, ListBox1.Items.Strings [i])> 0 then ListBox1.ItemIndex: = i; Click (Sender); ;.

Оригінальний текст модулів. Unit4 - довідкова система

Unit4;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, OleCtrls, SHDocVw; = class (TForm): TButton;: TWebBrowser; Button2Click (Sender: TObject); FormCreate (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4;

{$ R *. dfm}

Процедура закриття форми

procedure TForm4.Button2Click (Sender: TObject);

Form4.Close;

end;

Процедура, що забезпечує відображення довідкової системи про вікні WebBrowser

Назад | сторінка 13 з 16 | Наступна сторінка