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

RxFPC:RxToolbar - fix draw tools dialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8977 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2023-10-25 10:21:38 +00:00
parent 3c41492eb0
commit 97ec0cb837
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/rx/trunk/rxcontrols/rxtbrsetup.pas
View File

@ -116,6 +116,7 @@ var
Offset, TW:integer;
P:TToolbarItem;
BtnRect:TRect;
Offset1: TPoint;
Cnv:TCanvas;
C: TColor;
S, SText: String;
@ -142,9 +143,21 @@ begin
Cnv.Brush.Color := clBtnFace;
Cnv.FillRect(BtnRect);
DrawButtonFrame(Cnv, BtnRect, false, false);
FToolPanel.ImageList.Draw(Cnv, BtnRect.Left + FToolPanel.DefImgWidth div 2,
{ FToolPanel.ImageList.Draw(Cnv, BtnRect.Left + FToolPanel.DefImgWidth div 2,
BtnRect.Top + ((BtnRect.Bottom - BtnRect.Top - FToolPanel.DefImgHeight) div 2),
TCustomAction(P.Action).ImageIndex, True);
}
Offset1.X:= BtnRect.Left + FToolPanel.ImageList.Width div 2;
Offset1.Y:= BtnRect.Top + ((BtnRect.Bottom - BtnRect.Top - FToolPanel.DefImgHeight) div 2);
FToolPanel.ImageList.DrawForPPI(Cnv, Offset1.X, Offset1.Y,
TCustomAction(P.Action).ImageIndex,
FToolPanel.ImageList.Width,
Font.PixelsPerInch,
GetCanvasScaleFactor,
true);
Offset:=BtnRect.Right;
end;
end;