Стартовый пул
This commit is contained in:
@@ -0,0 +1,191 @@
|
||||
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
|
Reference in New Issue
Block a user