source: trunk/Packages/bgracontrols/testbgracontrols/uglassmenu.lfm

Last change on this file was 2, checked in by chronos, 5 years ago
File size: 8.8 KB
Line 
1object frmGlassMenu: TfrmGlassMenu
2 Left = 463
3 Height = 384
4 Top = 203
5 Width = 630
6 Caption = 'Glass Menu'
7 ClientHeight = 384
8 ClientWidth = 630
9 OnCreate = FormCreate
10 OnDestroy = FormDestroy
11 PopupMode = pmExplicit
12 Position = poDesktopCenter
13 LCLVersion = '0.9.31'
14 object vsBackground: TBGRAVirtualScreen
15 Left = 0
16 Height = 384
17 Top = 0
18 Width = 630
19 Align = alClient
20 Alignment = taLeftJustify
21 ClientHeight = 384
22 ClientWidth = 630
23 Color = clWhite
24 ParentColor = False
25 TabOrder = 0
26 OnRedraw = vsBackgroundRedraw
27 object btnBackground: TBGRAButton
28 Left = 195
29 Height = 200
30 Top = 92
31 Width = 240
32 Anchors = [akTop, akLeft, akRight, akBottom]
33 BodyNormal.BorderColor = 11235643
34 BodyNormal.Color = clBtnFace
35 BodyNormal.Font.Color = 7487786
36 BodyNormal.Gradient1.StartColor = 15722194
37 BodyNormal.Gradient1.EndColor = 13137169
38 BodyNormal.Gradient1.Point1XPercent = 0
39 BodyNormal.Gradient1.Point1YPercent = 0
40 BodyNormal.Gradient1.Point2XPercent = 0
41 BodyNormal.Gradient1.Point2YPercent = 100
42 BodyNormal.Gradient2.StartColor = 13137169
43 BodyNormal.Gradient2.EndColor = 15722194
44 BodyNormal.Gradient2.Point1XPercent = 0
45 BodyNormal.Gradient2.Point1YPercent = 0
46 BodyNormal.Gradient2.Point2XPercent = 0
47 BodyNormal.Gradient2.Point2YPercent = 100
48 BodyNormal.LightWidth = 0
49 BodyNormal.LightOpacity = 64
50 BodyHover.BorderColor = 14136983
51 BodyHover.Color = clBtnFace
52 BodyHover.Font.Color = 7487786
53 BodyHover.Gradient1.StartColor = 15722194
54 BodyHover.Gradient1.EndColor = 13137169
55 BodyHover.Gradient1.Point1XPercent = 0
56 BodyHover.Gradient1.Point1YPercent = 0
57 BodyHover.Gradient1.Point2XPercent = 0
58 BodyHover.Gradient1.Point2YPercent = 100
59 BodyHover.Gradient2.StartColor = 13137169
60 BodyHover.Gradient2.EndColor = 15722194
61 BodyHover.Gradient2.Point1XPercent = 0
62 BodyHover.Gradient2.Point1YPercent = 0
63 BodyHover.Gradient2.Point2XPercent = 0
64 BodyHover.Gradient2.Point2YPercent = 100
65 BodyHover.LightWidth = 0
66 BodyHover.LightOpacity = 64
67 BodyClicked.BorderColor = 11235643
68 BodyClicked.Color = clBtnFace
69 BodyClicked.Font.Color = 7487786
70 BodyClicked.Gradient1.StartColor = 15722194
71 BodyClicked.Gradient1.EndColor = 13137169
72 BodyClicked.Gradient1.Point1XPercent = 0
73 BodyClicked.Gradient1.Point1YPercent = 0
74 BodyClicked.Gradient1.Point2XPercent = 0
75 BodyClicked.Gradient1.Point2YPercent = 100
76 BodyClicked.Gradient2.StartColor = 13137169
77 BodyClicked.Gradient2.EndColor = 15722194
78 BodyClicked.Gradient2.Point1XPercent = 0
79 BodyClicked.Gradient2.Point1YPercent = 0
80 BodyClicked.Gradient2.Point2XPercent = 0
81 BodyClicked.Gradient2.Point2YPercent = 100
82 BodyClicked.LightWidth = 0
83 BodyClicked.LightOpacity = 64
84 Caption = 'Background...'
85 Color = clNone
86 ParentColor = False
87 TextShadowColorOpacity = 255
88 GlobalOpacity = 255
89 TextApplyGlobalOpacity = False
90 OnClick = btnBackgroundClick
91 end
92 object btnTextOpacity: TBGRAButton
93 Left = 88
94 Height = 33
95 Top = 343
96 Width = 168
97 Anchors = [akLeft, akBottom]
98 BodyNormal.BorderColor = 11235643
99 BodyNormal.Color = clBtnFace
100 BodyNormal.Font.Color = 7487786
101 BodyNormal.Gradient1.StartColor = 15722194
102 BodyNormal.Gradient1.EndColor = 13137169
103 BodyNormal.Gradient1.Point1XPercent = 0
104 BodyNormal.Gradient1.Point1YPercent = 0
105 BodyNormal.Gradient1.Point2XPercent = 0
106 BodyNormal.Gradient1.Point2YPercent = 100
107 BodyNormal.Gradient2.StartColor = 13137169
108 BodyNormal.Gradient2.EndColor = 15722194
109 BodyNormal.Gradient2.Point1XPercent = 0
110 BodyNormal.Gradient2.Point1YPercent = 0
111 BodyNormal.Gradient2.Point2XPercent = 0
112 BodyNormal.Gradient2.Point2YPercent = 100
113 BodyNormal.LightWidth = 0
114 BodyNormal.LightOpacity = 64
115 BodyHover.BorderColor = 14136983
116 BodyHover.Color = clBtnFace
117 BodyHover.Font.Color = 7487786
118 BodyHover.Gradient1.StartColor = 15722194
119 BodyHover.Gradient1.EndColor = 13137169
120 BodyHover.Gradient1.Point1XPercent = 0
121 BodyHover.Gradient1.Point1YPercent = 0
122 BodyHover.Gradient1.Point2XPercent = 0
123 BodyHover.Gradient1.Point2YPercent = 100
124 BodyHover.Gradient2.StartColor = 13137169
125 BodyHover.Gradient2.EndColor = 15722194
126 BodyHover.Gradient2.Point1XPercent = 0
127 BodyHover.Gradient2.Point1YPercent = 0
128 BodyHover.Gradient2.Point2XPercent = 0
129 BodyHover.Gradient2.Point2YPercent = 100
130 BodyHover.LightWidth = 0
131 BodyHover.LightOpacity = 64
132 BodyClicked.BorderColor = 11235643
133 BodyClicked.Color = clBtnFace
134 BodyClicked.Font.Color = 7487786
135 BodyClicked.Gradient1.StartColor = 15722194
136 BodyClicked.Gradient1.EndColor = 13137169
137 BodyClicked.Gradient1.Point1XPercent = 0
138 BodyClicked.Gradient1.Point1YPercent = 0
139 BodyClicked.Gradient1.Point2XPercent = 0
140 BodyClicked.Gradient1.Point2YPercent = 100
141 BodyClicked.Gradient2.StartColor = 13137169
142 BodyClicked.Gradient2.EndColor = 15722194
143 BodyClicked.Gradient2.Point1XPercent = 0
144 BodyClicked.Gradient2.Point1YPercent = 0
145 BodyClicked.Gradient2.Point2XPercent = 0
146 BodyClicked.Gradient2.Point2YPercent = 100
147 BodyClicked.LightWidth = 0
148 BodyClicked.LightOpacity = 64
149 Caption = 'Text Opacity'
150 Color = clNone
151 ParentColor = False
152 TextShadowColorOpacity = 255
153 GlobalOpacity = 255
154 TextApplyGlobalOpacity = False
155 OnClick = btnTextOpacityClick
156 end
157 object knbButtonOpacity: TBGRAKnob
158 Left = 8
159 Height = 72
160 Top = 304
161 Width = 72
162 Anchors = [akLeft, akBottom]
163 CurveExponent = 0.01999999955296
164 KnobColor = 12615680
165 LightIntensity = 100
166 PositionColor = clWhite
167 PositionWidth = 4
168 PositionOpacity = 200
169 PositionMargin = 4
170 PositionType = kptLineRoundCap
171 UsePhongLighting = True
172 MinValue = 52
173 MaxValue = 307
174 Value = 100
175 OnValueChanged = knbButtonOpacityValueChanged
176 StartFromBottom = True
177 end
178 object btnShowBkg: TBGRAButton
179 Left = 264
180 Height = 33
181 Top = 343
182 Width = 168
183 Anchors = [akLeft, akBottom]
184 BodyNormal.BorderColor = 11235643
185 BodyNormal.Color = clBtnFace
186 BodyNormal.Font.Color = 7487786
187 BodyNormal.Gradient1.StartColor = 15722194
188 BodyNormal.Gradient1.EndColor = 13137169
189 BodyNormal.Gradient1.Point1XPercent = 0
190 BodyNormal.Gradient1.Point1YPercent = 0
191 BodyNormal.Gradient1.Point2XPercent = 0
192 BodyNormal.Gradient1.Point2YPercent = 100
193 BodyNormal.Gradient2.StartColor = 13137169
194 BodyNormal.Gradient2.EndColor = 15722194
195 BodyNormal.Gradient2.Point1XPercent = 0
196 BodyNormal.Gradient2.Point1YPercent = 0
197 BodyNormal.Gradient2.Point2XPercent = 0
198 BodyNormal.Gradient2.Point2YPercent = 100
199 BodyNormal.LightWidth = 0
200 BodyNormal.LightOpacity = 64
201 BodyHover.BorderColor = 14136983
202 BodyHover.Color = clBtnFace
203 BodyHover.Font.Color = 7487786
204 BodyHover.Gradient1.StartColor = 15722194
205 BodyHover.Gradient1.EndColor = 13137169
206 BodyHover.Gradient1.Point1XPercent = 0
207 BodyHover.Gradient1.Point1YPercent = 0
208 BodyHover.Gradient1.Point2XPercent = 0
209 BodyHover.Gradient1.Point2YPercent = 100
210 BodyHover.Gradient2.StartColor = 13137169
211 BodyHover.Gradient2.EndColor = 15722194
212 BodyHover.Gradient2.Point1XPercent = 0
213 BodyHover.Gradient2.Point1YPercent = 0
214 BodyHover.Gradient2.Point2XPercent = 0
215 BodyHover.Gradient2.Point2YPercent = 100
216 BodyHover.LightWidth = 0
217 BodyHover.LightOpacity = 64
218 BodyClicked.BorderColor = 11235643
219 BodyClicked.Color = clBtnFace
220 BodyClicked.Font.Color = 7487786
221 BodyClicked.Gradient1.StartColor = 15722194
222 BodyClicked.Gradient1.EndColor = 13137169
223 BodyClicked.Gradient1.Point1XPercent = 0
224 BodyClicked.Gradient1.Point1YPercent = 0
225 BodyClicked.Gradient1.Point2XPercent = 0
226 BodyClicked.Gradient1.Point2YPercent = 100
227 BodyClicked.Gradient2.StartColor = 13137169
228 BodyClicked.Gradient2.EndColor = 15722194
229 BodyClicked.Gradient2.Point1XPercent = 0
230 BodyClicked.Gradient2.Point1YPercent = 0
231 BodyClicked.Gradient2.Point2XPercent = 0
232 BodyClicked.Gradient2.Point2YPercent = 100
233 BodyClicked.LightWidth = 0
234 BodyClicked.LightOpacity = 64
235 Caption = 'ShowBkg?'
236 Color = clNone
237 ParentColor = False
238 TextShadowColorOpacity = 255
239 GlobalOpacity = 255
240 TextApplyGlobalOpacity = False
241 OnClick = btnShowBkgClick
242 end
243 end
244 object dlgOpenBackground: TOpenDialog
245 left = 48
246 top = 8
247 end
248end
Note: See TracBrowser for help on using the repository browser.