paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 06:08:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TBitBtn: fixed typo

Browse Source
This commit is contained in:
mattias 2022-11-18 08:10:27 +01:00
parent e006a7e2c7
commit 8b8ac1696f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/bitbtn.inc
View File

@ -353,7 +353,7 @@ end;
do not work with an const array }
function TCustomBitBtn.GetCaptionOfKind(AKind: TBitBtnKind): String;
begin
Result := GetButtonCaption(BitBtnImages[Kind]);
Result := GetButtonCaption(BitBtnImages[AKind]);
if Result = '?' then
Result := '';
end;