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

lcl: coolbar: fix double-if from r55426 #f06f1ef334. issue

Browse Source 
git-svn-id: trunk@55431 -
This commit is contained in:
ondrej 2017-07-03 13:57:06 +00:00
parent 3f793b533d
commit b6a11cc0d9
1 changed files with 3 additions and 4 deletions

7
lcl/include/toolbar.inc
View File

@ -244,10 +244,9 @@ end;
function TToolBar.IsVertical: Boolean;
begin
if Assigned(Parent) then begin
if (Parent is TCoolBar) then
exit((Parent as TCoolBar).Vertical);
end;
if (Parent is TCoolBar) then
Exit(TCoolBar(Parent).Vertical);
if Align in [alNone, alClient, alCustom] then
Result := Height > Width
else