Ignore:
Timestamp:
Aug 9, 2016, 10:53:36 PM (8 years ago)
Author:
chronos
Message:
  • Added: Show from which imports acronym meanings comes from.

This would easy correcting wrong acronyms directly in source.

  • Modified: References to categories stored more efficiently in XML project file.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAcronym.lfm

    r85 r89  
    11object FormAcronym: TFormAcronym
    22  Left = 845
    3   Height = 448
     3  Height = 595
    44  Top = 528
    5   Width = 509
     5  Width = 686
    66  Caption = 'Acronym'
    7   ClientHeight = 448
    8   ClientWidth = 509
     7  ClientHeight = 595
     8  ClientWidth = 686
    99  OnClose = FormClose
     10  OnCreate = FormCreate
    1011  OnShow = FormShow
    1112  Position = poScreenCenter
    … …  
    1314  object Label1: TLabel
    1415    Left = 8
    15     Height = 20
     16    Height = 24
    1617    Top = 16
    17     Width = 43
     18    Width = 56
    1819    Caption = 'Name:'
    1920    ParentColor = False
    2021  end
    2122  object EditAcronym: TEdit
    22     Left = 136
    23     Height = 28
     23    Left = 153
     24    Height = 34
    2425    Top = 15
    25     Width = 361
     26    Width = 521
    2627    Anchors = [akTop, akLeft, akRight]
    2728    OnKeyPress = EditMeaningKeyPress
    … …  
    3031  object Label2: TLabel
    3132    Left = 8
    32     Height = 20
     33    Height = 24
    3334    Top = 49
    34     Width = 61
     35    Width = 79
    3536    Caption = 'Meaning:'
    3637    ParentColor = False
    3738  end
    3839  object EditMeaning: TEdit
    39     Left = 136
    40     Height = 28
     40    Left = 153
     41    Height = 34
    4142    Top = 49
    42     Width = 361
     43    Width = 521
    4344    Anchors = [akTop, akLeft, akRight]
    4445    OnKeyPress = EditMeaningKeyPress
    … …  
    4647  end
    4748  object ButtonOk: TButton
    48     Left = 409
    49     Height = 25
    50     Top = 408
     49    Left = 586
     50    Height = 25
     51    Top = 555
    5152    Width = 75
    5253    Anchors = [akRight, akBottom]
    … …  
    5758  end
    5859  object ButtonCancel: TButton
    59     Left = 313
    60     Height = 25
    61     Top = 408
     60    Left = 490
     61    Height = 25
     62    Top = 555
    6263    Width = 75
    6364    Anchors = [akRight, akBottom]
    … …  
    6970  object Label3: TLabel
    7071    Left = 8
    71     Height = 20
     72    Height = 24
    7273    Top = 88
    73     Width = 79
     74    Width = 103
    7475    Caption = 'Description:'
    7576    ParentColor = False
    7677  end
    7778  object MemoDescription: TMemo
    78     Left = 136
     79    Left = 153
    7980    Height = 114
    8081    Top = 88
    81     Width = 361
     82    Width = 521
    8283    Anchors = [akTop, akLeft, akRight]
    8384    OnKeyPress = EditMeaningKeyPress
    … …  
    8788  object Label4: TLabel
    8889    Left = 12
    89     Height = 20
     90    Height = 24
    9091    Top = 208
    91     Width = 74
     92    Width = 96
    9293    Caption = 'Categories:'
    9394    ParentColor = False
    9495  end
    95   object ListBox1: TListBox
    96     Left = 136
     96  object ListBoxCategories: TListBox
     97    Left = 153
    9798    Height = 141
    9899    Top = 208
    99     Width = 360
     100    Width = 520
    100101    Anchors = [akTop, akLeft, akRight]
    101102    ItemHeight = 0
    102103    MultiSelect = True
    103104    OnKeyPress = EditMeaningKeyPress
    104     OnSelectionChange = ListBox1SelectionChange
     105    OnSelectionChange = ListBoxCategoriesSelectionChange
    105106    PopupMenu = PopupMenuCategory
    106     ScrollWidth = 358
     107    ScrollWidth = 518
    107108    TabOrder = 3
     109    TopIndex = -1
    108110  end
    109111  object Button1: TButton
    110     Left = 136
     112    Left = 153
    111113    Height = 25
    112114    Top = 360
    113     Width = 75
     115    Width = 87
    114116    Action = ACategoryAdd
    115117    OnKeyPress = EditMeaningKeyPress
    … …  
    117119  end
    118120  object Button2: TButton
    119     Left = 232
     121    Left = 256
    120122    Height = 25
    121123    Top = 360
    122     Width = 75
     124    Width = 104
    123125    Action = ACategoryRemove
    124126    OnKeyPress = EditMeaningKeyPress
    125127    TabOrder = 5
     128  end
     129  object Label5: TLabel
     130    Left = 8
     131    Height = 24
     132    Top = 392
     133    Width = 131
     134    Caption = 'Imported from:'
     135    ParentColor = False
     136  end
     137  object ListBoxImportSources: TListBox
     138    Left = 153
     139    Height = 112
     140    Top = 392
     141    Width = 521
     142    Anchors = [akTop, akLeft, akRight]
     143    ItemHeight = 0
     144    MultiSelect = True
     145    OnKeyPress = EditMeaningKeyPress
     146    OnSelectionChange = ListBoxCategoriesSelectionChange
     147    ScrollWidth = 519
     148    TabOrder = 8
     149    TopIndex = -1
    126150  end
    127151  object ActionList1: TActionList
Note: See TracChangeset for help on using the changeset viewer.