object DualListForm: TDualListForm Left = 916 Height = 344 Top = 266 Width = 552 ActiveControl = IncBtn BorderIcons = [] Caption = 'DualListForm' ClientHeight = 344 ClientWidth = 552 OnActivate = ListClick OnShow = ListClick Position = poScreenCenter LCLVersion = '1.5' object SrcLabel: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 6 Height = 21 Top = 6 Width = 45 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Source' ParentColor = False end object DstLabel: TLabel AnchorSideLeft.Control = DstList AnchorSideTop.Control = Owner Left = 299 Height = 21 Top = 6 Width = 31 BorderSpacing.Top = 6 Caption = 'Dest' ParentColor = False end object SrcList: TListBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = SrcLabel AnchorSideTop.Side = asrBottom AnchorSideRight.Control = IncAllBtn AnchorSideBottom.Control = ButtonPanel1 Left = 6 Height = 257 Top = 33 Width = 247 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 DragMode = dmAutomatic ItemHeight = 0 MultiSelect = True OnClick = ListClick OnDblClick = IncBtnClick OnDragDrop = SrcListDragDrop OnDragOver = SrcListDragOver OnKeyDown = SrcListKeyDown ParentShowHint = False ScrollWidth = 245 ShowHint = True Sorted = True TabOrder = 0 TopIndex = -1 end object DstList: TListBox AnchorSideLeft.Control = IncAllBtn AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = DstLabel AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ButtonPanel1 Left = 299 Height = 257 Top = 33 Width = 247 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 DragMode = dmAutomatic ItemHeight = 0 MultiSelect = True OnClick = ListClick OnDblClick = ExclBtnClick OnDragDrop = DstListDragDrop OnDragOver = DstListDragOver OnKeyDown = DstListKeyDown ParentShowHint = False ScrollWidth = 245 ShowHint = True Sorted = True TabOrder = 5 TopIndex = -1 end object IncBtn: TButton AnchorSideLeft.Control = IncAllBtn AnchorSideTop.Control = SrcList AnchorSideRight.Control = IncAllBtn AnchorSideRight.Side = asrBottom Left = 259 Height = 41 Top = 39 Width = 34 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 4 Caption = '>' Font.Color = clBlack Font.Style = [fsBold] OnClick = IncBtnClick ParentFont = False TabOrder = 1 end object IncAllBtn: TButton AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = IncBtn AnchorSideTop.Side = asrBottom Left = 259 Height = 41 Top = 86 Width = 34 AutoSize = True BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 4 Caption = '>>' Font.Color = clBlack Font.Style = [fsBold] OnClick = IncAllBtnClick ParentFont = False TabOrder = 2 end object ExclBtn: TButton AnchorSideLeft.Control = IncAllBtn AnchorSideTop.Control = IncAllBtn AnchorSideTop.Side = asrBottom AnchorSideRight.Control = IncAllBtn AnchorSideRight.Side = asrBottom Left = 259 Height = 41 Top = 133 Width = 34 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 4 Caption = '<' Font.Color = clBlack Font.Style = [fsBold] OnClick = ExclBtnClick ParentFont = False TabOrder = 3 end object ExclAllBtn: TButton AnchorSideLeft.Control = IncAllBtn AnchorSideTop.Control = ExclBtn AnchorSideTop.Side = asrBottom AnchorSideRight.Control = IncAllBtn AnchorSideRight.Side = asrBottom Left = 259 Height = 41 Top = 180 Width = 34 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Top = 6 BorderSpacing.InnerBorder = 4 Caption = '<<' Font.Color = clBlack Font.Style = [fsBold] OnClick = ExclAllBtnClick ParentFont = False TabOrder = 4 end object ButtonPanel1: TButtonPanel Left = 6 Height = 42 Top = 296 Width = 540 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 6 ShowButtons = [pbOK, pbCancel, pbHelp] end end