Also vll kann dir ThemeServices helfen, ich habe das genutzt um einen SpeedButton nach meinen Wünschen anzupassen.
Delphi-Quellcode:
procedure TThemesDropDownSpeedBtn.Paint;
var
oThemeDetails: TThemedElementDetails;
oThemeStyle: TThemedComboBox;
begin
if ( ThemeServices.ThemesEnabled ) and not (csDesigning in ComponentState) then
begin
if Enabled then
begin
if (Down) or (FState = bsDown) then
begin
oThemeStyle := tcDropDownButtonPressed;
end
else
begin
if MouseInControl then
coThemeStyle := tcDropDownButtonHot
else
oThemeStyle := tcDropDownButtonNormal;
end;
end
else
begin
oThemeStyle := tcDropDownButtonDisabled;
end;
oThemeDetails := ThemeServices.GetElementDetails(oThemeStyle);
ThemeServices.DrawElement(Canvas.Handle, oThemeDetails, ClientRect);
end
else
begin
inherited;
end;
end;
Über die Delphi-Reference solltest du über ThemeServices alles wichtige herausfinden können.
MfG Alaitoc