Ignore:
Timestamp:
Nov 27, 2017, 9:16:09 AM (7 years ago)
Author:
chronos
Message:
  • Added: Rules icon.
Location:
branches/generator/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/generator/Forms/UFormMain.lfm

    r114 r115  
    2929        Width = 179
    3030      end>
     31    Images = Core.ImageList1
    3132    object ToolBar1: TToolBar
    3233      AnchorSideLeft.Control = CoolBar1
    … …  
    4344      EdgeInner = esNone
    4445      EdgeOuter = esNone
     46      Images = Core.ImageList1
    4547      ParentShowHint = False
    4648      ShowHint = True
    … …  
    8688    object ARules: TAction
    8789      Caption = 'Rules'
     90      Hint = 'Rules'
     91      ImageIndex = 8
    8892      OnExecute = ARulesExecute
    8993    end
    9094    object AExit: TAction
    9195      Caption = 'Exit'
     96      Hint = 'Exit'
    9297      ImageIndex = 2
    9398      OnExecute = AExitExecute
    … …  
    95100    object AOpen: TAction
    96101      Caption = 'Open...'
     102      Hint = 'Open...'
    97103      ImageIndex = 4
    98104      OnExecute = AOpenExecute
    … …  
    100106    object ASaveAs: TAction
    101107      Caption = 'Save as...'
     108      Hint = 'Save as...'
    102109      ImageIndex = 5
    103110      OnExecute = ASaveAsExecute

  • branches/generator/Forms/UFormRules.lfm

    r114 r115  
    2626      AnchorSideTop.Control = CoolBar1
    2727      Left = 24
    28       Height = 24
     28      Height = 22
    2929      Top = 5
    3030      Width = 70
    … …  
    4343      object ToolButton1: TToolButton
    4444        Left = 1
    45         Top = 2
     45        Top = 0
    4646        Action = AAdd
    4747      end
    4848      object ToolButton2: TToolButton
    4949        Left = 24
    50         Top = 2
     50        Top = 0
    5151        Action = AModify
    5252      end
    5353      object ToolButton3: TToolButton
    5454        Left = 47
    55         Top = 2
     55        Top = 0
    5656        Action = ARemove
    5757      end
    … …  
    9292    object AAdd: TAction
    9393      Caption = 'Add'
     94      Hint = 'Add'
    9495      ImageIndex = 0
    9596      OnExecute = AAddExecute
    … …  
    9798    object AModify: TAction
    9899      Caption = 'Modify'
     100      Hint = 'Modify'
    99101      ImageIndex = 3
    100102      OnExecute = AModifyExecute
    … …  
    102104    object ARemove: TAction
    103105      Caption = 'Remove'
     106      Hint = 'Remove'
    104107      ImageIndex = 1
    105108      OnExecute = ARemoveExecute
Note: See TracChangeset for help on using the changeset viewer.