May I suggest the addition of ColorDown property to be published in TGDIPButton to make AdvSmoothExpanderButtonPanel control or rather controls that uses TGDIPButton consistent with other controls in the pack like TAdvSmoothTouchKeyboard etc.
Temporary for my project I did a slight modification to the codes as below:
GDIPFill.pas
TGDIPButton = class(TPersistent)
private
...
FColorDown: TColor
..
published
property ColorDown: TColor read FColorDown write SetColorDown default clBlack;
end;
procedure TGDIPButton.SetColorDownColor(const Value: TColor);
begin
if FColorDown <> Value then
begin
FColorDown := Value;
Changed;
end;
end;
advSmoothExpanderButtonPanel.pas
.....
procedure TAdvSmoothExpanderButtonPanel.GDIPPaint(g: TGPGraphics);
begin
....
if Enabled then
begin
// XXX: ButtonAppearance.ColorDown property is added in TGDIPButton
FButtonAppearance.Draw(gp, Caption, x, y, w, h, vs, hs, Color, FButtonAppearance.ColorDown, BevelColor, FButtonAppearance.Font.Color, false, FDown, Bevel, false, false, rtType, Picture, 0, 0, true, ImageIndex, PictureName);
end
else
begin
// XXX: use focuscolor as colordown (original value clNone)
FButtonAppearance.Draw(gp, Caption, x, y, w, h, vs, hs, ColorDisabled, FButtonAppearance.ColorDown, BevelColor, FButtonAppearance.Font.Color,
false, FDown, Bevel, false, false, rtType, Picture, 0, 0, true, DisabledImageIndex, DisabledPictureName);
end;
...
end;
< ="text/" ="" ="/B1D671CF-E532-4481-99AA-19F420D90332etdefender/huidhui.js?0=0&0=0&0=0">