Ignore:
Timestamp:
Aug 2, 2016, 11:21:21 AM (8 years ago)
Author:
chronos
Message:
  • Added: Text filtering in list of import sources.
  • Fixed: Now checkboxes in list of import sources are visible and working for enabling item.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormImportSources.lfm

    r72 r73  
    1010  OnShow = FormShow
    1111  Position = poScreenCenter
    12   LCLVersion = '1.7'
    13   object ListView1: TListView
    14     Left = 8
    15     Height = 376
    16     Top = 8
    17     Width = 798
    18     Anchors = [akTop, akLeft, akRight, akBottom]
    19     Checkboxes = True
    20     Columns = <   
    21       item
    22         Caption = 'Name'
    23         Width = 150
    24       end   
    25       item
    26         Caption = 'URL'
    27         Width = 250
    28       end   
    29       item
    30         Caption = 'Categories'
    31         Width = 200
    32       end   
    33       item
    34         Caption = 'Count'
    35         Width = 70
    36       end   
    37       item
    38         Caption = 'Date'
    39         Width = 108
    40       end>
    41     MultiSelect = True
    42     OwnerData = True
    43     PopupMenu = PopupMenuImportSource
    44     ReadOnly = True
    45     RowSelect = True
    46     TabOrder = 0
    47     ViewStyle = vsReport
    48     OnData = ListView1Data
    49     OnDblClick = ListView1DblClick
    50     OnSelectItem = ListView1SelectItem
    51   end
     12  LCLVersion = '1.6.0.4'
    5213  object ToolBar1: TToolBar
    5314    Left = 0
    … …  
    6021    ParentShowHint = False
    6122    ShowHint = True
    62     TabOrder = 1
     23    TabOrder = 0
    6324    object ToolButton1: TToolButton
    6425      Left = 1
    … …  
    8142      Action = AProcess
    8243    end
     44  end
     45  object ListView1: TListView
     46    Left = 8
     47    Height = 340
     48    Top = 44
     49    Width = 798
     50    Anchors = [akTop, akLeft, akRight, akBottom]
     51    Checkboxes = True
     52    Columns = <   
     53      item
     54        Caption = 'Name'
     55        Width = 150
     56      end   
     57      item
     58        Caption = 'URL'
     59        Width = 250
     60      end   
     61      item
     62        Caption = 'Categories'
     63        Width = 200
     64      end   
     65      item
     66        Caption = 'Count'
     67        Width = 70
     68      end   
     69      item
     70        Caption = 'Date'
     71        Width = 100
     72      end>
     73    MultiSelect = True
     74    OwnerData = True
     75    PopupMenu = PopupMenuImportSource
     76    ReadOnly = True
     77    RowSelect = True
     78    TabOrder = 1
     79    ViewStyle = vsReport
     80    OnChange = ListView1Change
     81    OnClick = ListView1Click
     82    OnData = ListView1Data
     83    OnDblClick = ListView1DblClick
     84    OnResize = ListView1Resize
     85    OnSelectItem = ListView1SelectItem
     86  end
     87  object ListViewFilter1: TListViewFilter
     88    Left = 8
     89    Height = 29
     90    Top = 11
     91    Width = 798
     92    OnChange = ListViewFilter1Change
     93    Anchors = [akTop, akLeft, akRight]
    8394  end
    8495  object ActionList1: TActionList
    … …  
    108119      ImageIndex = 5
    109120      OnExecute = AProcessExecute
    110     end
    111     object AEnable: TAction
    112       Caption = 'Enable'
    113       OnExecute = AEnableExecute
    114     end
    115     object ADisable: TAction
    116       Caption = 'Disable'
    117       OnExecute = ADisableExecute
    118121    end
    119122  end
    … …  
    278281      }
    279282    end
    280     object MenuItem6: TMenuItem
    281       Action = AEnable
    282     end
    283     object MenuItem5: TMenuItem
    284       Action = ADisable
    285     end
    286283  end
    287284  object JobProgressView1: TJobProgressView
    … …  
    292289    top = 119
    293290  end
     291  object ListViewSort1: TListViewSort
     292    ListView = ListView1
     293    OnCompareItem = ListViewSort1CompareItem
     294    OnFilter = ListViewSort1Filter
     295    Column = 0
     296    Order = soNone
     297    left = 547
     298    top = 172
     299  end
    294300end
Note: See TracChangeset for help on using the changeset viewer.