source: branches/generator/Forms/UFormLookupTable.pas

unit UFormLookupTable;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  UGrammer;

type

  { TFormLookupTable }

  TFormLookupTable = class(TForm)
    ButtonCancel: TButton;
    ButtonOk: TButton;
    EditName: TEdit;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private

  public
    procedure LoadData(LookupTable: TLookupTable);
    procedure SaveData(LookupTable: TLookupTable);
  end;

var
  FormLookupTable: TFormLookupTable;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormLookupTable }

procedure TFormLookupTable.FormClose(Sender: TObject;
  var CloseAction: TCloseAction);
begin
  Core.PersistentForm1.Save(Self);
end;

procedure TFormLookupTable.FormCreate(Sender: TObject);
begin
  Core.CoolTranslator1.TranslateComponentRecursive(Self);
end;

procedure TFormLookupTable.FormShow(Sender: TObject);
begin
  Core.PersistentForm1.Load(Self);
end;

procedure TFormLookupTable.LoadData(LookupTable: TLookupTable);
begin
  EditName.Text := LookupTable.Name;
end;

procedure TFormLookupTable.SaveData(LookupTable: TLookupTable);
begin
  LookupTable.Grammer.Modified := True;
  LookupTable.Name := EditName.Text;
end;

end.