pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:TRxToolBar - fix draw image for dropdown button

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7021 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-07-02 10:50:01 +00:00
parent 76311a1853
commit 2fd5a598d4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/trunk/rxcontrols/rxtoolbar.pas
View File

@ -601,9 +601,9 @@ begin
FImgS.Width,
Font.PixelsPerInch,
GetCanvasScaleFactor,
TCustomAction(Action).Enabled);
(FToolbarButtonStyle = tbrDropDown) or TCustomAction(Action).Enabled);
{$ELSE}
FImgS.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, TCustomAction(Action).Enabled)
FImgS.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, (FToolbarButtonStyle = tbrDropDown) or TCustomAction(Action).Enabled)
{$ENDIF}
end
else
@ -614,9 +614,9 @@ begin
FImgN.Width,
Font.PixelsPerInch,
GetCanvasScaleFactor,
TCustomAction(Action).Enabled);
(FToolbarButtonStyle = tbrDropDown) or TCustomAction(Action).Enabled);
{$ELSE}
FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, TCustomAction(Action).Enabled);
FImageList.Draw(Canvas, Offset.X, Offset.Y, TCustomAction(Action).ImageIndex, (FToolbarButtonStyle = tbrDropDown) or TCustomAction(Action).Enabled);
{$ENDIF}
end
else