|
| 1 | +{ |
| 2 | + * This Source Code Form is subject to the terms of the Mozilla Public License, |
| 3 | + * v. 2.0. If a copy of the MPL was not distributed with this file, You can |
| 4 | + * obtain one at https://mozilla.org/MPL/2.0/ |
| 5 | + * |
| 6 | + * Copyright (C) 2012-2024, Peter Johnson (gravatar.com/delphidabbler). |
| 7 | + * |
| 8 | + * Class helper for TControl. |
| 9 | + * |
| 10 | + * Extracted in 2024 from original UClassHelpers unit (2012-2021). |
| 11 | +} |
| 12 | + |
| 13 | +unit ClassHelpers.UControls; |
| 14 | + |
| 15 | +interface |
| 16 | + |
| 17 | +uses |
| 18 | + // Delphi |
| 19 | + Controls, Menus; |
| 20 | + |
| 21 | +type |
| 22 | + /// <summary>Class helper that adds functionality to TControl.</summary> |
| 23 | + TControlHelper = class helper for TControl |
| 24 | + public |
| 25 | + /// <summary>Gets reference to pop-up menu assigned to protected PopupMenu |
| 26 | + /// property.</summary> |
| 27 | + function GetPopupMenu: TPopupMenu; |
| 28 | + /// <summary>Checks if protected PopupMenu property is assigned.</summary> |
| 29 | + function HasPopupMenu: Boolean; |
| 30 | + /// <summary>Refreshes control's action. Any changes in action that affect |
| 31 | + /// state of control are reflected in control.</summary> |
| 32 | + procedure RefreshAction; |
| 33 | + /// <summary>Refreshes all owned controls to reflect any changes in their |
| 34 | + /// associated actions.</summary> |
| 35 | + procedure RefreshActions; |
| 36 | + end; |
| 37 | + |
| 38 | +implementation |
| 39 | + |
| 40 | +{ TControlHelper } |
| 41 | + |
| 42 | +function TControlHelper.GetPopupMenu: TPopupMenu; |
| 43 | +begin |
| 44 | + Result := PopupMenu; |
| 45 | +end; |
| 46 | + |
| 47 | +function TControlHelper.HasPopupMenu: Boolean; |
| 48 | +begin |
| 49 | + Result := Assigned(PopupMenu); |
| 50 | +end; |
| 51 | + |
| 52 | +procedure TControlHelper.RefreshAction; |
| 53 | +begin |
| 54 | + if Assigned(Action) then |
| 55 | + ActionChange(Action, False); |
| 56 | +end; |
| 57 | + |
| 58 | +procedure TControlHelper.RefreshActions; |
| 59 | +var |
| 60 | + Idx: Integer; // loops through all controls |
| 61 | +begin |
| 62 | + for Idx := 0 to Pred(ComponentCount) do |
| 63 | + if Components[Idx] is TControl then |
| 64 | + (Components[Idx] as TControl).RefreshAction; |
| 65 | +end; |
| 66 | + |
| 67 | +end. |
| 68 | + |
0 commit comments