You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
180 lines
4.3 KiB
Plaintext
180 lines
4.3 KiB
Plaintext
object selectCntsFrm: TselectCntsFrm
|
|
Left = 312
|
|
Top = 152
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
Caption = 'Select contacts'
|
|
ClientHeight = 369
|
|
ClientWidth = 202
|
|
Color = clBtnFace
|
|
Constraints.MaxWidth = 218
|
|
Constraints.MinHeight = 160
|
|
Constraints.MinWidth = 218
|
|
ParentFont = True
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
DesignSize = (
|
|
202
|
|
369)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object sbar: TStatusBar
|
|
Left = 0
|
|
Top = 350
|
|
Width = 202
|
|
Height = 19
|
|
Panels = <>
|
|
SimplePanel = True
|
|
SizeGrip = False
|
|
end
|
|
object listPnl: TPanel
|
|
Left = 0
|
|
Top = 303
|
|
Width = 202
|
|
Height = 47
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
202
|
|
47)
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 202
|
|
Height = 13
|
|
Align = alTop
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'uin-list'
|
|
Transparent = True
|
|
end
|
|
object saveBtn: TRnQSpeedButton
|
|
Left = 156
|
|
Top = 15
|
|
Width = 20
|
|
Height = 20
|
|
Hint = 'Save selected as a uin-list'
|
|
Anchors = [akTop, akRight]
|
|
Caption = #55357#56510
|
|
Flat = True
|
|
Layout = blGlyphRight
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = saveBtnClick
|
|
end
|
|
object addBtn: TRnQSpeedButton
|
|
Left = 118
|
|
Top = 15
|
|
Width = 20
|
|
Height = 20
|
|
Hint = 'Add the uin-list to the selected'
|
|
Anchors = [akTop, akRight]
|
|
Caption = '+'
|
|
Flat = True
|
|
Layout = blGlyphBottom
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = addBtnClick
|
|
end
|
|
object subBtn: TRnQSpeedButton
|
|
Left = 137
|
|
Top = 15
|
|
Width = 20
|
|
Height = 20
|
|
Hint = 'Remove the uin-list from the selected'
|
|
Anchors = [akTop, akRight]
|
|
Caption = '-'
|
|
Flat = True
|
|
Layout = blGlyphBottom
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = subBtnClick
|
|
end
|
|
object delBtn: TRnQSpeedButton
|
|
Left = 174
|
|
Top = 15
|
|
Width = 20
|
|
Height = 20
|
|
Hint = 'Delete this uin-list'
|
|
Anchors = [akTop, akRight]
|
|
Caption = #55357#56785
|
|
Flat = True
|
|
Layout = blGlyphRight
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = delBtnClick
|
|
end
|
|
object uinlistBox: TComboBox
|
|
Left = 8
|
|
Top = 16
|
|
Width = 106
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 0
|
|
Text = 'uinlistBox'
|
|
end
|
|
end
|
|
object doBtn: TRnQButton
|
|
Left = 8
|
|
Top = 241
|
|
Width = 186
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Do it'
|
|
DoubleBuffered = True
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 2
|
|
end
|
|
object list: TVirtualDrawTree
|
|
Left = 0
|
|
Top = 0
|
|
Width = 202
|
|
Height = 232
|
|
Align = alTop
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BorderStyle = bsNone
|
|
ButtonStyle = bsTriangle
|
|
Header.AutoSizeIndex = 0
|
|
Header.DefaultHeight = 17
|
|
Header.Height = 17
|
|
Header.MainColumn = -1
|
|
Header.Options = [hoColumnResize, hoDrag]
|
|
IncrementalSearch = isAll
|
|
TabOrder = 3
|
|
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
|
|
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
|
|
TreeOptions.SelectionOptions = [toFullRowSelect, toMiddleClickSelect, toRightClickSelect]
|
|
OnChecked = listChecked
|
|
OnDrawNode = listDrawNode
|
|
OnGetNodeWidth = listGetNodeWidth
|
|
Columns = <>
|
|
end
|
|
object selectBtn: TRnQButton
|
|
Left = 8
|
|
Top = 272
|
|
Width = 90
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Select all'
|
|
DoubleBuffered = True
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 4
|
|
OnClick = selectBtnClick
|
|
end
|
|
object unselectBtn: TRnQButton
|
|
Left = 103
|
|
Top = 272
|
|
Width = 90
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Unselect all'
|
|
DoubleBuffered = True
|
|
ParentDoubleBuffered = False
|
|
TabOrder = 5
|
|
OnClick = unselectBtnClick
|
|
end
|
|
end
|