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

Patch from bug #20252

Browse Source 
git-svn-id: trunk@32657 -
This commit is contained in:
sekelsenmat 2011-10-03 15:24:51 +00:00
parent 2710107266
commit 53b49c7086
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/bitbtn.inc
View File

@ -267,7 +267,10 @@ procedure TCustomBitBtn.Loaded;
begin
inherited Loaded;
if (Kind <> bkCustom) and DefaultCaption and (Caption = '') then
Caption := GetCaptionOfKind(Kind);
begin
Caption := GetCaptionOfKind(Kind); // Will trigger TextChanged
DefaultCaption := True;
end;
end;
procedure TCustomBitBtn.TextChanged;