Ignore:
Timestamp:
Oct 16, 2017, 3:05:22 PM (7 years ago)
Author:
chronos
Message:
  • Added: Status bar to show total number of acronyms and their meanings. Status bar can be hidden.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r151 r152  
    11object FormMain: TFormMain
    22  Left = 495
    3   Height = 447
    4   Top = 424
    5   Width = 782
     3  Height = 482
     4  Top = 389
     5  Width = 798
    66  Caption = 'Acronym Decoder'
    7   ClientHeight = 422
    8   ClientWidth = 782
     7  ClientHeight = 457
     8  ClientWidth = 798
    99  Menu = MainMenu1
    1010  OnClose = FormClose
    … …  
    1717  object PanelMain: TPanel
    1818    Left = 0
    19     Height = 360
     19    Height = 395
    2020    Top = 62
    21     Width = 782
     21    Width = 798
    2222    Align = alClient
    2323    BevelOuter = bvNone
    24     ClientHeight = 360
    25     ClientWidth = 782
     24    ClientHeight = 395
     25    ClientWidth = 798
    2626    TabOrder = 0
    27     object ListViewFilter1: TListViewFilter
    28       Left = 8
    29       Height = 30
    30       Top = 5
    31       Width = 767
    32       OnChange = ListViewFilter1Change
    33       Anchors = [akTop, akLeft, akRight]
    34     end
    35     object ListViewAcronyms: TListView
    36       Left = 8
    37       Height = 318
    38       Top = 35
    39       Width = 767
    40       Anchors = [akTop, akLeft, akRight, akBottom]
    41       Columns = <     
     27    object StatusBar1: TStatusBar
     28      Left = 0
     29      Height = 28
     30      Top = 367
     31      Width = 798
     32      Panels = <     
    4233        item
    43           Caption = 'Name'
    44           Width = 100
     34          Width = 200
    4535        end     
    4636        item
    47           Caption = 'Meaning'
    48           Width = 300
    49         end     
    50         item
    51           Caption = 'Categories'
    52           Width = 347
     37          Width = 200
    5338        end>
    54       OwnerData = True
    55       PopupMenu = PopupMenuFilter
    56       ReadOnly = True
    57       RowSelect = True
    58       TabOrder = 1
    59       ViewStyle = vsReport
    60       OnData = ListViewAcronymsData
    61       OnResize = ListViewAcronymsResize
    62       OnSelectItem = ListViewAcronymsSelectItem
     39      SimplePanel = False
     40    end
     41    object Panel1: TPanel
     42      Left = 0
     43      Height = 367
     44      Top = 0
     45      Width = 798
     46      Align = alClient
     47      BevelOuter = bvNone
     48      TabOrder = 3
     49      object ListViewFilter1: TListViewFilter
     50        Left = 8
     51        Height = 30
     52        Top = 5
     53        Width = 783
     54        OnChange = ListViewFilter1Change
     55        Anchors = [akTop, akLeft, akRight]
     56      end
     57      object ListViewAcronyms: TListView
     58        Left = 8
     59        Height = 326
     60        Top = 35
     61        Width = 784
     62        Anchors = [akTop, akLeft, akRight, akBottom]
     63        Columns = <     
     64          item
     65            Caption = 'Name'
     66            Width = 100
     67          end     
     68          item
     69            Caption = 'Meaning'
     70            Width = 300
     71          end     
     72          item
     73            Caption = 'Categories'
     74            Width = 347
     75          end>
     76        OwnerData = True
     77        PopupMenu = PopupMenuFilter
     78        ReadOnly = True
     79        RowSelect = True
     80        TabOrder = 1
     81        ViewStyle = vsReport
     82        OnData = ListViewAcronymsData
     83        OnResize = ListViewAcronymsResize
     84        OnSelectItem = ListViewAcronymsSelectItem
     85      end
    6386    end
    6487  end
    … …  
    6790    Height = 30
    6891    Top = 32
    69     Width = 782
     92    Width = 798
    7093    Align = alTop
    7194    BevelOuter = bvNone
    7295    ClientHeight = 30
    73     ClientWidth = 782
     96    ClientWidth = 798
    7497    TabOrder = 1
    7598    object CheckBoxExactLength: TCheckBox
    … …  
    102125    Height = 32
    103126    Top = 0
    104     Width = 782
     127    Width = 798
    105128    AutoSize = True
    106129    Bands = <   
    … …  
    819842        OnClick = MenuItemParamClick
    820843      end
     844      object MenuItemStatusBar: TMenuItem
     845        Caption = 'Status bar'
     846        OnClick = MenuItemStatusBarClick
     847      end
    821848    end
    822849    object MenuItem16: TMenuItem
Note: See TracChangeset for help on using the changeset viewer.