[Delphi 7] Standard actions registreren

[Tomatoman]

In een TActionList of TActionManager kun je standard actions selecteren:


Simpele vraag: hoe registreer ik mijn zelfgeschreven actions als standard actions, zodat ze aan deze lijst worden toegevoegd?

[Tomatoman]

Ik ga mijn vraag zelf beantwoorden . Je blijkt acties te kunnen registeren via de RegisterActions procedure in de unit ActnList. Klinkt eenvoudig, totdat je in de helpfiles de summiere uitleg bij de laatste functieparameter leest. Dan blijk je opeens nog 100+ regels aan extra code te moeten schrijven.

[Verwijderd]

Toen TAction werd geintroduceerd (Delphi 5 geloof ik? Delphi 4 heb ik overgeslagen) kwamen mensen als Ray Konopka en Mark Miller met dezelfde kritiek. Actions zijn mooi, maar voor bv. een component maker (en dat zijn die 2 jongens) is 't een ramp als je een custom action wilt registreren.

Jammer dat Borland daar nu (Delphi 2005) nog steeds niet een handige IDE API voor heeft ontwikkeld...

[alienfruit]

IDE API in Delphi 2005 is toch zo brak (zie QC), dat het niet echt serieus te nemen is.

[ Voor 5% gewijzigd door alienfruit op 30-04-2005 22:37 ]

[Verwijderd]

Define "brak", en wat is QC?
Ik ben zelf ook niet blij met de nieuwe VS.NET IDE, maar da's meer een kwestie van wennen.

[Verwijderd]

Verwijderd schreef op zaterdag 30 april 2005 @ 23:16:
... wat is QC?

http://qc.borland.com/

[Tomatoman]

Nu ik weer terug ben van vakantie heb ik vandaag de code in elkaar gezet.

De code om mijn acties te registreren:

Delphi:

{-------------------------------------------------------------------------------

        Design-time support for data-aware edit actions in the
        DBEditActns unit

        Copyright (c) 2005 Robin Gerrets. All rights reserved.

-------------------------------------------------------------------------------}

unit DBEditActnsReg;

interface

uses
  Classes, ActnList, ActnRes, StdActns, DBEditActns;

type
  TActionTemplate = record
    ActionClass: TBasicActionClass;
    TemplateClass: TBasicActionClass;
  end;

  TInheritedActions = class(TStandardActions)
  private
    function FindTemplateInstance(TemplateClass: TBasicActionClass):
      TBasicAction;
  protected
    procedure ConstructActions(ActionTemplates: array of TActionTemplate);
  end;

procedure Register;

implementation

type
  TDBEditActions = class(TInheritedActions)
  public
    constructor Create(AOwner: TComponent); override;
  end;

{ TInheritedActions }

function TInheritedActions.FindTemplateInstance(TemplateClass:
  TBasicActionClass): TBasicAction;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to ComponentCount - 1 do
    if Components[i].ClassType = TemplateClass then
    begin
      Result := TAction(Components[i]);
      Break;
    end;
end;

procedure TInheritedActions.ConstructActions(ActionTemplates:
  array of TActionTemplate);
var
  i: Integer;
  Action, Template: TBasicAction;
begin
  for i := Low(ActionTemplates) to High(ActionTemplates) do
  begin
    Template := FindTemplateInstance(ActionTemplates[i].TemplateClass);
    Action := ActionTemplates[i].ActionClass.Create(Self);
    if Assigned(Template) and (Template is TCustomAction) and
      (Action is TCustomAction) then
    begin
      TCustomAction(Action).Caption := TCustomAction(Template).Caption;
      TCustomAction(Action).Hint := TCustomAction(Action).Hint;
      TCustomAction(Action).ImageIndex := TCustomAction(Action).ImageIndex;
      TCustomAction(Action).ShortCut := TCustomAction(Action).ShortCut;
    end;
  end;
end;

{ TDBEditActions }

constructor TDBEditActions.Create(AOwner: TComponent);
const
  Templates: array[0..4] of TActionTemplate = (
    (ActionClass: TDBEditCut; TemplateClass: TEditCut),
    (ActionClass: TDBEditCopy; TemplateClass: TEditCopy),
    (ActionClass: TDBEditPaste; TemplateClass: TEditPaste),
    (ActionClass: TDBEditUndo; TemplateClass: TEditUndo),
    (ActionClass: TDBEditDelete; TemplateClass: TEditDelete));
begin
  inherited;
  ConstructActions(Templates);
end;

procedure Register;
begin
  RegisterActions('Edit', [TDBEditCut, TDBEditCopy, TDBEditPaste, TDBEditUndo,
    TDBEditDelete], TDBEditActions);
end;

end.

TDBEditCut, TDBEditCopy, TDBEditPaste, TDBEditUndo en TDBEditDelete zijn actions die zijn gedefinieerd in de unit DBEditActns. Het zijn data-aware varianten van TEditCut etcetera en houden er rekening mee dat een edit control read-only kan zijn. Source code inclusief design-time package

[Verwijderd]

In de code zie ik staan:

Delphi:

      TCustomAction(Action).Caption := TCustomAction(Template).Caption;
      TCustomAction(Action).Hint := TCustomAction(Action).Hint;
      TCustomAction(Action).ImageIndex := TCustomAction(Action).ImageIndex;
      TCustomAction(Action).ShortCut := TCustomAction(Action).ShortCut;

In de eerste regel wordt het template naar de nieuwe action gecopieerd. Moet dat in regel 2-4 ook niet gebeuren? Dus:

TCustomAction(Action).Hint := TCustomAction(Template).Hint; Ipv
TCustomAction(Action).Hint := TCustomAction(Action).Hint;

Nu gebeurt zo te zien niets Of mis ik iets?

[Tomatoman]

Nee, die zie je helemaal goed . Bedankt voor de tip. Sterker nog, nu ik nog eens zit te klooien merk ik dat de ImageIndex wel netjes wordt meegekopieerd, maar de bijbehorende glyph niet. Het lijkt erop dat Delphi intern wat trucjes uithaalt, waardoor alleen bij de reeds in Delphi aanwezige standard actions een glyph wordt gekopieerd naar de ImageList. Vaag.

Delphi:

    if Assigned(Template) and (Template is TCustomAction) and
      (Action is TCustomAction) then
    begin
      TCustomAction(Action).Caption := TCustomAction(Template).Caption;
      TCustomAction(Action).Hint := TCustomAction(Template).Hint;
      // TCustomAction(Action).ImageIndex := TCustomAction(Template).ImageIndex;
      TCustomAction(Action).ShortCut := TCustomAction(Template).ShortCut;
    end;