object MultForm: TMultForm Left = 391 Top = 344 Width = 503 Height = 357 Caption = 'MultForm' Color = clBtnFace DefaultMonitor = dmMainForm Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PanelMsg: TPanel Left = 0 Top = 0 Width = 319 Height = 330 Align = alClient TabOrder = 0 DesignSize = ( 319 330) object REMult: TRichViewEdit Left = 8 Top = 8 Width = 303 Height = 281 ReadOnly = False OnChange = REMultChange OnPaste = REMultPaste Anchors = [akLeft, akTop, akRight, akBottom] PopupMenu = PopupMenuRE TabOrder = 0 OnKeyDown = REMultKeyDown DoInPaletteMode = rvpaCreateCopies RTFReadProperties.TextStyleMode = rvrsAddIfNeeded RTFReadProperties.ParaStyleMode = rvrsAddIfNeeded RVFOptions = [rvfoSavePicturesBody, rvfoSaveControlsBody, rvfoSaveBinary, rvfoSaveTextStyles, rvfoSaveParaStyles, rvfoSaveDocProperties, rvfoLoadDocProperties] Style = MsgForm.RVStyle1 end object PanelCount: TPanel Left = 9 Top = 298 Width = 48 Height = 18 Anchors = [akLeft, akBottom] BevelOuter = bvLowered TabOrder = 1 end object ButtonStartSend: TInfBitBtn Left = 198 Top = 296 Width = 113 Height = 25 Anchors = [akRight, akBottom] Caption = 'Send' TabOrder = 2 OnClick = ButtonStartSendClick end object ButtonStopSend: TInfBitBtn Left = 78 Top = 296 Width = 113 Height = 25 Anchors = [akRight, akBottom] Caption = 'Stop' Enabled = False TabOrder = 3 OnClick = ButtonStopSendClick end end object PanelMult: TPanel Left = 319 Top = 0 Width = 176 Height = 330 Align = alRight TabOrder = 1 DesignSize = ( 176 330) object VST2: TVirtualStringTree Left = 7 Top = 8 Width = 161 Height = 283 Anchors = [akLeft, akTop, akRight, akBottom] BevelInner = bvNone BevelKind = bkFlat BorderStyle = bsNone ButtonFillMode = fmWindowColor CheckImageKind = ckXP Header.AutoSizeIndex = 0 Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'MS Sans Serif' Header.Font.Style = [] Header.MainColumn = -1 Header.Options = [hoColumnResize, hoDrag] Images = MainForm.ImageListCLS Indent = 10 Margin = 2 ParentBackground = False SelectionBlendFactor = 20 TabOrder = 0 TextMargin = 2 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.MiscOptions = [toCheckSupport, toInitOnSave, toWheelPanning] TreeOptions.PaintOptions = [toHideFocusRect, toHideSelection, toShowBackground, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toUseBlendedSelection] OnCollapsing = VST2Collapsing OnGetText = VST2GetText OnPaintText = VST2PaintText OnGetImageIndex = VST2GetImageIndex OnInitNode = VST2InitNode OnMouseUp = VST2MouseUp Columns = <> end object PB1: TProgressBar Left = 7 Top = 304 Width = 161 Height = 16 Anchors = [akRight, akBottom] Max = 0 Smooth = True Step = 1 TabOrder = 1 end end object TimerMultSend: TTimer Enabled = False OnTimer = TimerMultSendTimer Left = 288 Top = 16 end object PopupMenuRE: TPopupMenu AutoHotkeys = maManual Images = MainForm.ImageList1 Left = 256 Top = 16 object CustomItemReCopySel: TMenuItem Caption = 'Copy Selected' OnClick = CustomItemReCopySelClick end object CustomItemReCopyAll: TMenuItem Caption = 'Copy All' OnClick = CustomItemReCopyAllClick end object CustomItemRePaste: TMenuItem Caption = 'Paste' OnClick = CustomItemRePasteClick end end end