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/UFormRuleItem.lfm

    r114 r117  
    11object FormRuleItem: TFormRuleItem
    22  Left = 474
    3   Height = 278
     3  Height = 400
    44  Top = 386
    55  Width = 656
    6   ActiveControl = EditName
    76  Caption = 'Rule item'
    8   ClientHeight = 278
     7  ClientHeight = 400
    98  ClientWidth = 656
     9  OnClose = FormClose
     10  OnCreate = FormCreate
     11  OnDestroy = FormDestroy
     12  OnShow = FormShow
    1013  LCLVersion = '1.6.4.0'
    11   object LabelTerminal: TLabel
    12     Left = 16
    13     Height = 20
    14     Top = 64
    15     Width = 61
    16     Caption = 'Terminal:'
    17     ParentColor = False
    18   end
    19   object EditName: TEdit
    20     Left = 160
    21     Height = 28
    22     Top = 64
    23     Width = 400
     14  object ButtonCancel: TButton
     15    Left = 176
     16    Height = 25
     17    Top = 362
     18    Width = 75
     19    Anchors = [akLeft, akBottom]
     20    Caption = 'Cancel'
     21    ModalResult = 2
    2422    TabOrder = 0
    2523  end
    26   object ButtonCancel: TButton
    27     Left = 232
     24  object ButtonOk: TButton
     25    Left = 352
    2826    Height = 25
    29     Top = 208
     27    Top = 362
    3028    Width = 75
    31     Caption = 'Cancel'
    32     ModalResult = 2
    33     TabOrder = 1
    34   end
    35   object ButtonOk: TButton
    36     Left = 408
    37     Height = 25
    38     Top = 208
    39     Width = 75
     29    Anchors = [akLeft, akBottom]
    4030    Caption = 'Ok'
    4131    ModalResult = 1
    42     TabOrder = 2
     32    TabOrder = 1
    4333  end
    4434  object ComboBoxType: TComboBox
    … …  
    5141      'Terminal'
    5242      'Non-terminal'
     43      'Subitems'
    5344    )
    5445    OnChange = ComboBoxTypeChange
    5546    Style = csDropDownList
    56     TabOrder = 3
     47    TabOrder = 2
    5748  end
    5849  object Label2: TLabel
    … …  
    6455    ParentColor = False
    6556  end
    66   object LabelNonTerminal: TLabel
     57  object PageControl1: TPageControl
    6758    Left = 16
    68     Height = 20
    69     Top = 112
    70     Width = 92
    71     Caption = 'Non-terminal:'
    72     ParentColor = False
     59    Height = 266
     60    Top = 88
     61    Width = 632
     62    ActivePage = TabSheetSubItems
     63    Anchors = [akTop, akLeft, akRight, akBottom]
     64    ShowTabs = False
     65    TabIndex = 2
     66    TabOrder = 3
     67    object TabSheetTerminal: TTabSheet
     68      Caption = 'Terminal'
     69      ClientHeight = 168
     70      ClientWidth = 624
     71      object EditName: TEdit
     72        Left = 152
     73        Height = 28
     74        Top = 16
     75        Width = 400
     76        TabOrder = 0
     77      end
     78      object LabelTerminal: TLabel
     79        Left = 8
     80        Height = 20
     81        Top = 24
     82        Width = 61
     83        Caption = 'Terminal:'
     84        ParentColor = False
     85      end
     86    end
     87    object TabSheetNonTerminal: TTabSheet
     88      Caption = 'NonTerminal'
     89      ClientHeight = 168
     90      ClientWidth = 624
     91      object ComboBoxNonTerminal: TComboBox
     92        Left = 152
     93        Height = 28
     94        Top = 16
     95        Width = 404
     96        ItemHeight = 20
     97        Style = csDropDownList
     98        TabOrder = 0
     99      end
     100      object LabelNonTerminal: TLabel
     101        Left = 8
     102        Height = 20
     103        Top = 24
     104        Width = 92
     105        Caption = 'Non-terminal:'
     106        ParentColor = False
     107      end
     108    end
     109    object TabSheetSubItems: TTabSheet
     110      Caption = 'SubItems'
     111    end
    73112  end
    74   object ComboBoxNonTerminal: TComboBox
    75     Left = 160
    76     Height = 28
    77     Top = 104
    78     Width = 404
    79     ItemHeight = 20
    80     Style = csDropDownList
     113  object CheckBoxOptional: TCheckBox
     114    Left = 16
     115    Height = 24
     116    Top = 56
     117    Width = 82
     118    Caption = 'Optional'
    81119    TabOrder = 4
    82120  end
     121  object CheckBoxRepetitive: TCheckBox
     122    Left = 336
     123    Height = 24
     124    Top = 56
     125    Width = 91
     126    Caption = 'Repetitive'
     127    TabOrder = 5
     128  end
    83129end
Note: See TracChangeset for help on using the changeset viewer.