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

RxToolBar - fix toolbar height on classic style

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3329 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-07-18 05:03:51 +00:00
parent 4c68f33522
commit bc97484933
14 changed files with 399 additions and 447 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/rx/trunk/rxtoolbar.pas
View File

@ -1033,8 +1033,21 @@ procedure TToolPanel.SetToolBarStyle(const AValue: TToolBarStyle);
begin
if FToolBarStyle=AValue then exit;
FToolBarStyle:=AValue;
{
if FToolBarStyle = tbsNative then
BorderWidth:=1
else
BorderWidth:=4;
}
if FToolBarStyle = tbsWindowsXP then
begin
BorderWidth:=4;
SetOptions(FOptions + [tpFlatBtns]);
end
else
begin
BorderWidth:=1
end;
Invalidate;
end;
@ -1172,7 +1185,7 @@ begin
if not (csLoading in ComponentState) then
begin
if Assigned(FImageList) then
aHeight:=FImageList.Height+8 + BorderWidth * 2
aHeight:=FImageList.Height+8 + Max(BorderWidth, 4) * 2
else
aHeight:=FDefButtonHeight + BorderWidth * 2;
end;