StyleLookup: Button2Style1; End; assignstyleClick We could also change the style at runtime, using a two step process.

File New FireMonkey HD Application We could also use File New Other Delphi Projects FireMonkey HD Applications.

First lets drop two tButtons on the Form select Tools Palette Standard tButton and drag-and-drop two of them on the Form.

You can move this component at a more convenient position on the Form.

Clicking twice on this StyleBook1 opens the Style Designer again.

And if we add a Button3, it still will have the standard style.

We could assemble a tButton by gluing those together as child controls of a tLayout.

However those components are primitive components and have no style themselves.

They are used to build styled components, like tEdits, tButtons etc.

GPU, which is the case on our XP System) to look and behave as native controls the mouse and keyboard events are then added to mimick as closely as possible the standard Delphi VCL events 1.3 - the.STYLE file content To view the content of our Button2 style, we can save the style on disc.

Point (0,33) Width 253.000000000000000000 Height 237.000000000000000000 Object TLayout StyleName Button2Style1 Position.

Point (81,106) Width 91.000000000000000000 Height 24.000000000000000000 DesignVisible False Object TRectangle StyleName background Align alContents Width 91.000000000000000000 Height 24.000000000000000000 HitTest False Fill.

Kind bkNone XRadius 3.000000000000000000 YRadius 3.000000000000000000 Object TRectangle Align alContents Width 91.000000000000000000 Height 24.000000000000000000 HitTest False Fill.

Kind bkGradient Fill.

Gradient. Points item Color x24F4F4F4 End item Color x24EAEAEA Offset 0.499000012874603300 End item Color x4E868686 Offset 0.500000000000000000 End Stroke.

Color xC84F4F4F XRadius 3.000000000000000000 YRadius 3.000000000000000000 End Object TColorAnimation Duration 0.200000002980232200 Trigger IsMouseOvertrue StartValue xFFEFEFEF StopValue xFFA5D9FF PropertyName Fill.Color End Object TColorAnimation Duration 0.200000002980232200 Trigger IsMouseOverfalse StartValue xFFA5D9FF StopValue xFFEFEFEF PropertyName Fill.Color End Object TInnerGlowEffect Trigger IsPressedtrue Enabled False Softness 0.400000005960464400 GlowColor xFF4F4848 Opacity 0.899999976158142100 End Object TRectangle Align alClient Position.

Point (1,1) Locked True Width 89.000000000000000000 Height 22.000000000000000000 Padding.

Color x96FCFCFC XRadius 2.000000000000000000 YRadius 2.000000000000000000 End End Object TText StyleName text Align alClient Position.

Point (5,3) RotationAngle 15.000000000000000000 Locked True Width 81.000000000000000000 Height 18.000000000000000000 Padding.

Color claDeeppink Font.

Size 16.000000000000000000 Text button End Object TGlowEffect Trigger IsFocusedtrue Enabled False Softness 0.200000002980232200 GlowColor x82005ACC Opacity 0.899999976158142100 End End End.

Note that saving the style in a file was only done to display the content of a style, and is not necessary to apply styles or to deploy the.

Button1 is not modified, and if we drop a Button3, it will display the standard style.

Point (16,16) Width 80.000000000000000000 Height 22.000000000000000000 TabOrder 0 StaysPressed False IsPressed False Text Button1 End Object Button2: TButton Position.

Point (104,16) Width 80.000000000000000000 Height 22.000000000000000000 StyleLookup Button2Style1 TabOrder 1 StaysPressed False IsPressed False Text Button2 End Object StyleBook1: TStyleBook Resource.

Strings ( object 1: TLayout Align alClient Position.Point 39 (0,33) 39 Width 336.000000000000000000 Height 529.000000000000000000 object TLayout StyleName 39 Button2Style1 39 Position.Point 39 (122,252) 39 Width 91.000000000000000000 Height 24.000000000000000000 object TRectangle StyleName 39 background 39 Align alContents Width 91.000000000000000000 Height 24.000000000000000000 HitTest False Fill.Color xFFEFEFEF Ed: truncated.

Delphi Firemonkey Styles