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

fix update menu caption at runtime (code accidently commented by me, i think)

Browse Source 
git-svn-id: trunk@5450 -
This commit is contained in:
micha 2004-05-09 19:14:45 +00:00
parent 89041afa93
commit 07095837f1
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32object.inc
View File

@ -283,11 +283,10 @@ Procedure TWin32WidgetSet.SetLabel(Sender: TObject; Data: Pointer);
SetMenuItemInfo(TMenuItem(Sender).Parent.Handle, SetMenuItemInfo(TMenuItem(Sender).Parent.Handle,
TMenuItem(Sender).Command, false, @MenuInfo); TMenuItem(Sender).Command, false, @MenuInfo);
// owner could be a popupmenu too // owner could be a popupmenu too
{
if (TMenuItem(Sender).Owner is TWinControl) and if (TMenuItem(Sender).Owner is TWinControl) and
TWinControl(TMenuItem(Sender).Owner).HandleAllocated then TWinControl(TMenuItem(Sender).Owner).HandleAllocated and
([csLoading,csDestroying] * TWinControl(TMenuItem(Sender).Owner).ComponentState = []) then
DrawMenuBar(TWinControl(TMenuItem(Sender).Owner).Handle); DrawMenuBar(TWinControl(TMenuItem(Sender).Owner).Handle);
}
End; End;
Var Var
@ -2982,6 +2981,9 @@ End;
{ {
$Log$ $Log$
Revision 1.190 2004/05/09 19:14:45 micha
fix update menu caption at runtime (code accidently commented by me, i think)
Revision 1.189 2004/05/09 16:24:51 micha Revision 1.189 2004/05/09 16:24:51 micha
fix tab order by fixing z-order at control creation fix tab order by fixing z-order at control creation