source: VisualSwapcodes/Unit1.dfm @ 98

Last change on this file since 98 was 98, checked in by alloc, 15 years ago
File size: 2.3 KB
Line 
1object 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
92end
Note: See TracBrowser for help on using the repository browser.