Source/TntListActns.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 TntListActns;
  13
  14 {$INCLUDE TntCompilers.inc}
  15
  16 interface
  17
  18 uses
  19   Classes, TntActnList, ListActns;
  20
  21 type
  22 {TNT-WARN TCustomListAction}
  23   TTntCustomListAction = class(TCustomListAction{TNT-ALLOW TCustomListAction}, 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   public
  34     property Caption: WideString read GetCaption write SetCaption;
  35     property Hint: WideString read GetHint write SetHint;
  36   end;
  37
  38 {TNT-WARN TStaticListAction}
  39   TTntStaticListAction = class(TStaticListAction{TNT-ALLOW TStaticListAction}, ITntAction)
  40   private
  41     function GetCaption: WideString;
  42     procedure SetCaption(const Value: WideString);
  43     function GetHint: WideString;
  44     procedure SetHint(const Value: WideString);
  45   protected
  46     procedure DefineProperties(Filer: TFiler); override;
  47   public
  48     procedure Assign(Source: TPersistent); override;
  49   published
  50     property Caption: WideString read GetCaption write SetCaption;
  51     property Hint: WideString read GetHint write SetHint;
  52   end;
  53
  54 {TNT-WARN TVirtualListAction}
  55   TTntVirtualListAction = class(TVirtualListAction{TNT-ALLOW TVirtualListAction}, ITntAction)
  56   private
  57     function GetCaption: WideString;
  58     procedure SetCaption(const Value: WideString);
  59     function GetHint: WideString;
  60     procedure SetHint(const Value: WideString);
  61   protected
  62     procedure DefineProperties(Filer: TFiler); override;
  63   public
  64     procedure Assign(Source: TPersistent); override;
  65   published
  66     property Caption: WideString read GetCaption write SetCaption;
  67     property Hint: WideString read GetHint write SetHint;
  68   end;
  69
  70 implementation
  71
  72 uses
  73   ActnList, TntClasses;
  74
  75 {TNT-IGNORE-UNIT}
  76
  77 type TAccessCustomListAction = class(TCustomListAction);
  78
  79 procedure TntListActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
  80 begin
  81   TntAction_AfterInherited_Assign(Action, Source);
  82   // TCustomListAction
  83   if (Action is TCustomListAction) and (Source is TCustomListAction) then begin
  84     TAccessCustomListAction(Action).Images         := TAccessCustomListAction(Source).Images;
  85     TAccessCustomListAction(Action).OnGetItemCount := TAccessCustomListAction(Source).OnGetItemCount;
  86     TAccessCustomListAction(Action).OnItemSelected := TAccessCustomListAction(Source).OnItemSelected;
  87     TAccessCustomListAction(Action).Active         := TAccessCustomListAction(Source).Active;
  88     TAccessCustomListAction(Action).ItemIndex      := TAccessCustomListAction(Source).ItemIndex;
  89   end;
  90   // TStaticListAction
  91   if (Action is TStaticListAction) and (Source is TStaticListAction) then begin
  92     TStaticListAction(Action).Items     := TStaticListAction(Source).Items;
  93     TStaticListAction(Action).OnGetItem := TStaticListAction(Source).OnGetItem;
  94   end;
  95   // TVirtualListAction
  96   if (Action is TVirtualListAction) and (Source is TVirtualListAction) then begin
  97     TVirtualListAction(Action).OnGetItem := TVirtualListAction(Source).OnGetItem;
  98   end;
  99 end;
 100
 101 //-------------------------
 102 //    TNT LIST ACTNS
 103 //-------------------------
 104
 105 { TTntCustomListAction }
 106
 107 procedure TTntCustomListAction.Assign(Source: TPersistent);
 108 begin
 109   inherited;
 110   TntListActn_AfterInherited_Assign(Self, Source);
 111 end;
 112
 113 procedure TTntCustomListAction.DefineProperties(Filer: TFiler);
 114 begin
 115   inherited;
 116   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 117 end;
 118
 119 function TTntCustomListAction.GetCaption: WideString;
 120 begin
 121   Result := TntAction_GetCaption(Self);
 122 end;
 123
 124 procedure TTntCustomListAction.SetCaption(const Value: WideString);
 125 begin
 126   TntAction_SetCaption(Self, Value);
 127 end;
 128
 129 function TTntCustomListAction.GetHint: WideString;
 130 begin
 131   Result := TntAction_GetHint(Self);
 132 end;
 133
 134 procedure TTntCustomListAction.SetHint(const Value: WideString);
 135 begin
 136   TntAction_SetHint(Self, Value);
 137 end;
 138
 139 { TTntStaticListAction }
 140
 141 procedure TTntStaticListAction.Assign(Source: TPersistent);
 142 begin
 143   inherited;
 144   TntListActn_AfterInherited_Assign(Self, Source);
 145 end;
 146
 147 procedure TTntStaticListAction.DefineProperties(Filer: TFiler);
 148 begin
 149   inherited;
 150   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 151 end;
 152
 153 function TTntStaticListAction.GetCaption: WideString;
 154 begin
 155   Result := TntAction_GetCaption(Self);
 156 end;
 157
 158 procedure TTntStaticListAction.SetCaption(const Value: WideString);
 159 begin
 160   TntAction_SetCaption(Self, Value);
 161 end;
 162
 163 function TTntStaticListAction.GetHint: WideString;
 164 begin
 165   Result := TntAction_GetHint(Self);
 166 end;
 167
 168 procedure TTntStaticListAction.SetHint(const Value: WideString);
 169 begin
 170   TntAction_SetHint(Self, Value);
 171 end;
 172
 173 { TTntVirtualListAction }
 174
 175 procedure TTntVirtualListAction.Assign(Source: TPersistent);
 176 begin
 177   inherited;
 178   TntListActn_AfterInherited_Assign(Self, Source);
 179 end;
 180
 181 procedure TTntVirtualListAction.DefineProperties(Filer: TFiler);
 182 begin
 183   inherited;
 184   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 185 end;
 186
 187 function TTntVirtualListAction.GetCaption: WideString;
 188 begin
 189   Result := TntAction_GetCaption(Self);
 190 end;
 191
 192 procedure TTntVirtualListAction.SetCaption(const Value: WideString);
 193 begin
 194   TntAction_SetCaption(Self, Value);
 195 end;
 196
 197 function TTntVirtualListAction.GetHint: WideString;
 198 begin
 199   Result := TntAction_GetHint(Self);
 200 end;
 201
 202 procedure TTntVirtualListAction.SetHint(const Value: WideString);
 203 begin
 204   TntAction_SetHint(Self, Value);
 205 end;
 206
 207 end.