procedure BCButtonWindows7(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(112, 112, 112);
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(242, 242, 242);
Background.Gradient1.EndColor := RGBToColor(235, 235, 235);
Background.Gradient2.StartColor := RGBToColor(221, 221, 221);
Background.Gradient2.EndColor := RGBToColor(207, 207, 207);
end;
with AButton.StateHover do
begin
Background.Gradient1.StartColor := RGBToColor(234, 246, 253);
Background.Gradient1.EndColor := RGBToColor(217, 240, 252);
Background.Gradient2.StartColor := RGBToColor(190, 230, 253);
Background.Gradient2.EndColor := RGBToColor(167, 217, 245);
Border.Color := RGBToColor(60, 127, 177);
end;
with AButton.StateClicked do
begin
Background.Gradient1.StartColor := RGBToColor(229, 244, 252);
Background.Gradient1.EndColor := RGBToColor(196, 229, 246);
Background.Gradient2.StartColor := RGBToColor(152, 209, 239);
Background.Gradient2.EndColor := RGBToColor(104, 179, 219);
Background.Gradient1EndPercent := 55;
Border.Color := RGBToColor(44, 98, 139);
Border.LightOpacity := 100;
Border.LightColor := clBlack;
end;
end;