procedure BCButtonOffice2010(AButton: TBCButton);
begin
AButton.Rounding.RoundX := 3;
AButton.Rounding.RoundY := 3;
AButton.RoundingDropDown.Assign(AButton.Rounding);
with AButton.StateNormal do
begin
Background.Gradient1EndPercent := 50;
Background.Gradient2.Point1XPercent := 0;
Background.Gradient2.Point1YPercent := 0;
Background.Gradient2.Point2YPercent := 100;
Background.Gradient2.GradientType := gtLinear;
Border.Color := RGBToColor(207, 208, 210);
Border.LightWidth := 1;
Border.LightOpacity := 175;
Border.Style := bboSolid;
FontEx.Color := clBlack;
FontEx.Shadow := False;
FontEx.Style := [];
end;
AButton.StateHover.Assign(AButton.StateNormal);
AButton.StateClicked.Assign(AButton.StateNormal);
with AButton.StateNormal do
begin
Background.Gradient1.StartColor := RGBToColor(255, 255, 255);
Background.Gradient1.EndColor := RGBToColor(237, 239, 241);
Background.Gradient1EndPercent := 100;
end;
with AButton.StateHover do
begin
Background.Gradient1.StartColor := RGBToColor(254, 241, 189);
Background.Gradient1.EndColor := RGBToColor(254, 228, 134);
Background.Gradient2.StartColor := RGBToColor(254, 228, 134);
Background.Gradient2.EndColor := RGBToColor(254, 248, 196);
Border.Color := RGBToColor(244, 210, 81);
end;
with AButton.StateClicked do
begin
Background.Gradient1.StartColor := RGBToColor(255, 229, 117);
Background.Gradient1.EndColor := RGBToColor(255, 216, 107);
Background.Gradient2.StartColor := RGBToColor(255, 216, 107);
Background.Gradient2.EndColor := RGBToColor(255, 239, 129);
Border.Color := RGBToColor(194, 161, 63);
Border.LightWidth := 0;
end;
end;