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

fixed not setting TMenu.Items.Caption

Browse Source 
git-svn-id: trunk@7780 -
This commit is contained in:
mattias 2005-09-21 22:51:47 +00:00
parent f1bd1cc6c5
commit a0c1aa4499
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/menuitem.inc
View File

@ -884,7 +884,7 @@ procedure TMenuItem.SetCaption(const AValue: string);
begin begin
if FCaption = AValue then exit; if FCaption = AValue then exit;
FCaption := AValue; FCaption := AValue;
if HandleAllocated then if HandleAllocated and ((Parent<>nil) or (FMenu=nil)) then
TWSMenuItemClass(WidgetSetClass).SetCaption(Self, AValue); TWSMenuItemClass(WidgetSetClass).SetCaption(Self, AValue);
OwnerFormDesignerModified(Self); OwnerFormDesignerModified(Self);
end; end;