Line | |
---|
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 | Columns = < |
---|
44 | item |
---|
45 | MaxWidth = 250 |
---|
46 | MinWidth = 100 |
---|
47 | Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] |
---|
48 | Position = 0 |
---|
49 | Width = 190 |
---|
50 | WideText = 'Type' |
---|
51 | end |
---|
52 | item |
---|
53 | MaxWidth = 120 |
---|
54 | MinWidth = 80 |
---|
55 | Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] |
---|
56 | Position = 1 |
---|
57 | Width = 80 |
---|
58 | WideText = 'Address' |
---|
59 | end |
---|
60 | item |
---|
61 | MaxWidth = 100 |
---|
62 | MinWidth = 50 |
---|
63 | Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible] |
---|
64 | Position = 2 |
---|
65 | WideText = 'Size' |
---|
66 | end> |
---|
67 | end |
---|
68 | object list: TListBox |
---|
69 | Left = 0 |
---|
70 | Top = 0 |
---|
71 | Width = 306 |
---|
72 | Height = 506 |
---|
73 | Align = alLeft |
---|
74 | Font.Charset = DEFAULT_CHARSET |
---|
75 | Font.Color = clWindowText |
---|
76 | Font.Height = -11 |
---|
77 | Font.Name = 'Courier' |
---|
78 | Font.Style = [] |
---|
79 | ItemHeight = 13 |
---|
80 | ParentFont = False |
---|
81 | Sorted = True |
---|
82 | TabOrder = 1 |
---|
83 | OnClick = listClick |
---|
84 | end |
---|
85 | end |
---|
Note: See
TracBrowser
for help on using the repository browser.