source: branches/generator/Forms/UFormRule.pas

unit UFormRule;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, ActnList, Menus, UGrammer, UFormRuleItems;

type

  { TFormRule }

  TFormRule = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    CheckBoxCreateNode: TCheckBox;
    ComboBoxLevel: TComboBox;
    EditName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ListView1: TListView;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheetUsedBy: TTabSheet;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
  private
    FormRuleItems: TFormRuleItems;
    UsedByRules: TStringList;
    procedure ReloadUsedByRules;
  public
    Rule: TRule;
    procedure LoadData(Rule: TRule);
    procedure SaveData(Rule: TRule);
  end;

var
  FormRule: TFormRule;


implementation

{$R *.lfm}

uses
  UCore;

{ TFormRule }

procedure TFormRule.FormShow(Sender: TObject);
begin
  EditName.SetFocus;
  PageControl1.TabIndex := 0;  // Select first tab by default
  Core.PersistentForm1.Load(Self);
end;

procedure TFormRule.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if Item.Index < UsedByRules.Count then
  begin
    Item.Caption := UsedByRules[Item.Index];
    Item.Data := UsedByRules.Objects[Item.Index];
  end;
end;

procedure TFormRule.ReloadUsedByRules;
begin
  ListView1.Items.Count := UsedByRules.Count;
  ListView1.Refresh;
end;

procedure TFormRule.FormCreate(Sender: TObject);
var
  I: TRuleLevel;
begin
  Core.CoolTranslator1.TranslateComponentRecursive(Self);
  FormRuleItems := TFormRuleItems.Create(nil);
  FormRuleItems.ManualDock(TabSheet1);
  FormRuleItems.Align := alClient;
  FormRuleItems.Show;
  UsedByRules := TStringList.Create;
  ComboBoxLevel.Items.Clear;
  for I := Low(TRuleLevel) to High(RuleLevelText) do
    ComboBoxLevel.Items.Add(RuleLevelText[I]);
end;

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

procedure TFormRule.FormDestroy(Sender: TObject);
begin
  FreeAndNil(UsedByRules);
  FreeAndNil(FormRuleItems);
end;

procedure TFormRule.LoadData(Rule: TRule);
begin
  Self.Rule := Rule;
  Rule.Grammer.GetUsedByRule(Rule, UsedByRules);
  ReloadUsedByRules;
  EditName.Text := Rule.Name;
  CheckBoxCreateNode.Checked := Rule.CreateSourceNode;
  ComboBoxLevel.ItemIndex := Integer(Rule.Level);
  FormRuleItems.LoadData(Rule.Items);
end;

procedure TFormRule.SaveData(Rule: TRule);
begin
  Rule.Grammer.Modified := True;
  Rule.Name := EditName.Text;
  Rule.CreateSourceNode := CheckBoxCreateNode.Checked;
  Rule.Level := TRuleLevel(ComboBoxLevel.ItemIndex);
  FormRuleItems.SaveData(Rule.Items);
end;

end.