Ignore:
Timestamp:
Oct 16, 2017, 3:18:15 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: One panel as container is enough.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r152 r153  
    1717  object PanelMain: TPanel
    1818    Left = 0
    19     Height = 395
     19    Height = 367
    2020    Top = 62
    2121    Width = 798
    2222    Align = alClient
    2323    BevelOuter = bvNone
    24     ClientHeight = 395
     24    ClientHeight = 367
    2525    ClientWidth = 798
    2626    TabOrder = 0
    27     object StatusBar1: TStatusBar
    28       Left = 0
    29       Height = 28
    30       Top = 367
    31       Width = 798
    32       Panels = <     
     27    object ListViewFilter1: TListViewFilter
     28      Left = 8
     29      Height = 30
     30      Top = 5
     31      Width = 783
     32      OnChange = ListViewFilter1Change
     33      Anchors = [akTop, akLeft, akRight]
     34    end
     35    object ListViewAcronyms: TListView
     36      Left = 8
     37      Height = 326
     38      Top = 35
     39      Width = 784
     40      Anchors = [akTop, akLeft, akRight, akBottom]
     41      Columns = <     
    3342        item
    34           Width = 200
     43          Caption = 'Name'
     44          Width = 100
    3545        end     
    3646        item
    37           Width = 200
     47          Caption = 'Meaning'
     48          Width = 300
     49        end     
     50        item
     51          Caption = 'Categories'
     52          Width = 347
    3853        end>
    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
     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
    8663    end
    8764  end
    … …  
    308285    end
    309286  end
     287  object StatusBar1: TStatusBar
     288    Left = 0
     289    Height = 28
     290    Top = 429
     291    Width = 798
     292    Panels = <   
     293      item
     294        Width = 200
     295      end   
     296      item
     297        Width = 200
     298      end>
     299    SimplePanel = False
     300  end
    310301  object ActionList1: TActionList
    311302    Images = Core.ImageList1
Note: See TracChangeset for help on using the changeset viewer.