Програмування в середовищі Delphi

    WindowMenu: TMenuItem;

    N22: TMenuItem;

    N23: TMenuItem;

    N24: TMenuItem;

    N25: TMenuItem;

    N26: TMenuItem;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    FontDialog1: TFontDialog;

    PrintDialog1: TPrintDialog;

    ActionList1: TActionList;

    WindowCascade1: TWindowCascade;

    WindowTileHorizontal1: TWindowTileHorizontal;

    WindowTileVertical1: TWindowTileVertical;

    EditCut1: TEditCut;

    EditCopy1: TEditCopy;

    EditPaste1: TEditPaste;

    EditUndo1: TEditUndo;

    SearchFind1: TSearchFind;

    SearchReplace1: TSearchReplace;

    RichEditAlignLeft1: TRichEditAlignLeft;

    RichEditAlignRight1: TRichEditAlignRight;

    RichEditAlignCenter1: TRichEditAlignCenter;

    procedure N2Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N26Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  MainForm: TMainForm; 

implementation 

uses child, AboutUnit1; 

{$R *.dfm} 

procedure TMainForm.N2Click(Sender: TObject);

begin

TChildForm.Create(Self);

end; 

procedure TMainForm.N7Click(Sender: TObject);

begin

close;

end; 

procedure TMainForm.N3Click(Sender: TObject);

begin

If OpenDialog1.Execute then  {} 

begin

ChildForm:=TchildForm.Create(Self);        {Створюєм Вікно}

ChildForm.RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);{Загружаєм В RichEdit1 вибраний файл} 

ChildForm.Caption:= OpenDialog1.FileName;

ChildForm.RichEdit1.Tag:=0;

end;

end; 

procedure TMainForm.N16Click(Sender: TObject);

begin

If FontDialog1.execute then     {Якщо Користувач вибрав шрифт} 

(ActiveMDIChild as TChildForm).RichEdit1.Font:=FontDialog1.Font;   {Встановити шрифт} 

end; 

procedure TMainForm.N5Click(Sender: TObject);

var FName:string;

begin

If MDIChildCount=0 then Exit;

SaveDialog1.FileName:=FName; 

SaveDialog1.Title:='Зберегти  файл як...'; {Заголовок діалогового вікна збереження файла} 

if SaveDialog1.Execute then

  begin

  Fname:=saveDialog1.Filename;      {Відкрити діалог і запам'ятати нове ім'я файл} 

  case SaveDialog1.FilterIndex of      {Змінюєм розширення файла}

  1:FName:=ChangeFileExt(FName,'.txt');

  2:FName:=ChangeFileExt(FName,'.rtf');

  end;

end;

(ActiveMDIChild as TChildForm).RichEdit1.Lines.SaveToFile(FName);

{Записуєм  у файл властивості Line об'єкта RichEdit  активного вікна}

(ActiveMDIChild as TChildForm).Caption:=FName;

{Замsнити  ім'я файла в заголовку активного  вікна}

(ActiveMDIChild as TChildForm).RichEdit1.Tag:=0;

{Зміни  у файлі збережені}

end; 

procedure TMainForm.N4Click(Sender: TObject);

begin

if MDIChildCount=0 then Exit; 

if (ActiveMDIChild as TChildForm).Caption='Новий' then  N5Click(Sender)

                                                  else

                                                  begin

                                        (ActiveMDIChild as TCHildForm).RichEdit1.Lines.SaveToFile((ActiveMDIChild as TChildForm).Caption);

                                        (ActiveMDIChild as TCHildForm).RichEdit1.Tag:=0;

                                        end; 
 

end;

procedure TMainForm.N6Click(Sender: TObject);

var f:TextFile;      //опис файлу для друку

begin

if PrintDialog1.Execute then

begin

AssignPrn(F);           // підготовка до друку

Rewrite(F);

Writeln(F,(ActiveMDIChild as TChildForm).RichEdit1.Text);

System.CloseFile(F);

end;

end; 

procedure TMainForm.N26Click(Sender: TObject);

begin

About.Showmodal; // Налагодження звязку з формою

end; 

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.23.Додаток  №23 «Головне вікно програми №3»

  Мал №8.23.19. «Головне вікно » 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8.24.Додаток  №24 «Вихідний код програми №3 – Unit child»

 

unit child; 

interface 

uses

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

Dialogs, StdCtrls, ComCtrls; 

type

TChildForm = class(TForm)

RichEdit1: TRichEdit;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure RichEdit1Change(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end; 

var

ChildForm: TChildForm; 

implementation 

uses main; 

{$R *.dfm} 

procedure TChildForm.FormCreate(Sender: TObject);

begin

Caption:='Новий'; {Заголовок Вікна}

end; 

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree; {Закрити форму і знищити із памяті}

end; 

procedure TChildForm.RichEdit1Change(Sender: TObject);

begin

Richedit1.Tag:=1;

end; 

procedure TChildForm.FormCloseQuery(Sender: TObject;

var CanClose: Boolean);

var

Res:Integer;

begin

if RichEdit1.tag=0 then canClose:=True  {Якщо не зберігати файл то

можна закрити вікно}

else 

begin 

Res:=Application.MessageBox('Текст  змінено. Зберегти зміни?');

if Res = IDYES then

begin

ChildForm.BringToFront;     {зробити вікно активним} 

{MainForm.Save(Sender); }

If RichEdit1.Tag=1 then canClose:=false;   {Якщо користувач не зберіг файл то вікно не закривати}

end;

If Res=IDNo then CanClose:=True;

{Якщо "ні" то можна закрити}

If res= IDNo then CanClose:=False;

end;

end; 

end.

8.25.Додаток  №25 «Вікно нового текстового документу»

 
 

Мал №8.25.20. «Новий документ » 
 
 
 
 
 
 
 
 
 

8.26.Додаток  №26 «Друк документу»

 

 Мал №8.26.21. «Друк документу » 
 
 
 
 
 
 
 
 
 
 
 

8.27.Додаток  №27 «Форматування тексту»

 

Мал №8.27.22. «Форматування тексту » 
 
 
 
 
 
 
 
 
 
 
 
 

8.28.Додаток  №28 «Вихідний код програми №3 – Unit About»

 

unit AboutUnit1; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls; 

type

  TAbout = class(TForm)

    BitBtn1: TBitBtn;

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Image1: TImage;

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  About: TAbout; 

implementation 

{$R *.dfm} 

end.

8.29.Додаток  №29 «Про програму»

 

Мал №8.29.22. «Про програму »