Ignore:
Timestamp:
Jan 17, 2025, 9:05:54 PM (4 days ago)
Author:
chronos
Message:
  • Modified: Updated Common package.
  • Modified: Remove U prefix from unit names.
  • Modified: Use Gneeric.Collections instead of fgl.
  • Modified: Do not use global form variables.
File:
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/Forms/FormAcronym.lfm

    r218 r219  
    11object FormAcronym: TFormAcronym
    22  Left = 845
    3   Height = 744
    4   Top = 528
    5   Width = 858
     3  Height = 893
     4  Top = 480
     5  Width = 1030
    66  Caption = 'Acronym'
    7   ClientHeight = 744
    8   ClientWidth = 858
    9   DesignTimePPI = 120
    10   OnClose = FormClose
    11   OnCreate = FormCreate
     7  ClientHeight = 893
     8  ClientWidth = 1030
     9  DesignTimePPI = 144
    1210  OnShow = FormShow
    1311  Position = poScreenCenter
    14   LCLVersion = '2.0.2.0'
     12  LCLVersion = '3.6.0.0'
    1513  object Label1: TLabel
    16     Left = 10
    17     Height = 20
    18     Top = 20
    19     Width = 43
     14    Left = 12
     15    Height = 26
     16    Top = 24
     17    Width = 56
    2018    Caption = 'Name:'
    2119    ParentColor = False
     
    2321  end
    2422  object EditAcronym: TEdit
    25     Left = 191
    26     Height = 28
    27     Top = 19
    28     Width = 652
    29     Anchors = [akTop, akLeft, akRight]
    30     OnKeyPress = EditMeaningKeyPress
     23    Left = 229
     24    Height = 43
     25    Top = 23
     26    Width = 783
     27    Anchors = [akTop, akLeft, akRight]
    3128    ParentFont = False
    3229    TabOrder = 0
     30    OnKeyPress = EditMeaningKeyPress
    3331  end
    3432  object Label2: TLabel
    35     Left = 10
    36     Height = 20
    37     Top = 61
    38     Width = 61
     33    Left = 12
     34    Height = 26
     35    Top = 73
     36    Width = 79
    3937    Caption = 'Meaning:'
    4038    ParentColor = False
     
    4240  end
    4341  object EditMeaning: TEdit
    44     Left = 191
    45     Height = 28
    46     Top = 61
    47     Width = 652
    48     Anchors = [akTop, akLeft, akRight]
    49     OnKeyPress = EditMeaningKeyPress
     42    Left = 229
     43    Height = 43
     44    Top = 73
     45    Width = 783
     46    Anchors = [akTop, akLeft, akRight]
    5047    ParentFont = False
    5148    TabOrder = 1
     49    OnKeyPress = EditMeaningKeyPress
    5250  end
    5351  object ButtonOk: TButton
    54     Left = 733
    55     Height = 31
    56     Top = 694
    57     Width = 94
     52    Left = 880
     53    Height = 37
     54    Top = 833
     55    Width = 113
    5856    Anchors = [akRight, akBottom]
    5957    Caption = 'Ok'
    6058    ModalResult = 1
    61     OnKeyPress = EditMeaningKeyPress
    6259    ParentFont = False
    6360    TabOrder = 7
     61    OnKeyPress = EditMeaningKeyPress
    6462  end
    6563  object ButtonCancel: TButton
    66     Left = 613
    67     Height = 31
    68     Top = 694
    69     Width = 94
     64    Left = 736
     65    Height = 37
     66    Top = 833
     67    Width = 113
    7068    Anchors = [akRight, akBottom]
    7169    Caption = 'Cancel'
    7270    ModalResult = 2
    73     OnKeyPress = EditMeaningKeyPress
    7471    ParentFont = False
    7572    TabOrder = 6
     73    OnKeyPress = EditMeaningKeyPress
    7674  end
    7775  object Label3: TLabel
    78     Left = 10
    79     Height = 20
    80     Top = 110
    81     Width = 79
     76    Left = 12
     77    Height = 26
     78    Top = 132
     79    Width = 102
    8280    Caption = 'Description:'
    8381    ParentColor = False
     
    8583  end
    8684  object MemoDescription: TMemo
    87     Left = 191
    88     Height = 142
    89     Top = 110
    90     Width = 652
    91     Anchors = [akTop, akLeft, akRight]
    92     OnKeyPress = EditMeaningKeyPress
     85    Left = 229
     86    Height = 170
     87    Top = 132
     88    Width = 783
     89    Anchors = [akTop, akLeft, akRight]
    9390    ParentFont = False
    9491    ScrollBars = ssAutoBoth
    9592    TabOrder = 2
     93    OnKeyPress = EditMeaningKeyPress
    9694  end
    9795  object Label4: TLabel
    98     Left = 15
    99     Height = 20
    100     Top = 260
    101     Width = 74
     96    Left = 18
     97    Height = 26
     98    Top = 312
     99    Width = 95
    102100    Caption = 'Categories:'
    103101    ParentColor = False
     
    105103  end
    106104  object ListBoxCategories: TListBox
    107     Left = 191
    108     Height = 176
    109     Top = 260
    110     Width = 651
     105    Left = 229
     106    Height = 211
     107    Top = 312
     108    Width = 782
    111109    Anchors = [akTop, akLeft, akRight]
    112110    ItemHeight = 0
    113111    MultiSelect = True
    114     OnKeyPress = EditMeaningKeyPress
    115     OnSelectionChange = ListBoxCategoriesSelectionChange
    116112    ParentFont = False
    117113    PopupMenu = PopupMenuCategory
    118114    ScrollWidth = 518
    119115    TabOrder = 3
     116    TopIndex = -1
     117    OnKeyPress = EditMeaningKeyPress
     118    OnSelectionChange = ListBoxCategoriesSelectionChange
    120119  end
    121120  object Button1: TButton
    122     Left = 191
    123     Height = 31
    124     Top = 450
    125     Width = 109
     121    Left = 229
     122    Height = 37
     123    Top = 540
     124    Width = 131
    126125    Action = ACategoryAdd
    127     OnKeyPress = EditMeaningKeyPress
    128126    ParentFont = False
    129127    TabOrder = 4
     128    OnKeyPress = EditMeaningKeyPress
    130129  end
    131130  object Button2: TButton
    132     Left = 320
    133     Height = 31
    134     Top = 450
     131    Left = 384
     132    Height = 37
     133    Top = 540
     134    Width = 156
     135    Action = ACategoryRemove
     136    ParentFont = False
     137    TabOrder = 5
     138    OnKeyPress = EditMeaningKeyPress
     139  end
     140  object Label5: TLabel
     141    Left = 12
     142    Height = 26
     143    Top = 588
    135144    Width = 130
    136     Action = ACategoryRemove
    137     OnKeyPress = EditMeaningKeyPress
    138     ParentFont = False
    139     TabOrder = 5
    140   end
    141   object Label5: TLabel
    142     Left = 10
    143     Height = 20
    144     Top = 490
    145     Width = 101
    146145    Caption = 'Imported from:'
    147146    ParentColor = False
     
    149148  end
    150149  object ListBoxImportSources: TListBox
    151     Left = 191
    152     Height = 140
    153     Top = 490
    154     Width = 652
     150    Left = 229
     151    Height = 168
     152    Top = 588
     153    Width = 783
    155154    Anchors = [akTop, akLeft, akRight]
    156155    ItemHeight = 0
    157156    MultiSelect = True
    158     OnKeyPress = EditMeaningKeyPress
    159     OnSelectionChange = ListBoxCategoriesSelectionChange
    160157    ParentFont = False
    161158    ScrollWidth = 519
    162159    TabOrder = 8
     160    TopIndex = -1
     161    OnKeyPress = EditMeaningKeyPress
     162    OnSelectionChange = ListBoxCategoriesSelectionChange
    163163  end
    164164  object ActionList1: TActionList
    165     left = 451
    166     top = 300
     165    Left = 541
     166    Top = 360
    167167    object ACategoryRemove: TAction
    168168      Caption = 'Remove'
     
    177177  end
    178178  object PopupMenuCategory: TPopupMenu
    179     left = 240
    180     top = 305
     179    Left = 288
     180    Top = 366
    181181    object MenuItem2: TMenuItem
    182182      Action = ACategoryAdd
Note: See TracChangeset for help on using the changeset viewer.