forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

toolbar, handle dropdown buttons

This commit is contained in:
Basile Burg 2016-10-28 10:54:30 +02:00
parent 0a80061d92
commit c9f325c87f
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_dsgncontrols.pas
View File

@ -92,7 +92,7 @@ begin
fResourceName:=value; fResourceName:=value;
if csDesigning in ComponentState then if csDesigning in ComponentState then
exit; exit;
if Style = tbsButton then if Style in [tbsButton, tbsDropDown] then
begin begin
fPng.FreeImage; fPng.FreeImage;
fPng.LoadFromResourceName(HINSTANCE, fResourceName); fPng.LoadFromResourceName(HINSTANCE, fResourceName);
@ -146,9 +146,11 @@ var
x, y: integer; x, y: integer;
begin begin
inherited; inherited;
if (fResourceName <> '') and (style = tbsButton) then if (fResourceName <> '') and (style in [tbsButton, tbsDropDown]) then
begin begin
rc := ClientRect; rc := ClientRect;
if Style = tbsDropDown then
rc.Right := rc.left + FToolBar.ButtonWidth;
x := ((rc.Right - rc.Left) - fPng.width) div 2; x := ((rc.Right - rc.Left) - fPng.width) div 2;
y := ((rc.Bottom - rc.Top) - fPng.Height) div 2; y := ((rc.Bottom - rc.Top) - fPng.Height) div 2;
if Enabled then if Enabled then