Sign in Join
Wiki copytemporary

BGRAButton Gallery: what changed

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

OldNewLine
1-## Contents
2-
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
24-
251## Overview
262
27-This is a gallery of creations with BGRAButton. See [[BGRAControls]] article for more information.
3+This is a gallery of creations with BGRAButton. See [[BGRAControls]] article for more information.
284
29-Some of those examples can be found in _testbgracontrols_ project in [[BGRAControls]] package.
5+Some of those examples can be found in *testbgracontrols* project in [[BGRAControls]] package.
306
31-[![lainzbutton.png](/wiki-images/4/49/lainzbutton.png)](</File:lainzbutton.png>)
7+![](/wiki-images/3/3e/Lainzbutton.png)
328
33-_You need BGRABitmapTypes unit to run this code._
9+*You need BGRABitmapTypes unit to run this code.*
3410
35-Add a new BGRAButton, go OnPaint event and add this code:
36-```
11+Add a new BGRAButton, go OnPaint event and add this code:
12+
13+``` pascal
3714procedure TForm1.FormCreate(Sender: TObject);
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;
15+begin
16+ Self.Color:=RGBToColor(230,230,230);
17+ // Lainz Button
18+ with BGRAButton1 do begin
19+ RoundX:=12;
20+ RoundY:=12;
21+ TextShadowOffsetX:=1;
22+ TextShadowOffsetY:=1;
23+ TextShadowRadius:=2;
24+ // Normal
25+ with BodyNormal do begin
26+ BorderStyle:=bboNone;
27+ Font.Color:=RGBToColor(230,230,255);
28+ Font.Style:=[fsBold];
29+ Gradient1.EndColor:=RGBToColor(64,64,128);
30+ Gradient1.StartColor:=RGBToColor(0,0,64);
31+ Gradient1EndPercent:=60;
32+ // Gradient2
33+ with Gradient2 do begin
34+ EndColor:=RGBToColor(0,0,64);
35+ GradientType:=gtRadial;
36+ Point1XPercent:=50;
37+ Point1YPercent:=100;
38+ Point2YPercent:=0;
39+ StartColor:=RGBToColor(64,64,128);
9740 end;
9841 end;
42+ // Hover
43+ with BodyHover do begin
44+ BorderStyle:=bboNone;
45+ Font.Color:=RGBToColor(255,255,255);
46+ Font.Style:=[fsBold];
47+ Gradient1EndPercent:=100;
48+ // Gradient1
49+ with Gradient1 do begin
50+ EndColor:=RGBToColor(0,64,128);
51+ GradientType:=gtRadial;
52+ Point1XPercent:=50;
53+ Point1YPercent:=100;
54+ Point2YPercent:=0;
55+ StartColor:=RGBToColor(0,128,255);
56+ end;
57+ end;
58+ // Clicked
59+ with BodyClicked do begin
60+ BorderStyle:=bboNone;
61+ Font.Color:=RGBToColor(230,230,255);
62+ Font.Style:=[fsBold];
63+ Gradient1EndPercent:=100;
64+ // Gradient1
65+ with Gradient1 do begin
66+ EndColor:=RGBToColor(0,0,64);
67+ GradientType:=gtRadial;
68+ Point1XPercent:=50;
69+ Point1YPercent:=100;
70+ Point2YPercent:=0;
71+ StartColor:=RGBToColor(0,64,128);
72+ end;
73+ end;
74+ end;
75+end;
9976```
10077
10178## Tips
10279
103-Those are some tips and how-to's.
80+Those are some tips and how-to's.
10481
10582### Sphere
10683
107-[![bgraspherebutton.png](/wiki-images/2/28/bgraspherebutton.png)](</File:bgraspherebutton.png>)
84+![](/wiki-images/b/b6/Bgraspherebutton.png)
10885
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-```
86+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:
87+
88+``` pascal
11189BGRAButton1.Width:=200;
112- BGRAButton1.Height:=200;
113- BGRAButton.RoundX:=100;
114- BGRAButton.RoundY:=100;
90+BGRAButton1.Height:=200;
91+BGRAButton.RoundX:=100;
92+BGRAButton.RoundY:=100;
11593```
11694
117-Or do it in this way:
118-```
95+Or do it in this way:
96+
97+``` pascal
11998// Square
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;
99+ with BGRAButton1 do begin
100+ Width:= 200;
101+ Height:= Width;
102+ end;
103+
104+ // Sphere
105+ with BGRAButton1 do begin
106+ RoundX:= Round(Width div 2);
107+ RoundY:= Round(Height div 2);
108+ end;
130109```
131110
132111### Only one state
133112
134-If you only want a solid button just with the state _BodyNormal_ you must set to true the property _StaticButton_.
135-```
113+If you only want a solid button just with the state *BodyNormal* you must set to true the property *StaticButton*.
114+
115+``` pascal
136116BGRAButton1.StaticButton:=True;
137117```
138118
139119### Button very slow
140120
141-If the button is very slow you can disable _TextShadow_ to improve speed.
142-```
121+If the button is very slow you can disable *TextShadow* to improve speed.
122+
123+``` pascal
143124BGRAButton1.TextShadow:=False;
144125```
145126
146-And you can improve speed using _Single gradient button_ or _Single color button_.
127+And you can improve speed using *Single gradient button* or *Single color button*.
147128
148129### Single gradient button
149130
150-You can use just only one gradient if you want.
151-```
131+You can use just only one gradient if you want.
132+
133+``` pascal
152134BGRAButton1.Gradient1EndPercent:=100; // if you want to use only Gradient1
153- BGRAButton1.Gradient1EndPercent:=0; // if you want to use only Gradient2
135+BGRAButton1.Gradient1EndPercent:=0; // if you want to use only Gradient2
154136```
155137
156138### Single color button
157139
158-Changing the _Style_ of the button you can display just a single color as background.
159-```
140+Changing the *Style* of the button you can display just a single color as background.
141+
142+``` pascal
160143BGRAButton1.BodyNormal.Style:=bbsColor;
161144```
162145
163146### How to avoid flickering
164147
165-The button will flicker if you are running Windows without themes (classic). To avoid this enable _DoubleBuffered_ OnCreate event of each Form.
166-```
148+The button will flicker if you are running Windows without themes (classic). To avoid this enable *DoubleBuffered* OnCreate event of each Form.
149+
150+``` pascal
167151procedure TForm1.FormCreate(Sender: TObject);
168- begin
169- Self.DoubleBuffered:=True;
170- end;
152+begin
153+ Self.DoubleBuffered:=True;
154+end;
171155```
172156
173157### Using as Label
174158
175-The easy way is set to true the property _StaticButton_.
176-```
159+The easy way is set to true the property *StaticButton*.
160+
161+``` pascal
177162BGRAButton1.StaticButton:=True;
178163```
179164
180-Then set BodyNormal.Style to bbsClear and BodyNormal.BorderStyle to bboNone.
165+Then set BodyNormal.Style to bbsClear and BodyNormal.BorderStyle to bboNone.
181166
182167## Like Web
183168
184-Those are like websites, web apps.
169+Those are like websites, web apps.
185170
186171### Facebook Menu
187172
188-[![bgrafacebook.png](/wiki-images/7/79/bgrafacebook.png)](</File:bgrafacebook.png>)
173+![](/wiki-images/c/cc/Bgrafacebook.png)
189174
190-Like Facebook Menu (2011), add a BGRAPanel with 2 BGRAButton inside, then go OnCreate event of Form1 and add this code:
191-```
175+Like Facebook Menu (2011), add a BGRAPanel with 2 BGRAButton inside, then go OnCreate event of Form1 and add this code:
176+
177+``` pascal
192178procedure TForm1.FormCreate(Sender: TObject);
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;
179+begin
180+ // Panel
181+ with BGRAPanel1 do begin
182+ BackgroundStyle:=bpsColor;
183+ BevelOuter:=bvNone;
184+ //Color:=RGBToColor(98,122,173); // Light Background
185+ Color:=RGBToColor(59,89,152); // Dark Background
186+ end;
187+ // Light Menu
188+ with BGRAButton1 do begin
189+ TextShadow:=False;
190+ // Normal
191+ with BodyNormal do begin
192+ BorderColor:=RGBToColor(98,122,173);
193+ Color:=RGBToColor(98,122,173);
194+ Font.Color:=clWhite;
195+ Font.Style:=[fsBold];
196+ Style:=bbsColor;
257197 end;
198+ // Hover
199+ with BodyHover do begin
200+ BorderColor:=RGBToColor(109,134,183);
201+ Color:=RGBToColor(109,134,183);
202+ Font.Color:=clWhite;
203+ Font.Style:=[fsBold];
204+ Style:=bbsColor;
205+ end;
206+ // Clicked
207+ with BodyClicked do begin
208+ BorderColor:=clBlack;
209+ Color:=clWhite;
210+ Font.Color:=clBlack;
211+ Font.Style:=[fsBold];
212+ Style:=bbsColor;
213+ end;
214+ end;
215+ // Dark Menu
216+ with BGRAButton2 do begin
217+ TextShadow:=False;
218+ // Normal
219+ with BodyNormal do begin
220+ BorderColor:=RGBToColor(59,89,152);
221+ Color:=RGBToColor(59,89,152);
222+ Font.Color:=RGBToColor(42,66,128);
223+ Font.Style:=[fsBold];
224+ Style:=bbsColor;
225+ end;
226+ // Hover
227+ with BodyHover do begin
228+ BorderColor:=RGBToColor(75,103,161);
229+ Color:=RGBToColor(75,103,161);
230+ Font.Color:=RGBToColor(42,66,128);
231+ Font.Style:=[fsBold];
232+ Style:=bbsColor;
233+ end;
234+ // Clicked
235+ with BodyClicked do begin
236+ BorderColor:=clBlack;
237+ Color:=clWhite;
238+ Font.Color:=RGBToColor(42,66,128);
239+ Font.Style:=[fsBold];
240+ Style:=bbsColor;
241+ end;
242+ end;
243+end;
258244```
259245
260-You can set _Clicked_ properties same as _Hover_ for standard buttons (not menu's).
246+You can set *Clicked* properties same as *Hover* for standard buttons (not menu's).
261247
262248### Google Menu
263249
264-[![bgragoogle.png](/wiki-images/0/04/bgragoogle.png)](</File:bgragoogle.png>)
250+![](/wiki-images/3/32/Bgragoogle.png)
265251
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-```
252+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:
253+
254+``` pascal
268255procedure TForm1.FormCreate(Sender: TObject);
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;
256+begin
257+ // Background
258+ Self.Color:=clWhite;
259+ // Panel
260+ with BGRAPanel1 do begin
261+ BevelOuter:=bvNone;
262+ Gradient.StartColor:=clWhite;
263+ Gradient.EndColor:=RGBToColor(245,245,245);
264+ end;
265+ // Menu Button
266+ with BGRAButton1 do begin
267+ TextShadow:=False;
268+ // Normal
269+ with BodyNormal do begin
270+ BorderStyle:=bboNone;
271+ Font.Color:=RGBToColor(51,102,204);
272+ Style:=bbsClear;
331273 end;
274+ // Hover
275+ with BodyHover do begin
276+ BorderStyle:=bboNone;
277+ Gradient1.StartColor:=RGBToColor(227,234,248);
278+ Gradient1.EndColor:=RGBToColor(223,229,242);
279+ Font.Color:=RGBToColor(51,102,204);
280+ Gradient1EndPercent:=100;
281+ end;
282+ // Clicked
283+ with BodyClicked do begin
284+ BorderStyle:=bboNone;
285+ Gradient1.StartColor:=RGBToColor(227,234,248);
286+ Gradient1.EndColor:=RGBToColor(223,229,242);
287+ Font.Color:=RGBToColor(51,102,204);
288+ Gradient1EndPercent:=100;
289+ end;
290+ end;
291+ // Button
292+ with BGRAButton2 do begin
293+ TextShadow:=False;
294+ // Normal
295+ with BodyNormal do begin
296+ BorderColor:=RGBToColor(205,205,205);
297+ Gradient1.StartColor:=RGBToColor(241,241,241);
298+ Gradient1.EndColor:=RGBToColor(223,223,223);
299+ Font.Color:=clBlack;
300+ Gradient1EndPercent:=100;
301+ end;
302+ // Hover
303+ with BodyHover do begin
304+ BorderColor:=RGBToColor(205,205,205);
305+ Gradient1.StartColor:=RGBToColor(241,241,241);
306+ Gradient1.EndColor:=RGBToColor(223,223,223);
307+ Font.Color:=clBlack;
308+ Gradient1EndPercent:=100;
309+ end;
310+ // Clicked
311+ with BodyClicked do begin
312+ BorderColor:=RGBToColor(204,204,204);
313+ Color:=RGBToColor(204,204,204);
314+ Font.Color:=clBlack;
315+ Style:=bbsColor;
316+ end;
317+ end;
318+end;
332319```
333320
334321## Like Windows Controls
335322
336-Those are like Windows Controls.
323+Those are like Windows Controls.
337324
338325### Windows 7 Button
339326
340-[![bgrabuttonwin7.png](/wiki-images/4/46/bgrabuttonwin7.png)](</File:bgrabuttonwin7.png>)
327+![](/wiki-images/1/1b/Bgrabuttonwin7.png)
341328
342-Like Windows 7 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
343-```
329+Like Windows 7 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
330+
331+``` pascal
344332procedure TForm1.FormCreate(Sender: TObject);
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;
333+begin
334+ // Button
335+ with BGRAButton1 do begin
336+ TextShadow:=False;
337+ RoundX:=3;
338+ RoundY:=3;
339+ // Normal
340+ with BodyNormal do begin
341+ Font.Color:=clBlack;
342+ Gradient1EndPercent:=50;
343+ BorderColor:=RGBToColor(112,112,112);
344+ Gradient1.StartColor:=RGBToColor(242,242,242);
345+ Gradient1.EndColor:=RGBToColor(235,235,235);
346+ Gradient2.StartColor:=RGBToColor(221,221,221);
347+ Gradient2.EndColor:=RGBToColor(207,207,207);
382348 end;
349+ // Hover
350+ with BodyHover do begin
351+ Font.Color:=clBlack;
352+ Gradient1EndPercent:=50;
353+ BorderColor:=RGBToColor(60,127,177);
354+ Gradient1.StartColor:=RGBToColor(234,246,253);
355+ Gradient1.EndColor:=RGBToColor(217,240,252);
356+ Gradient2.StartColor:=RGBToColor(190,230,253);
357+ Gradient2.EndColor:=RGBToColor(167,217,245);
358+ end;
359+ // Clicked
360+ with BodyClicked do begin
361+ Font.Color:=clBlack;
362+ Gradient1EndPercent:=55;
363+ BorderColor:=RGBToColor(44,98,139);
364+ Gradient1.StartColor:=RGBToColor(229,244,252);
365+ Gradient1.EndColor:=RGBToColor(196,229,246);
366+ Gradient2.StartColor:=RGBToColor(152,209,239);
367+ Gradient2.EndColor:=RGBToColor(104,179,219);
368+ end;
369+ end;
370+end;
383371```
384372
385373### Windows 7 Explorer ToolBar
386374
387-[![bgratoolwin7.png](/wiki-images/d/de/bgratoolwin7.png)](</File:bgratoolwin7.png>)
375+![](/wiki-images/d/db/Bgratoolwin7.png)
388376
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-```
377+Like Windows 7 explorer toolbar button, add a BGRAVirtualScreen with a BGRAButton inside, then go OnCreate event of Form1 and add this code:
378+
379+``` pascal
391380procedure TForm1.FormCreate(Sender: TObject);
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;
381+begin
382+ // Button
383+ with BGRAButton1 do begin
384+ TextShadow:=False;
385+ RoundX:=2;
386+ RoundY:=2;
387+ // Normal
388+ with BodyNormal do begin
389+ Font.Color:=clBlack;
390+ BorderStyle:=bboNone;
391+ Style:=bbsClear;
425392 end;
393+ // Hover
394+ with BodyHover do begin
395+ Font.Color:=clBlack;
396+ Gradient1EndPercent:=50;
397+ BorderColor:=RGBToColor(187,202,219);
398+ Gradient1.StartColor:=RGBToColor(248,251,254);
399+ Gradient1.EndColor:=RGBToColor(237,242,250);
400+ Gradient2.StartColor:=RGBToColor(215,228,244);
401+ Gradient2.EndColor:=RGBToColor(193,210,232);
402+ end;
403+ // Clicked
404+ with BodyClicked do begin
405+ Font.Color:=clBlack;
406+ Gradient1EndPercent:=55;
407+ BorderColor:=RGBToColor(187,202,219);
408+ Gradient1.StartColor:=RGBToColor(226,236,245);
409+ Gradient1.EndColor:=RGBToColor(216,228,241);
410+ Gradient2.StartColor:=RGBToColor(207,219,236);
411+ Gradient2.EndColor:=RGBToColor(207,220,237);
412+ end;
413+ end;
414+end;
426415```
427416
428-Go to OnRedraw of BGRAVirtualScreen and add this code:
429-```
417+Go to OnRedraw of BGRAVirtualScreen and add this code:
418+
419+``` pascal
430420procedure TForm1.BGRAVirtualScreen1Redraw(Sender: TObject; Bitmap: TBGRABitmap);
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;
421+var
422+ gradBitmap: TBGRABitmap;
423+begin
424+ with BGRAVirtualScreen1 do begin
425+ gradBitmap:= DoubleGradientAlphaFill(ClientRect,BGRA(245,250,255,255),BGRA(230,240,250,255),
426+ BGRA(220,230,244,255),BGRA(221,233,247,255),gdVertical,gdVertical,gdVertical,0.50);
427+ end;
428+ with Bitmap do begin
429+ PutImage(0,0,gradBitmap,dmSet);
430+ gradBitmap.Free;
431+ Rectangle(0,0,Width,Height-2,BGRA(255,255,255,100),dmDrawWithTransparency);
432+ SetHorizLine(0,Height-1,Width-1,BGRA(160,175,195,255));
433+ SetHorizLine(0,Height-2,Width-1,BGRA(205,218,234,255));
434+ end;
435+end;
446436```
447437
448438### Office 2010 Button
449439
450-[![bgraofficebutton.png](/wiki-images/e/e0/bgraofficebutton.png)](</File:bgraofficebutton.png>)
440+![](/wiki-images/5/50/Bgraofficebutton.png)
451441
452-Like Office 2010 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
453-```
442+Like Office 2010 button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
443+
444+``` pascal
454445procedure TForm1.FormCreate(Sender: TObject);
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;
446+begin
447+ Self.Color:=clWhite;
448+ // Button
449+ with BGRAButton1 do begin
450+ RoundX:=3;
451+ RoundY:=3;
452+ TextShadow:=False;
453+ // Normal
454+ with BodyNormal do begin
455+ BorderColor:=RGBToColor(207,208,210);
456+ Font.Color:=clBlack;
457+ Gradient1.StartColor:=RGBToColor(255,255,255);
458+ Gradient1.EndColor:=RGBToColor(237,239,241);
459+ Gradient1EndPercent:=100;
491460 end;
461+ // Hover
462+ with BodyHover do begin
463+ BorderColor:=RGBToColor(244,210,81);
464+ Font.Color:=clBlack;
465+ Gradient1.StartColor:=RGBToColor(254,241,189);
466+ Gradient1.EndColor:=RGBToColor(254,228,134);
467+ Gradient1EndPercent:=50;
468+ Gradient2.StartColor:=RGBToColor(254,228,134);
469+ Gradient2.EndColor:=RGBToColor(254,248,196);
470+ end;
471+ // Clicked
472+ with BodyClicked do begin
473+ BorderColor:=RGBToColor(194,161,63);
474+ Font.Color:=clBlack;
475+ Gradient1.StartColor:=RGBToColor(255,229,117);
476+ Gradient1.EndColor:=RGBToColor(255,216,107);
477+ Gradient1EndPercent:=50;
478+ Gradient2.StartColor:=RGBToColor(255,216,107);
479+ Gradient2.EndColor:=RGBToColor(255,239,129);
480+ end;
481+ end;
482+end;
492483```
493484
494485## Like Mac Controls
495486
496-Those are like Mac Controls.
487+Those are like Mac Controls.
497488
498489### macOS Lion Button
499490
500-[![bgrabuttonosxlion.png](/wiki-images/9/9b/bgrabuttonosxlion.png)](</File:bgrabuttonosxlion.png>)
491+![](/wiki-images/6/63/Bgrabuttonosxlion.png)
501492
502-Like macOS Lion button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
503-```
493+Like macOS Lion button, add a BGRAButton, then go OnCreate event of Form1 and add this code:
494+
495+``` pascal
504496procedure TForm1.FormCreate(Sender: TObject);
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;
497+begin
498+ // Button
499+ with BGRAButton1 do begin
500+ TextShadow:=False;
501+ RoundX:=3;
502+ RoundY:=3;
503+ // Normal
504+ with BodyNormal do begin
505+ Font.Color:=clBlack;
506+ Gradient1EndPercent:=50;
507+ BorderColor:=RGBToColor(154,154,154);
508+ Gradient1.StartColor:=RGBToColor(255,255,255);
509+ Gradient1.EndColor:=RGBToColor(243,243,243);
510+ Gradient2.StartColor:=RGBToColor(236,236,236);
511+ Gradient2.EndColor:=RGBToColor(235,235,235);
542512 end;
513+ // Hover
514+ with BodyHover do begin
515+ Font.Color:=clBlack;
516+ Gradient1EndPercent:=50;
517+ BorderColor:=RGBToColor(86,87,143);
518+ Gradient1.StartColor:=RGBToColor(204,229,252);
519+ Gradient1.EndColor:=RGBToColor(161,209,249);
520+ Gradient2.StartColor:=RGBToColor(143,202,251);
521+ Gradient2.EndColor:=RGBToColor(207,245,253);
522+ end;
523+ // Clicked
524+ with BodyClicked do begin
525+ Font.Color:=clBlack;
526+ Gradient1EndPercent:=55;
527+ BorderColor:=RGBToColor(86,87,143);
528+ Gradient1.StartColor:=RGBToColor(144,195,241);
529+ Gradient1.EndColor:=RGBToColor(113,180,239);
530+ Gradient2.StartColor:=RGBToColor(97,173,240);
531+ Gradient2.EndColor:=RGBToColor(147,206,241);
532+ end;
533+ end;
534+end;
543535```
544536
545537## Other
546538
547-Other stuff.
539+Other stuff.
548540
549541### Lazarus Custom Drawn
550542
551-[![bgracustomdrawn.png](/wiki-images/e/ec/bgracustomdrawn.png)](</File:bgracustomdrawn.png>)
543+![](/wiki-images/6/6b/Bgracustomdrawn.png)
552544
553-_dsAndroid, dsGrad, dsWinCE, dsXPTaskBar_
545+*dsAndroid, dsGrad, dsWinCE, dsXPTaskBar*
554546
555-Like [[Lazarus Custom Drawn Controls]]. Add 4 BGRAButton, then go OnCreate event of Form1 and add this code:
556-```
547+Like [[Lazarus Custom Drawn Controls]]. Add 4 BGRAButton, then go OnCreate event of Form1 and add this code:
548+
549+``` pascal
557550procedure TForm1.FormCreate(Sender: TObject);
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;
551+begin
552+ // dsAndroid
553+ with BGRAButton1 do begin
554+ TextShadow:=False;
555+ RoundX:=4;
556+ RoundY:=4;
557+ with BodyNormal do begin
558+ BorderStyle:=bboNone;
559+ Font.Color:=clBlack;
560+ Gradient1EndPercent:=100;
561+ Gradient1.EndColor:=RGBToColor(202,202,198);
562+ Gradient1.StartColor:=RGBToColor(235,235,231);
563+ Gradient1.Point1YPercent:=70;
666564 end;
565+ with BodyHover do begin
566+ BorderStyle:=bboNone;
567+ Font.Color:=clBlack;
568+ Gradient1EndPercent:=100;
569+ Gradient1.EndColor:=RGBToColor(202,202,198);
570+ Gradient1.StartColor:=RGBToColor(235,235,231);
571+ Gradient1.Point1YPercent:=70;
572+ end;
573+ with BodyClicked do begin
574+ Color:=RGBToColor(227,227,224);
575+ BorderColor:=RGBToColor(172,172,170);
576+ Font.Color:=clBlack;
577+ Style:=bbsColor;
578+ end;
579+ end;
580+
581+ // dsGrad
582+ with BGRAButton2 do begin
583+ TextShadow:=False;
584+ RoundX:=4;
585+ RoundY:=4;
586+ with BodyNormal do begin
587+ BorderStyle:=bboNone;
588+ Font.Color:=clBlack;
589+ Gradient1EndPercent:=100;
590+ Gradient1.EndColor:=RGBToColor(245,245,241);
591+ Gradient1.StartColor:=RGBToColor(253,253,253);
592+ end;
593+ with BodyHover 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 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+ // dsWinCE
609+ with BGRAButton3 do begin
610+ TextShadow:=False;
611+ with BodyNormal do begin
612+ Color:=RGBToColor(245,245,241);
613+ BorderColor:=clBlack;
614+ Font.Color:=clBlack;
615+ Style:=bbsColor;
616+ end;
617+ with BodyHover do begin
618+ Color:=RGBToColor(245,245,241);
619+ BorderColor:=clBlack;
620+ Font.Color:=clBlack;
621+ Style:=bbsColor;
622+ end;
623+ with BodyClicked do begin
624+ Color:=RGBToColor(220,220,216);
625+ BorderColor:=clBlack;
626+ Font.Color:=clBlack;
627+ Style:=bbsColor;
628+ end;
629+ end;
630+
631+ // dsXPTaskBar
632+ with BGRAButton4 do begin
633+ TextShadow:=False;
634+ RoundX:=4;
635+ RoundY:=4;
636+ with BodyNormal do begin
637+ BorderColor:=RGBToColor(219,219,215);
638+ Font.Color:=clBlack;
639+ Gradient1EndPercent:=100;
640+ Gradient1.EndColor:=RGBToColor(232,232,228);
641+ Gradient1.StartColor:=RGBToColor(245,245,241);
642+ Gradient1.Point1YPercent:=85;
643+ end;
644+ with BodyHover do begin
645+ BorderColor:=RGBToColor(219,219,215);
646+ Font.Color:=clBlack;
647+ Gradient1EndPercent:=100;
648+ Gradient1.EndColor:=RGBToColor(232,232,228);
649+ Gradient1.StartColor:=RGBToColor(245,245,241);
650+ Gradient1.Point1YPercent:=85;
651+ end;
652+ with BodyClicked do begin
653+ Color:=RGBToColor(227,227,224);
654+ BorderColor:=RGBToColor(172,172,170);
655+ Font.Color:=clBlack;
656+ Style:=bbsColor;
657+ end;
658+ end;
659+end;
667660```
668661
669662## Flash Player Setup
670663
671-[![bgraflashplayersetup.png](/wiki-images/8/8c/bgraflashplayersetup.png)](</File:bgraflashplayersetup.png>)
664+![](/wiki-images/b/b3/Bgraflashplayersetup.png)
672665
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-```
666+Like Flash Player Setup, add 2 BGRAPanel, the first with a BGRAButton inside, then go OnPaint event of Form1 and add this code:
667+
668+``` pascal
675669procedure TForm1.FormCreate(Sender: TObject);
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;
670+begin
671+ // Background
672+ Self.Color:=RGBToColor(62,62,62);
673+
674+ // Panel
675+ with BGRAPanel2 do begin
676+ BevelOuter:=bvNone;
677+ With Gradient do begin
678+ StartColor:=RGBToColor(203,19,23);
679+ EndColor:=RGBToColor(110,3,20);
680+ end;
681+ end;
682+
683+ // Bottom Panel
684+ with BGRAPanel1 do begin
685+ BevelOuter:=bvNone;
686+ BackGroundStyle:=bpsColor;
687+ Color:=RGBToColor(76,76,76);
688+ end;
689+
690+ // Button
691+ with BGRAButton1 do begin
692+ TextShadowOffSetX:=1;
693+ TextShadowOffSetY:=1;
694+ TextShadowRadius:=2;
695+ // Normal
696+ with BodyNormal do begin
697+ BorderColor:=RGBToColor(24,24,24);
698+ Font.Color:=clWhite;
699+ with Gradient1 do begin
700+ StartColor:=RGBToColor(104,104,104);
701+ EndColor:=RGBToColor(104,104,104);
687702 end;
688-
689- // Bottom Panel
690- with BGRAPanel1 do begin
691- BevelOuter:=bvNone;
692- BackGroundStyle:=bpsColor;
693- Color:=RGBToColor(76,76,76);
703+ with Gradient2 do begin
704+ StartColor:=RGBToColor(103,103,103);
705+ EndColor:=RGBToColor(71,71,71);
694706 end;
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;
707+ end;
708+ // Hover
709+ with BodyHover do begin
710+ BorderColor:=RGBToColor(24,24,24);
711+ Font.Color:=clWhite;
712+ with Gradient1 do begin
713+ StartColor:=RGBToColor(118,118,118);
714+ EndColor:=RGBToColor(118,118,118);
740715 end;
741-
716+ with Gradient2 do begin
717+ StartColor:=RGBToColor(117,117,117);
718+ EndColor:=RGBToColor(81,81,81);
719+ end;
742720 end;
721+ // Clicked
722+ with BodyClicked do begin
723+ BorderColor:=RGBToColor(24,24,24);
724+ Font.Color:=clWhite;
725+ with Gradient1 do begin
726+ StartColor:=RGBToColor(92,92,92);
727+ EndColor:=RGBToColor(92,92,92);
728+ end;
729+ with Gradient2 do begin
730+ StartColor:=RGBToColor(91,91,91);
731+ EndColor:=RGBToColor(62,62,62);
732+ end;
733+ end;
734+ end;
735+
736+end;
743737```
744738
745739---
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).*
740+*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).*
741+Category: BGRAControls

Back to history