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/FormAcronyms.lfm

    r218 r219  
    11object FormAcronyms: TFormAcronyms
    2   Left = 426
    3   Height = 558
    4   Top = 251
    5   Width = 740
     2  Left = 755
     3  Height = 670
     4  Top = 284
     5  Width = 888
    66  Caption = 'Acronyms'
    7   ClientHeight = 558
    8   ClientWidth = 740
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     7  ClientHeight = 670
     8  ClientWidth = 888
     9  DesignTimePPI = 144
    1110  OnCreate = FormCreate
    1211  OnShow = FormShow
    1312  Position = poScreenCenter
    14   LCLVersion = '2.0.2.0'
     13  LCLVersion = '3.6.0.0'
    1514  object ListViewAcronyms: TListView
    16     Left = 4
    17     Height = 466
    18     Top = 34
    19     Width = 732
     15    Left = 5
     16    Height = 563
     17    Top = 41
     18    Width = 878
    2019    Align = alClient
    21     BorderSpacing.Left = 4
    22     BorderSpacing.Right = 4
    23     BorderSpacing.Bottom = 4
     20    BorderSpacing.Left = 5
     21    BorderSpacing.Right = 5
     22    BorderSpacing.Bottom = 5
    2423    Columns = <   
    2524      item
    2625        Caption = 'Name'
    27         Width = 100
     26        Width = 120
    2827      end   
    2928      item
    3029        Caption = 'Description'
    31         Width = 300
     30        Width = 360
    3231      end   
    3332      item
    3433        Caption = 'Categories'
    35         Width = 312
     34        Width = 383
    3635      end>
    3736    MultiSelect = True
    … …  
    4948  end
    5049  object ListViewFilter1: TListViewFilter
    51     Left = 4
    52     Height = 30
    53     Top = 4
    54     Width = 732
     50    Left = 5
     51    Height = 36
     52    Top = 5
     53    Width = 878
    5554    OnChange = ListViewFilter1Change
    5655    Align = alTop
    57     BorderSpacing.Left = 4
    58     BorderSpacing.Top = 4
    59     BorderSpacing.Right = 4
    60   end
    61   object StatusBar1: TStatusBar
    62     Left = 0
    63     Height = 28
    64     Top = 530
    65     Width = 740
    66     Panels = <   
    67       item
    68         Width = 120
    69       end   
    70       item
    71         Width = 120
    72       end>
    73     SimplePanel = False
     56    BorderSpacing.Left = 5
     57    BorderSpacing.Top = 5
     58    BorderSpacing.Right = 5
    7459  end
    7560  object ToolBar1: TToolBar
     61    AnchorSideBottom.Control = StatusBar1
    7662    Left = 0
    77     Height = 26
    78     Top = 504
    79     Width = 740
     63    Height = 33
     64    Top = 609
     65    Width = 888
    8066    Align = alBottom
    8167    Caption = 'ToolBar1'
    … …  
    8369    ParentShowHint = False
    8470    ShowHint = True
    85     TabOrder = 3
     71    TabOrder = 2
    8672    object ToolButton1: TToolButton
    8773      Left = 1
    … …  
    9076    end
    9177    object ToolButton2: TToolButton
    92       Left = 30
     78      Left = 36
    9379      Top = 2
    9480      Action = AModify
    9581    end
    9682    object ToolButton3: TToolButton
    97       Left = 59
     83      Left = 71
    9884      Top = 2
    9985      Action = ARemove
    10086    end
     87  end
     88  object StatusBar1: TStatusBar
     89    Left = 0
     90    Height = 28
     91    Top = 642
     92    Width = 888
     93    Panels = <   
     94      item
     95        Width = 144
     96      end   
     97      item
     98        Width = 144
     99      end>
     100    SimplePanel = False
    101101  end
    102102  object ListViewSort1: TListViewSort
    … …  
    107107    Column = 0
    108108    Order = soUp
    109     left = 248
    110     top = 168
     109    Left = 298
     110    Top = 202
    111111  end
    112112  object ActionList1: TActionList
    113113    Images = Core.ImageList1
    114     left = 248
    115     top = 232
     114    Left = 298
     115    Top = 278
    116116    object AAdd: TAction
    117117      Caption = 'Add'
    … …  
    140140  object PopupMenuAcronym: TPopupMenu
    141141    Images = Core.ImageList1
    142     left = 248
    143     top = 296
     142    Left = 298
     143    Top = 355
    144144    object MenuItem4: TMenuItem
    145145      Action = AAdd
Note: See TracChangeset for help on using the changeset viewer.