Source/TntExtActns.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 TntExtActns;
  13
  14 {$INCLUDE TntCompilers.inc}
  15
  16 interface
  17
  18 uses
  19   Classes, TntActnList, ExtActns;
  20
  21 type
  22 {TNT-WARN TCustomFileRun}
  23   TTntCustomFileRun = class(TCustomFileRun{TNT-ALLOW TCustomFileRun}, 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 TFileRun}
  39   TTntFileRun = class(TFileRun{TNT-ALLOW TFileRun}, 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 TRichEditAction}
  55   TTntRichEditAction = class(TRichEditAction{TNT-ALLOW TRichEditAction}, 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 {TNT-WARN TRichEditBold}
  71   TTntRichEditBold = class(TRichEditBold{TNT-ALLOW TRichEditBold}, ITntAction)
  72   private
  73     function GetCaption: WideString;
  74     procedure SetCaption(const Value: WideString);
  75     function GetHint: WideString;
  76     procedure SetHint(const Value: WideString);
  77   protected
  78     procedure DefineProperties(Filer: TFiler); override;
  79   public
  80     procedure Assign(Source: TPersistent); override;
  81   published
  82     property Caption: WideString read GetCaption write SetCaption;
  83     property Hint: WideString read GetHint write SetHint;
  84   end;
  85
  86 {TNT-WARN TRichEditItalic}
  87   TTntRichEditItalic = class(TRichEditItalic{TNT-ALLOW TRichEditItalic}, ITntAction)
  88   private
  89     function GetCaption: WideString;
  90     procedure SetCaption(const Value: WideString);
  91     function GetHint: WideString;
  92     procedure SetHint(const Value: WideString);
  93   protected
  94     procedure DefineProperties(Filer: TFiler); override;
  95   public
  96     procedure Assign(Source: TPersistent); override;
  97   published
  98     property Caption: WideString read GetCaption write SetCaption;
  99     property Hint: WideString read GetHint write SetHint;
 100   end;
 101
 102 {TNT-WARN TRichEditUnderline}
 103   TTntRichEditUnderline = class(TRichEditUnderline{TNT-ALLOW TRichEditUnderline}, ITntAction)
 104   private
 105     function GetCaption: WideString;
 106     procedure SetCaption(const Value: WideString);
 107     function GetHint: WideString;
 108     procedure SetHint(const Value: WideString);
 109   protected
 110     procedure DefineProperties(Filer: TFiler); override;
 111   public
 112     procedure Assign(Source: TPersistent); override;
 113   published
 114     property Caption: WideString read GetCaption write SetCaption;
 115     property Hint: WideString read GetHint write SetHint;
 116   end;
 117
 118 {TNT-WARN TRichEditStrikeOut}
 119   TTntRichEditStrikeOut = class(TRichEditStrikeOut{TNT-ALLOW TRichEditStrikeOut}, ITntAction)
 120   private
 121     function GetCaption: WideString;
 122     procedure SetCaption(const Value: WideString);
 123     function GetHint: WideString;
 124     procedure SetHint(const Value: WideString);
 125   protected
 126     procedure DefineProperties(Filer: TFiler); override;
 127   public
 128     procedure Assign(Source: TPersistent); override;
 129   published
 130     property Caption: WideString read GetCaption write SetCaption;
 131     property Hint: WideString read GetHint write SetHint;
 132   end;
 133
 134 {TNT-WARN TRichEditBullets}
 135   TTntRichEditBullets = class(TRichEditBullets{TNT-ALLOW TRichEditBullets}, ITntAction)
 136   private
 137     function GetCaption: WideString;
 138     procedure SetCaption(const Value: WideString);
 139     function GetHint: WideString;
 140     procedure SetHint(const Value: WideString);
 141   protected
 142     procedure DefineProperties(Filer: TFiler); override;
 143   public
 144     procedure Assign(Source: TPersistent); override;
 145   published
 146     property Caption: WideString read GetCaption write SetCaption;
 147     property Hint: WideString read GetHint write SetHint;
 148   end;
 149
 150 {TNT-WARN TRichEditAlignLeft}
 151   TTntRichEditAlignLeft = class(TRichEditAlignLeft{TNT-ALLOW TRichEditAlignLeft}, ITntAction)
 152   private
 153     function GetCaption: WideString;
 154     procedure SetCaption(const Value: WideString);
 155     function GetHint: WideString;
 156     procedure SetHint(const Value: WideString);
 157   protected
 158     procedure DefineProperties(Filer: TFiler); override;
 159   public
 160     procedure Assign(Source: TPersistent); override;
 161   published
 162     property Caption: WideString read GetCaption write SetCaption;
 163     property Hint: WideString read GetHint write SetHint;
 164   end;
 165
 166 {TNT-WARN TRichEditAlignRight}
 167   TTntRichEditAlignRight = class(TRichEditAlignRight{TNT-ALLOW TRichEditAlignRight}, ITntAction)
 168   private
 169     function GetCaption: WideString;
 170     procedure SetCaption(const Value: WideString);
 171     function GetHint: WideString;
 172     procedure SetHint(const Value: WideString);
 173   protected
 174     procedure DefineProperties(Filer: TFiler); override;
 175   public
 176     procedure Assign(Source: TPersistent); override;
 177   published
 178     property Caption: WideString read GetCaption write SetCaption;
 179     property Hint: WideString read GetHint write SetHint;
 180   end;
 181
 182 {TNT-WARN TRichEditAlignCenter}
 183   TTntRichEditAlignCenter = class(TRichEditAlignCenter{TNT-ALLOW TRichEditAlignCenter}, ITntAction)
 184   private
 185     function GetCaption: WideString;
 186     procedure SetCaption(const Value: WideString);
 187     function GetHint: WideString;
 188     procedure SetHint(const Value: WideString);
 189   protected
 190     procedure DefineProperties(Filer: TFiler); override;
 191   public
 192     procedure Assign(Source: TPersistent); override;
 193   published
 194     property Caption: WideString read GetCaption write SetCaption;
 195     property Hint: WideString read GetHint write SetHint;
 196   end;
 197
 198 {TNT-WARN TTabAction}
 199   TTntTabAction = class(TTabAction{TNT-ALLOW TTabAction}, ITntAction)
 200   private
 201     function GetCaption: WideString;
 202     procedure SetCaption(const Value: WideString);
 203     function GetHint: WideString;
 204     procedure SetHint(const Value: WideString);
 205   protected
 206     procedure DefineProperties(Filer: TFiler); override;
 207   public
 208     procedure Assign(Source: TPersistent); override;
 209   public
 210     property Caption: WideString read GetCaption write SetCaption;
 211     property Hint: WideString read GetHint write SetHint;
 212   end;
 213
 214 {TNT-WARN TPreviousTab}
 215   TTntPreviousTab = class(TPreviousTab{TNT-ALLOW TPreviousTab}, ITntAction)
 216   private
 217     function GetCaption: WideString;
 218     procedure SetCaption(const Value: WideString);
 219     function GetHint: WideString;
 220     procedure SetHint(const Value: WideString);
 221   protected
 222     procedure DefineProperties(Filer: TFiler); override;
 223   public
 224     procedure Assign(Source: TPersistent); override;
 225   published
 226     property Caption: WideString read GetCaption write SetCaption;
 227     property Hint: WideString read GetHint write SetHint;
 228   end;
 229
 230 {TNT-WARN TNextTab}
 231   TTntNextTab = class(TNextTab{TNT-ALLOW TNextTab}, ITntAction)
 232   private
 233     function GetCaption: WideString;
 234     procedure SetCaption(const Value: WideString);
 235     function GetHint: WideString;
 236     procedure SetHint(const Value: WideString);
 237   protected
 238     procedure DefineProperties(Filer: TFiler); override;
 239   public
 240     procedure Assign(Source: TPersistent); override;
 241   published
 242     property Caption: WideString read GetCaption write SetCaption;
 243     property Hint: WideString read GetHint write SetHint;
 244   end;
 245
 246 {TNT-WARN TOpenPicture}
 247   TTntOpenPicture = class(TOpenPicture{TNT-ALLOW TOpenPicture}, ITntAction)
 248   private
 249     function GetCaption: WideString;
 250     procedure SetCaption(const Value: WideString);
 251     function GetHint: WideString;
 252     procedure SetHint(const Value: WideString);
 253   protected
 254     procedure DefineProperties(Filer: TFiler); override;
 255   public
 256     procedure Assign(Source: TPersistent); override;
 257   published
 258     property Caption: WideString read GetCaption write SetCaption;
 259     property Hint: WideString read GetHint write SetHint;
 260   end;
 261
 262 {TNT-WARN TSavePicture}
 263   TTntSavePicture = class(TSavePicture{TNT-ALLOW TSavePicture}, ITntAction)
 264   private
 265     function GetCaption: WideString;
 266     procedure SetCaption(const Value: WideString);
 267     function GetHint: WideString;
 268     procedure SetHint(const Value: WideString);
 269   protected
 270     procedure DefineProperties(Filer: TFiler); override;
 271   public
 272     procedure Assign(Source: TPersistent); override;
 273   published
 274     property Caption: WideString read GetCaption write SetCaption;
 275     property Hint: WideString read GetHint write SetHint;
 276   end;
 277
 278 {TNT-WARN TURLAction}
 279   TTntURLAction = class(TURLAction{TNT-ALLOW TURLAction}, ITntAction)
 280   private
 281     function GetCaption: WideString;
 282     procedure SetCaption(const Value: WideString);
 283     function GetHint: WideString;
 284     procedure SetHint(const Value: WideString);
 285   protected
 286     procedure DefineProperties(Filer: TFiler); override;
 287   public
 288     procedure Assign(Source: TPersistent); override;
 289   published
 290     property Caption: WideString read GetCaption write SetCaption;
 291     property Hint: WideString read GetHint write SetHint;
 292   end;
 293
 294 {TNT-WARN TBrowseURL}
 295   TTntBrowseURL = class(TBrowseURL{TNT-ALLOW TBrowseURL}, ITntAction)
 296   private
 297     function GetCaption: WideString;
 298     procedure SetCaption(const Value: WideString);
 299     function GetHint: WideString;
 300     procedure SetHint(const Value: WideString);
 301   protected
 302     procedure DefineProperties(Filer: TFiler); override;
 303   public
 304     procedure Assign(Source: TPersistent); override;
 305   published
 306     property Caption: WideString read GetCaption write SetCaption;
 307     property Hint: WideString read GetHint write SetHint;
 308   end;
 309
 310 {TNT-WARN TDownLoadURL}
 311   TTntDownLoadURL = class(TDownLoadURL{TNT-ALLOW TDownLoadURL}, ITntAction)
 312   private
 313     function GetCaption: WideString;
 314     procedure SetCaption(const Value: WideString);
 315     function GetHint: WideString;
 316     procedure SetHint(const Value: WideString);
 317   protected
 318     procedure DefineProperties(Filer: TFiler); override;
 319   public
 320     procedure Assign(Source: TPersistent); override;
 321   published
 322     property Caption: WideString read GetCaption write SetCaption;
 323     property Hint: WideString read GetHint write SetHint;
 324   end;
 325
 326 {TNT-WARN TSendMail}
 327   TTntSendMail = class(TSendMail{TNT-ALLOW TSendMail}, ITntAction)
 328   private
 329     function GetCaption: WideString;
 330     procedure SetCaption(const Value: WideString);
 331     function GetHint: WideString;
 332     procedure SetHint(const Value: WideString);
 333   protected
 334     procedure DefineProperties(Filer: TFiler); override;
 335   public
 336     procedure Assign(Source: TPersistent); override;
 337   published
 338     property Caption: WideString read GetCaption write SetCaption;
 339     property Hint: WideString read GetHint write SetHint;
 340   end;
 341
 342 {TNT-WARN TListControlAction}
 343   TTntListControlAction = class(TListControlAction{TNT-ALLOW TListControlAction}, ITntAction)
 344   private
 345     function GetCaption: WideString;
 346     procedure SetCaption(const Value: WideString);
 347     function GetHint: WideString;
 348     procedure SetHint(const Value: WideString);
 349   protected
 350     procedure DefineProperties(Filer: TFiler); override;
 351   public
 352     procedure Assign(Source: TPersistent); override;
 353   public
 354     property Caption: WideString read GetCaption write SetCaption;
 355     property Hint: WideString read GetHint write SetHint;
 356   end;
 357
 358 {TNT-WARN TListControlCopySelection}
 359   TTntListControlCopySelection = class(TListControlCopySelection{TNT-ALLOW TListControlCopySelection}, ITntAction)
 360   private
 361     function GetCaption: WideString;
 362     procedure SetCaption(const Value: WideString);
 363     function GetHint: WideString;
 364     procedure SetHint(const Value: WideString);
 365   protected
 366     procedure DefineProperties(Filer: TFiler); override;
 367   public
 368     procedure Assign(Source: TPersistent); override;
 369   published
 370     property Caption: WideString read GetCaption write SetCaption;
 371     property Hint: WideString read GetHint write SetHint;
 372   end;
 373
 374 {TNT-WARN TListControlDeleteSelection}
 375   TTntListControlDeleteSelection = class(TListControlDeleteSelection{TNT-ALLOW TListControlDeleteSelection}, ITntAction)
 376   private
 377     function GetCaption: WideString;
 378     procedure SetCaption(const Value: WideString);
 379     function GetHint: WideString;
 380     procedure SetHint(const Value: WideString);
 381   protected
 382     procedure DefineProperties(Filer: TFiler); override;
 383   public
 384     procedure Assign(Source: TPersistent); override;
 385   published
 386     property Caption: WideString read GetCaption write SetCaption;
 387     property Hint: WideString read GetHint write SetHint;
 388   end;
 389
 390 {TNT-WARN TListControlSelectAll}
 391   TTntListControlSelectAll = class(TListControlSelectAll{TNT-ALLOW TListControlSelectAll}, ITntAction)
 392   private
 393     function GetCaption: WideString;
 394     procedure SetCaption(const Value: WideString);
 395     function GetHint: WideString;
 396     procedure SetHint(const Value: WideString);
 397   protected
 398     procedure DefineProperties(Filer: TFiler); override;
 399   public
 400     procedure Assign(Source: TPersistent); override;
 401   published
 402     property Caption: WideString read GetCaption write SetCaption;
 403     property Hint: WideString read GetHint write SetHint;
 404   end;
 405
 406 {TNT-WARN TListControlClearSelection}
 407   TTntListControlClearSelection = class(TListControlClearSelection{TNT-ALLOW TListControlClearSelection}, ITntAction)
 408   private
 409     function GetCaption: WideString;
 410     procedure SetCaption(const Value: WideString);
 411     function GetHint: WideString;
 412     procedure SetHint(const Value: WideString);
 413   protected
 414     procedure DefineProperties(Filer: TFiler); override;
 415   public
 416     procedure Assign(Source: TPersistent); override;
 417   published
 418     property Caption: WideString read GetCaption write SetCaption;
 419     property Hint: WideString read GetHint write SetHint;
 420   end;
 421
 422 {TNT-WARN TListControlMoveSelection}
 423   TTntListControlMoveSelection = class(TListControlMoveSelection{TNT-ALLOW TListControlMoveSelection}, ITntAction)
 424   private
 425     function GetCaption: WideString;
 426     procedure SetCaption(const Value: WideString);
 427     function GetHint: WideString;
 428     procedure SetHint(const Value: WideString);
 429   protected
 430     procedure DefineProperties(Filer: TFiler); override;
 431   public
 432     procedure Assign(Source: TPersistent); override;
 433   published
 434     property Caption: WideString read GetCaption write SetCaption;
 435     property Hint: WideString read GetHint write SetHint;
 436   end;
 437
 438 implementation
 439
 440 uses
 441   ActnList, TntStdActns, TntClasses;
 442
 443 {TNT-IGNORE-UNIT}
 444
 445 procedure TntExtActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
 446 begin
 447   TntStdActn_AfterInherited_Assign(Action, Source);
 448   // TCustomFileRun
 449   if (Action is TCustomFileRun) and (Source is TCustomFileRun) then begin
 450     TCustomFileRun(Action).Browse        := TCustomFileRun(Source).Browse;
 451     if TCustomFileRun(Source).BrowseDlg.Owner <> Source then
 452       TCustomFileRun(Action).BrowseDlg := TCustomFileRun(Source).BrowseDlg
 453     else begin
 454       { Carry over dialog properties.  Currently TOpenDialog doesn't support Assign. }
 455       { TCustomFileRun(Action).BrowseDlg.Assign(TCustomFileRun(Source).BrowseDlg); }
 456     end;
 457     TCustomFileRun(Action).Directory     := TCustomFileRun(Source).Directory;
 458     TCustomFileRun(Action).FileName      := TCustomFileRun(Source).FileName;
 459     TCustomFileRun(Action).Operation     := TCustomFileRun(Source).Operation;
 460     TCustomFileRun(Action).ParentControl := TCustomFileRun(Source).ParentControl;
 461     TCustomFileRun(Action).Parameters    := TCustomFileRun(Source).Parameters;
 462     TCustomFileRun(Action).ShowCmd       := TCustomFileRun(Source).ShowCmd;
 463   end;
 464   // TTabAction
 465   if (Action is TTabAction) and (Source is TTabAction) then begin
 466     TTabAction(Action).SkipHiddenTabs  := TTabAction(Source).SkipHiddenTabs;
 467     TTabAction(Action).TabControl      := TTabAction(Source).TabControl;
 468     TTabAction(Action).Wrap            := TTabAction(Source).Wrap;
 469     TTabAction(Action).BeforeTabChange := TTabAction(Source).BeforeTabChange;
 470     TTabAction(Action).AfterTabChange  := TTabAction(Source).AfterTabChange;
 471     TTabAction(Action).OnValidateTab   := TTabAction(Source).OnValidateTab;
 472   end;
 473   // TNextTab
 474   if (Action is TNextTab) and (Source is TNextTab) then begin
 475     TNextTab(Action).LastTabCaption := TNextTab(Source).LastTabCaption;
 476     TNextTab(Action).OnFinish       := TNextTab(Source).OnFinish;
 477   end;
 478   // TURLAction
 479   if (Action is TURLAction) and (Source is TURLAction) then begin
 480     TURLAction(Action).URL := TURLAction(Source).URL;
 481   end;
 482   // TBrowseURL
 483   if (Action is TBrowseURL) and (Source is TBrowseURL) then begin
 484     {$IFDEF COMPILER_7_UP}
 485     TBrowseURL(Action).BeforeBrowse := TBrowseURL(Source).BeforeBrowse;
 486     TBrowseURL(Action).AfterBrowse  := TBrowseURL(Source).AfterBrowse;
 487     {$ENDIF}
 488   end;
 489   // TDownloadURL
 490   if (Action is TDownloadURL) and (Source is TDownloadURL) then begin
 491     TDownloadURL(Action).FileName           := TDownloadURL(Source).FileName;
 492     {$IFDEF COMPILER_7_UP}
 493     TDownloadURL(Action).BeforeDownload     := TDownloadURL(Source).BeforeDownload;
 494     TDownloadURL(Action).AfterDownload      := TDownloadURL(Source).AfterDownload;
 495     {$ENDIF}
 496     TDownloadURL(Action).OnDownloadProgress := TDownloadURL(Source).OnDownloadProgress;
 497   end;
 498   // TSendMail
 499   if (Action is TSendMail) and (Source is TSendMail) then begin
 500     TSendMail(Action).Text := TSendMail(Source).Text;
 501   end;
 502   // TListControlAction
 503   if (Action is TListControlAction) and (Source is TListControlAction) then begin
 504     TListControlAction(Action).ListControl := TListControlAction(Source).ListControl;
 505   end;
 506   // TListControlCopySelection
 507   if (Action is TListControlCopySelection) and (Source is TListControlCopySelection) then begin
 508     TListControlCopySelection(Action).Destination := TListControlCopySelection(Source).Destination;
 509   end;
 510 end;
 511
 512 //-------------------------
 513 //    TNT EXT ACTNS
 514 //-------------------------
 515
 516 { TTntCustomFileRun }
 517
 518 procedure TTntCustomFileRun.Assign(Source: TPersistent);
 519 begin
 520   inherited;
 521   TntExtActn_AfterInherited_Assign(Self, Source);
 522 end;
 523
 524 procedure TTntCustomFileRun.DefineProperties(Filer: TFiler);
 525 begin
 526   inherited;
 527   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 528 end;
 529
 530 function TTntCustomFileRun.GetCaption: WideString;
 531 begin
 532   Result := TntAction_GetCaption(Self);
 533 end;
 534
 535 procedure TTntCustomFileRun.SetCaption(const Value: WideString);
 536 begin
 537   TntAction_SetCaption(Self, Value);
 538 end;
 539
 540 function TTntCustomFileRun.GetHint: WideString;
 541 begin
 542   Result := TntAction_GetHint(Self);
 543 end;
 544
 545 procedure TTntCustomFileRun.SetHint(const Value: WideString);
 546 begin
 547   TntAction_SetHint(Self, Value);
 548 end;
 549
 550 { TTntFileRun }
 551
 552 procedure TTntFileRun.Assign(Source: TPersistent);
 553 begin
 554   inherited;
 555   TntExtActn_AfterInherited_Assign(Self, Source);
 556 end;
 557
 558 procedure TTntFileRun.DefineProperties(Filer: TFiler);
 559 begin
 560   inherited;
 561   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 562 end;
 563
 564 function TTntFileRun.GetCaption: WideString;
 565 begin
 566   Result := TntAction_GetCaption(Self);
 567 end;
 568
 569 procedure TTntFileRun.SetCaption(const Value: WideString);
 570 begin
 571   TntAction_SetCaption(Self, Value);
 572 end;
 573
 574 function TTntFileRun.GetHint: WideString;
 575 begin
 576   Result := TntAction_GetHint(Self);
 577 end;
 578
 579 procedure TTntFileRun.SetHint(const Value: WideString);
 580 begin
 581   TntAction_SetHint(Self, Value);
 582 end;
 583
 584 { TTntRichEditAction }
 585
 586 procedure TTntRichEditAction.Assign(Source: TPersistent);
 587 begin
 588   inherited;
 589   TntExtActn_AfterInherited_Assign(Self, Source);
 590 end;
 591
 592 procedure TTntRichEditAction.DefineProperties(Filer: TFiler);
 593 begin
 594   inherited;
 595   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 596 end;
 597
 598 function TTntRichEditAction.GetCaption: WideString;
 599 begin
 600   Result := TntAction_GetCaption(Self);
 601 end;
 602
 603 procedure TTntRichEditAction.SetCaption(const Value: WideString);
 604 begin
 605   TntAction_SetCaption(Self, Value);
 606 end;
 607
 608 function TTntRichEditAction.GetHint: WideString;
 609 begin
 610   Result := TntAction_GetHint(Self);
 611 end;
 612
 613 procedure TTntRichEditAction.SetHint(const Value: WideString);
 614 begin
 615   TntAction_SetHint(Self, Value);
 616 end;
 617
 618 { TTntRichEditBold }
 619
 620 procedure TTntRichEditBold.Assign(Source: TPersistent);
 621 begin
 622   inherited;
 623   TntExtActn_AfterInherited_Assign(Self, Source);
 624 end;
 625
 626 procedure TTntRichEditBold.DefineProperties(Filer: TFiler);
 627 begin
 628   inherited;
 629   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 630 end;
 631
 632 function TTntRichEditBold.GetCaption: WideString;
 633 begin
 634   Result := TntAction_GetCaption(Self);
 635 end;
 636
 637 procedure TTntRichEditBold.SetCaption(const Value: WideString);
 638 begin
 639   TntAction_SetCaption(Self, Value);
 640 end;
 641
 642 function TTntRichEditBold.GetHint: WideString;
 643 begin
 644   Result := TntAction_GetHint(Self);
 645 end;
 646
 647 procedure TTntRichEditBold.SetHint(const Value: WideString);
 648 begin
 649   TntAction_SetHint(Self, Value);
 650 end;
 651
 652 { TTntRichEditItalic }
 653
 654 procedure TTntRichEditItalic.Assign(Source: TPersistent);
 655 begin
 656   inherited;
 657   TntExtActn_AfterInherited_Assign(Self, Source);
 658 end;
 659
 660 procedure TTntRichEditItalic.DefineProperties(Filer: TFiler);
 661 begin
 662   inherited;
 663   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 664 end;
 665
 666 function TTntRichEditItalic.GetCaption: WideString;
 667 begin
 668   Result := TntAction_GetCaption(Self);
 669 end;
 670
 671 procedure TTntRichEditItalic.SetCaption(const Value: WideString);
 672 begin
 673   TntAction_SetCaption(Self, Value);
 674 end;
 675
 676 function TTntRichEditItalic.GetHint: WideString;
 677 begin
 678   Result := TntAction_GetHint(Self);
 679 end;
 680
 681 procedure TTntRichEditItalic.SetHint(const Value: WideString);
 682 begin
 683   TntAction_SetHint(Self, Value);
 684 end;
 685
 686 { TTntRichEditUnderline }
 687
 688 procedure TTntRichEditUnderline.Assign(Source: TPersistent);
 689 begin
 690   inherited;
 691   TntExtActn_AfterInherited_Assign(Self, Source);
 692 end;
 693
 694 procedure TTntRichEditUnderline.DefineProperties(Filer: TFiler);
 695 begin
 696   inherited;
 697   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 698 end;
 699
 700 function TTntRichEditUnderline.GetCaption: WideString;
 701 begin
 702   Result := TntAction_GetCaption(Self);
 703 end;
 704
 705 procedure TTntRichEditUnderline.SetCaption(const Value: WideString);
 706 begin
 707   TntAction_SetCaption(Self, Value);
 708 end;
 709
 710 function TTntRichEditUnderline.GetHint: WideString;
 711 begin
 712   Result := TntAction_GetHint(Self);
 713 end;
 714
 715 procedure TTntRichEditUnderline.SetHint(const Value: WideString);
 716 begin
 717   TntAction_SetHint(Self, Value);
 718 end;
 719
 720 { TTntRichEditStrikeOut }
 721
 722 procedure TTntRichEditStrikeOut.Assign(Source: TPersistent);
 723 begin
 724   inherited;
 725   TntExtActn_AfterInherited_Assign(Self, Source);
 726 end;
 727
 728 procedure TTntRichEditStrikeOut.DefineProperties(Filer: TFiler);
 729 begin
 730   inherited;
 731   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 732 end;
 733
 734 function TTntRichEditStrikeOut.GetCaption: WideString;
 735 begin
 736   Result := TntAction_GetCaption(Self);
 737 end;
 738
 739 procedure TTntRichEditStrikeOut.SetCaption(const Value: WideString);
 740 begin
 741   TntAction_SetCaption(Self, Value);
 742 end;
 743
 744 function TTntRichEditStrikeOut.GetHint: WideString;
 745 begin
 746   Result := TntAction_GetHint(Self);
 747 end;
 748
 749 procedure TTntRichEditStrikeOut.SetHint(const Value: WideString);
 750 begin
 751   TntAction_SetHint(Self, Value);
 752 end;
 753
 754 { TTntRichEditBullets }
 755
 756 procedure TTntRichEditBullets.Assign(Source: TPersistent);
 757 begin
 758   inherited;
 759   TntExtActn_AfterInherited_Assign(Self, Source);
 760 end;
 761
 762 procedure TTntRichEditBullets.DefineProperties(Filer: TFiler);
 763 begin
 764   inherited;
 765   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 766 end;
 767
 768 function TTntRichEditBullets.GetCaption: WideString;
 769 begin
 770   Result := TntAction_GetCaption(Self);
 771 end;
 772
 773 procedure TTntRichEditBullets.SetCaption(const Value: WideString);
 774 begin
 775   TntAction_SetCaption(Self, Value);
 776 end;
 777
 778 function TTntRichEditBullets.GetHint: WideString;
 779 begin
 780   Result := TntAction_GetHint(Self);
 781 end;
 782
 783 procedure TTntRichEditBullets.SetHint(const Value: WideString);
 784 begin
 785   TntAction_SetHint(Self, Value);
 786 end;
 787
 788 { TTntRichEditAlignLeft }
 789
 790 procedure TTntRichEditAlignLeft.Assign(Source: TPersistent);
 791 begin
 792   inherited;
 793   TntExtActn_AfterInherited_Assign(Self, Source);
 794 end;
 795
 796 procedure TTntRichEditAlignLeft.DefineProperties(Filer: TFiler);
 797 begin
 798   inherited;
 799   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 800 end;
 801
 802 function TTntRichEditAlignLeft.GetCaption: WideString;
 803 begin
 804   Result := TntAction_GetCaption(Self);
 805 end;
 806
 807 procedure TTntRichEditAlignLeft.SetCaption(const Value: WideString);
 808 begin
 809   TntAction_SetCaption(Self, Value);
 810 end;
 811
 812 function TTntRichEditAlignLeft.GetHint: WideString;
 813 begin
 814   Result := TntAction_GetHint(Self);
 815 end;
 816
 817 procedure TTntRichEditAlignLeft.SetHint(const Value: WideString);
 818 begin
 819   TntAction_SetHint(Self, Value);
 820 end;
 821
 822 { TTntRichEditAlignRight }
 823
 824 procedure TTntRichEditAlignRight.Assign(Source: TPersistent);
 825 begin
 826   inherited;
 827   TntExtActn_AfterInherited_Assign(Self, Source);
 828 end;
 829
 830 procedure TTntRichEditAlignRight.DefineProperties(Filer: TFiler);
 831 begin
 832   inherited;
 833   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 834 end;
 835
 836 function TTntRichEditAlignRight.GetCaption: WideString;
 837 begin
 838   Result := TntAction_GetCaption(Self);
 839 end;
 840
 841 procedure TTntRichEditAlignRight.SetCaption(const Value: WideString);
 842 begin
 843   TntAction_SetCaption(Self, Value);
 844 end;
 845
 846 function TTntRichEditAlignRight.GetHint: WideString;
 847 begin
 848   Result := TntAction_GetHint(Self);
 849 end;
 850
 851 procedure TTntRichEditAlignRight.SetHint(const Value: WideString);
 852 begin
 853   TntAction_SetHint(Self, Value);
 854 end;
 855
 856 { TTntRichEditAlignCenter }
 857
 858 procedure TTntRichEditAlignCenter.Assign(Source: TPersistent);
 859 begin
 860   inherited;
 861   TntExtActn_AfterInherited_Assign(Self, Source);
 862 end;
 863
 864 procedure TTntRichEditAlignCenter.DefineProperties(Filer: TFiler);
 865 begin
 866   inherited;
 867   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 868 end;
 869
 870 function TTntRichEditAlignCenter.GetCaption: WideString;
 871 begin
 872   Result := TntAction_GetCaption(Self);
 873 end;
 874
 875 procedure TTntRichEditAlignCenter.SetCaption(const Value: WideString);
 876 begin
 877   TntAction_SetCaption(Self, Value);
 878 end;
 879
 880 function TTntRichEditAlignCenter.GetHint: WideString;
 881 begin
 882   Result := TntAction_GetHint(Self);
 883 end;
 884
 885 procedure TTntRichEditAlignCenter.SetHint(const Value: WideString);
 886 begin
 887   TntAction_SetHint(Self, Value);
 888 end;
 889
 890 { TTntTabAction }
 891
 892 procedure TTntTabAction.Assign(Source: TPersistent);
 893 begin
 894   inherited;
 895   TntExtActn_AfterInherited_Assign(Self, Source);
 896 end;
 897
 898 procedure TTntTabAction.DefineProperties(Filer: TFiler);
 899 begin
 900   inherited;
 901   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 902 end;
 903
 904 function TTntTabAction.GetCaption: WideString;
 905 begin
 906   Result := TntAction_GetCaption(Self);
 907 end;
 908
 909 procedure TTntTabAction.SetCaption(const Value: WideString);
 910 begin
 911   TntAction_SetCaption(Self, Value);
 912 end;
 913
 914 function TTntTabAction.GetHint: WideString;
 915 begin
 916   Result := TntAction_GetHint(Self);
 917 end;
 918
 919 procedure TTntTabAction.SetHint(const Value: WideString);
 920 begin
 921   TntAction_SetHint(Self, Value);
 922 end;
 923
 924 { TTntPreviousTab }
 925
 926 procedure TTntPreviousTab.Assign(Source: TPersistent);
 927 begin
 928   inherited;
 929   TntExtActn_AfterInherited_Assign(Self, Source);
 930 end;
 931
 932 procedure TTntPreviousTab.DefineProperties(Filer: TFiler);
 933 begin
 934   inherited;
 935   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 936 end;
 937
 938 function TTntPreviousTab.GetCaption: WideString;
 939 begin
 940   Result := TntAction_GetCaption(Self);
 941 end;
 942
 943 procedure TTntPreviousTab.SetCaption(const Value: WideString);
 944 begin
 945   TntAction_SetCaption(Self, Value);
 946 end;
 947
 948 function TTntPreviousTab.GetHint: WideString;
 949 begin
 950   Result := TntAction_GetHint(Self);
 951 end;
 952
 953 procedure TTntPreviousTab.SetHint(const Value: WideString);
 954 begin
 955   TntAction_SetHint(Self, Value);
 956 end;
 957
 958 { TTntNextTab }
 959
 960 procedure TTntNextTab.Assign(Source: TPersistent);
 961 begin
 962   inherited;
 963   TntExtActn_AfterInherited_Assign(Self, Source);
 964 end;
 965
 966 procedure TTntNextTab.DefineProperties(Filer: TFiler);
 967 begin
 968   inherited;
 969   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 970 end;
 971
 972 function TTntNextTab.GetCaption: WideString;
 973 begin
 974   Result := TntAction_GetCaption(Self);
 975 end;
 976
 977 procedure TTntNextTab.SetCaption(const Value: WideString);
 978 begin
 979   TntAction_SetCaption(Self, Value);
 980 end;
 981
 982 function TTntNextTab.GetHint: WideString;
 983 begin
 984   Result := TntAction_GetHint(Self);
 985 end;
 986
 987 procedure TTntNextTab.SetHint(const Value: WideString);
 988 begin
 989   TntAction_SetHint(Self, Value);
 990 end;
 991
 992 { TTntOpenPicture }
 993
 994 procedure TTntOpenPicture.Assign(Source: TPersistent);
 995 begin
 996   inherited;
 997   TntExtActn_AfterInherited_Assign(Self, Source);
 998 end;
 999
1000 procedure TTntOpenPicture.DefineProperties(Filer: TFiler);
1001 begin
1002   inherited;
1003   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1004 end;
1005
1006 function TTntOpenPicture.GetCaption: WideString;
1007 begin
1008   Result := TntAction_GetCaption(Self);
1009 end;
1010
1011 procedure TTntOpenPicture.SetCaption(const Value: WideString);
1012 begin
1013   TntAction_SetCaption(Self, Value);
1014 end;
1015
1016 function TTntOpenPicture.GetHint: WideString;
1017 begin
1018   Result := TntAction_GetHint(Self);
1019 end;
1020
1021 procedure TTntOpenPicture.SetHint(const Value: WideString);
1022 begin
1023   TntAction_SetHint(Self, Value);
1024 end;
1025
1026 { TTntSavePicture }
1027
1028 procedure TTntSavePicture.Assign(Source: TPersistent);
1029 begin
1030   inherited;
1031   TntExtActn_AfterInherited_Assign(Self, Source);
1032 end;
1033
1034 procedure TTntSavePicture.DefineProperties(Filer: TFiler);
1035 begin
1036   inherited;
1037   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1038 end;
1039
1040 function TTntSavePicture.GetCaption: WideString;
1041 begin
1042   Result := TntAction_GetCaption(Self);
1043 end;
1044
1045 procedure TTntSavePicture.SetCaption(const Value: WideString);
1046 begin
1047   TntAction_SetCaption(Self, Value);
1048 end;
1049
1050 function TTntSavePicture.GetHint: WideString;
1051 begin
1052   Result := TntAction_GetHint(Self);
1053 end;
1054
1055 procedure TTntSavePicture.SetHint(const Value: WideString);
1056 begin
1057   TntAction_SetHint(Self, Value);
1058 end;
1059
1060 { TTntURLAction }
1061
1062 procedure TTntURLAction.Assign(Source: TPersistent);
1063 begin
1064   inherited;
1065   TntExtActn_AfterInherited_Assign(Self, Source);
1066 end;
1067
1068 procedure TTntURLAction.DefineProperties(Filer: TFiler);
1069 begin
1070   inherited;
1071   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1072 end;
1073
1074 function TTntURLAction.GetCaption: WideString;
1075 begin
1076   Result := TntAction_GetCaption(Self);
1077 end;
1078
1079 procedure TTntURLAction.SetCaption(const Value: WideString);
1080 begin
1081   TntAction_SetCaption(Self, Value);
1082 end;
1083
1084 function TTntURLAction.GetHint: WideString;
1085 begin
1086   Result := TntAction_GetHint(Self);
1087 end;
1088
1089 procedure TTntURLAction.SetHint(const Value: WideString);
1090 begin
1091   TntAction_SetHint(Self, Value);
1092 end;
1093
1094 { TTntBrowseURL }
1095
1096 procedure TTntBrowseURL.Assign(Source: TPersistent);
1097 begin
1098   inherited;
1099   TntExtActn_AfterInherited_Assign(Self, Source);
1100 end;
1101
1102 procedure TTntBrowseURL.DefineProperties(Filer: TFiler);
1103 begin
1104   inherited;
1105   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1106 end;
1107
1108 function TTntBrowseURL.GetCaption: WideString;
1109 begin
1110   Result := TntAction_GetCaption(Self);
1111 end;
1112
1113 procedure TTntBrowseURL.SetCaption(const Value: WideString);
1114 begin
1115   TntAction_SetCaption(Self, Value);
1116 end;
1117
1118 function TTntBrowseURL.GetHint: WideString;
1119 begin
1120   Result := TntAction_GetHint(Self);
1121 end;
1122
1123 procedure TTntBrowseURL.SetHint(const Value: WideString);
1124 begin
1125   TntAction_SetHint(Self, Value);
1126 end;
1127
1128 { TTntDownLoadURL }
1129
1130 procedure TTntDownLoadURL.Assign(Source: TPersistent);
1131 begin
1132   inherited;
1133   TntExtActn_AfterInherited_Assign(Self, Source);
1134 end;
1135
1136 procedure TTntDownLoadURL.DefineProperties(Filer: TFiler);
1137 begin
1138   inherited;
1139   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1140 end;
1141
1142 function TTntDownLoadURL.GetCaption: WideString;
1143 begin
1144   Result := TntAction_GetCaption(Self);
1145 end;
1146
1147 procedure TTntDownLoadURL.SetCaption(const Value: WideString);
1148 begin
1149   TntAction_SetCaption(Self, Value);
1150 end;
1151
1152 function TTntDownLoadURL.GetHint: WideString;
1153 begin
1154   Result := TntAction_GetHint(Self);
1155 end;
1156
1157 procedure TTntDownLoadURL.SetHint(const Value: WideString);
1158 begin
1159   TntAction_SetHint(Self, Value);
1160 end;
1161
1162 { TTntSendMail }
1163
1164 procedure TTntSendMail.Assign(Source: TPersistent);
1165 begin
1166   inherited;
1167   TntExtActn_AfterInherited_Assign(Self, Source);
1168 end;
1169
1170 procedure TTntSendMail.DefineProperties(Filer: TFiler);
1171 begin
1172   inherited;
1173   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1174 end;
1175
1176 function TTntSendMail.GetCaption: WideString;
1177 begin
1178   Result := TntAction_GetCaption(Self);
1179 end;
1180
1181 procedure TTntSendMail.SetCaption(const Value: WideString);
1182 begin
1183   TntAction_SetCaption(Self, Value);
1184 end;
1185
1186 function TTntSendMail.GetHint: WideString;
1187 begin
1188   Result := TntAction_GetHint(Self);
1189 end;
1190
1191 procedure TTntSendMail.SetHint(const Value: WideString);
1192 begin
1193   TntAction_SetHint(Self, Value);
1194 end;
1195
1196 { TTntListControlAction }
1197
1198 procedure TTntListControlAction.Assign(Source: TPersistent);
1199 begin
1200   inherited;
1201   TntExtActn_AfterInherited_Assign(Self, Source);
1202 end;
1203
1204 procedure TTntListControlAction.DefineProperties(Filer: TFiler);
1205 begin
1206   inherited;
1207   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1208 end;
1209
1210 function TTntListControlAction.GetCaption: WideString;
1211 begin
1212   Result := TntAction_GetCaption(Self);
1213 end;
1214
1215 procedure TTntListControlAction.SetCaption(const Value: WideString);
1216 begin
1217   TntAction_SetCaption(Self, Value);
1218 end;
1219
1220 function TTntListControlAction.GetHint: WideString;
1221 begin
1222   Result := TntAction_GetHint(Self);
1223 end;
1224
1225 procedure TTntListControlAction.SetHint(const Value: WideString);
1226 begin
1227   TntAction_SetHint(Self, Value);
1228 end;
1229
1230 { TTntListControlCopySelection }
1231
1232 procedure TTntListControlCopySelection.Assign(Source: TPersistent);
1233 begin
1234   inherited;
1235   TntExtActn_AfterInherited_Assign(Self, Source);
1236 end;
1237
1238 procedure TTntListControlCopySelection.DefineProperties(Filer: TFiler);
1239 begin
1240   inherited;
1241   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1242 end;
1243
1244 function TTntListControlCopySelection.GetCaption: WideString;
1245 begin
1246   Result := TntAction_GetCaption(Self);
1247 end;
1248
1249 procedure TTntListControlCopySelection.SetCaption(const Value: WideString);
1250 begin
1251   TntAction_SetCaption(Self, Value);
1252 end;
1253
1254 function TTntListControlCopySelection.GetHint: WideString;
1255 begin
1256   Result := TntAction_GetHint(Self);
1257 end;
1258
1259 procedure TTntListControlCopySelection.SetHint(const Value: WideString);
1260 begin
1261   TntAction_SetHint(Self, Value);
1262 end;
1263
1264 { TTntListControlDeleteSelection }
1265
1266 procedure TTntListControlDeleteSelection.Assign(Source: TPersistent);
1267 begin
1268   inherited;
1269   TntExtActn_AfterInherited_Assign(Self, Source);
1270 end;
1271
1272 procedure TTntListControlDeleteSelection.DefineProperties(Filer: TFiler);
1273 begin
1274   inherited;
1275   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1276 end;
1277
1278 function TTntListControlDeleteSelection.GetCaption: WideString;
1279 begin
1280   Result := TntAction_GetCaption(Self);
1281 end;
1282
1283 procedure TTntListControlDeleteSelection.SetCaption(const Value: WideString);
1284 begin
1285   TntAction_SetCaption(Self, Value);
1286 end;
1287
1288 function TTntListControlDeleteSelection.GetHint: WideString;
1289 begin
1290   Result := TntAction_GetHint(Self);
1291 end;
1292
1293 procedure TTntListControlDeleteSelection.SetHint(const Value: WideString);
1294 begin
1295   TntAction_SetHint(Self, Value);
1296 end;
1297
1298 { TTntListControlSelectAll }
1299
1300 procedure TTntListControlSelectAll.Assign(Source: TPersistent);
1301 begin
1302   inherited;
1303   TntExtActn_AfterInherited_Assign(Self, Source);
1304 end;
1305
1306 procedure TTntListControlSelectAll.DefineProperties(Filer: TFiler);
1307 begin
1308   inherited;
1309   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1310 end;
1311
1312 function TTntListControlSelectAll.GetCaption: WideString;
1313 begin
1314   Result := TntAction_GetCaption(Self);
1315 end;
1316
1317 procedure TTntListControlSelectAll.SetCaption(const Value: WideString);
1318 begin
1319   TntAction_SetCaption(Self, Value);
1320 end;
1321
1322 function TTntListControlSelectAll.GetHint: WideString;
1323 begin
1324   Result := TntAction_GetHint(Self);
1325 end;
1326
1327 procedure TTntListControlSelectAll.SetHint(const Value: WideString);
1328 begin
1329   TntAction_SetHint(Self, Value);
1330 end;
1331
1332 { TTntListControlClearSelection }
1333
1334 procedure TTntListControlClearSelection.Assign(Source: TPersistent);
1335 begin
1336   inherited;
1337   TntExtActn_AfterInherited_Assign(Self, Source);
1338 end;
1339
1340 procedure TTntListControlClearSelection.DefineProperties(Filer: TFiler);
1341 begin
1342   inherited;
1343   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1344 end;
1345
1346 function TTntListControlClearSelection.GetCaption: WideString;
1347 begin
1348   Result := TntAction_GetCaption(Self);
1349 end;
1350
1351 procedure TTntListControlClearSelection.SetCaption(const Value: WideString);
1352 begin
1353   TntAction_SetCaption(Self, Value);
1354 end;
1355
1356 function TTntListControlClearSelection.GetHint: WideString;
1357 begin
1358   Result := TntAction_GetHint(Self);
1359 end;
1360
1361 procedure TTntListControlClearSelection.SetHint(const Value: WideString);
1362 begin
1363   TntAction_SetHint(Self, Value);
1364 end;
1365
1366 { TTntListControlMoveSelection }
1367
1368 procedure TTntListControlMoveSelection.Assign(Source: TPersistent);
1369 begin
1370   inherited;
1371   TntExtActn_AfterInherited_Assign(Self, Source);
1372 end;
1373
1374 procedure TTntListControlMoveSelection.DefineProperties(Filer: TFiler);
1375 begin
1376   inherited;
1377   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1378 end;
1379
1380 function TTntListControlMoveSelection.GetCaption: WideString;
1381 begin
1382   Result := TntAction_GetCaption(Self);
1383 end;
1384
1385 procedure TTntListControlMoveSelection.SetCaption(const Value: WideString);
1386 begin
1387   TntAction_SetCaption(Self, Value);
1388 end;
1389
1390 function TTntListControlMoveSelection.GetHint: WideString;
1391 begin
1392   Result := TntAction_GetHint(Self);
1393 end;
1394
1395 procedure TTntListControlMoveSelection.SetHint(const Value: WideString);
1396 begin
1397   TntAction_SetHint(Self, Value);
1398 end;
1399
1400 end.