Ignore:
Timestamp:
Aug 9, 2017, 8:47:42 AM (7 years ago)
Author:
chronos
Message:
  • Added: Icons for various actions.
  • Added: Show rule items in rules list.
Location:
branches/generator/Forms
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/generator/Forms/UFormMain.lfm

    r110 r112  
    1919  end
    2020  object MainMenu1: TMainMenu
    21     left = 240
    22     top = 152
     21    Images = Core.ImageList1
     22    left = 248
     23    top = 216
    2324    object MenuItem2: TMenuItem
    2425      Caption = 'File'
    … …  
    4445  end
    4546  object ActionList1: TActionList
     47    Images = Core.ImageList1
    4648    left = 428
    4749    top = 229
    … …  
    5254    object AExit: TAction
    5355      Caption = 'Exit'
     56      ImageIndex = 2
    5457      OnExecute = AExitExecute
    5558    end
    5659    object AOpen: TAction
    5760      Caption = 'Open...'
     61      ImageIndex = 4
    5862      OnExecute = AOpenExecute
    5963    end
    6064    object ASaveAs: TAction
    6165      Caption = 'Save as...'
     66      ImageIndex = 5
    6267      OnExecute = ASaveAsExecute
    6368    end

  • branches/generator/Forms/UFormRule.lfm

    r111 r112  
    11object FormRule: TFormRule
    22  Left = 679
    3   Height = 398
     3  Height = 505
    44  Top = 620
    55  Width = 660
    66  ActiveControl = ButtonOk
    77  Caption = 'Rule'
    8   ClientHeight = 398
     8  ClientHeight = 505
    99  ClientWidth = 660
    1010  OnShow = FormShow
    … …  
    1313    Left = 376
    1414    Height = 25
    15     Top = 360
     15    Top = 467
    1616    Width = 75
    1717    Anchors = [akLeft, akBottom]
    … …  
    2323    Left = 168
    2424    Height = 25
    25     Top = 360
     25    Top = 467
    2626    Width = 75
    2727    Anchors = [akLeft, akBottom]
    … …  
    4747  object ListView: TListView
    4848    Left = 16
    49     Height = 232
     49    Height = 307
    5050    Top = 112
    5151    Width = 624
    52     Anchors = [akTop, akLeft, akBottom]
     52    Anchors = [akTop, akLeft, akRight, akBottom]
    5353    Columns = <   
    5454      item
    … …  
    7878  object ComboBox1: TComboBox
    7979    Left = 186
    80     Height = 36
     80    Height = 34
    8181    Top = 61
    8282    Width = 390
    … …  
    8989    TabOrder = 4
    9090  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
     105    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  end
    91117  object ActionList1: TActionList
     118    Images = Core.ImageList1
    92119    left = 347
    93120    top = 187
    94121    object AAdd: TAction
    95122      Caption = 'Add'
     123      ImageIndex = 0
    96124      OnExecute = AAddExecute
    97125    end
    98126    object AModify: TAction
    99127      Caption = 'Modify'
     128      ImageIndex = 3
    100129      OnExecute = AModifyExecute
    101130    end
    102131    object ARemove: TAction
    103132      Caption = 'Remove'
     133      ImageIndex = 1
    104134      OnExecute = ARemoveExecute
    105135    end
    106136  end
    107137  object PopupMenu1: TPopupMenu
     138    Images = Core.ImageList1
    108139    left = 118
    109140    top = 185

  • branches/generator/Forms/UFormRule.pas

    r111 r112  
    2929    MenuItem3: TMenuItem;
    3030    PopupMenu1: TPopupMenu;
     31    ToolBar1: TToolBar;
     32    ToolButton1: TToolButton;
     33    ToolButton2: TToolButton;
     34    ToolButton3: TToolButton;
    3135    procedure AAddExecute(Sender: TObject);
    3236    procedure AModifyExecute(Sender: TObject);

  • branches/generator/Forms/UFormRules.lfm

    r111 r112  
    2727      Height = 24
    2828      Top = 5
    29       Width = 150
     29      Width = 70
    3030      Align = alNone
    3131      AutoSize = True
    … …  
    3333      BorderSpacing.Top = 3
    3434      Caption = 'ToolBar1'
     35      Images = Core.ImageList1
    3536      TabOrder = 0
    3637      object ToolButton1: TToolButton
    … …  
    6162      item
    6263        Caption = 'Name'
    63         Width = 829
     64        Width = 200
     65      end   
     66      item
     67        Caption = 'Items'
     68        Width = 629
    6469      end>
    6570    MultiSelect = True
    … …  
    7681  end
    7782  object ActionList1: TActionList
     83    Images = Core.ImageList1
    7884    left = 248
    7985    top = 212
    8086    object AAdd: TAction
    8187      Caption = 'Add'
     88      ImageIndex = 0
    8289      OnExecute = AAddExecute
    8390    end
    8491    object AModify: TAction
    8592      Caption = 'Modify'
     93      ImageIndex = 3
    8694      OnExecute = AModifyExecute
    8795    end
    8896    object ARemove: TAction
    8997      Caption = 'Remove'
     98      ImageIndex = 1
    9099      OnExecute = ARemoveExecute
    91100      ShortCut = 46
    … …  
    93102  end
    94103  object PopupMenu1: TPopupMenu
     104    Images = Core.ImageList1
    95105    left = 427
    96106    top = 212

  • branches/generator/Forms/UFormRules.pas

    r111 r112  
    105105    Item.Caption := Rules[Item.Index].Name;
    106106    Item.Data := Rules[Item.Index];
     107    Item.SubItems.Add(Rules[Item.Index].Items.GetBNF(Rules[Item.Index].RuleType));
    107108  end;
    108109end;
Note: See TracChangeset for help on using the changeset viewer.