Разработка электронного учебника по дисциплине: «Русский язык и культура речи»

    Panel2: TPanel;

    Image: TImage;

    Panel3: TPanel;

    WordBtn: TBitBtn;

    Image1: TImage;

    procedure N2Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure WordBtnClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  NewForm: TNewForm;

implementation

uses unit3, Unit2, Unit5;  

{$R *.dfm}

procedure TNewForm.N2Click(Sender: TObject);

begin

info:=Tinfo.Create(Owner);

info.ShowModal; 

info.Free;

end;

procedure TNewForm.N1Click(Sender: TObject);

begin

close;          

end;

procedure TNewForm.BitBtn1Click(Sender: TObject);

begin

newform.hide;

docform:=Tdocform.Create(Owner);

docform.Show;

end;

procedure TNewForm.WordBtnClick(Sender: TObject);

begin

WordForm:=TWordForm.Create(Owner);

WordForm.Show;

end;

end. 
 

Вторая  форма  «Учебный материал»

unit Unit2;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons, AppEvnts, jpeg;

type

  TDocForm = class(TForm)

    StatusBar1: TStatusBar;

    PageControl1: TPageControl;

    Panel1: TPanel;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;

    RichEdit1: TRichEdit;

    RichEdit2: TRichEdit;

    RichEdit3: TRichEdit;

    RichEdit4: TRichEdit;

    TabSheet5: TTabSheet;

    RichEdit5: TRichEdit;

    TabSheet6: TTabSheet;

    RichEdit6: TRichEdit;

    TabSheet7: TTabSheet;

    RichEdit7: TRichEdit;

    TabSheet8: TTabSheet;

    RichEdit8: TRichEdit;

    TabSheet9: TTabSheet;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    Label2: TLabel;

    GroupBox3: TGroupBox;

    GroupBox4: TGroupBox;

    GroupBox5: TGroupBox;

    GroupBox6: TGroupBox;

    GroupBox7: TGroupBox;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    ApplicationEvents1: TApplicationEvents;

    ExitBtn: TBitBtn;

    ReplaiBtn: TBitBtn;

    BitBtn8: TBitBtn;

    FontDialog1: TFontDialog;

    Image1: TImage;

    BitBtn9: TBitBtn;

    ColorDialog1: TColorDialog;

    procedure BitBtn7Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure ApplicationEvents1Hint(Sender: TObject);

    procedure ExitBtnClick(Sender: TObject);

    procedure ReplaiBtnClick(Sender: TObject);

    procedure BitBtn8Click(Sender: TObject);

    procedure BitBtn9Click(Sender: TObject);

  private

    { Private declarations }

   procedure ShowHint(Sender: TObject);  

  public

    { Public declarations }

  end;

var

  DocForm: TDocForm;

implementation

uses unit1; 

{$R *.dfm}

procedure TDocForm.BitBtn7Click(Sender: TObject);

begin

tabsheet1.Show;

end;

procedure TDocForm.BitBtn1Click(Sender: TObject);

begin

tabsheet2.Show;

end;

procedure TDocForm.BitBtn2Click(Sender: TObject);

begin

tabsheet3.Show;

end;

procedure TDocForm.BitBtn3Click(Sender: TObject);

begin

tabsheet4.Show;

end;

procedure TDocForm.BitBtn4Click(Sender: TObject);

begin

tabsheet5.Show;

end;

procedure TDocForm.BitBtn5Click(Sender: TObject);

begin

tabsheet6.Show;

end;

procedure TDocForm.BitBtn6Click(Sender: TObject);

begin

tabsheet7.Show;

end;

procedure TDocForm.ShowHint(Sender: TObject);

begin

StatusBar1.SimpleText := Application.Hint;

end;

procedure TDocForm.ApplicationEvents1Hint(Sender: TObject);

begin

StatusBar1.SimpleText := Application.Hint;       

end;

procedure TDocForm.ExitBtnClick(Sender: TObject);

begin

newform.close;   

end;

procedure TDocForm.ReplaiBtnClick(Sender: TObject);

begin

DocForm.Close;        

NewForm.Show;          

end; 

procedure TDocForm.BitBtn8Click(Sender: TObject);

var i:integer;

begin

FontDialog1.Execute;

for i := 0 to ComponentCount-1 do

if (Components[i] is TRichEdit) then

   (Components[i] as TRichEdit).Font:=fontdialog1.Font;

end;

procedure TDocForm.BitBtn9Click(Sender: TObject);

var a:integer;

begin

ColorDialog1.Execute;

for a:=0 to ComponentCount-1 do

if (Components[a] is TRichEdit) then

   (Components[a] as TRichEdit).color:=colordialog1.Color;

end;

end. 

Третья  форма: «О программе»

unit Unit3; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls; 

type

  TInfo = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    GroupBox1: TGroupBox;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    BitBtn1: TBitBtn;

    Panel1: TPanel;

    Panel2: TPanel;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

     

  public

    { Public declarations }

  end; 

var

  Info: TInfo;

implementation 

{$R *.dfm} 

procedure TInfo.BitBtn1Click(Sender: TObject);

begin

close;

end;

end. 
 

Четвертая форма:

unit Unit4; 

interface 

uses

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

  Dialogs, jpeg, ExtCtrls; 

type

  TStartForm = class(TForm)

    Image1: TImage;

  private

   { Private declarations }

  public

    { Public declarations }

  end; 

var

  StartForm: TStartForm; 

implementation 

{$R *.dfm} 

end. 
 

Пятая форма: «Орфографический минимум»:

unit Unit5; 

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TWordForm = class(TForm)

    Memo1: TMemo;

    Memo2: TMemo;

    Memo3: TMemo;

    Memo4: TMemo;

    Memo5: TMemo;

    Memo6: TMemo;

    Memo7: TMemo;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  WordForm: TWordForm; 

implementation 

{$R *.dfm} 

end.