Class helper for updating a TActionList

On occasions I've wanted to provoke all actions in an action list to update themselves - when waiting for the application to update them when idle isn't soon enough.

I would have thought that TActionList would have a suitable method, but it doesn't seem to.

To save having to come up with the same hack over and again, I've started using this class helper:

type
  TActionListHelper = class helper for TCustomActionList
  public
    procedure Update;
  end;
...
procedure TActionListHelper.Update;
var
  Action: TContainedAction;
begin
  for Action in Self do
    Action.Update;
end;
You can now update all the actions in an action list by calling the Update that has been injected into any TActionList instance.
Seems to work so I thought I'd share it.
If you've got a better way, please comment.
Source code highlighting by DelphiDabbler PasHi.















































Comments











Post a Comment


Comments are very welcome, but please don't comment here if:

1) You have a query about, or a bug report for, one of my programs or libraries. Most of my posts contain a link to the relevant repository where there will be an issue tracker you can use.

2) You have a query about any 3rd party programs I feature, please address them to the  developer(s) - there will be a link in the post.

3) You're one of the tiny, tiny minority who are aggressive or abusive - in the bin you go and reported you will be!

Thanks






























Popular posts from this blog









Initialising dynamic arrays





















When writing some unit tests a while ago I found myself needing to initialise some dynamic arrays with test data. It would be nice if we could do something like this:    var    A :  array  of  Integer ;  begin    A  :=  ( 1 , 2 , 3 , 4 ) ;   // !! WRONG  end ;    but we can't. So I decided to write some functions to initialise dynamic arrays to the contents of another array, be it a constant, a literal or another dynamic array.   The result was a set of overloaded routines, one for each data type I needed to handle, for example for Integer  and string  arrays I had:     function  CloneArray ( const  A :  array  of  Integer ) :  TIntegerDynArray ;  overload ;  var    Idx :  Integer ;  begin    SetLength ( Result ,  Length ( A ) ) ;    for  Idx  :=  Low ( A )  to  High ( A )  do      Result [ Idx  -  Low ( A ) ]  :=  A [ Idx ] ;  end ;   function  CloneArray ( const  A :  array  of  string ) :  TStringDynArray ;  overload ;  var    Idx :  Integer ;  begin    SetLength ( Result ,  Len...








Read more










Deleting elements from a dynamic array





















In my blog " Initialising Dynamic Arrays " I mentioned I have been writing some unit tests that needed numerous repetative array initialisation operations. Well, one of the other common operations I found myself writing was the deletion of items from dynamic arrays. So I decided to find a generic way of doing this.   Assuming we know the index of the item to be deleted we need the equivalent of Delphi's built-in Delete  procedure for strings. If you read the previous post  you won't be surprised to learn that I decided to further extend the Generics.Collections.TArray  class by adding to the TArrayEx  class I introduced there.   My first attempt emulates Delphi's Delete  procedure by deleting the array element in-place: i.e. it updates the array passed as a parameter. Unsurprisingly the method is called DeleteInPlace . Here's how it goes:     type    TArrayEx  =  class ( TArray )    public      .. .      class  procedure  DeleteInPlace < T > ( var  A :  ...








Read more