Ignore:
Timestamp:
Nov 27, 2017, 10:04:52 AM (7 years ago)
Author:
chronos
Message:
  • Modified: Rule items interface moved to separate unit UFormRuleItems.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/generator/Forms/UFormRule.lfm

    r114 r116  
    11object FormRule: TFormRule
    22  Left = 507
    3   Height = 505
     3  Height = 514
    44  Top = 293
    5   Width = 660
     5  Width = 663
    66  ActiveControl = ButtonOk
    77  Caption = 'Rule'
    8   ClientHeight = 505
    9   ClientWidth = 660
     8  ClientHeight = 514
     9  ClientWidth = 663
     10  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  LCLVersion = '1.6.4.0'
     
    1314    Left = 376
    1415    Height = 25
    15     Top = 467
     16    Top = 476
    1617    Width = 75
    1718    Anchors = [akLeft, akBottom]
     
    2324    Left = 168
    2425    Height = 25
    25     Top = 467
     26    Top = 476
    2627    Width = 75
    2728    Anchors = [akLeft, akBottom]
     
    3132  end
    3233  object Label1: TLabel
    33     Left = 24
     34    Left = 16
    3435    Height = 20
    35     Top = 29
     36    Top = 16
    3637    Width = 43
    3738    Caption = 'Name:'
    3839    ParentColor = False
    3940  end
    40   object EditName: TEdit
    41     Left = 184
    42     Height = 28
    43     Top = 19
    44     Width = 392
     41  object PageControl1: TPageControl
     42    Left = 16
     43    Height = 421
     44    Top = 48
     45    Width = 640
     46    ActivePage = TabSheet1
     47    Anchors = [akTop, akLeft, akRight, akBottom]
     48    TabIndex = 0
    4549    TabOrder = 2
    46   end
    47   object ListView: TListView
    48     Left = 16
    49     Height = 307
    50     Top = 112
    51     Width = 624
    52     Anchors = [akTop, akLeft, akRight, akBottom]
    53     Columns = <   
    54       item
    55         Caption = 'Name'
    56         Width = 604
    57       end>
    58     MultiSelect = True
    59     OwnerData = True
    60     PopupMenu = PopupMenu1
    61     ReadOnly = True
    62     RowSelect = True
    63     TabOrder = 3
    64     ViewStyle = vsReport
    65     OnData = ListViewData
    66     OnDblClick = ListViewDblClick
    67     OnKeyPress = ListViewKeyPress
    68     OnSelectItem = ListViewSelectItem
    69   end
    70   object Label2: TLabel
    71     Left = 24
    72     Height = 20
    73     Top = 64
    74     Width = 63
    75     Caption = 'Operator:'
    76     ParentColor = False
    77   end
    78   object ComboBox1: TComboBox
    79     Left = 186
    80     Height = 28
    81     Top = 61
    82     Width = 390
    83     ItemHeight = 20
    84     Items.Strings = (
    85       'And'
    86       'Or'
    87     )
    88     Style = csDropDownList
    89     TabOrder = 4
    90   end
    91   object ToolBar1: TToolBar
    92     Left = 16
    93     Height = 26
    94     Top = 424
    95     Width = 624
    96     Align = alCustom
    97     Anchors = [akLeft, akRight, akBottom]
    98     Caption = 'ToolBar1'
    99     Images = Core.ImageList1
    100     TabOrder = 5
    101     object ToolButton1: TToolButton
    102       Left = 1
    103       Top = 2
    104       Action = AAdd
     50    object TabSheet1: TTabSheet
     51      Caption = 'Items'
    10552    end
    106     object ToolButton2: TToolButton
    107       Left = 24
    108       Top = 2
    109       Action = AModify
    110     end
    111     object ToolButton3: TToolButton
    112       Left = 47
    113       Top = 2
    114       Action = ARemove
    115     end
    116     object ToolButton4: TToolButton
    117       Left = 70
    118       Top = 2
    119       Action = AMoveUp
    120     end
    121     object ToolButton5: TToolButton
    122       Left = 93
    123       Top = 2
    124       Action = AMoveDown
     53    object TabSheet2: TTabSheet
     54      Caption = 'Links'
    12555    end
    12656  end
    127   object ActionList1: TActionList
    128     Images = Core.ImageList1
    129     left = 347
    130     top = 187
    131     object AAdd: TAction
    132       Caption = 'Add'
    133       ImageIndex = 0
    134       OnExecute = AAddExecute
    135     end
    136     object AModify: TAction
    137       Caption = 'Modify'
    138       ImageIndex = 3
    139       OnExecute = AModifyExecute
    140     end
    141     object ARemove: TAction
    142       Caption = 'Remove'
    143       ImageIndex = 1
    144       OnExecute = ARemoveExecute
    145     end
    146     object AMoveUp: TAction
    147       Caption = 'Move up'
    148       ImageIndex = 7
    149       OnExecute = AMoveUpExecute
    150     end
    151     object AMoveDown: TAction
    152       Caption = 'Move down'
    153       ImageIndex = 6
    154       OnExecute = AMoveDownExecute
    155     end
    156   end
    157   object PopupMenu1: TPopupMenu
    158     Images = Core.ImageList1
    159     left = 118
    160     top = 187
    161     object MenuItem1: TMenuItem
    162       Action = AAdd
    163       Bitmap.Data = {
    164         36040000424D3604000000000000360000002800000010000000100000000100
    165         2000000000000004000064000000640000000000000000000000000000000000
    166         0000000000000000000000000000000000000000000000000000000000000000
    167         0000000000000000000000000000000000000000000000000000000000000000
    168         000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4
    169         D4FF000000000000000000000000000000000000000000000000000000000000
    170         0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2
    171         B2FF000000000000000000000000000000000000000000000000000000000000
    172         0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2
    173         B2FF000000000000000000000000000000000000000000000000000000000000
    174         0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2
    175         B2FF000000000000000000000000000000000000000000000000000000000000
    176         0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2
    177         B2FF00000000000000000000000000000000000000000000000000000000D4D4
    178         D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2
    179         B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E
    180         00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E
    181         00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE
    182         8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC
    183         00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF
    184         ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0
    185         00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064
    186         00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056
    187         00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000
    188         0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2
    189         B2FF000000000000000000000000000000000000000000000000000000000000
    190         0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2
    191         B2FF000000000000000000000000000000000000000000000000000000000000
    192         0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2
    193         B2FF000000000000000000000000000000000000000000000000000000000000
    194         0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4
    195         D4FF000000000000000000000000000000000000000000000000000000000000
    196         000000000000000000000000000070A970FF006400FF006200FF70A670FF0000
    197         0000000000000000000000000000000000000000000000000000
    198       }
    199     end
    200     object MenuItem2: TMenuItem
    201       Action = AModify
    202       Bitmap.Data = {
    203         36040000424D3604000000000000360000002800000010000000100000000100
    204         2000000000000004000064000000640000000000000000000000986B37FF976A
    205         36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261
    206         2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7
    207         F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3
    208         F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8
    209         F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3
    210         F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9
    211         F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171
    212         70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9
    213         F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5
    214         F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA
    215         F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5
    216         F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB
    217         FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6
    218         F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB
    219         FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271
    220         71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC
    221         FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8
    222         F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD
    223         FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8
    224         F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD
    225         FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9
    226         F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE
    227         FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272
    228         72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF
    229         FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA
    230         F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF
    231         FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB
    232         FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2
    233         7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D
    234         79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B
    235         48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73
    236         40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF
    237       }
    238     end
    239     object MenuItem3: TMenuItem
    240       Action = ARemove
    241       Bitmap.Data = {
    242         36040000424D3604000000000000360000002800000010000000100000000100
    243         2000000000000004000064000000640000000000000000000000000000000000
    244         0000000000000000000000000000000000000000000000000000000000000000
    245         0000000000000000000000000000000000000000000000000000000000000000
    246         0000000000000000000000000000000000000000000000000000000000000000
    247         0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000
    248         000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
    249         0000000000000000000000000000000000000000000000000000000000000000
    250         0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
    251         00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000
    252         0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000
    253         000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000
    254         000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000
    255         0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000
    256         00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000
    257         00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000
    258         0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232
    259         DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000
    260         000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F
    261         D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000
    262         0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C
    263         D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000
    264         00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000
    265         00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000
    266         0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000
    267         0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000
    268         00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000
    269         000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000
    270         00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000
    271         00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000
    272         0000000000000000000000000000000000000000000000000000000000000000
    273         0000000000000000000000000000000000000000000000000000000000000000
    274         0000000000000000000000000000000000000000000000000000000000000000
    275         0000000000000000000000000000000000000000000000000000
    276       }
    277     end
    278     object MenuItem4: TMenuItem
    279       Action = AMoveUp
    280       Bitmap.Data = {
    281         36040000424D3604000000000000360000002800000010000000100000000100
    282         2000000000000004000064000000640000000000000000000000000000000000
    283         0000000000000000000000000000000000000000000000000000000000000000
    284         0000000000000000000000000000000000000000000000000000000000000000
    285         0000000000000000000000000000000000FF000000FF000000FF000000FF0000
    286         00FF000000FF000000FF00000000000000000000000000000000000000000000
    287         0000000000000000000000000000000000FFFF442CFFFF3C28FFFF3522FFFF2E
    288         1EFFFF2619FF000000FF00000000000000000000000000000000000000000000
    289         0000000000000000000000000000000000FFFF5337FFFF4C32FFFF442CFFFF3C
    290         28FFFF3623FF000000FF00000000000000000000000000000000000000000000
    291         0000000000000000000000000000000000FFFF6341FFFF5C3BFFFF5437FFFF4C
    292         32FFFF442CFF000000FF00000000000000000000000000000000000000000000
    293         0000000000000000000000000000000000FFFF724AFFFF6B46FFFF6441FFFF5D
    294         3CFFFF5437FF000000FF00000000000000000000000000000000000000000000
    295         0000000000000000000000000000000000FFFF8255FFFF7A4FFFFF744BFFFF6C
    296         46FFFF6441FF000000FF00000000000000000000000000000000000000000000
    297         0000000000000000000000000000000000FFFF915FFFFF8A5AFFFF8255FFFF7C
    298         51FFFF744CFF000000FF00000000000000000000000000000000000000000000
    299         00FF000000FF000000FF000000FF000000FFFFA169FFFF9A65FFFF9360FFFF8A
    300         5AFFFF8456FF000000FF000000FF000000FF000000FF000000FF000000000000
    301         0000000000FFFFC681FFFFBF7DFFFFB878FFFFB073FFFFAA6EFFFFA269FFFF9A
    302         65FFFF9360FFFF8C5BFFFF8456FFFF7C51FF000000FF00000000000000000000
    303         000000000000000000FFFFCF87FFFFC882FFFFC17DFFFFB878FFFFB174FFFFAA
    304         6EFFFFA269FFFF9A65FFFF9461FF000000FF0000000000000000000000000000
    305         00000000000000000000000000FFFFD78CFFFFD088FFFFC882FFFFC17DFFFFBA
    306         79FFFFB374FFFFAA6EFF000000FF000000000000000000000000000000000000
    307         0000000000000000000000000000000000FFFFE092FFFFD88CFFFFD088FFFFC8
    308         82FFFFC27EFF000000FF00000000000000000000000000000000000000000000
    309         000000000000000000000000000000000000000000FFFFE797FFFFE092FFFFD8
    310         8CFF000000FF0000000000000000000000000000000000000000000000000000
    311         00000000000000000000000000000000000000000000000000FFFFF09CFF0000
    312         00FF000000000000000000000000000000000000000000000000000000000000
    313         0000000000000000000000000000000000000000000000000000000000FF0000
    314         0000000000000000000000000000000000000000000000000000
    315       }
    316     end
    317     object MenuItem5: TMenuItem
    318       Action = AMoveDown
    319       Bitmap.Data = {
    320         36040000424D3604000000000000360000002800000010000000100000000100
    321         2000000000000004000064000000640000000000000000000000000000000000
    322         00000000000000000000000000000000000000000000000000FF000000000000
    323         0000000000000000000000000000000000000000000000000000000000000000
    324         000000000000000000000000000000000000000000FFFFF09CFF000000FF0000
    325         0000000000000000000000000000000000000000000000000000000000000000
    326         0000000000000000000000000000000000FFFFD88CFFFFE092FFFFE797FF0000
    327         00FF000000000000000000000000000000000000000000000000000000000000
    328         00000000000000000000000000FFFFC27EFFFFC882FFFFD088FFFFD88CFFFFE0
    329         92FF000000FF0000000000000000000000000000000000000000000000000000
    330         000000000000000000FFFFAA6EFFFFB374FFFFBA79FFFFC17DFFFFC882FFFFD0
    331         88FFFFD78CFF000000FF00000000000000000000000000000000000000000000
    332         0000000000FFFF9461FFFF9A65FFFFA269FFFFAA6EFFFFB174FFFFB878FFFFC1
    333         7DFFFFC882FFFFCF87FF000000FF000000000000000000000000000000000000
    334         00FFFF7C51FFFF8456FFFF8C5BFFFF9360FFFF9A65FFFFA269FFFFAA6EFFFFB0
    335         73FFFFB878FFFFBF7DFFFFC681FF000000FF0000000000000000000000FF0000
    336         00FF000000FF000000FF000000FFFF8456FFFF8A5AFFFF9360FFFF9A65FFFFA1
    337         69FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
    338         00000000000000000000000000FFFF744CFFFF7C51FFFF8255FFFF8A5AFFFF91
    339         5FFF000000FF0000000000000000000000000000000000000000000000000000
    340         00000000000000000000000000FFFF6441FFFF6C46FFFF744BFFFF7A4FFFFF82
    341         55FF000000FF0000000000000000000000000000000000000000000000000000
    342         00000000000000000000000000FFFF5437FFFF5D3CFFFF6441FFFF6B46FFFF72
    343         4AFF000000FF0000000000000000000000000000000000000000000000000000
    344         00000000000000000000000000FFFF442CFFFF4C32FFFF5437FFFF5C3BFFFF63
    345         41FF000000FF0000000000000000000000000000000000000000000000000000
    346         00000000000000000000000000FFFF3623FFFF3C28FFFF442CFFFF4C32FFFF53
    347         37FF000000FF0000000000000000000000000000000000000000000000000000
    348         00000000000000000000000000FFFF2619FFFF2E1EFFFF3522FFFF3C28FFFF44
    349         2CFF000000FF0000000000000000000000000000000000000000000000000000
    350         00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
    351         00FF000000FF0000000000000000000000000000000000000000000000000000
    352         0000000000000000000000000000000000000000000000000000000000000000
    353         0000000000000000000000000000000000000000000000000000
    354       }
    355     end
     57  object EditName: TEdit
     58    Left = 135
     59    Height = 28
     60    Top = 11
     61    Width = 433
     62    TabOrder = 3
    35663  end
    35764end
Note: See TracChangeset for help on using the changeset viewer.