Курсовая работа2 / SLR_Grammar / Ufrm_Main

//  Авторы студенты группы 2382: Щербинская О. Ю., Мирошникова Н. Л.,  Костыгова Д. М.

unit Ufrm_Main;


{=}INTERFACE


uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, StdCtrls, ComCtrls, Grids;


type  Tfrm_Main = class(TForm)

published
    //--------------------------------------------------------------------------
    dlg_Open: TOpenDialog;
    //--------------------------------------------------------------------------
    menu_Main: TMainMenu;
      menu_File: TMenuItem;
        menu_FileExit: TMenuItem;
        menu_FileLoad: TMenuItem;
        menu_FileAnalyze: TMenuItem;
      N2: TMenuItem;
    //--------------------------------------------------------------------------
    rich_Log: TRichEdit;
    //--------------------------------------------------------------------------
    procedure FormCreate(Sender: TObject);
    //--------------------------------------------------------------------------
    procedure menu_FileLoadClick(Sender: TObject);
    procedure menu_FileAnalyzeClick(Sender: TObject);
    procedure menu_FileExitClick(Sender: TObject);
    //--------------------------------------------------------------------------
    public
    //--------------------------------------------------------------------------
    function  GetTemplatePath: string;
    procedure Log(Msg: string; Col: TColor );
    //--------------------------------------------------------------------------
end;


var frm_Main: Tfrm_Main;


{=}IMPLEMENTATION


uses Udm_Grammar,Udm_Vpod,Udm_Goto,Udm_First,Udm_Follow,Udm_Action,Umsc_GenCode;


{$R *.dfm}

//    ИНТЕРФЕЙС
//    путь к шаблонам xml-документов
function  Tfrm_Main.GetTemplatePath: string;
begin
   Result := ExtractFileDir(Application.ExeName) + '\Templates';
end;


//    Вывод сообщений
procedure Tfrm_Main.Log(Msg: string; Col: TColor );
var Start: integer;
begin
   Start := Length(rich_Log.Lines.Text);
   rich_Log.Lines.Add( Msg );

   rich_Log.SelStart := Start;
   rich_Log.SelLength := Length( Msg );

   rich_Log.SelAttributes.Color := Col;

end;

  //    ГЛАВНОЕ МЕНЮ
procedure Tfrm_Main.menu_FileLoadClick(Sender: TObject);
begin
   if (dlg_Open.Execute) then
   begin
      dm_Grammar.LoadGrammar( dlg_Open.FileName );
      menu_FileLoad.Enabled    := FALSE;
      menu_FileAnalyze.Enabled := TRUE;

     end;
end;


procedure Tfrm_Main.menu_FileAnalyzeClick(Sender: TObject);
begin
   dm_Vpod.BuildVpodRelation;
   dm_Goto.BuildGotoFunction;
   dm_First.BuildFirstRelation;
   dm_Follow.BuildFollowRelation;
   dm_Action.BuildActionFunction;

   Umsc_GenCode.GenCode;

    menu_FileLoad.Enabled    := TRUE;
    menu_FileAnalyze.Enabled := FALSE;

end;

procedure Tfrm_Main.menu_FileExitClick(Sender: TObject);
begin
   Self.Close;
end;


//    ГЛАВНАЯ ФОРМА
procedure Tfrm_Main.FormCreate(Sender: TObject);
begin
   Self.Log( '      Программа готова к работе...', clGreen );
   Self.Log( ' ', clGreen );
end;

end.