Source/TntBandActn.pas

   1
   2 {*****************************************************************************}
   3 {                                                                             }
   4 {    Tnt Delphi Unicode Controls                                              }
   5 {      http://www.tntware.com/delphicontrols/unicode/                         }
   6 {        Version: 2.3.0                                                       }
   7 {                                                                             }
   8 {    Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com)       }
   9 {                                                                             }
  10 {*****************************************************************************}
  11
  12 unit TntBandActn;
  13
  14 {$INCLUDE TntCompilers.inc}
  15
  16 interface
  17
  18 uses
  19   Classes, BandActn, TntActnList;
  20
  21 type
  22 {TNT-WARN TCustomizeActionBars}
  23   TTntCustomizeActionBars = class(TCustomizeActionBars{TNT-ALLOW TCustomizeActionBars}, ITntAction)
  24   private
  25     function GetCaption: WideString;
  26     procedure SetCaption(const Value: WideString);
  27     function GetHint: WideString;
  28     procedure SetHint(const Value: WideString);
  29   protected
  30     procedure DefineProperties(Filer: TFiler); override;
  31   public
  32     procedure Assign(Source: TPersistent); override;
  33   published
  34     property Caption: WideString read GetCaption write SetCaption;
  35     property Hint: WideString read GetHint write SetHint;
  36   end;
  37
  38 implementation
  39
  40 uses
  41   ActnList, TntClasses;
  42
  43 {TNT-IGNORE-UNIT}
  44
  45 procedure TntBandActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
  46 begin
  47   TntAction_AfterInherited_Assign(Action, Source);
  48   // TCustomizeActionBars
  49   if (Action is TCustomizeActionBars) and (Source is TCustomizeActionBars) then begin
  50     TCustomizeActionBars(Action).ActionManager := TCustomizeActionBars(Source).ActionManager;
  51   end;
  52 end;
  53
  54 //-------------------------
  55 //    TNT BAND ACTN
  56 //-------------------------
  57
  58 { TTntCustomizeActionBars }
  59
  60 procedure TTntCustomizeActionBars.Assign(Source: TPersistent);
  61 begin
  62   inherited;
  63   TntBandActn_AfterInherited_Assign(Self, Source);
  64 end;
  65
  66 procedure TTntCustomizeActionBars.DefineProperties(Filer: TFiler);
  67 begin
  68   inherited;
  69   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
  70 end;
  71
  72 function TTntCustomizeActionBars.GetCaption: WideString;
  73 begin
  74   Result := TntAction_GetCaption(Self);
  75 end;
  76
  77 procedure TTntCustomizeActionBars.SetCaption(const Value: WideString);
  78 begin
  79   TntAction_SetCaption(Self, Value);
  80 end;
  81
  82 function TTntCustomizeActionBars.GetHint: WideString;
  83 begin
  84   Result := TntAction_GetHint(Self);
  85 end;
  86
  87 procedure TTntCustomizeActionBars.SetHint(const Value: WideString);
  88 begin
  89   TntAction_SetHint(Self, Value);
  90 end;
  91
  92 end.