Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- object Form6: TForm6
- Left = 0
- Top = 0
- Caption = 'Form6'
- ClientHeight = 411
- ClientWidth = 698
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 114
- Top = 14
- Width = 18
- Height = 13
- Caption = 'VT1'
- end
- object Label2: TLabel
- Left = 425
- Top = 21
- Width = 18
- Height = 13
- Caption = 'VT2'
- end
- object VT1: TVirtualStringTree
- Left = 24
- Top = 39
- Width = 265
- Height = 265
- ClipboardFormats.Strings = (
- 'Virtual Tree Data')
- Header.AutoSizeIndex = 0
- Header.DefaultHeight = 17
- Header.Font.Charset = DEFAULT_CHARSET
- Header.Font.Color = clWindowText
- Header.Font.Height = -11
- Header.Font.Name = 'Tahoma'
- Header.Font.Style = []
- Header.MainColumn = -1
- TabOrder = 0
- OnGetText = VT2GetText
- OnLoadNode = VT1LoadNode
- OnSaveNode = VT1SaveNode
- Columns = <>
- end
- object VT2: TVirtualStringTree
- Left = 425
- Top = 40
- Width = 265
- Height = 265
- Header.AutoSizeIndex = 0
- Header.DefaultHeight = 17
- Header.Font.Charset = DEFAULT_CHARSET
- Header.Font.Color = clWindowText
- Header.Font.Height = -11
- Header.Font.Name = 'Tahoma'
- Header.Font.Style = []
- Header.MainColumn = -1
- TabOrder = 1
- OnGetText = VT2GetText
- OnLoadNode = VT1LoadNode
- OnSaveNode = VT1SaveNode
- Columns = <>
- end
- object btCopyTo: TButton
- Left = 24
- Top = 352
- Width = 169
- Height = 25
- Caption = 'CopyTo (from VT1 to VT2)'
- TabOrder = 2
- OnClick = btCopyToClick
- end
- object btCopyPaste: TButton
- Left = 24
- Top = 8
- Width = 80
- Height = 25
- Caption = 'Copy'
- TabOrder = 3
- OnClick = btCopyPasteClick
- end
- object btSaveToFileAndReload: TButton
- Left = 199
- Top = 352
- Width = 122
- Height = 25
- Caption = 'Save VT1 to Disk'
- TabOrder = 4
- OnClick = btSaveToFileAndReloadClick
- end
- object Button1: TButton
- Left = 610
- Top = 8
- Width = 80
- Height = 25
- Caption = 'Paste'
- TabOrder = 5
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 327
- Top = 352
- Width = 122
- Height = 25
- Caption = 'Load from disk to VT2'
- TabOrder = 6
- OnClick = Button2Click
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement