Changeset 153 for trunk/Forms


Ignore:
Timestamp:
Oct 16, 2017, 3:18:15 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: One panel as container is enough.
Location:
trunk/Forms
Files:
2 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

  • trunk/Forms/UFormMain.pas

    r152 r153  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    99  ComCtrls, StdCtrls, ExtCtrls, ActnList, Grids, UAcronym, UPersistentForm,
    10   URegistry, ULastOpenedList, UListViewSort, UJobProgressView, UCoolTranslator,
     10  URegistry, ULastOpenedList, UListViewSort, UJobProgressView,
    1111  Registry, SpecializedList, LazUTF8, LazFileUtils;
    1212
    … …  
    7474    MenuItem9: TMenuItem;
    7575    OpenDialog1: TOpenDialog;
    76     Panel1: TPanel;
    7776    PanelParam: TPanel;
    7877    PanelMain: TPanel;
    … …  
    196195  for I := 0 to ToolBar4.ButtonCount - 1 do
    197196    ToolBar4.Buttons[I].Hint := ToolBar4.Buttons[I].Caption;
     197  PanelMain.ControlStyle := PanelMain.ControlStyle + [csOpaque];
     198  PanelParam.ControlStyle := PanelParam.ControlStyle + [csOpaque];
    198199end;
    199200
Note: See TracChangeset for help on using the changeset viewer.