diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas index e30a97fc45..9a13e62ec8 100644 --- a/components/anchordocking/anchordocking.pas +++ b/components/anchordocking/anchordocking.pas @@ -7010,21 +7010,21 @@ begin Result := ThemeServices.GetElementDetails(WindowPart); end; -procedure SizeCorrector(var current,recomend:integer); +procedure SizeCorrector(var current, recommend: integer); begin - if recomend<0 then begin + if recommend<0 then begin if current>0 then - recomend:=current + recommend:=current else current:=HardcodedButtonSize; end else begin - if current>recomend then - current:=recomend + if current>recommend then + current:=recommend else begin if current>0 then - recomend:=current + recommend:=current else - current:=recomend; + current:=recommend; end; end; end;