Changeset 13 for trunk/UFormAcronym.lfm


Ignore:
Timestamp:
Apr 28, 2016, 10:09:02 PM (9 years ago)
Author:
chronos
Message:
  • Modified: Acronym meaning context items renamed to categories.
  • Added: Ability to select categories for meanings.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UFormAcronym.lfm

    r12 r13  
    11object FormAcronym: TFormAcronym
    2   Left = 555
    3   Height = 296
    4   Top = 411
    5   Width = 420
     2  Left = 845
     3  Height = 448
     4  Top = 528
     5  Width = 509
    66  Caption = 'Acronym'
    7   ClientHeight = 296
    8   ClientWidth = 420
     7  ClientHeight = 448
     8  ClientWidth = 509
    99  OnClose = FormClose
    1010  OnKeyUp = FormKeyUp
    1111  OnShow = FormShow
    12   LCLVersion = '1.6.0.4'
     12  LCLVersion = '1.7'
    1313  object Label1: TLabel
    1414    Left = 8
    15     Height = 20
     15    Height = 24
    1616    Top = 16
    17     Width = 43
     17    Width = 56
    1818    Caption = 'Name:'
    1919    ParentColor = False
    … …  
    2121  object EditAcronym: TEdit
    2222    Left = 136
    23     Height = 28
     23    Height = 34
    2424    Top = 15
    25     Width = 272
     25    Width = 361
    2626    Anchors = [akTop, akLeft, akRight]
    2727    OnKeyUp = FormKeyUp
    … …  
    3030  object Label2: TLabel
    3131    Left = 8
    32     Height = 20
     32    Height = 24
    3333    Top = 49
    34     Width = 61
     34    Width = 79
    3535    Caption = 'Meaning:'
    3636    ParentColor = False
    … …  
    3838  object EditMeaning: TEdit
    3939    Left = 136
    40     Height = 28
     40    Height = 34
    4141    Top = 49
    42     Width = 272
     42    Width = 361
    4343    Anchors = [akTop, akLeft, akRight]
    4444    OnKeyUp = FormKeyUp
    … …  
    4646  end
    4747  object ButtonOk: TButton
    48     Left = 320
     48    Left = 409
    4949    Height = 25
    50     Top = 256
     50    Top = 408
    5151    Width = 75
    5252    Anchors = [akRight, akBottom]
    … …  
    5757  end
    5858  object ButtonCancel: TButton
    59     Left = 224
     59    Left = 313
    6060    Height = 25
    61     Top = 256
     61    Top = 408
    6262    Width = 75
    6363    Anchors = [akRight, akBottom]
    … …  
    6969  object Label3: TLabel
    7070    Left = 8
    71     Height = 20
     71    Height = 24
    7272    Top = 88
    73     Width = 79
     73    Width = 103
    7474    Caption = 'Description:'
    7575    ParentColor = False
    … …  
    7979    Height = 114
    8080    Top = 88
    81     Width = 272
     81    Width = 361
    8282    Anchors = [akTop, akLeft, akRight]
    8383    ScrollBars = ssAutoBoth
    8484    TabOrder = 4
    8585  end
     86  object Label4: TLabel
     87    Left = 12
     88    Height = 24
     89    Top = 208
     90    Width = 96
     91    Caption = 'Categories:'
     92    ParentColor = False
     93  end
     94  object ListBox1: TListBox
     95    Left = 136
     96    Height = 141
     97    Top = 208
     98    Width = 360
     99    Anchors = [akTop, akLeft, akRight]
     100    ItemHeight = 0
     101    MultiSelect = True
     102    OnSelectionChange = ListBox1SelectionChange
     103    PopupMenu = PopupMenuCategory
     104    ScrollWidth = 358
     105    TabOrder = 5
     106    TopIndex = -1
     107  end
     108  object Button1: TButton
     109    Left = 136
     110    Height = 25
     111    Top = 360
     112    Width = 75
     113    Action = ACategoryAdd
     114    TabOrder = 6
     115  end
     116  object Button2: TButton
     117    Left = 232
     118    Height = 25
     119    Top = 360
     120    Width = 75
     121    Action = ACategoryRemove
     122    TabOrder = 7
     123  end
     124  object ActionList1: TActionList
     125    left = 361
     126    top = 240
     127    object ACategoryRemove: TAction
     128      Caption = 'Remove'
     129      OnExecute = ACategoryRemoveExecute
     130    end
     131    object ACategoryAdd: TAction
     132      Caption = 'Add'
     133      OnExecute = ACategoryAddExecute
     134    end
     135  end
     136  object PopupMenuCategory: TPopupMenu
     137    left = 192
     138    top = 244
     139  end
    86140end
Note: See TracChangeset for help on using the changeset viewer.