function TContainedAction.Update: Boolean; begin { Result := (ActionList <> nil) and ActionList.UpdateAction(Self) or Application.UpdateAction(Self) or inherited Update or (SendAppMessage(CM_ACTIONUPDATE, 0, Longint(Self)) = 1); } // --------------------------------------------------------- // OnUpdate may cause serious performance problem. // CPU usage is always at about 20-30% (AthlonXP 2100+) // ---------------------------------------------------------
Result := False; // patched by 5291 2004-05-15 end;