Ignore:
Timestamp:
Nov 27, 2017, 1:09:38 PM (8 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/UFormRule.pas

    r116 r117  
    2222    TabSheet2: TTabSheet;
    2323    procedure FormCreate(Sender: TObject);
     24    procedure FormDestroy(Sender: TObject);
    2425    procedure FormShow(Sender: TObject);
    2526  private
    … …  
    3940{$R *.lfm}
    4041
    41 uses
    42   UFormRuleItem;
    43 
    4442{ TFormRule }
    4543
    … …  
    5553  FormRuleItems.Align := alClient;
    5654  FormRuleItems.Show;
     55end;
     56
     57procedure TFormRule.FormDestroy(Sender: TObject);
     58begin
     59  FreeAndNil(FormRuleItems);
    5760end;
    5861
Note: See TracChangeset for help on using the changeset viewer.