object frmFilter: TfrmFilter Left = 1498 Height = 492 Top = 0 Width = 232 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsToolWindow Caption = 'Фильтр' ClientHeight = 492 ClientWidth = 232 Font.Height = -11 KeyPreview = True OnCreate = FormCreate OnDestroy = FormDestroy OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp OnShow = FormShow ShowInTaskBar = stNever LCLVersion = '0.9.30.2' object rgFilterType: TRadioGroup Left = 4 Height = 40 Top = 4 Width = 224 Align = alTop AutoFill = True BorderSpacing.Around = 4 Caption = 'Правило фильтра' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 22 ClientWidth = 220 Columns = 2 ItemIndex = 0 Items.Strings = ( 'Исключающий' 'Включающий' ) OnClick = rgFilterTypeClick OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp TabOrder = 0 end object GroupBox1: TGroupBox Left = 4 Height = 259 Top = 48 Width = 224 Align = alClient BorderSpacing.Around = 4 Caption = 'Фильтрация тайлов' ClientHeight = 241 ClientWidth = 220 TabOrder = 1 OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp object Label1: TLabel AnchorSideLeft.Control = btnClear AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnClear AnchorSideRight.Control = GroupBox1 AnchorSideRight.Side = asrBottom Left = 56 Height = 25 Top = 215 Width = 164 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 Caption = 'Чтобы добавить тайлы - перетащите предметы в список из списка тайлов.' Font.Height = -9 ParentColor = False ParentFont = False WordWrap = True OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp end object btnClear: TSpeedButton AnchorSideLeft.Control = btnDelete AnchorSideLeft.Side = asrBottom AnchorSideRight.Control = GroupBox1 AnchorSideRight.Side = asrCenter AnchorSideBottom.Control = btnDelete AnchorSideBottom.Side = asrBottom Left = 30 Height = 22 Hint = 'Очистить список' Top = 215 Width = 22 Anchors = [akLeft, akBottom] Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 640C00005D7300005DBA00005DCC00005DCC00005DCC00005DCC00005DCC0000 5DCC00005DCC00005DCC00005DBA00005D730000640CFFFFFF00FFFFFF000000 6D73080893DD1010CCF91111D9FF1111D9FF1111D9FF1111D9FF1111D9FF1111 D9FF1111D9FF1111D9FF0F0FCCF9070792DD00006D73FFFFFF00FFFFFF000000 7DBA1616CBF91111D1FF1111D1FF1111B6FF1111D1FF1111D1FF1111D1FF1111 D1FF1111B6FF1111D1FF1111D1FF0F0FC8F900007DBAFFFFFF00FFFFFF000000 84CC1C1CCEFF1111C8FF1111B2FFDCDCDCFF1111B2FF1111C8FF1111C8FF1111 B2FFEEEEEEFF1111B2FF1111C8FF1111C8FF000084CCFFFFFF00FFFFFF000000 89CC2222C8FF1111BEFFD1D1D1FFD6D6D6FFDCDCDCFF1111ADFF1111ADFFEAEA EAFFEEEEEEFFEEEEEEFF1111BEFF1212BEFF000089CCFFFFFF00FFFFFF000000 8DCC3434C7FF1212B4FF1111B4FFD1D1D1FFD6D6D6FFDCDCDCFFE2E2E2FFE6E6 E6FFEAEAEAFF1111B4FF1111B4FF1414B6FF00008DCCFFFFFF00FFFFFF000000 92CC4646CEFF2626B5FF1414ABFF1111AAFFD1D1D1FFD6D6D6FFDCDCDCFFE2E2 E2FF1111AAFF1111AAFF1111AAFF1818B0FF000092CCFFFFFF00FFFFFF000000 96CC4A4AD2FF3333BBFF2E2EB8FF13139FFFCECECEFFD1D1D1FFD6D6D6FFDCDC DCFF11119EFF1111A1FF1111A1FF1D1DACFF000096CCFFFFFF00FFFFFF000000 9ACC5050D8FF3737BFFF2323ABFFFFFFFFFFF7F7F7FFE8E8E8FFDEDEDEFFDBDB DBFFDDDDDDFF11119BFF1616A0FF2B2BB5FF00009ACCFFFFFF00FFFFFF000000 9ECC5A5AE2FF4242CAFFFFFFFFFFFFFFFFFFFFFFFFFF4242CAFF4242CAFFFFFF FFFFFFFFFFFFFFFFFFFF4242CAFF4E4ED6FF00009ECCFFFFFF00FFFFFF000000 A2CC6262EAFF4F4FD7FF4F4FD7FFFFFFFFFF4F4FD7FF4F4FD7FF4F4FD7FF4F4F D7FFFFFFFFFF4F4FD7FF4F4FD7FF5A5AE2FF0000A2CCFFFFFF00FFFFFF000000 A5BA6060ECF95B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5B E3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE7F90000A5BAFFFFFF00FFFFFF000000 A8732A2AC7DD6363EFF96D6DF5FF6D6DF5FF6D6DF5FF6D6DF5FF6D6DF5FF6D6D F5FF6D6DF5FF6C6CF4FF6262EEF92929C5DD0000A873FFFFFF00FFFFFF000000 A90C0000AA730000AABA0000AACC0000AACC0000AACC0000AACC0000AACC0000 AACC0000AACC0000AACC0000AABA0000AA730000A90CFFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 } NumGlyphs = 0 OnClick = btnClearClick ShowHint = True ParentShowHint = False end object btnDelete: TSpeedButton AnchorSideLeft.Control = GroupBox1 AnchorSideBottom.Control = GroupBox1 AnchorSideBottom.Side = asrBottom Left = 4 Height = 22 Hint = 'Удалить выделенные' Top = 215 Width = 22 Anchors = [akLeft, akBottom] BorderSpacing.Around = 4 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 640C00005D7300005DBA00005DCC00005DCC00005DCC00005DCC00005DCC0000 5DCC00005DCC00005DCC00005DBA00005D730000640CFFFFFF00FFFFFF000000 6D73080893DD1010CCF91111D9FF1111D9FF1111D9FF1111D9FF1111D9FF1111 D9FF1111D9FF1111D9FF0F0FCCF9070792DD00006D73FFFFFF00FFFFFF000000 7DBA1616CBF91111D1FF1111D1FF1111D1FF1111D1FF1111D1FF1111D1FF1111 D1FF1111D1FF1111D1FF1111D1FF0F0FC8F900007DBAFFFFFF00FFFFFF000000 84CC1C1CCEFF1111C8FF1111C8FF1111C8FF1111C8FF1111C8FF1111C8FF1111 C8FF1111C8FF1111C8FF1111C8FF1111C8FF000084CCFFFFFF00FFFFFF000000 89CC2222C8FF1111BEFF1111BEFF1111BEFF1111BEFF1111BEFF1111BEFF1111 BEFF1111BEFF1111BEFF1111BEFF1212BEFF000089CCFFFFFF00FFFFFF000000 8DCC3434C7FF1212B4FF1111A8FF1111A8FF1111A8FF1111A8FF1111A8FF1111 A8FF1111A8FF1111A8FF1111B4FF1414B6FF00008DCCFFFFFF00FFFFFF000000 92CC4646CEFF2626B5FFD0D0D0FFCCCCCCFFD1D1D1FFDCDCDCFFE8E8E8FFEEEE EEFFEEEEEEFFEEEEEEFF1111AAFF1818B0FF000092CCFFFFFF00FFFFFF000000 96CC4A4AD2FF3333BBFFF8F8F8FFDEDEDEFFCECECEFFD1D1D1FFDCDCDCFFE8E8 E8FFEEEEEEFFEEEEEEFF1111A1FF1D1DACFF000096CCFFFFFF00FFFFFF000000 9ACC5050D8FF3737BFFF3737BFFF3737BFFF3232BAFF2727B0FF1C1CA6FF1616 A0FF12129CFF12129CFF1616A0FF2B2BB5FF00009ACCFFFFFF00FFFFFF000000 9ECC5A5AE2FF4242CAFF4242CAFF4242CAFF4242CAFF4242CAFF4242CAFF4242 CAFF4242CAFF4242CAFF4242CAFF4E4ED6FF00009ECCFFFFFF00FFFFFF000000 A2CC6262EAFF4F4FD7FF4F4FD7FF4F4FD7FF4F4FD7FF4F4FD7FF4F4FD7FF4F4F D7FF4F4FD7FF4F4FD7FF4F4FD7FF5A5AE2FF0000A2CCFFFFFF00FFFFFF000000 A5BA6060ECF95B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5B E3FF5B5BE3FF5B5BE3FF5B5BE3FF5B5BE7F90000A5BAFFFFFF00FFFFFF000000 A8732A2AC7DD6363EFF96D6DF5FF6D6DF5FF6D6DF5FF6D6DF5FF6D6DF5FF6D6D F5FF6D6DF5FF6C6CF4FF6262EEF92929C5DD0000A873FFFFFF00FFFFFF000000 A90C0000AA730000AABA0000AACC0000AACC0000AACC0000AACC0000AACC0000 AACC0000AACC0000AACC0000AABA0000AA730000A90CFFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 } NumGlyphs = 0 OnClick = btnDeleteClick ShowHint = True ParentShowHint = False end object vdtFilter: TVirtualDrawTree Tag = -1 AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = cbTileFilter AnchorSideTop.Side = asrBottom AnchorSideRight.Control = GroupBox1 AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = btnDelete Cursor = 63 Left = 4 Height = 184 Top = 27 Width = 212 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 4 Color = 16052980 DefaultNodeHeight = 44 DragType = dtVCL Header.AutoSizeIndex = 0 Header.Columns = < item Position = 0 Text = 'ID' Width = 40 end item Position = 1 Text = 'Тайл' Width = 44 end item Position = 2 Text = 'Название' Width = 108 end item MaxWidth = 10 MinWidth = 0 Position = 3 Text = 'tile_separator' Width = 8 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 4 Text = 'tile_S1' Width = 46 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 5 Text = 'tile_S2' Width = 46 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 6 Text = 'tile_S3' Width = 46 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 7 Text = 'tile_S4' Width = 46 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 8 Text = 'tile_M1' Width = 62 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 9 Text = 'tile_M2' Width = 62 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 10 Text = 'tile_M3' Width = 62 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 11 Text = 'tile_L1' Width = 93 end item Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coAllowFocus] Position = 12 Text = 'tile_L2' Width = 93 end item MaxWidth = 10 MinWidth = 0 Position = 13 Text = 'tile_separator' Width = 2 end> Header.DefaultHeight = 17 Header.Options = [hoVisible] Header.ParentFont = True Header.Style = hsFlatButtons ScrollBarOptions.AlwaysVisible = True ScrollBarOptions.ScrollBars = ssVertical TabOrder = 0 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toStaticBackground] TreeOptions.SelectionOptions = [toFullRowSelect] OnDragOver = vdtFilterDragOver OnDragDrop = vdtFilterDragDrop OnDrawNode = vdtFilterDrawNode OnKeyDown = FormKeyDown end object cbTileFilter: TCheckBox AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 Left = 4 Height = 19 Top = 4 Width = 166 BorderSpacing.Around = 4 Caption = 'Использовать фильтрацию' OnChange = cbTileFilterChange OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp TabOrder = 1 end end object GroupBox2: TGroupBox Left = 4 Height = 168 Top = 320 Width = 224 Align = alBottom BorderSpacing.Around = 4 Caption = 'Фильтрация цветов' ClientHeight = 150 ClientWidth = 220 TabOrder = 2 OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp object cbHueFilter: TCheckBox Left = 4 Height = 19 Top = 4 Width = 212 Align = alTop BorderSpacing.Around = 4 Caption = 'Использовать фильтрацию' OnChange = cbHueFilterChange OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnMouseUp = FormMouseUp TabOrder = 0 end object vdtHues: TVirtualDrawTree Cursor = 63 Left = 4 Height = 119 Top = 27 Width = 212 Align = alClient BorderSpacing.Around = 4 Color = 16052980 Header.AutoSizeIndex = 2 Header.Columns = < item Position = 0 Width = 20 end item Position = 1 Text = 'Цвет' Width = 38 end item Position = 2 Text = 'Название' Width = 133 end> Header.DefaultHeight = 17 Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible] Header.ParentFont = True Header.Style = hsFlatButtons PopupMenu = pmHues ScrollBarOptions.AlwaysVisible = True ScrollBarOptions.ScrollBars = ssVertical TabOrder = 1 TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages] TreeOptions.SelectionOptions = [toFullRowSelect] OnChecked = vdtHuesChecked OnDrawNode = vdtHuesDrawNode OnKeyDown = FormKeyDown end end object Splitter1: TSplitter Cursor = crVSplit Left = 0 Height = 5 Top = 311 Width = 232 Align = alBottom ResizeAnchor = akBottom end object pmHues: TPopupMenu left = 148 top = 404 object mnuCheckHues: TMenuItem Caption = 'Отметить все цвета' OnClick = mnuCheckHuesClick end object mnuUncheckHues: TMenuItem Caption = 'Удалить все цвета' OnClick = mnuUncheckHuesClick end end object tFormClose: TTimer Interval = 10 OnTimer = tFormCloseTimer left = 192 top = 56 end end