Sign in Join
Wiki copytemporary

BGRAButton Gallery: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

OldNewLine
1-## Overview
1+## Contents
22
3-This is a gallery of creations with BGRAButton. See [[BGRAControls]] article for more information.
3+ * 1 Overview
4+ * 2 Tips
5+ * 2.1 Sphere
6+ * 2.2 Only one state
7+ * 2.3 Button very slow
8+ * 2.4 Single gradient button
9+ * 2.5 Single color button
10+ * 2.6 How to avoid flickering
11+ * 2.7 Using as Label
12+ * 3 Like Web
13+ * 3.1 Facebook Menu
14+ * 3.2 Google Menu
15+ * 4 Like Windows Controls
16+ * 4.1 Windows 7 Button
17+ * 4.2 Windows 7 Explorer ToolBar
18+ * 4.3 Office 2010 Button
19+ * 5 Like Mac Controls
20+ * 5.1 macOS Lion Button
21+ * 6 Other
22+ * 6.1 Lazarus Custom Drawn
23+ * 7 Flash Player Setup
424
5-Some of those examples can be found in *testbgracontrols* project in [[BGRAControls]] package.
25+## Overview
626
7-<figure>
8-<img src="lainzbutton.png" title="lainzbutton.png" />
9-<figcaption>lainzbutton.png</figcaption>
10-</figure>
27+This is a gallery of creations with BGRAButton. See [[BGRAControls]] article for more information.
1128
12-*You need BGRABitmapTypes unit to run this code.*
29+Some of those examples can be found in _testbgracontrols_ project in [[BGRAControls]] package.
1330
14-Add a new BGRAButton, go OnPaint event and add this code:
31+[![lainzbutton.png](/wiki-images/4/49/lainzbutton.png)](</File:lainzbutton.png>)
1532
16-``` pascal
33+_You need BGRABitmapTypes unit to run this code._
34+
35+Add a new BGRAButton, go OnPaint event and add this code:
36+```
1737procedure TForm1.FormCreate(Sender: TObject);
18-begin
19- Self.Color:=RGBToColor(230,230,230);
20- // Lainz Button
21- with BGRAButton1 do begin
22- RoundX:=12;
23- RoundY:=12;
24- TextShadowOffsetX:=1;
25- TextShadowOffsetY:=1;
26- TextShadowRadius:=2;
27- // Normal
28- with BodyNormal do begin
29- BorderStyle:=bboNone;
30- Font.Color:=RGBToColor(230,230,255);
31- Font.Style:=[fsBold];
32- Gradient1.EndColor:=RGBToColor(64,64,128);
33- Gradient1.StartColor:=RGBToColor(0,0,64);
34- Gradient1EndPercent:=60;
35- // Gradient2
36- with Gradient2 do begin
37- EndColor:=RGBToColor(0,0,64);
38- GradientType:=gtRadial;
39- Point1XPercent:=50;
40- Point1YPercent:=100;
41- Point2YPercent:=0;
42- StartColor:=RGBToColor(64,64,128);
43- end;
44- end;
45- // Hover
46- with BodyHover do begin
47- BorderStyle:=bboNone;
48- Font.Color:=RGBToColor(255,255,255);
49- Font.Style:=[fsBold];
50- Gradient1EndPercent:=100;
51- // Gradient1
52- with Gradient1 do begin
53- EndColor:=RGBToColor(0,64,128);
54- GradientType:=gtRadial;
55- Point1XPercent:=50;
56- Point1YPercent:=100;
57- Point2YPercent:=0;
58- StartColor:=RGBToColor(0,128,255);
59- end;
60- end;
61- // Clicked
62- with BodyClicked do begin
63- BorderStyle:=bboNone;
64- Font.Color:=RGBToColor(230,230,255);
65- Font.Style:=[fsBold];
66- Gradient1EndPercent:=100;
67- // Gradient1
68- with Gradient1 do begin
69- EndColor:=RGBToColor(0,0,64);
70- GradientType:=gtRadial;
71- Point1XPercent:=50;
72- Point1YPercent:=100;
73- Point2YPercent:=0;
74- StartColor:=RGBToColor(0,64,128);
38+ begin
39+ Self.Color:=RGBToColor(230,230,230);
40+ // Lainz Button
41+ with BGRAButton1 do begin
42+ RoundX:=12;
43+ RoundY:=12;
44+ TextShadowOffsetX:=1;
45+ TextShadowOffsetY:=1;
46+ TextShadowRadius:=2;
47+ // Normal
48+ with BodyNormal do begin
49+ BorderStyle:=bboNone;
50+ Font.Color:=RGBToColor(230,230,255);
51+ Font.Style:=[fsBold];
52+ Gradient1.EndColor:=RGBToColor(64,64,128);
53+ Gradient1.StartColor:=RGBToColor(0,0,64);
54+ Gradient1EndPercent:=60;
55+ // Gradient2
56+ with Gradient2 do begin
57+ EndColor:=RGBToColor(0,0,64);
58+ GradientType:=gtRadial;
59+ Point1XPercent:=50;
60+ Point1YPercent:=100;
61+ Point2YPercent:=0;
62+ StartColor:=RGBToColor(64,64,128);
63+ end;
64+ end;
65+ // Hover
66+ with BodyHover do begin
67+ BorderStyle:=bboNone;
68+ Font.Color:=RGBToColor(255,255,255);
69+ Font.Style:=[fsBold];
70+ Gradient1EndPercent:=100;
71+ // Gradient1
72+ with Gradient1 do begin
73+ EndColor:=RGBToColor(0,64,128);
74+ GradientType:=gtRadial;
75+ Point1XPercent:=50;
76+ Point1YPercent:=100;
77+ Point2YPercent:=0;
78+ StartColor:=RGBToColor(0,128,255);
79+ end;
80+ end;
81+ // Clicked
82+ with BodyClicked do begin
83+ BorderStyle:=bboNone;
84+ Font.Color:=RGBToColor(230,230,255);
85+ Font.Style:=[fsBold];
86+ Gradient1EndPercent:=100;
87+ // Gradient1
88+ with Gradient1 do begin
89+ EndColor:=RGBToColor(0,0,64);
90+ GradientType:=gtRadial;
91+ Point1XPercent:=50;
92+ Point1YPercent:=100;
93+ Point2YPercent:=0;
94+ StartColor:=RGBToColor(0,64,128);
95+ end;
96+ end;
7597 end;
7698 end;
77- end;
78-end;
7999```
80100
81101## Tips
82102
83-Those are some tips and how-to's.
103+Those are some tips and how-to's.
84104
85105### Sphere
86106
87-<figure>
88-<img src="bgraspherebutton.png" title="bgraspherebutton.png" />
89-<figcaption>bgraspherebutton.png</figcaption>
90-</figure>
91-
92-To create a sphere you need to set Width & Height to the same value and RoundX & RoundY a half of Width & a half of Height. Use this code to obtain a sphere like in the previous image:
107+[![bgraspherebutton.png](/wiki-images/2/28/bgraspherebutton.png)](</File:bgraspherebutton.png>)
93108
94-``` pascal
109+To create a sphere you need to set Width & Height to the same value and RoundX & RoundY a half of Width & a half of Height. Use this code to obtain a sphere like in the previous image:
110+```
95111BGRAButton1.Width:=200;
96-BGRAButton1.Height:=200;
97-BGRAButton.RoundX:=100;
98-BGRAButton.RoundY:=100;
112+ BGRAButton1.Height:=200;
113+ BGRAButton.RoundX:=100;
114+ BGRAButton.RoundY:=100;
99115```
100116
101-Or do it in this way:
102-
103-``` pascal
117+Or do it in this way:
118+```
104119// Square
105- with BGRAButton1 do begin
106- Width:= 200;
107- Height:= Width;
108- end;
109-
110- // Sphere
111- with BGRAButton1 do begin
112- RoundX:= Round(Width div 2);
113- RoundY:= Round(Height div 2);
114- end;
120+ with BGRAButton1 do begin
121+ Width:= 200;
122+ Height:= Width;
123+ end;
124+
125+ // Sphere
126+ with BGRAButton1 do begin
127+ RoundX:= Round(Width div 2);
128+ RoundY:= Round(Height div 2);
129+ end;
115130```
116131
117132### Only one state
118133
119-If you only want a solid button just with the state *BodyNormal* you must set to true the property *StaticButton*.
120-
121-``` pascal
134+If you only want a solid button just with the state _BodyNormal_ you must set to true the property _StaticButton_.
135+```
122136BGRAButton1.StaticButton:=True;
123137```
124138
125139### Button very slow
126140
127-If the button is very slow you can disable *TextShadow* to improve speed.
128-
129-``` pascal
141+If the button is very slow you can disable _TextShadow_ to improve speed.
142+```
130143BGRAButton1.TextShadow:=False;
131144```
132145
133-And you can improve speed using *Single gradient button* or *Single color button*.
146+And you can improve speed using _Single gradient button_ or _Single color button_.
134147
135148### Single gradient button
136149
137-You can use just only one gradient if you want.
138-
139-``` pascal
150+You can use just only one gradient if you want.
151+```
140152BGRAButton1.Gradient1EndPercent:=100; // if you want to use only Gradient1
141-BGRAButton1.Gradient1EndPercent:=0; // if you want to use only Gradient2
153+ BGRAButton1.Gradient1EndPercent:=0; // if you want to use only Gradient2
142154```
143155
144156### Single color button
145157
146-Changing the *Style* of the button you can display just a single color as background.
147-
148-``` pascal
158+Changing the _Style_ of the button you can display just a single color as background.
159+```
149160BGRAButton1.BodyNormal.Style:=bbsColor;
150161```
151162
152163### How to avoid flickering
153164
154-The button will flicker if you are running Windows without themes (classic). To avoid this enable *DoubleBuffered* OnCreate event of each Form.
155-
156-``` pascal
165+The button will flicker if you are running Windows without themes (classic). To avoid this enable _DoubleBuffered_ OnCreate event of each Form.
166+```
157167procedure TForm1.FormCreate(Sender: TObject);
158-begin
159- Self.DoubleBuffered:=True;
160-end;
168+ begin
169+ Self.DoubleBuffered:=True;
170+ end;
161171```
162172
163173### Using as Label
164174
165-The easy way is set to true the property *StaticButton*.
166-
167-``` pascal
175+The easy way is set to true the property _StaticButton_.
176+```
168177BGRAButton1.StaticButton:=True;
169178```
170179
171-Then set BodyNormal.Style to bbsClear and BodyNormal.BorderStyle to bboNone.
180+Then set BodyNormal.Style to bbsClear and BodyNormal.BorderStyle to bboNone.
172181
173182## Like Web
174183
175-Those are like websites, web apps.
184+Those are like websites, web apps.
176185
177186### Facebook Menu
178187
179-<figure>
180-<img src="bgrafacebook.png" title="bgrafacebook.png" />
181-<figcaption>bgrafacebook.png</figcaption>
182-</figure>
183-
184-Like Facebook Menu (2011), add a BGRAPanel with 2 BGRAButton inside, then go OnCreate event of Form1 and add this code:
188+[![bgrafacebook.png](/wiki-images/7/79/bgrafacebook.png)](</File:bgrafacebook.png>)
185189
186-``` pascal
190+Like Facebook Menu (2011), add a BGRAPanel with 2 BGRAButton inside, then go OnCreate event of Form1 and add this code:
191+```
187192procedure TForm1.FormCreate(Sender: TObject);
188-begin
189- // Panel
190- with BGRAPanel1 do begin
191- BackgroundStyle:=bpsColor;
192- BevelOuter:=bvNone;
193- //Color:=RGBToColor(98,122,173); // Light Background
194- Color:=RGBToColor(59,89,152); // Dark Background
195- end;
196- // Light Menu
197- with BGRAButton1 do begin
198- TextShadow:=False;
199- // Normal
200- with BodyNormal do begin
201- BorderColor:=RGBToColor(98,122,173);
202- Color:=RGBToColor(98,122,173);
203- Font.Color:=clWhite;
204- Font.Style:=[fsBold];
205- Style:=bbsColor;
206- end;
207- // Hover
208- with BodyHover do begin
209- BorderColor:=RGBToColor(109,134,183);
210- Color:=RGBToColor(109,134,183);
211- Font.Color:=clWhite;
212- Font.Style:=[fsBold];
213- Style:=bbsColor;
214- end;
215- // Clicked
216- with BodyClicked do begin
217- BorderColor:=clBlack;
218- Color:=clWhite;
219- Font.Color:=clBlack;
220- Font.Style:=[fsBold];
221- Style:=bbsColor;
222- end;
223- end;
224- // Dark Menu
225- with BGRAButton2 do begin
226- TextShadow:=False;
227- // Normal
228- with BodyNormal do begin
229- BorderColor:=RGBToColor(59,89,152);
230- Color:=RGBToColor(59,89,152);
231- Font.Color:=RGBToColor(42,66,128);
232- Font.Style:=[fsBold];
233- Style:=bbsColor;
234- end;
235- // Hover
236- with BodyHover do begin
237- BorderColor:=RGBToColor(75,103,161);
238- Color:=RGBToColor(75,103,161);
239- Font.Color:=RGBToColor(42,66,128);
240- Font.Style:=[fsBold];
241- Style:=bbsColor;
242- end;
243- // Clicked
244- with BodyClicked do begin
245- BorderColor:=clBlack;
246- Color:=clWhite;
247- Font.Color:=RGBToColor(42,66,128);
248- Font.Style:=[fsBold];
249- Style:=bbsColor;
193+ begin
194+ // Panel
195+ with BGRAPanel1 do begin
196+ BackgroundStyle:=bpsColor;
197+ BevelOuter:=bvNone;
198+ //Color:=RGBToColor(98,122,173); // Light Background
199+ Color:=RGBToColor(59,89,152); // Dark Background
200+ end;
201+ // Light Menu
202+ with BGRAButton1 do begin
203+ TextShadow:=False;
204+ // Normal
205+ with BodyNormal do begin
206+ BorderColor:=RGBToColor(98,122,173);
207+ Color:=RGBToColor(98,122,173);
208+ Font.Color:=clWhite;
209+ Font.Style:=[fsBold];
210+ Style:=bbsColor;
211+ end;
212+ // Hover
213+ with BodyHover do begin
214+ BorderColor:=RGBToColor(109,134,183);
215+ Color:=RGBToColor(109,134,183);
216+ Font.Color:=clWhite;
217+ Font.Style:=[fsBold];
218+ Style:=bbsColor;
219+ end;
220+ // Clicked
221+ with BodyClicked do begin
222+ BorderColor:=clBlack;
223+ Color:=clWhite;
224+ Font.Color:=clBlack;
225+ Font.Style:=[fsBold];
226+ Style:=bbsColor;
227+ end;
228+ end;
229+ // Dark Menu
230+ with BGRAButton2 do begin
231+ TextShadow:=False;
232+ // Normal
233+ with BodyNormal do begin
234+ BorderColor:=RGBToColor(59,89,152);
235+ Color:=RGBToColor(59,89,152);
236+ Font.Color:=RGBToColor(42,66,128);
237+ Font.Style:=[fsBold];
238+ Style:=bbsColor;
239+ end;
240+ // Hover
241+ with BodyHover do begin
242+ BorderColor:=RGBToColor(75,103,161);
243+ Color:=RGBToColor(75,103,161);
244+ Font.Color:=RGBToColor(42,66,128);
245+ Font.Style:=[fsBold];
246+ Style:=bbsColor;
247+ end;
248+ // Clicked
249+ with BodyClicked do begin
250+ BorderColor:=clBlack;
251+ Color:=clWhite;
252+ Font.Color:=RGBToColor(42,66,128);
253+ Font.Style:=[fsBold];
254+ Style:=bbsColor;
255+ end;
256+ end;
250257 end;
251- end;
252-end;
253258```
254259
255-You can set *Clicked* properties same as *Hover* for standard buttons (not menu's).
260+You can set _Clicked_ properties same as _Hover_ for standard buttons (not menu's).
256261
257262### Google Menu
258263
259-<figure>
260-<img src="bgragoogle.png" title="bgragoogle.png" />
261-<figcaption>bgragoogle.png</figcaption>
262-</figure>
263-
264-Like Google Menu (2011), add a BGRAPanel with a BGRAButton inside and another BGRAButton in the Form, then go OnCreate event of Form1 and add this code:
264+[![bgragoogle.png](/wiki-images/0/04/bgragoogle.png)](</File:bgragoogle.png>)
265265
266-``` pascal
266+Like Google Menu (2011), add a BGRAPanel with a BGRAButton inside and another BGRAButton in the Form, then go OnCreate event of Form1 and add this code:
267+```
267268procedure TForm1.FormCreate(Sender: TObject);
268-begin
269- // Background
270- Self.Color:=clWhite;
271- // Panel
272- with BGRAPanel1 do begin
273- BevelOuter:=bvNone;
274- Gradient.StartColor:=clWhite;
275- Gradient.EndColor:=RGBToColor(245,245,245);
276- end;
277- // Menu Button
278- with BGRAButton1 do begin
279- TextShadow:=False;
280- // Normal
281- with BodyNormal do begin
282- BorderStyle:=bboNone;
283- Font.Color:=RGBToColor(51,102,204);
284- Style:=bbsClear;
285- end;
286- // Hover
287- with BodyHover do begin
288- BorderStyle:=bboNone;
289- Gradient1.StartColor:=RGBToColor(227,234,248);
290- Gradient1.EndColor:=RGBToColor(223,229,242);
291- Font.Color:=RGBToColor(51,102,204);
292- Gradient1EndPercent:=100;
293- end;
294- // Clicked
295- with BodyClicked do begin
296- BorderStyle:=bboNone;
297- Gradient1.StartColor:=RGBToColor(227,234,248);
298- Gradient1.EndColor:=RGBToColor(223,229,242);
299- Font.Color:=RGBToColor(51,102,204);
300- Gradient1EndPercent:=100;
301- end;
302- end;
303- // Button
304- with BGRAButton2 do begin
305- TextShadow:=False;
306- // Normal
307- with BodyNormal do begin
308- BorderColor:=RGBToColor(205,205,205);
309- Gradient1.StartColor:=RGBToColor(241,241,241);
310- Gradient1.EndColor:=RGBToColor(223,223,223);
311- Font.Color:=clBlack;
312- Gradient1EndPercent:=100;
313- end;
314- // Hover
315- with BodyHover do begin
316- BorderColor:=RGBToColor(205,205,205);
317- Gradient1.StartColor:=RGBToColor(241,241,241);
318- Gradient1.EndColor:=RGBToColor(223,223,223);
319- Font.Color:=clBlack;
320- Gradient1EndPercent:=100;
321- end;
322- // Clicked
323- with BodyClicked do begin
324- BorderColor:=RGBToColor(204,204,204);
325- Color:=RGBToColor(204,204,204);
326- Font.Color:=clBlack;
327- Style:=bbsColor;
269+ begin
270+ // Background
271+ Self.Color:=clWhite;
272+ // Panel
273+ with BGRAPanel1 do begin
274+ BevelOuter:=bvNone;
275+ Gradient.StartColor:=clWhite;
276+ Gradient.EndColor:=RGBToColor(245,245,245);
277+ end;
278+ // Menu Button
279+ with BGRAButton1 do begin
280+ TextShadow:=False;
281+ // Normal
282+ with BodyNormal do begin
283+ BorderStyle:=bboNone;
284+ Font.Color:=RGBToColor(51,102,204);
285+ Style:=bbsClear;
286+ end;
287+ // Hover
288+ with BodyHover do begin
289+ BorderStyle:=bboNone;
290+ Gradient1.StartColor:=RGBToColor(227,234,248);
291+ Gradient1.EndColor:=RGBToColor(223,229,242);
292+ Font.Color:=RGBToColor(51,102,204);
293+ Gradient1EndPercent:=100;
294+ end;
295+ // Clicked
296+ with BodyClicked do begin
297+ BorderStyle:=bboNone;
298+ Gradient1.StartColor:=RGBToColor(227,234,248);
299+ Gradient1.EndColor:=RGBToColor(223,229,242);
300+ Font.Color:=RGBToColor(51,102,204);
301+ Gradient1EndPercent:=100;
302+ end;
303+ end;
304+ // Button
305+ with BGRAButton2 do begin
306+ TextShadow:=False;
307+ // Normal
308+ with BodyNormal do begin
309+ BorderColor:=RGBToColor(205,205,205);
310+ Gradient1.StartColor:=RGBToColor(241,241,241);
311+ Gradient1.EndColor:=RGBToColor(223,223,223);
312+ Font.Color:=clBlack;
313+ Gradient1EndPercent:=100;
314+ end;
315+ // Hover
316+ with BodyHover do begin
317+ BorderColor:=RGBToColor(205,205,205);
318+ Gradient1.StartColor:=RGBToColor(241,241,241);
319+ Gradient1.EndColor:=RGBToColor(223,223,223);
320+ Font.Color:=clBlack;
321+ Gradient1EndPercent:=100;
322+ end;
323+ // Clicked
324+ with BodyClicked do begin
325+ BorderColor:=RGBToColor(204,204,204);
326+ Color:=RGBToColor(204,204,204);
327+ Font.Color:=clBlack;
328+ Style:=bbsColor;
329+ end;
330+ end;
328331 end;
329- end;
330-end;
331332```
332333
333334## Like Windows Controls
334335
335-Those are like Windows Controls.
336+Those are like Windows Controls.
336337
337338### Windows 7 Button
338339
339-<figure>
340-<img src="bgrabuttonwin7.png" title="bgrabuttonwin7.png" />
341-<figcaption>bgrabuttonwin7.png</figcaption>
342-</figure>
343-
344-Like Windows 7 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
340+[![bgrabuttonwin7.png](/wiki-images/4/46/bgrabuttonwin7.png)](</File:bgrabuttonwin7.png>)
345341
346-``` pascal
342+Like Windows 7 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
343+```
347344procedure TForm1.FormCreate(Sender: TObject);
348-begin
349- // Button
350- with BGRAButton1 do begin
351- TextShadow:=False;
352- RoundX:=3;
353- RoundY:=3;
354- // Normal
355- with BodyNormal do begin
356- Font.Color:=clBlack;
357- Gradient1EndPercent:=50;
358- BorderColor:=RGBToColor(112,112,112);
359- Gradient1.StartColor:=RGBToColor(242,242,242);
360- Gradient1.EndColor:=RGBToColor(235,235,235);
361- Gradient2.StartColor:=RGBToColor(221,221,221);
362- Gradient2.EndColor:=RGBToColor(207,207,207);
363- end;
364- // Hover
365- with BodyHover do begin
366- Font.Color:=clBlack;
367- Gradient1EndPercent:=50;
368- BorderColor:=RGBToColor(60,127,177);
369- Gradient1.StartColor:=RGBToColor(234,246,253);
370- Gradient1.EndColor:=RGBToColor(217,240,252);
371- Gradient2.StartColor:=RGBToColor(190,230,253);
372- Gradient2.EndColor:=RGBToColor(167,217,245);
373- end;
374- // Clicked
375- with BodyClicked do begin
376- Font.Color:=clBlack;
377- Gradient1EndPercent:=55;
378- BorderColor:=RGBToColor(44,98,139);
379- Gradient1.StartColor:=RGBToColor(229,244,252);
380- Gradient1.EndColor:=RGBToColor(196,229,246);
381- Gradient2.StartColor:=RGBToColor(152,209,239);
382- Gradient2.EndColor:=RGBToColor(104,179,219);
345+ begin
346+ // Button
347+ with BGRAButton1 do begin
348+ TextShadow:=False;
349+ RoundX:=3;
350+ RoundY:=3;
351+ // Normal
352+ with BodyNormal do begin
353+ Font.Color:=clBlack;
354+ Gradient1EndPercent:=50;
355+ BorderColor:=RGBToColor(112,112,112);
356+ Gradient1.StartColor:=RGBToColor(242,242,242);
357+ Gradient1.EndColor:=RGBToColor(235,235,235);
358+ Gradient2.StartColor:=RGBToColor(221,221,221);
359+ Gradient2.EndColor:=RGBToColor(207,207,207);
360+ end;
361+ // Hover
362+ with BodyHover do begin
363+ Font.Color:=clBlack;
364+ Gradient1EndPercent:=50;
365+ BorderColor:=RGBToColor(60,127,177);
366+ Gradient1.StartColor:=RGBToColor(234,246,253);
367+ Gradient1.EndColor:=RGBToColor(217,240,252);
368+ Gradient2.StartColor:=RGBToColor(190,230,253);
369+ Gradient2.EndColor:=RGBToColor(167,217,245);
370+ end;
371+ // Clicked
372+ with BodyClicked do begin
373+ Font.Color:=clBlack;
374+ Gradient1EndPercent:=55;
375+ BorderColor:=RGBToColor(44,98,139);
376+ Gradient1.StartColor:=RGBToColor(229,244,252);
377+ Gradient1.EndColor:=RGBToColor(196,229,246);
378+ Gradient2.StartColor:=RGBToColor(152,209,239);
379+ Gradient2.EndColor:=RGBToColor(104,179,219);
380+ end;
381+ end;
383382 end;
384- end;
385-end;
386383```
387384
388385### Windows 7 Explorer ToolBar
389386
390-<figure>
391-<img src="bgratoolwin7.png" title="bgratoolwin7.png" />
392-<figcaption>bgratoolwin7.png</figcaption>
393-</figure>
394-
395-Like Windows 7 explorer toolbar button, add a BGRAVirtualScreen with a BGRAButton inside, then go OnCreate event of Form1 and add this code:
387+[![bgratoolwin7.png](/wiki-images/d/de/bgratoolwin7.png)](</File:bgratoolwin7.png>)
396388
397-``` pascal
389+Like Windows 7 explorer toolbar button, add a BGRAVirtualScreen with a BGRAButton inside, then go OnCreate event of Form1 and add this code:
390+```
398391procedure TForm1.FormCreate(Sender: TObject);
399-begin
400- // Button
401- with BGRAButton1 do begin
402- TextShadow:=False;
403- RoundX:=2;
404- RoundY:=2;
405- // Normal
406- with BodyNormal do begin
407- Font.Color:=clBlack;
408- BorderStyle:=bboNone;
409- Style:=bbsClear;
410- end;
411- // Hover
412- with BodyHover do begin
413- Font.Color:=clBlack;
414- Gradient1EndPercent:=50;
415- BorderColor:=RGBToColor(187,202,219);
416- Gradient1.StartColor:=RGBToColor(248,251,254);
417- Gradient1.EndColor:=RGBToColor(237,242,250);
418- Gradient2.StartColor:=RGBToColor(215,228,244);
419- Gradient2.EndColor:=RGBToColor(193,210,232);
420- end;
421- // Clicked
422- with BodyClicked do begin
423- Font.Color:=clBlack;
424- Gradient1EndPercent:=55;
425- BorderColor:=RGBToColor(187,202,219);
426- Gradient1.StartColor:=RGBToColor(226,236,245);
427- Gradient1.EndColor:=RGBToColor(216,228,241);
428- Gradient2.StartColor:=RGBToColor(207,219,236);
429- Gradient2.EndColor:=RGBToColor(207,220,237);
392+ begin
393+ // Button
394+ with BGRAButton1 do begin
395+ TextShadow:=False;
396+ RoundX:=2;
397+ RoundY:=2;
398+ // Normal
399+ with BodyNormal do begin
400+ Font.Color:=clBlack;
401+ BorderStyle:=bboNone;
402+ Style:=bbsClear;
403+ end;
404+ // Hover
405+ with BodyHover do begin
406+ Font.Color:=clBlack;
407+ Gradient1EndPercent:=50;
408+ BorderColor:=RGBToColor(187,202,219);
409+ Gradient1.StartColor:=RGBToColor(248,251,254);
410+ Gradient1.EndColor:=RGBToColor(237,242,250);
411+ Gradient2.StartColor:=RGBToColor(215,228,244);
412+ Gradient2.EndColor:=RGBToColor(193,210,232);
413+ end;
414+ // Clicked
415+ with BodyClicked do begin
416+ Font.Color:=clBlack;
417+ Gradient1EndPercent:=55;
418+ BorderColor:=RGBToColor(187,202,219);
419+ Gradient1.StartColor:=RGBToColor(226,236,245);
420+ Gradient1.EndColor:=RGBToColor(216,228,241);
421+ Gradient2.StartColor:=RGBToColor(207,219,236);
422+ Gradient2.EndColor:=RGBToColor(207,220,237);
423+ end;
424+ end;
430425 end;
431- end;
432-end;
433426```
434427
435-Go to OnRedraw of BGRAVirtualScreen and add this code:
436-
437-``` pascal
428+Go to OnRedraw of BGRAVirtualScreen and add this code:
429+```
438430procedure TForm1.BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
439-var
440- gradBitmap: TBGRABitmap;
441-begin
442- with BGRAVirtualScreen1 do begin
443- gradBitmap:= DoubleGradientAlphaFill(ClientRect,BGRA(245,250,255,255),BGRA(230,240,250,255),
444- BGRA(220,230,244,255),BGRA(221,233,247,255),gdVertical,gdVertical,gdVertical,0.50);
445- end;
446- with Bitmap do begin
447- PutImage(0,0,gradBitmap,dmSet);
448- gradBitmap.Free;
449- Rectangle(0,0,Width,Height-2,BGRA(255,255,255,100),dmDrawWithTransparency);
450- SetHorizLine(0,Height-1,Width-1,BGRA(160,175,195,255));
451- SetHorizLine(0,Height-2,Width-1,BGRA(205,218,234,255));
452- end;
453-end;
431+ var
432+ gradBitmap: TBGRABitmap;
433+ begin
434+ with BGRAVirtualScreen1 do begin
435+ gradBitmap:= DoubleGradientAlphaFill(ClientRect,BGRA(245,250,255,255),BGRA(230,240,250,255),
436+ BGRA(220,230,244,255),BGRA(221,233,247,255),gdVertical,gdVertical,gdVertical,0.50);
437+ end;
438+ with Bitmap do begin
439+ PutImage(0,0,gradBitmap,dmSet);
440+ gradBitmap.Free;
441+ Rectangle(0,0,Width,Height-2,BGRA(255,255,255,100),dmDrawWithTransparency);
442+ SetHorizLine(0,Height-1,Width-1,BGRA(160,175,195,255));
443+ SetHorizLine(0,Height-2,Width-1,BGRA(205,218,234,255));
444+ end;
445+ end;
454446```
455447
456448### Office 2010 Button
457449
458-<figure>
459-<img src="bgraofficebutton.png" title="bgraofficebutton.png" />
460-<figcaption>bgraofficebutton.png</figcaption>
461-</figure>
462-
463-Like Office 2010 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
450+[![bgraofficebutton.png](/wiki-images/e/e0/bgraofficebutton.png)](</File:bgraofficebutton.png>)
464451
465-``` pascal
452+Like Office 2010 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
453+```
466454procedure TForm1.FormCreate(Sender: TObject);
467-begin
468- Self.Color:=clWhite;
469- // Button
470- with BGRAButton1 do begin
471- RoundX:=3;
472- RoundY:=3;
473- TextShadow:=False;
474- // Normal
475- with BodyNormal do begin
476- BorderColor:=RGBToColor(207,208,210);
477- Font.Color:=clBlack;
478- Gradient1.StartColor:=RGBToColor(255,255,255);
479- Gradient1.EndColor:=RGBToColor(237,239,241);
480- Gradient1EndPercent:=100;
481- end;
482- // Hover
483- with BodyHover do begin
484- BorderColor:=RGBToColor(244,210,81);
485- Font.Color:=clBlack;
486- Gradient1.StartColor:=RGBToColor(254,241,189);
487- Gradient1.EndColor:=RGBToColor(254,228,134);
488- Gradient1EndPercent:=50;
489- Gradient2.StartColor:=RGBToColor(254,228,134);
490- Gradient2.EndColor:=RGBToColor(254,248,196);
491- end;
492- // Clicked
493- with BodyClicked do begin
494- BorderColor:=RGBToColor(194,161,63);
495- Font.Color:=clBlack;
496- Gradient1.StartColor:=RGBToColor(255,229,117);
497- Gradient1.EndColor:=RGBToColor(255,216,107);
498- Gradient1EndPercent:=50;
499- Gradient2.StartColor:=RGBToColor(255,216,107);
500- Gradient2.EndColor:=RGBToColor(255,239,129);
455+ begin
456+ Self.Color:=clWhite;
457+ // Button
458+ with BGRAButton1 do begin
459+ RoundX:=3;
460+ RoundY:=3;
461+ TextShadow:=False;
462+ // Normal
463+ with BodyNormal do begin
464+ BorderColor:=RGBToColor(207,208,210);
465+ Font.Color:=clBlack;
466+ Gradient1.StartColor:=RGBToColor(255,255,255);
467+ Gradient1.EndColor:=RGBToColor(237,239,241);
468+ Gradient1EndPercent:=100;
469+ end;
470+ // Hover
471+ with BodyHover do begin
472+ BorderColor:=RGBToColor(244,210,81);
473+ Font.Color:=clBlack;
474+ Gradient1.StartColor:=RGBToColor(254,241,189);
475+ Gradient1.EndColor:=RGBToColor(254,228,134);
476+ Gradient1EndPercent:=50;
477+ Gradient2.StartColor:=RGBToColor(254,228,134);
478+ Gradient2.EndColor:=RGBToColor(254,248,196);
479+ end;
480+ // Clicked
481+ with BodyClicked do begin
482+ BorderColor:=RGBToColor(194,161,63);
483+ Font.Color:=clBlack;
484+ Gradient1.StartColor:=RGBToColor(255,229,117);
485+ Gradient1.EndColor:=RGBToColor(255,216,107);
486+ Gradient1EndPercent:=50;
487+ Gradient2.StartColor:=RGBToColor(255,216,107);
488+ Gradient2.EndColor:=RGBToColor(255,239,129);
489+ end;
490+ end;
501491 end;
502- end;
503-end;
504492```
505493
506494## Like Mac Controls
507495
508-Those are like Mac Controls.
496+Those are like Mac Controls.
509497
510498### macOS Lion Button
511499
512-<figure>
513-<img src="bgrabuttonosxlion.png" title="bgrabuttonosxlion.png" />
514-<figcaption>bgrabuttonosxlion.png</figcaption>
515-</figure>
516-
517-Like macOS Lion button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
500+[![bgrabuttonosxlion.png](/wiki-images/9/9b/bgrabuttonosxlion.png)](</File:bgrabuttonosxlion.png>)
518501
519-``` pascal
502+Like macOS Lion button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
503+```
520504procedure TForm1.FormCreate(Sender: TObject);
521-begin
522- // Button
523- with BGRAButton1 do begin
524- TextShadow:=False;
525- RoundX:=3;
526- RoundY:=3;
527- // Normal
528- with BodyNormal do begin
529- Font.Color:=clBlack;
530- Gradient1EndPercent:=50;
531- BorderColor:=RGBToColor(154,154,154);
532- Gradient1.StartColor:=RGBToColor(255,255,255);
533- Gradient1.EndColor:=RGBToColor(243,243,243);
534- Gradient2.StartColor:=RGBToColor(236,236,236);
535- Gradient2.EndColor:=RGBToColor(235,235,235);
536- end;
537- // Hover
538- with BodyHover do begin
539- Font.Color:=clBlack;
540- Gradient1EndPercent:=50;
541- BorderColor:=RGBToColor(86,87,143);
542- Gradient1.StartColor:=RGBToColor(204,229,252);
543- Gradient1.EndColor:=RGBToColor(161,209,249);
544- Gradient2.StartColor:=RGBToColor(143,202,251);
545- Gradient2.EndColor:=RGBToColor(207,245,253);
546- end;
547- // Clicked
548- with BodyClicked do begin
549- Font.Color:=clBlack;
550- Gradient1EndPercent:=55;
551- BorderColor:=RGBToColor(86,87,143);
552- Gradient1.StartColor:=RGBToColor(144,195,241);
553- Gradient1.EndColor:=RGBToColor(113,180,239);
554- Gradient2.StartColor:=RGBToColor(97,173,240);
555- Gradient2.EndColor:=RGBToColor(147,206,241);
505+ begin
506+ // Button
507+ with BGRAButton1 do begin
508+ TextShadow:=False;
509+ RoundX:=3;
510+ RoundY:=3;
511+ // Normal
512+ with BodyNormal do begin
513+ Font.Color:=clBlack;
514+ Gradient1EndPercent:=50;
515+ BorderColor:=RGBToColor(154,154,154);
516+ Gradient1.StartColor:=RGBToColor(255,255,255);
517+ Gradient1.EndColor:=RGBToColor(243,243,243);
518+ Gradient2.StartColor:=RGBToColor(236,236,236);
519+ Gradient2.EndColor:=RGBToColor(235,235,235);
520+ end;
521+ // Hover
522+ with BodyHover do begin
523+ Font.Color:=clBlack;
524+ Gradient1EndPercent:=50;
525+ BorderColor:=RGBToColor(86,87,143);
526+ Gradient1.StartColor:=RGBToColor(204,229,252);
527+ Gradient1.EndColor:=RGBToColor(161,209,249);
528+ Gradient2.StartColor:=RGBToColor(143,202,251);
529+ Gradient2.EndColor:=RGBToColor(207,245,253);
530+ end;
531+ // Clicked
532+ with BodyClicked do begin
533+ Font.Color:=clBlack;
534+ Gradient1EndPercent:=55;
535+ BorderColor:=RGBToColor(86,87,143);
536+ Gradient1.StartColor:=RGBToColor(144,195,241);
537+ Gradient1.EndColor:=RGBToColor(113,180,239);
538+ Gradient2.StartColor:=RGBToColor(97,173,240);
539+ Gradient2.EndColor:=RGBToColor(147,206,241);
540+ end;
541+ end;
556542 end;
557- end;
558-end;
559543```
560544
561545## Other
562546
563-Other stuff.
547+Other stuff.
564548
565549### Lazarus Custom Drawn
566550
567-<figure>
568-<img src="bgracustomdrawn.png" title="bgracustomdrawn.png" />
569-<figcaption>bgracustomdrawn.png</figcaption>
570-</figure>
571-
572-*dsAndroid, dsGrad, dsWinCE, dsXPTaskBar*
551+[![bgracustomdrawn.png](/wiki-images/e/ec/bgracustomdrawn.png)](</File:bgracustomdrawn.png>)
573552
574-Like [[Lazarus Custom Drawn Controls]]. Add 4 BGRAButton, then go OnCreate event of Form1 and add this code:
553+_dsAndroid, dsGrad, dsWinCE, dsXPTaskBar_
575554
576-``` pascal
555+Like [[Lazarus Custom Drawn Controls]]. Add 4 BGRAButton, then go OnCreate event of Form1 and add this code:
556+```
577557procedure TForm1.FormCreate(Sender: TObject);
578-begin
579- // dsAndroid
580- with BGRAButton1 do begin
581- TextShadow:=False;
582- RoundX:=4;
583- RoundY:=4;
584- with BodyNormal do begin
585- BorderStyle:=bboNone;
586- Font.Color:=clBlack;
587- Gradient1EndPercent:=100;
588- Gradient1.EndColor:=RGBToColor(202,202,198);
589- Gradient1.StartColor:=RGBToColor(235,235,231);
590- Gradient1.Point1YPercent:=70;
591- end;
592- with BodyHover do begin
593- BorderStyle:=bboNone;
594- Font.Color:=clBlack;
595- Gradient1EndPercent:=100;
596- Gradient1.EndColor:=RGBToColor(202,202,198);
597- Gradient1.StartColor:=RGBToColor(235,235,231);
598- Gradient1.Point1YPercent:=70;
599- end;
600- with BodyClicked do begin
601- Color:=RGBToColor(227,227,224);
602- BorderColor:=RGBToColor(172,172,170);
603- Font.Color:=clBlack;
604- Style:=bbsColor;
605- end;
606- end;
607-
608- // dsGrad
609- with BGRAButton2 do begin
610- TextShadow:=False;
611- RoundX:=4;
612- RoundY:=4;
613- with BodyNormal do begin
614- BorderStyle:=bboNone;
615- Font.Color:=clBlack;
616- Gradient1EndPercent:=100;
617- Gradient1.EndColor:=RGBToColor(245,245,241);
618- Gradient1.StartColor:=RGBToColor(253,253,253);
619- end;
620- with BodyHover do begin
621- BorderStyle:=bboNone;
622- Font.Color:=clBlack;
623- Gradient1EndPercent:=100;
624- Gradient1.EndColor:=RGBToColor(245,245,241);
625- Gradient1.StartColor:=RGBToColor(253,253,253);
626- end;
627- with BodyClicked do begin
628- Color:=RGBToColor(227,227,224);
629- BorderColor:=RGBToColor(172,172,170);
630- Font.Color:=clBlack;
631- Style:=bbsColor;
632- end;
633- end;
634-
635- // dsWinCE
636- with BGRAButton3 do begin
637- TextShadow:=False;
638- with BodyNormal do begin
639- Color:=RGBToColor(245,245,241);
640- BorderColor:=clBlack;
641- Font.Color:=clBlack;
642- Style:=bbsColor;
643- end;
644- with BodyHover do begin
645- Color:=RGBToColor(245,245,241);
646- BorderColor:=clBlack;
647- Font.Color:=clBlack;
648- Style:=bbsColor;
649- end;
650- with BodyClicked do begin
651- Color:=RGBToColor(220,220,216);
652- BorderColor:=clBlack;
653- Font.Color:=clBlack;
654- Style:=bbsColor;
655- end;
656- end;
657-
658- // dsXPTaskBar
659- with BGRAButton4 do begin
660- TextShadow:=False;
661- RoundX:=4;
662- RoundY:=4;
663- with BodyNormal do begin
664- BorderColor:=RGBToColor(219,219,215);
665- Font.Color:=clBlack;
666- Gradient1EndPercent:=100;
667- Gradient1.EndColor:=RGBToColor(232,232,228);
668- Gradient1.StartColor:=RGBToColor(245,245,241);
669- Gradient1.Point1YPercent:=85;
670- end;
671- with BodyHover do begin
672- BorderColor:=RGBToColor(219,219,215);
673- Font.Color:=clBlack;
674- Gradient1EndPercent:=100;
675- Gradient1.EndColor:=RGBToColor(232,232,228);
676- Gradient1.StartColor:=RGBToColor(245,245,241);
677- Gradient1.Point1YPercent:=85;
678- end;
679- with BodyClicked do begin
680- Color:=RGBToColor(227,227,224);
681- BorderColor:=RGBToColor(172,172,170);
682- Font.Color:=clBlack;
683- Style:=bbsColor;
558+ begin
559+ // dsAndroid
560+ with BGRAButton1 do begin
561+ TextShadow:=False;
562+ RoundX:=4;
563+ RoundY:=4;
564+ with BodyNormal do begin
565+ BorderStyle:=bboNone;
566+ Font.Color:=clBlack;
567+ Gradient1EndPercent:=100;
568+ Gradient1.EndColor:=RGBToColor(202,202,198);
569+ Gradient1.StartColor:=RGBToColor(235,235,231);
570+ Gradient1.Point1YPercent:=70;
571+ end;
572+ with BodyHover do begin
573+ BorderStyle:=bboNone;
574+ Font.Color:=clBlack;
575+ Gradient1EndPercent:=100;
576+ Gradient1.EndColor:=RGBToColor(202,202,198);
577+ Gradient1.StartColor:=RGBToColor(235,235,231);
578+ Gradient1.Point1YPercent:=70;
579+ end;
580+ with BodyClicked do begin
581+ Color:=RGBToColor(227,227,224);
582+ BorderColor:=RGBToColor(172,172,170);
583+ Font.Color:=clBlack;
584+ Style:=bbsColor;
585+ end;
586+ end;
587+
588+ // dsGrad
589+ with BGRAButton2 do begin
590+ TextShadow:=False;
591+ RoundX:=4;
592+ RoundY:=4;
593+ with BodyNormal do begin
594+ BorderStyle:=bboNone;
595+ Font.Color:=clBlack;
596+ Gradient1EndPercent:=100;
597+ Gradient1.EndColor:=RGBToColor(245,245,241);
598+ Gradient1.StartColor:=RGBToColor(253,253,253);
599+ end;
600+ with BodyHover do begin
601+ BorderStyle:=bboNone;
602+ Font.Color:=clBlack;
603+ Gradient1EndPercent:=100;
604+ Gradient1.EndColor:=RGBToColor(245,245,241);
605+ Gradient1.StartColor:=RGBToColor(253,253,253);
606+ end;
607+ with BodyClicked do begin
608+ Color:=RGBToColor(227,227,224);
609+ BorderColor:=RGBToColor(172,172,170);
610+ Font.Color:=clBlack;
611+ Style:=bbsColor;
612+ end;
613+ end;
614+
615+ // dsWinCE
616+ with BGRAButton3 do begin
617+ TextShadow:=False;
618+ with BodyNormal do begin
619+ Color:=RGBToColor(245,245,241);
620+ BorderColor:=clBlack;
621+ Font.Color:=clBlack;
622+ Style:=bbsColor;
623+ end;
624+ with BodyHover do begin
625+ Color:=RGBToColor(245,245,241);
626+ BorderColor:=clBlack;
627+ Font.Color:=clBlack;
628+ Style:=bbsColor;
629+ end;
630+ with BodyClicked do begin
631+ Color:=RGBToColor(220,220,216);
632+ BorderColor:=clBlack;
633+ Font.Color:=clBlack;
634+ Style:=bbsColor;
635+ end;
636+ end;
637+
638+ // dsXPTaskBar
639+ with BGRAButton4 do begin
640+ TextShadow:=False;
641+ RoundX:=4;
642+ RoundY:=4;
643+ with BodyNormal do begin
644+ BorderColor:=RGBToColor(219,219,215);
645+ Font.Color:=clBlack;
646+ Gradient1EndPercent:=100;
647+ Gradient1.EndColor:=RGBToColor(232,232,228);
648+ Gradient1.StartColor:=RGBToColor(245,245,241);
649+ Gradient1.Point1YPercent:=85;
650+ end;
651+ with BodyHover do begin
652+ BorderColor:=RGBToColor(219,219,215);
653+ Font.Color:=clBlack;
654+ Gradient1EndPercent:=100;
655+ Gradient1.EndColor:=RGBToColor(232,232,228);
656+ Gradient1.StartColor:=RGBToColor(245,245,241);
657+ Gradient1.Point1YPercent:=85;
658+ end;
659+ with BodyClicked do begin
660+ Color:=RGBToColor(227,227,224);
661+ BorderColor:=RGBToColor(172,172,170);
662+ Font.Color:=clBlack;
663+ Style:=bbsColor;
664+ end;
665+ end;
684666 end;
685- end;
686-end;
687667```
688668
689669## Flash Player Setup
690670
691-<figure>
692-<img src="bgraflashplayersetup.png" title="bgraflashplayersetup.png" />
693-<figcaption>bgraflashplayersetup.png</figcaption>
694-</figure>
695-
696-Like Flash Player Setup, add 2 BGRAPanel, the first with a BGRAButton inside, then go OnPaint event of Form1 and add this code:
671+[![bgraflashplayersetup.png](/wiki-images/8/8c/bgraflashplayersetup.png)](</File:bgraflashplayersetup.png>)
697672
698-``` pascal
673+Like Flash Player Setup, add 2 BGRAPanel, the first with a BGRAButton inside, then go OnPaint event of Form1 and add this code:
674+```
699675procedure TForm1.FormCreate(Sender: TObject);
700-begin
701- // Background
702- Self.Color:=RGBToColor(62,62,62);
703-
704- // Panel
705- with BGRAPanel2 do begin
706- BevelOuter:=bvNone;
707- With Gradient do begin
708- StartColor:=RGBToColor(203,19,23);
709- EndColor:=RGBToColor(110,3,20);
710- end;
711- end;
712-
713- // Bottom Panel
714- with BGRAPanel1 do begin
715- BevelOuter:=bvNone;
716- BackGroundStyle:=bpsColor;
717- Color:=RGBToColor(76,76,76);
718- end;
719-
720- // Button
721- with BGRAButton1 do begin
722- TextShadowOffSetX:=1;
723- TextShadowOffSetY:=1;
724- TextShadowRadius:=2;
725- // Normal
726- with BodyNormal do begin
727- BorderColor:=RGBToColor(24,24,24);
728- Font.Color:=clWhite;
729- with Gradient1 do begin
730- StartColor:=RGBToColor(104,104,104);
731- EndColor:=RGBToColor(104,104,104);
732- end;
733- with Gradient2 do begin
734- StartColor:=RGBToColor(103,103,103);
735- EndColor:=RGBToColor(71,71,71);
736- end;
737- end;
738- // Hover
739- with BodyHover do begin
740- BorderColor:=RGBToColor(24,24,24);
741- Font.Color:=clWhite;
742- with Gradient1 do begin
743- StartColor:=RGBToColor(118,118,118);
744- EndColor:=RGBToColor(118,118,118);
745- end;
746- with Gradient2 do begin
747- StartColor:=RGBToColor(117,117,117);
748- EndColor:=RGBToColor(81,81,81);
676+ begin
677+ // Background
678+ Self.Color:=RGBToColor(62,62,62);
679+
680+ // Panel
681+ with BGRAPanel2 do begin
682+ BevelOuter:=bvNone;
683+ With Gradient do begin
684+ StartColor:=RGBToColor(203,19,23);
685+ EndColor:=RGBToColor(110,3,20);
686+ end;
749687 end;
750- end;
751- // Clicked
752- with BodyClicked do begin
753- BorderColor:=RGBToColor(24,24,24);
754- Font.Color:=clWhite;
755- with Gradient1 do begin
756- StartColor:=RGBToColor(92,92,92);
757- EndColor:=RGBToColor(92,92,92);
688+
689+ // Bottom Panel
690+ with BGRAPanel1 do begin
691+ BevelOuter:=bvNone;
692+ BackGroundStyle:=bpsColor;
693+ Color:=RGBToColor(76,76,76);
758694 end;
759- with Gradient2 do begin
760- StartColor:=RGBToColor(91,91,91);
761- EndColor:=RGBToColor(62,62,62);
695+
696+ // Button
697+ with BGRAButton1 do begin
698+ TextShadowOffSetX:=1;
699+ TextShadowOffSetY:=1;
700+ TextShadowRadius:=2;
701+ // Normal
702+ with BodyNormal do begin
703+ BorderColor:=RGBToColor(24,24,24);
704+ Font.Color:=clWhite;
705+ with Gradient1 do begin
706+ StartColor:=RGBToColor(104,104,104);
707+ EndColor:=RGBToColor(104,104,104);
708+ end;
709+ with Gradient2 do begin
710+ StartColor:=RGBToColor(103,103,103);
711+ EndColor:=RGBToColor(71,71,71);
712+ end;
713+ end;
714+ // Hover
715+ with BodyHover do begin
716+ BorderColor:=RGBToColor(24,24,24);
717+ Font.Color:=clWhite;
718+ with Gradient1 do begin
719+ StartColor:=RGBToColor(118,118,118);
720+ EndColor:=RGBToColor(118,118,118);
721+ end;
722+ with Gradient2 do begin
723+ StartColor:=RGBToColor(117,117,117);
724+ EndColor:=RGBToColor(81,81,81);
725+ end;
726+ end;
727+ // Clicked
728+ with BodyClicked do begin
729+ BorderColor:=RGBToColor(24,24,24);
730+ Font.Color:=clWhite;
731+ with Gradient1 do begin
732+ StartColor:=RGBToColor(92,92,92);
733+ EndColor:=RGBToColor(92,92,92);
734+ end;
735+ with Gradient2 do begin
736+ StartColor:=RGBToColor(91,91,91);
737+ EndColor:=RGBToColor(62,62,62);
738+ end;
739+ end;
762740 end;
741+
763742 end;
764- end;
765-
766-end;
767743```
768744
769745---
770-*From the Free Pascal wiki, page "BGRAButton Gallery", as it stood on 2020-02-07 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*
771-Category: BGRAControls
746+*From the Free Pascal wiki, page "BGRAButton Gallery", as the Internet Archive kept it on 2024-10-07. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history