Ignore:
Timestamp:
Nov 27, 2017, 1:09:38 PM (7 years ago)
Author:
chronos
Message:
  • Added: Rule can be set as optional or repetitive.
  • Added: Support for nested rule item sublist.
Location:
branches/generator
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/generator

    • Property svn:ignore

      •  

        old new  
        22generator.lps
        33lib
         4heaptrclog.trc

  • branches/generator/Forms/UFormRuleItems.pas

    r116 r117  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   Menus, ActnList, StdCtrls, URules;
     9  Menus, ActnList, StdCtrls, URules, UFormRuleItem;
    1010
    1111type
    … …  
    4848      Selected: Boolean);
    4949  private
    50     { private declarations }
     50    FormRuleItem: TFormRuleItem;
    5151  public
    5252    RuleItems: TRuleItems;
    … …  
    6363implementation
    6464
    65 uses
    66   UFormRuleItem;
    6765
    6866{$R *.lfm}
    … …  
    8482  NewRuleItem := TRuleItem.Create;
    8583  NewRuleItem.Grammer := RuleItems.Grammer;
     84  FormRuleItem := TFormRuleItem.Create(nil);
    8685  FormRuleItem.LoadData(NewRuleItem);
    8786  if FormRuleItem.ShowModal = mrOk then begin
    … …  
    9190    ReloadList;
    9291  end else FreeAndNil(NewRuleItem);
     92  FreeAndNil(FormRuleItem);
    9393end;
    9494
    … …  
    9898begin
    9999  RuleItem := TRuleItem(ListView.Selected.Data);
     100  FormRuleItem := TFormRuleItem.Create(nil);
    100101  FormRuleItem.LoadData(RuleItem);
    101102  if FormRuleItem.ShowModal = mrOk then begin
    … …  
    103104    ReloadList;
    104105  end;
     106  FreeAndNil(FormRuleItem);
    105107end;
    106108
Note: See TracChangeset for help on using the changeset viewer.