From 74a2cba2e2272fffd26e01c53677524f59ecfee1 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 5 Aug 2023 19:00:27 +0200 Subject: [PATCH] anchordocking: fixed typo --- components/anchordocking/anchordocking.pas | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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;