paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: fixed typo

Browse Source
This commit is contained in:
mattias 2023-08-05 19:00:27 +02:00
parent b64a1b1fe8
commit 74a2cba2e2
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/anchordocking/anchordocking.pas
View File

@ -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;