-
Notifications
You must be signed in to change notification settings - Fork 1
/
frmRichEditForm.dfm
170 lines (170 loc) · 3.69 KB
/
frmRichEditForm.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
object frmRichEdit: TfrmRichEdit
Left = 0
Top = 0
ActiveControl = edSearch
BorderIcons = [biSystemMenu, biMaximize]
ClientHeight = 615
ClientWidth = 864
Color = clBtnFace
ParentFont = True
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
DesignSize = (
864
615)
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 669
Top = 11
Width = 30
Height = 13
Anchors = [akTop, akRight]
Caption = '&Zoom:'
FocusControl = tbrZoom
end
object btnOK: TButton
Left = 781
Top = 582
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&OK'
Enabled = False
ModalResult = 1
TabOrder = 5
end
object cbDontShowAgain: TCheckBox
Left = 600
Top = 586
Width = 175
Height = 17
Anchors = [akRight, akBottom]
Caption = '&Don'#39't show again until changed'
TabOrder = 4
end
object tbrZoom: TTrackBar
Left = 706
Top = 8
Width = 150
Height = 21
Anchors = [akTop, akRight]
Max = 400
Min = 25
Frequency = 10
Position = 100
PositionToolTip = ptTop
ShowSelRange = False
TabOrder = 2
OnChange = tbrZoomChange
end
object pnlMain: TPanel
AlignWithMargins = True
Left = 3
Top = 35
Width = 858
Height = 545
Margins.Top = 35
Margins.Bottom = 35
Align = alClient
BevelOuter = bvNone
TabOrder = 3
object splTOC: TJvSplitter
Left = 185
Top = 0
Height = 545
AutoSnap = False
MinSize = 150
ResizeStyle = rsUpdate
Visible = False
OnMoved = splTOCMoved
ExplicitLeft = 1000
ExplicitHeight = 536
end
object reMain: TJvRichEdit
Left = 188
Top = 0
Width = 670
Height = 545
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
HideSelection = False
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
SelText = ''
StreamFormat = sfRichText
TabOrder = 1
WantReturns = False
end
object pnlTOC: TPanel
Left = 0
Top = 0
Width = 185
Height = 545
Align = alLeft
BevelOuter = bvNone
ParentShowHint = False
ShowHint = True
TabOrder = 0
Visible = False
object vstTOC: TVirtualStringTree
Left = 0
Top = 0
Width = 185
Height = 545
Align = alClient
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.MainColumn = -1
HintMode = hmTooltip
ScrollBarOptions.ScrollBars = ssVertical
TabOrder = 0
TreeOptions.PaintOptions = [toHideFocusRect, toHideSelection, toShowHorzGridLines, toThemeAware, toUseBlendedImages, toZebra]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnCollapsing = vstTOCCollapsing
OnGetText = vstTOCGetText
OnNodeDblClick = vstTOCNodeDblClick
Columns = <>
end
end
end
object edSearch: TLabeledEdit
Left = 104
Top = 8
Width = 545
Height = 21
Anchors = [akLeft, akTop, akRight]
EditLabel.Width = 37
EditLabel.Height = 13
EditLabel.Caption = '&Search:'
LabelPosition = lpLeft
TabOrder = 1
OnKeyPress = edSearchKeyPress
end
object btnTOC: TButton
Left = 8
Top = 8
Width = 49
Height = 21
Caption = '&TOC'
TabOrder = 0
OnClick = btnTOCClick
end
object tmrEnableButton: TTimer
Enabled = False
Interval = 500
OnTimer = tmrEnableButtonTimer
Left = 672
Top = 344
end
end