object TntFormGroupingCriteria: TTntFormGroupingCriteria Left = 310 Top = 243 BorderStyle = bsNone Caption = 'Edit Grouping Criteria' ClientHeight = 246 ClientWidth = 427 Color = clBtnFace Constraints.MinHeight = 273 Constraints.MinWidth = 395 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnCreate = TntFormCreate OnKeyDown = TntFormKeyDown OnShow = TntFormShow PixelsPerInch = 96 TextHeight = 13 object SpTBXPanelBkGnd: TSpTBXPanel Left = 0 Top = 0 Width = 427 Height = 246 Align = alClient TabOrder = 0 TBXStyleBackground = True DesignSize = ( 427 246) object SpTBXButtonOk: TSpTBXButton Left = 293 Top = 16 Width = 129 Height = 25 Caption = '&Ok' Anchors = [akTop, akRight] TabOrder = 0 OnClick = SpTBXButtonOkClick Default = True ModalResult = 1 end object SpTBXButtonCancel: TSpTBXButton Left = 293 Top = 48 Width = 129 Height = 25 Caption = '&Cancel' Anchors = [akTop, akRight] TabOrder = 1 OnClick = SpTBXButtonCancelClick ModalResult = 2 end object SpTBXButtonDefaults: TSpTBXButton Left = 293 Top = 208 Width = 129 Height = 25 Hint = 'Load the default Grouping rules' Action = ActionDefaults Anchors = [akTop, akRight] TabOrder = 2 end object ELV: TEasyListview Left = 8 Top = 56 Width = 277 Height = 180 Anchors = [akLeft, akTop, akRight, akBottom] EditManager.Font.Charset = DEFAULT_CHARSET EditManager.Font.Color = clWindowText EditManager.Font.Height = -11 EditManager.Font.Name = 'MS Sans Serif' EditManager.Font.Style = [] UseDockManager = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] GroupFont.Charset = DEFAULT_CHARSET GroupFont.Color = clWindowText GroupFont.Height = -11 GroupFont.Name = 'MS Shell Dlg 2' GroupFont.Style = [] Header.Columns.Items = { 0600000002000000110000005445617379436F6C756D6E53746F726564FFFECE 0006000000800800010000010000000000000178000000FFFFFF1F0001000000 00000000000000000000000000000000110000005445617379436F6C756D6E53 746F726564FFFECE0006000000800800010000010100000000000178000000FF FFFF1F000100000000000000000000000000000000000000} Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'MS Shell Dlg 2' Header.Font.Style = [] Header.Visible = True PaintInfoGroup.MarginBottom.CaptionIndent = 4 PaintInfoItem.CheckType = ectBox ParentFont = False PopupMenu = SpTBXPopupMenuELV Selection.AlphaBlend = True Selection.AlphaBlendSelRect = True Selection.EnableDragSelect = True Selection.FullRowSelect = True Selection.GroupSelections = True Selection.MultiSelect = True Selection.RoundRect = True Selection.UseFocusRect = False TabOrder = 3 View = elsReport OnItemCheckChange = ELVItemCheckChange OnItemDblClick = ELVItemDblClick OnItemSelectionsChanged = ELVItemSelectionsChanged OnKeyAction = ELVKeyAction end object SpTBXRadioGroupType: TSpTBXRadioGroup Left = 8 Top = 8 Width = 277 Height = 41 Hint = 'Select the type of grouping to customize' Caption = 'Group' Anchors = [akLeft, akTop, akRight] TabOrder = 4 TabStop = True OnClick = SpTBXRadioGroupTypeClick Columns = 2 Items.Strings = ( 'File Size' 'Modified Date') end object SpTBXButtonAdd: TSpTBXButton Left = 293 Top = 80 Width = 129 Height = 25 Action = ActionAdd Anchors = [akTop, akRight] TabOrder = 5 end object SpTBXButtonDelete: TSpTBXButton Left = 293 Top = 112 Width = 129 Height = 25 Hint = 'Delete the current Grouping rule' Action = ActionDelete Anchors = [akTop, akRight] TabOrder = 6 end object SpTBXButton1: TSpTBXButton Left = 293 Top = 176 Width = 129 Height = 25 Hint = 'Save the current Grouping rule' Action = ActionSave Anchors = [akTop, akRight] TabOrder = 7 end object SpTBXButton2: TSpTBXButton Left = 293 Top = 144 Width = 129 Height = 25 Hint = 'Edit the current Grouping rule' Action = ActionEdit Anchors = [akTop, akRight] TabOrder = 8 end end object DKLanguageController1: TDKLanguageController IgnoreList.Strings = ( '*Font.Name' 'SpTBXEdit*.*' 'SpTBXPanel*.*' 'TBXLink*.*') StoreList.Strings = ( '*.Caption' '*.Hint') Left = 120 Top = 80 LangData = { 1700546E74466F726D47726F7570696E67437269746572696101010000000100 0000070043617074696F6E01150000000D005370544258427574746F6E4F6B01 0100000005000000070043617074696F6E0011005370544258427574746F6E43 616E63656C010100000007000000070043617074696F6E001300537054425842 7574746F6E44656661756C7473010200000032000000070043617074696F6E28 000000040048696E74000F00537054425850616E656C426B476E640000030045 4C56000013005370544258526164696F47726F75705479706501020000000B00 0000070043617074696F6E29000000040048696E74000E005370544258427574 746F6E416464010100000033000000070043617074696F6E0011005370544258 427574746F6E44656C657465010200000034000000070043617074696F6E2A00 0000040048696E74000D00546E74416374696F6E4C6973740000090041637469 6F6E416464010100000010000000070043617074696F6E000C00416374696F6E 44656C657465010100000011000000070043617074696F6E000E00416374696F 6E44656661756C7473010100000012000000070043617074696F6E0011005370 544258506F7075704D656E75454C5600000A0053705442584974656D31010100 000039000000070043617074696F6E000A0053705442584974656D3201010000 0038000000070043617074696F6E000A0053705442584974656D330101000000 37000000070043617074696F6E0013005370544258536570617261746F724974 656D3100000C005370544258427574746F6E3101020000003500000007004361 7074696F6E2B000000040048696E74000A00416374696F6E5361766501010000 0017000000070043617074696F6E000C005370544258427574746F6E32010200 000036000000070043617074696F6E2C000000040048696E74000A0041637469 6F6E4564697401010000001A000000070043617074696F6E00} end object TntActionList: TTntActionList Left = 40 Top = 80 object ActionAdd: TTntAction Caption = 'Add' OnExecute = ActionAddExecute end object ActionDelete: TTntAction Caption = 'Delete' OnExecute = ActionDeleteExecute end object ActionDefaults: TTntAction Caption = 'Defaults' OnExecute = ActionDefaultsExecute end object ActionSave: TTntAction Caption = 'Save' OnExecute = ActionSaveExecute end object ActionEdit: TTntAction Caption = 'Edit...' OnExecute = ActionEditExecute end end object SpTBXPopupMenuELV: TSpTBXPopupMenu Left = 80 Top = 80 object SpTBXItem3: TSpTBXItem Action = ActionAdd end object SpTBXItem2: TSpTBXItem Action = ActionDelete end object SpTBXSeparatorItem1: TSpTBXSeparatorItem end object SpTBXItem1: TSpTBXItem Action = ActionDefaults end end end