paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

datetimectrls: datetimepicker: explicitely center themed drop-down arrow - some WS require it. Issue #31383

Browse Source 
git-svn-id: trunk@54147 -
This commit is contained in:
ondrej 2017-02-13 11:39:29 +00:00
parent fb129e0123
commit e2b4f692bc
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/datetimectrls/datetimepicker.pas
View File

@ -3599,13 +3599,18 @@ procedure TDTSpeedButton.Paint;
var var
Details: TThemedElementDetails; Details: TThemedElementDetails;
ArrowState: TThemedToolBar; ArrowState: TThemedToolBar;
ASize: TSize;
ARect: TRect;
begin begin
if Enabled then if Enabled then
ArrowState := ttbSplitButtonDropDownNormal ArrowState := ttbSplitButtonDropDownNormal
else else
ArrowState := ttbSplitButtonDropDownDisabled; ArrowState := ttbSplitButtonDropDownDisabled;
Details := ThemeServices.GetElementDetails(ArrowState); Details := ThemeServices.GetElementDetails(ArrowState);
ThemeServices.DrawElement(Canvas.Handle, Details, DropDownButtonRect); ASize := ThemeServices.GetDetailSize(Details);
ARect := DropDownButtonRect;
InflateRect(ARect, -(ARect.Right-ARect.Left-ASize.cx) div 2, 0);
ThemeServices.DrawElement(Canvas.Handle, Details, ARect);
end; end;
const const
ArrowColor = TColor($8D665A); ArrowColor = TColor($8D665A);