| 1 |
object Form1: TForm1 |
| 2 |
Left = 0 |
| 3 |
Top = 0 |
| 4 |
Caption = 'Form1' |
| 5 |
ClientHeight = 506 |
| 6 |
ClientWidth = 677 |
| 7 |
Color = clBtnFace |
| 8 |
Font.Charset = DEFAULT_CHARSET |
| 9 |
Font.Color = clWindowText |
| 10 |
Font.Height = -11 |
| 11 |
Font.Name = 'Tahoma' |
| 12 |
Font.Style = [] |
| 13 |
OldCreateOrder = False |
| 14 |
OnCreate = FormCreate |
| 15 |
PixelsPerInch = 96 |
| 16 |
TextHeight = 13 |
| 17 |
object Splitter1: TSplitter |
| 18 |
Left = 306 |
| 19 |
Top = 0 |
| 20 |
Width = 8 |
| 21 |
Height = 506 |
| 22 |
AutoSnap = False |
| 23 |
Beveled = True |
| 24 |
ExplicitLeft = 312 |
| 25 |
end |
| 26 |
object vst: TVirtualStringTree |
| 27 |
Left = 314 |
| 28 |
Top = 0 |
| 29 |
Width = 363 |
| 30 |
Height = 506 |
| 31 |
Align = alClient |
| 32 |
AnimationDuration = 0 |
| 33 |
Header.AutoSizeIndex = 0 |
| 34 |
Header.Font.Charset = DEFAULT_CHARSET |
| 35 |
Header.Font.Color = clWindowText |
| 36 |
Header.Font.Height = -11 |
| 37 |
Header.Font.Name = 'Tahoma' |
| 38 |
Header.Font.Style = [] |
| 39 |
Header.Options = [hoColumnResize, hoVisible] |
| 40 |
TabOrder = 0 |
| 41 |
TreeOptions.SelectionOptions = [toFullRowSelect] |
| 42 |
OnGetText = vstGetText |
| 43 |
ExplicitLeft = 139 |
| 44 |
ExplicitTop = 3 |
| 45 |
ExplicitWidth = 535 |
| 46 |
ExplicitHeight = 500 |
| 47 |
Columns = < |
| 48 |
item |
| 49 |
MaxWidth = 250 |
| 50 |
MinWidth = 100 |
| 51 |
Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] |
| 52 |
Position = 0 |
| 53 |
Width = 190 |
| 54 |
WideText = 'Type' |
| 55 |
end |
| 56 |
item |
| 57 |
MaxWidth = 120 |
| 58 |
MinWidth = 80 |
| 59 |
Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] |
| 60 |
Position = 1 |
| 61 |
Width = 80 |
| 62 |
WideText = 'Address' |
| 63 |
end |
| 64 |
item |
| 65 |
MaxWidth = 100 |
| 66 |
MinWidth = 50 |
| 67 |
Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] |
| 68 |
Position = 2 |
| 69 |
WideText = 'Size' |
| 70 |
end> |
| 71 |
end |
| 72 |
object list: TListBox |
| 73 |
Left = 0 |
| 74 |
Top = 0 |
| 75 |
Width = 306 |
| 76 |
Height = 506 |
| 77 |
Align = alLeft |
| 78 |
Font.Charset = DEFAULT_CHARSET |
| 79 |
Font.Color = clWindowText |
| 80 |
Font.Height = -11 |
| 81 |
Font.Name = 'Courier' |
| 82 |
Font.Style = [] |
| 83 |
ItemHeight = 13 |
| 84 |
ParentFont = False |
| 85 |
Sorted = True |
| 86 |
TabOrder = 1 |
| 87 |
OnClick = listClick |
| 88 |
ExplicitLeft = 3 |
| 89 |
ExplicitTop = 3 |
| 90 |
ExplicitHeight = 500 |
| 91 |
end |
| 92 |
end |
