Source/TntStdActns.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 TntStdActns;
  13
  14 {$INCLUDE TntCompilers.inc}
  15
  16 interface
  17
  18 uses
  19   Classes, ActnList, TntActnList, StdActns, TntDialogs;
  20
  21 type
  22 {TNT-WARN THintAction}
  23   TTntHintAction = class(THintAction{TNT-ALLOW THintAction}, 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   published
  36     property Hint: WideString read GetHint write SetHint;
  37   end;
  38
  39 {TNT-WARN TEditAction}
  40   TTntEditAction = class(TEditAction{TNT-ALLOW TEditAction}, ITntAction)
  41   private
  42     function GetCaption: WideString;
  43     procedure SetCaption(const Value: WideString);
  44     function GetHint: WideString;
  45     procedure SetHint(const Value: WideString);
  46   protected
  47     procedure DefineProperties(Filer: TFiler); override;
  48   public
  49     procedure Assign(Source: TPersistent); override;
  50   published
  51     property Caption: WideString read GetCaption write SetCaption;
  52     property Hint: WideString read GetHint write SetHint;
  53   end;
  54
  55 {TNT-WARN TEditCut}
  56   TTntEditCut = class(TEditCut{TNT-ALLOW TEditCut}, ITntAction)
  57   private
  58     function GetCaption: WideString;
  59     procedure SetCaption(const Value: WideString);
  60     function GetHint: WideString;
  61     procedure SetHint(const Value: WideString);
  62   protected
  63     procedure DefineProperties(Filer: TFiler); override;
  64   public
  65     procedure Assign(Source: TPersistent); override;
  66   published
  67     property Caption: WideString read GetCaption write SetCaption;
  68     property Hint: WideString read GetHint write SetHint;
  69   end;
  70
  71 {TNT-WARN TEditCopy}
  72   TTntEditCopy = class(TEditCopy{TNT-ALLOW TEditCopy}, ITntAction)
  73   private
  74     function GetCaption: WideString;
  75     procedure SetCaption(const Value: WideString);
  76     function GetHint: WideString;
  77     procedure SetHint(const Value: WideString);
  78   protected
  79     procedure DefineProperties(Filer: TFiler); override;
  80   public
  81     procedure Assign(Source: TPersistent); override;
  82   published
  83     property Caption: WideString read GetCaption write SetCaption;
  84     property Hint: WideString read GetHint write SetHint;
  85   end;
  86
  87 {TNT-WARN TEditPaste}
  88   TTntEditPaste = class(TEditPaste{TNT-ALLOW TEditPaste}, ITntAction)
  89   private
  90     function GetCaption: WideString;
  91     procedure SetCaption(const Value: WideString);
  92     function GetHint: WideString;
  93     procedure SetHint(const Value: WideString);
  94   protected
  95     procedure DefineProperties(Filer: TFiler); override;
  96   public
  97     procedure Assign(Source: TPersistent); override;
  98   published
  99     property Caption: WideString read GetCaption write SetCaption;
 100     property Hint: WideString read GetHint write SetHint;
 101   end;
 102
 103 {TNT-WARN TEditSelectAll}
 104   TTntEditSelectAll = class(TEditSelectAll{TNT-ALLOW TEditSelectAll}, ITntAction)
 105   private
 106     function GetCaption: WideString;
 107     procedure SetCaption(const Value: WideString);
 108     function GetHint: WideString;
 109     procedure SetHint(const Value: WideString);
 110   protected
 111     procedure DefineProperties(Filer: TFiler); override;
 112   public
 113     procedure Assign(Source: TPersistent); override;
 114   published
 115     property Caption: WideString read GetCaption write SetCaption;
 116     property Hint: WideString read GetHint write SetHint;
 117   end;
 118
 119 {TNT-WARN TEditUndo}
 120   TTntEditUndo = class(TEditUndo{TNT-ALLOW TEditUndo}, ITntAction)
 121   private
 122     function GetCaption: WideString;
 123     procedure SetCaption(const Value: WideString);
 124     function GetHint: WideString;
 125     procedure SetHint(const Value: WideString);
 126   protected
 127     procedure DefineProperties(Filer: TFiler); override;
 128   public
 129     procedure Assign(Source: TPersistent); override;
 130   published
 131     property Caption: WideString read GetCaption write SetCaption;
 132     property Hint: WideString read GetHint write SetHint;
 133   end;
 134
 135 {TNT-WARN TEditDelete}
 136   TTntEditDelete = class(TEditDelete{TNT-ALLOW TEditDelete}, ITntAction)
 137   private
 138     function GetCaption: WideString;
 139     procedure SetCaption(const Value: WideString);
 140     function GetHint: WideString;
 141     procedure SetHint(const Value: WideString);
 142   protected
 143     procedure DefineProperties(Filer: TFiler); override;
 144   public
 145     procedure Assign(Source: TPersistent); override;
 146     procedure UpdateTarget(Target: TObject); override;
 147     procedure ExecuteTarget(Target: TObject); override;
 148   published
 149     property Caption: WideString read GetCaption write SetCaption;
 150     property Hint: WideString read GetHint write SetHint;
 151   end;
 152
 153 {TNT-WARN TWindowAction}
 154   TTntWindowAction = class(TWindowAction{TNT-ALLOW TWindowAction}, ITntAction)
 155   private
 156     function GetCaption: WideString;
 157     procedure SetCaption(const Value: WideString);
 158     function GetHint: WideString;
 159     procedure SetHint(const Value: WideString);
 160   protected
 161     procedure DefineProperties(Filer: TFiler); override;
 162   public
 163     procedure Assign(Source: TPersistent); override;
 164   published
 165     property Caption: WideString read GetCaption write SetCaption;
 166     property Hint: WideString read GetHint write SetHint;
 167   end;
 168
 169 {TNT-WARN TWindowClose}
 170   TTntWindowClose = class(TWindowClose{TNT-ALLOW TWindowClose}, ITntAction)
 171   private
 172     function GetCaption: WideString;
 173     procedure SetCaption(const Value: WideString);
 174     function GetHint: WideString;
 175     procedure SetHint(const Value: WideString);
 176   protected
 177     procedure DefineProperties(Filer: TFiler); override;
 178   public
 179     procedure Assign(Source: TPersistent); override;
 180   published
 181     property Caption: WideString read GetCaption write SetCaption;
 182     property Hint: WideString read GetHint write SetHint;
 183   end;
 184
 185 {TNT-WARN TWindowCascade}
 186   TTntWindowCascade = class(TWindowCascade{TNT-ALLOW TWindowCascade}, ITntAction)
 187   private
 188     function GetCaption: WideString;
 189     procedure SetCaption(const Value: WideString);
 190     function GetHint: WideString;
 191     procedure SetHint(const Value: WideString);
 192   protected
 193     procedure DefineProperties(Filer: TFiler); override;
 194   public
 195     procedure Assign(Source: TPersistent); override;
 196   published
 197     property Caption: WideString read GetCaption write SetCaption;
 198     property Hint: WideString read GetHint write SetHint;
 199   end;
 200
 201 {TNT-WARN TWindowTileHorizontal}
 202   TTntWindowTileHorizontal = class(TWindowTileHorizontal{TNT-ALLOW TWindowTileHorizontal}, ITntAction)
 203   private
 204     function GetCaption: WideString;
 205     procedure SetCaption(const Value: WideString);
 206     function GetHint: WideString;
 207     procedure SetHint(const Value: WideString);
 208   protected
 209     procedure DefineProperties(Filer: TFiler); override;
 210   public
 211     procedure Assign(Source: TPersistent); override;
 212   published
 213     property Caption: WideString read GetCaption write SetCaption;
 214     property Hint: WideString read GetHint write SetHint;
 215   end;
 216
 217 {TNT-WARN TWindowTileVertical}
 218   TTntWindowTileVertical = class(TWindowTileVertical{TNT-ALLOW TWindowTileVertical}, ITntAction)
 219   private
 220     function GetCaption: WideString;
 221     procedure SetCaption(const Value: WideString);
 222     function GetHint: WideString;
 223     procedure SetHint(const Value: WideString);
 224   protected
 225     procedure DefineProperties(Filer: TFiler); override;
 226   public
 227     procedure Assign(Source: TPersistent); override;
 228   published
 229     property Caption: WideString read GetCaption write SetCaption;
 230     property Hint: WideString read GetHint write SetHint;
 231   end;
 232
 233 {TNT-WARN TWindowMinimizeAll}
 234   TTntWindowMinimizeAll = class(TWindowMinimizeAll{TNT-ALLOW TWindowMinimizeAll}, ITntAction)
 235   private
 236     function GetCaption: WideString;
 237     procedure SetCaption(const Value: WideString);
 238     function GetHint: WideString;
 239     procedure SetHint(const Value: WideString);
 240   protected
 241     procedure DefineProperties(Filer: TFiler); override;
 242   public
 243     procedure Assign(Source: TPersistent); override;
 244   published
 245     property Caption: WideString read GetCaption write SetCaption;
 246     property Hint: WideString read GetHint write SetHint;
 247   end;
 248
 249 {TNT-WARN TWindowArrange}
 250   TTntWindowArrange = class(TWindowArrange{TNT-ALLOW TWindowArrange}, ITntAction)
 251   private
 252     function GetCaption: WideString;
 253     procedure SetCaption(const Value: WideString);
 254     function GetHint: WideString;
 255     procedure SetHint(const Value: WideString);
 256   protected
 257     procedure DefineProperties(Filer: TFiler); override;
 258   public
 259     procedure Assign(Source: TPersistent); override;
 260   published
 261     property Caption: WideString read GetCaption write SetCaption;
 262     property Hint: WideString read GetHint write SetHint;
 263   end;
 264
 265 {TNT-WARN THelpAction}
 266   TTntHelpAction = class(THelpAction{TNT-ALLOW THelpAction}, ITntAction)
 267   private
 268     function GetCaption: WideString;
 269     procedure SetCaption(const Value: WideString);
 270     function GetHint: WideString;
 271     procedure SetHint(const Value: WideString);
 272   protected
 273     procedure DefineProperties(Filer: TFiler); override;
 274   public
 275     procedure Assign(Source: TPersistent); override;
 276   published
 277     property Caption: WideString read GetCaption write SetCaption;
 278     property Hint: WideString read GetHint write SetHint;
 279   end;
 280
 281 {TNT-WARN THelpContents}
 282   TTntHelpContents = class(THelpContents{TNT-ALLOW THelpContents}, ITntAction)
 283   private
 284     function GetCaption: WideString;
 285     procedure SetCaption(const Value: WideString);
 286     function GetHint: WideString;
 287     procedure SetHint(const Value: WideString);
 288   protected
 289     procedure DefineProperties(Filer: TFiler); override;
 290   public
 291     procedure Assign(Source: TPersistent); override;
 292   published
 293     property Caption: WideString read GetCaption write SetCaption;
 294     property Hint: WideString read GetHint write SetHint;
 295   end;
 296
 297 {TNT-WARN THelpTopicSearch}
 298   TTntHelpTopicSearch = class(THelpTopicSearch{TNT-ALLOW THelpTopicSearch}, ITntAction)
 299   private
 300     function GetCaption: WideString;
 301     procedure SetCaption(const Value: WideString);
 302     function GetHint: WideString;
 303     procedure SetHint(const Value: WideString);
 304   protected
 305     procedure DefineProperties(Filer: TFiler); override;
 306   public
 307     procedure Assign(Source: TPersistent); override;
 308   published
 309     property Caption: WideString read GetCaption write SetCaption;
 310     property Hint: WideString read GetHint write SetHint;
 311   end;
 312
 313 {TNT-WARN THelpOnHelp}
 314   TTntHelpOnHelp = class(THelpOnHelp{TNT-ALLOW THelpOnHelp}, ITntAction)
 315   private
 316     function GetCaption: WideString;
 317     procedure SetCaption(const Value: WideString);
 318     function GetHint: WideString;
 319     procedure SetHint(const Value: WideString);
 320   protected
 321     procedure DefineProperties(Filer: TFiler); override;
 322   public
 323     procedure Assign(Source: TPersistent); override;
 324   published
 325     property Caption: WideString read GetCaption write SetCaption;
 326     property Hint: WideString read GetHint write SetHint;
 327   end;
 328
 329 {TNT-WARN THelpContextAction}
 330   TTntHelpContextAction = class(THelpContextAction{TNT-ALLOW THelpContextAction}, ITntAction)
 331   private
 332     function GetCaption: WideString;
 333     procedure SetCaption(const Value: WideString);
 334     function GetHint: WideString;
 335     procedure SetHint(const Value: WideString);
 336   protected
 337     procedure DefineProperties(Filer: TFiler); override;
 338   public
 339     procedure Assign(Source: TPersistent); override;
 340   published
 341     property Caption: WideString read GetCaption write SetCaption;
 342     property Hint: WideString read GetHint write SetHint;
 343   end;
 344
 345 {TNT-WARN TCommonDialogAction}
 346   TTntCommonDialogAction = class(TCommonDialogAction{TNT-ALLOW TCommonDialogAction}, ITntAction)
 347   private
 348     function GetCaption: WideString;
 349     procedure SetCaption(const Value: WideString);
 350     function GetHint: WideString;
 351     procedure SetHint(const Value: WideString);
 352   protected
 353     procedure DefineProperties(Filer: TFiler); override;
 354   public
 355     procedure Assign(Source: TPersistent); override;
 356   public
 357     property Caption: WideString read GetCaption write SetCaption;
 358     property Hint: WideString read GetHint write SetHint;
 359   end;
 360
 361 {TNT-WARN TFileAction}
 362   TTntFileAction = class(TFileAction{TNT-ALLOW TFileAction}, ITntAction)
 363   private
 364     function GetCaption: WideString;
 365     procedure SetCaption(const Value: WideString);
 366     function GetHint: WideString;
 367     procedure SetHint(const Value: WideString);
 368   protected
 369     procedure DefineProperties(Filer: TFiler); override;
 370   public
 371     procedure Assign(Source: TPersistent); override;
 372   public
 373     property Caption: WideString read GetCaption write SetCaption;
 374     property Hint: WideString read GetHint write SetHint;
 375   end;
 376
 377 {TNT-WARN TFileOpen}
 378   TTntFileOpen = class(TFileOpen{TNT-ALLOW TFileOpen}, ITntAction)
 379   private
 380     function GetCaption: WideString;
 381     procedure SetCaption(const Value: WideString);
 382     function GetHint: WideString;
 383     procedure SetHint(const Value: WideString);
 384     function GetDialog: TTntOpenDialog;
 385   protected
 386     procedure DefineProperties(Filer: TFiler); override;
 387     function GetDialogClass: TCommonDialogClass; override;
 388   public
 389     procedure Assign(Source: TPersistent); override;
 390   published
 391     property Caption: WideString read GetCaption write SetCaption;
 392     property Dialog: TTntOpenDialog read GetDialog;
 393     property Hint: WideString read GetHint write SetHint;
 394   end;
 395
 396 {TNT-WARN TFileOpenWith}
 397   TTntFileOpenWith = class(TFileOpenWith{TNT-ALLOW TFileOpenWith}, ITntAction)
 398   private
 399     function GetCaption: WideString;
 400     procedure SetCaption(const Value: WideString);
 401     function GetHint: WideString;
 402     procedure SetHint(const Value: WideString);
 403     function GetDialog: TTntOpenDialog;
 404   protected
 405     procedure DefineProperties(Filer: TFiler); override;
 406     function GetDialogClass: TCommonDialogClass; override;
 407   public
 408     procedure Assign(Source: TPersistent); override;
 409   published
 410     property Caption: WideString read GetCaption write SetCaption;
 411     property Dialog: TTntOpenDialog read GetDialog;
 412     property Hint: WideString read GetHint write SetHint;
 413   end;
 414
 415 {TNT-WARN TFileSaveAs}
 416   TTntFileSaveAs = class(TFileSaveAs{TNT-ALLOW TFileSaveAs}, ITntAction)
 417   private
 418     function GetCaption: WideString;
 419     procedure SetCaption(const Value: WideString);
 420     function GetHint: WideString;
 421     procedure SetHint(const Value: WideString);
 422     function GetDialog: TTntSaveDialog;
 423   protected
 424     procedure DefineProperties(Filer: TFiler); override;
 425     function GetDialogClass: TCommonDialogClass; override;
 426   public
 427     procedure Assign(Source: TPersistent); override;
 428   published
 429     property Caption: WideString read GetCaption write SetCaption;
 430     property Dialog: TTntSaveDialog read GetDialog;
 431     property Hint: WideString read GetHint write SetHint;
 432   end;
 433
 434 {TNT-WARN TFilePrintSetup}
 435   TTntFilePrintSetup = class(TFilePrintSetup{TNT-ALLOW TFilePrintSetup}, ITntAction)
 436   private
 437     function GetCaption: WideString;
 438     procedure SetCaption(const Value: WideString);
 439     function GetHint: WideString;
 440     procedure SetHint(const Value: WideString);
 441   protected
 442     procedure DefineProperties(Filer: TFiler); override;
 443   public
 444     procedure Assign(Source: TPersistent); override;
 445   published
 446     property Caption: WideString read GetCaption write SetCaption;
 447     property Hint: WideString read GetHint write SetHint;
 448   end;
 449
 450   {$IFDEF COMPILER_7_UP}
 451 {TNT-WARN TFilePageSetup}
 452   TTntFilePageSetup = class(TFilePageSetup{TNT-ALLOW TFilePageSetup}, ITntAction)
 453   private
 454     function GetCaption: WideString;
 455     procedure SetCaption(const Value: WideString);
 456     function GetHint: WideString;
 457     procedure SetHint(const Value: WideString);
 458   protected
 459     procedure DefineProperties(Filer: TFiler); override;
 460   public
 461     procedure Assign(Source: TPersistent); override;
 462   published
 463     property Caption: WideString read GetCaption write SetCaption;
 464     property Hint: WideString read GetHint write SetHint;
 465   end;
 466   {$ENDIF}
 467
 468 {TNT-WARN TFileExit}
 469   TTntFileExit = class(TFileExit{TNT-ALLOW TFileExit}, ITntAction)
 470   private
 471     function GetCaption: WideString;
 472     procedure SetCaption(const Value: WideString);
 473     function GetHint: WideString;
 474     procedure SetHint(const Value: WideString);
 475   protected
 476     procedure DefineProperties(Filer: TFiler); override;
 477   public
 478     procedure Assign(Source: TPersistent); override;
 479   published
 480     property Caption: WideString read GetCaption write SetCaption;
 481     property Hint: WideString read GetHint write SetHint;
 482   end;
 483
 484 {TNT-WARN TSearchAction}
 485   TTntSearchAction = class(TSearchAction{TNT-ALLOW TSearchAction}, ITntAction)
 486   private
 487     function GetCaption: WideString;
 488     procedure SetCaption(const Value: WideString);
 489     function GetHint: WideString;
 490     procedure SetHint(const Value: WideString);
 491   protected
 492     procedure DefineProperties(Filer: TFiler); override;
 493   public
 494     procedure Assign(Source: TPersistent); override;
 495   public
 496     property Caption: WideString read GetCaption write SetCaption;
 497     property Hint: WideString read GetHint write SetHint;
 498   end;
 499
 500 {TNT-WARN TSearchFind}
 501   TTntSearchFind = class(TSearchFind{TNT-ALLOW TSearchFind}, ITntAction)
 502   private
 503     function GetCaption: WideString;
 504     procedure SetCaption(const Value: WideString);
 505     function GetHint: WideString;
 506     procedure SetHint(const Value: WideString);
 507   protected
 508     procedure DefineProperties(Filer: TFiler); override;
 509   public
 510     procedure Assign(Source: TPersistent); override;
 511   published
 512     property Caption: WideString read GetCaption write SetCaption;
 513     property Hint: WideString read GetHint write SetHint;
 514   end;
 515
 516 {TNT-WARN TSearchReplace}
 517   TTntSearchReplace = class(TSearchReplace{TNT-ALLOW TSearchReplace}, ITntAction)
 518   private
 519     function GetCaption: WideString;
 520     procedure SetCaption(const Value: WideString);
 521     function GetHint: WideString;
 522     procedure SetHint(const Value: WideString);
 523   protected
 524     procedure DefineProperties(Filer: TFiler); override;
 525   public
 526     procedure Assign(Source: TPersistent); override;
 527   published
 528     property Caption: WideString read GetCaption write SetCaption;
 529     property Hint: WideString read GetHint write SetHint;
 530   end;
 531
 532 {TNT-WARN TSearchFindFirst}
 533   TTntSearchFindFirst = class(TSearchFindFirst{TNT-ALLOW TSearchFindFirst}, ITntAction)
 534   private
 535     function GetCaption: WideString;
 536     procedure SetCaption(const Value: WideString);
 537     function GetHint: WideString;
 538     procedure SetHint(const Value: WideString);
 539   protected
 540     procedure DefineProperties(Filer: TFiler); override;
 541   public
 542     procedure Assign(Source: TPersistent); override;
 543   published
 544     property Caption: WideString read GetCaption write SetCaption;
 545     property Hint: WideString read GetHint write SetHint;
 546   end;
 547
 548 {TNT-WARN TSearchFindNext}
 549   TTntSearchFindNext = class(TSearchFindNext{TNT-ALLOW TSearchFindNext}, ITntAction)
 550   private
 551     function GetCaption: WideString;
 552     procedure SetCaption(const Value: WideString);
 553     function GetHint: WideString;
 554     procedure SetHint(const Value: WideString);
 555   protected
 556     procedure DefineProperties(Filer: TFiler); override;
 557   public
 558     procedure Assign(Source: TPersistent); override;
 559   published
 560     property Caption: WideString read GetCaption write SetCaption;
 561     property Hint: WideString read GetHint write SetHint;
 562   end;
 563
 564 {TNT-WARN TFontEdit}
 565   TTntFontEdit = class(TFontEdit{TNT-ALLOW TFontEdit}, ITntAction)
 566   private
 567     function GetCaption: WideString;
 568     procedure SetCaption(const Value: WideString);
 569     function GetHint: WideString;
 570     procedure SetHint(const Value: WideString);
 571   protected
 572     procedure DefineProperties(Filer: TFiler); override;
 573   public
 574     procedure Assign(Source: TPersistent); override;
 575   published
 576     property Caption: WideString read GetCaption write SetCaption;
 577     property Hint: WideString read GetHint write SetHint;
 578   end;
 579
 580 {TNT-WARN TColorSelect}
 581   TTntColorSelect = class(TColorSelect{TNT-ALLOW TColorSelect}, ITntAction)
 582   private
 583     function GetCaption: WideString;
 584     procedure SetCaption(const Value: WideString);
 585     function GetHint: WideString;
 586     procedure SetHint(const Value: WideString);
 587   protected
 588     procedure DefineProperties(Filer: TFiler); override;
 589   public
 590     procedure Assign(Source: TPersistent); override;
 591   published
 592     property Caption: WideString read GetCaption write SetCaption;
 593     property Hint: WideString read GetHint write SetHint;
 594   end;
 595
 596 {TNT-WARN TPrintDlg}
 597   TTntPrintDlg = class(TPrintDlg{TNT-ALLOW TPrintDlg}, ITntAction)
 598   private
 599     function GetCaption: WideString;
 600     procedure SetCaption(const Value: WideString);
 601     function GetHint: WideString;
 602     procedure SetHint(const Value: WideString);
 603   protected
 604     procedure DefineProperties(Filer: TFiler); override;
 605   public
 606     procedure Assign(Source: TPersistent); override;
 607   published
 608     property Caption: WideString read GetCaption write SetCaption;
 609     property Hint: WideString read GetHint write SetHint;
 610   end;
 611
 612 procedure TntStdActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
 613
 614 implementation
 615
 616 uses
 617   Dialogs, TntClasses;
 618
 619 {TNT-IGNORE-UNIT}
 620
 621 procedure TntStdActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
 622 begin
 623   TntAction_AfterInherited_Assign(Action, Source);
 624   // TCommonDialogAction
 625   if (Action is TCommonDialogAction) and (Source is TCommonDialogAction) then begin
 626     TCommonDialogAction(Action).BeforeExecute := TCommonDialogAction(Source).BeforeExecute;
 627     TCommonDialogAction(Action).OnAccept      := TCommonDialogAction(Source).OnAccept;
 628     TCommonDialogAction(Action).OnCancel      := TCommonDialogAction(Source).OnCancel;
 629   end;
 630   // TFileOpen
 631   if (Action is TFileOpen) and (Source is TFileOpen) then begin
 632     {$IFDEF COMPILER_7_UP}
 633     TFileOpen(Action).UseDefaultApp := TFileOpen(Source).UseDefaultApp;
 634     {$ENDIF}
 635   end;
 636   // TFileOpenWith
 637   if (Action is TFileOpenWith) and (Source is TFileOpenWith) then begin
 638     TFileOpenWith(Action).FileName  := TFileOpenWith(Source).FileName;
 639     {$IFDEF COMPILER_7_UP}
 640     TFileOpenWith(Action).AfterOpen := TFileOpenWith(Source).AfterOpen;
 641     {$ENDIF}
 642   end;
 643   // TSearchFindNext
 644   if (Action is TSearchFindNext) and (Source is TSearchFindNext) then begin
 645     TSearchFindNext(Action).SearchFind := TSearchFindNext(Source).SearchFind;
 646   end;
 647 end;
 648
 649 //-------------------------
 650 //    TNT STD ACTNS
 651 //-------------------------
 652
 653 { TTntHintAction }
 654
 655 procedure TTntHintAction.Assign(Source: TPersistent);
 656 begin
 657   inherited;
 658   TntStdActn_AfterInherited_Assign(Self, Source);
 659 end;
 660
 661 procedure TTntHintAction.DefineProperties(Filer: TFiler);
 662 begin
 663   inherited;
 664   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 665 end;
 666
 667 function TTntHintAction.GetCaption: WideString;
 668 begin
 669   Result := TntAction_GetCaption(Self);
 670 end;
 671
 672 procedure TTntHintAction.SetCaption(const Value: WideString);
 673 begin
 674   TntAction_SetCaption(Self, Value);
 675 end;
 676
 677 function TTntHintAction.GetHint: WideString;
 678 begin
 679   Result := TntAction_GetHint(Self);
 680 end;
 681
 682 procedure TTntHintAction.SetHint(const Value: WideString);
 683 begin
 684   TntAction_SetHint(Self, Value);
 685 end;
 686
 687 { TTntEditAction }
 688
 689 procedure TTntEditAction.Assign(Source: TPersistent);
 690 begin
 691   inherited;
 692   TntStdActn_AfterInherited_Assign(Self, Source);
 693 end;
 694
 695 procedure TTntEditAction.DefineProperties(Filer: TFiler);
 696 begin
 697   inherited;
 698   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 699 end;
 700
 701 function TTntEditAction.GetCaption: WideString;
 702 begin
 703   Result := TntAction_GetCaption(Self);
 704 end;
 705
 706 procedure TTntEditAction.SetCaption(const Value: WideString);
 707 begin
 708   TntAction_SetCaption(Self, Value);
 709 end;
 710
 711 function TTntEditAction.GetHint: WideString;
 712 begin
 713   Result := TntAction_GetHint(Self);
 714 end;
 715
 716 procedure TTntEditAction.SetHint(const Value: WideString);
 717 begin
 718   TntAction_SetHint(Self, Value);
 719 end;
 720
 721 { TTntEditCut }
 722
 723 procedure TTntEditCut.Assign(Source: TPersistent);
 724 begin
 725   inherited;
 726   TntStdActn_AfterInherited_Assign(Self, Source);
 727 end;
 728
 729 procedure TTntEditCut.DefineProperties(Filer: TFiler);
 730 begin
 731   inherited;
 732   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 733 end;
 734
 735 function TTntEditCut.GetCaption: WideString;
 736 begin
 737   Result := TntAction_GetCaption(Self);
 738 end;
 739
 740 procedure TTntEditCut.SetCaption(const Value: WideString);
 741 begin
 742   TntAction_SetCaption(Self, Value);
 743 end;
 744
 745 function TTntEditCut.GetHint: WideString;
 746 begin
 747   Result := TntAction_GetHint(Self);
 748 end;
 749
 750 procedure TTntEditCut.SetHint(const Value: WideString);
 751 begin
 752   TntAction_SetHint(Self, Value);
 753 end;
 754
 755 { TTntEditCopy }
 756
 757 procedure TTntEditCopy.Assign(Source: TPersistent);
 758 begin
 759   inherited;
 760   TntStdActn_AfterInherited_Assign(Self, Source);
 761 end;
 762
 763 procedure TTntEditCopy.DefineProperties(Filer: TFiler);
 764 begin
 765   inherited;
 766   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 767 end;
 768
 769 function TTntEditCopy.GetCaption: WideString;
 770 begin
 771   Result := TntAction_GetCaption(Self);
 772 end;
 773
 774 procedure TTntEditCopy.SetCaption(const Value: WideString);
 775 begin
 776   TntAction_SetCaption(Self, Value);
 777 end;
 778
 779 function TTntEditCopy.GetHint: WideString;
 780 begin
 781   Result := TntAction_GetHint(Self);
 782 end;
 783
 784 procedure TTntEditCopy.SetHint(const Value: WideString);
 785 begin
 786   TntAction_SetHint(Self, Value);
 787 end;
 788
 789 { TTntEditPaste }
 790
 791 procedure TTntEditPaste.Assign(Source: TPersistent);
 792 begin
 793   inherited;
 794   TntStdActn_AfterInherited_Assign(Self, Source);
 795 end;
 796
 797 procedure TTntEditPaste.DefineProperties(Filer: TFiler);
 798 begin
 799   inherited;
 800   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 801 end;
 802
 803 function TTntEditPaste.GetCaption: WideString;
 804 begin
 805   Result := TntAction_GetCaption(Self);
 806 end;
 807
 808 procedure TTntEditPaste.SetCaption(const Value: WideString);
 809 begin
 810   TntAction_SetCaption(Self, Value);
 811 end;
 812
 813 function TTntEditPaste.GetHint: WideString;
 814 begin
 815   Result := TntAction_GetHint(Self);
 816 end;
 817
 818 procedure TTntEditPaste.SetHint(const Value: WideString);
 819 begin
 820   TntAction_SetHint(Self, Value);
 821 end;
 822
 823 { TTntEditSelectAll }
 824
 825 procedure TTntEditSelectAll.Assign(Source: TPersistent);
 826 begin
 827   inherited;
 828   TntStdActn_AfterInherited_Assign(Self, Source);
 829 end;
 830
 831 procedure TTntEditSelectAll.DefineProperties(Filer: TFiler);
 832 begin
 833   inherited;
 834   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 835 end;
 836
 837 function TTntEditSelectAll.GetCaption: WideString;
 838 begin
 839   Result := TntAction_GetCaption(Self);
 840 end;
 841
 842 procedure TTntEditSelectAll.SetCaption(const Value: WideString);
 843 begin
 844   TntAction_SetCaption(Self, Value);
 845 end;
 846
 847 function TTntEditSelectAll.GetHint: WideString;
 848 begin
 849   Result := TntAction_GetHint(Self);
 850 end;
 851
 852 procedure TTntEditSelectAll.SetHint(const Value: WideString);
 853 begin
 854   TntAction_SetHint(Self, Value);
 855 end;
 856
 857 { TTntEditUndo }
 858
 859 procedure TTntEditUndo.Assign(Source: TPersistent);
 860 begin
 861   inherited;
 862   TntStdActn_AfterInherited_Assign(Self, Source);
 863 end;
 864
 865 procedure TTntEditUndo.DefineProperties(Filer: TFiler);
 866 begin
 867   inherited;
 868   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 869 end;
 870
 871 function TTntEditUndo.GetCaption: WideString;
 872 begin
 873   Result := TntAction_GetCaption(Self);
 874 end;
 875
 876 procedure TTntEditUndo.SetCaption(const Value: WideString);
 877 begin
 878   TntAction_SetCaption(Self, Value);
 879 end;
 880
 881 function TTntEditUndo.GetHint: WideString;
 882 begin
 883   Result := TntAction_GetHint(Self);
 884 end;
 885
 886 procedure TTntEditUndo.SetHint(const Value: WideString);
 887 begin
 888   TntAction_SetHint(Self, Value);
 889 end;
 890
 891 { TTntEditDelete }
 892
 893 procedure TTntEditDelete.Assign(Source: TPersistent);
 894 begin
 895   inherited;
 896   TntStdActn_AfterInherited_Assign(Self, Source);
 897 end;
 898
 899 procedure TTntEditDelete.DefineProperties(Filer: TFiler);
 900 begin
 901   inherited;
 902   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 903 end;
 904
 905 function TTntEditDelete.GetCaption: WideString;
 906 begin
 907   Result := TntAction_GetCaption(Self);
 908 end;
 909
 910 procedure TTntEditDelete.SetCaption(const Value: WideString);
 911 begin
 912   TntAction_SetCaption(Self, Value);
 913 end;
 914
 915 function TTntEditDelete.GetHint: WideString;
 916 begin
 917   Result := TntAction_GetHint(Self);
 918 end;
 919
 920 procedure TTntEditDelete.SetHint(const Value: WideString);
 921 begin
 922   TntAction_SetHint(Self, Value);
 923 end;
 924
 925 procedure TTntEditDelete.UpdateTarget(Target: TObject);
 926 begin
 927   Enabled := True;
 928 end;
 929
 930 procedure TTntEditDelete.ExecuteTarget(Target: TObject);
 931 begin
 932   if GetControl(Target).SelLength = 0 then
 933     GetControl(Target).SelLength := 1;
 934   GetControl(Target).ClearSelection
 935 end;
 936
 937 { TTntWindowAction }
 938
 939 procedure TTntWindowAction.Assign(Source: TPersistent);
 940 begin
 941   inherited;
 942   TntStdActn_AfterInherited_Assign(Self, Source);
 943 end;
 944
 945 procedure TTntWindowAction.DefineProperties(Filer: TFiler);
 946 begin
 947   inherited;
 948   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 949 end;
 950
 951 function TTntWindowAction.GetCaption: WideString;
 952 begin
 953   Result := TntAction_GetCaption(Self);
 954 end;
 955
 956 procedure TTntWindowAction.SetCaption(const Value: WideString);
 957 begin
 958   TntAction_SetCaption(Self, Value);
 959 end;
 960
 961 function TTntWindowAction.GetHint: WideString;
 962 begin
 963   Result := TntAction_GetHint(Self);
 964 end;
 965
 966 procedure TTntWindowAction.SetHint(const Value: WideString);
 967 begin
 968   TntAction_SetHint(Self, Value);
 969 end;
 970
 971 { TTntWindowClose }
 972
 973 procedure TTntWindowClose.Assign(Source: TPersistent);
 974 begin
 975   inherited;
 976   TntStdActn_AfterInherited_Assign(Self, Source);
 977 end;
 978
 979 procedure TTntWindowClose.DefineProperties(Filer: TFiler);
 980 begin
 981   inherited;
 982   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
 983 end;
 984
 985 function TTntWindowClose.GetCaption: WideString;
 986 begin
 987   Result := TntAction_GetCaption(Self);
 988 end;
 989
 990 procedure TTntWindowClose.SetCaption(const Value: WideString);
 991 begin
 992   TntAction_SetCaption(Self, Value);
 993 end;
 994
 995 function TTntWindowClose.GetHint: WideString;
 996 begin
 997   Result := TntAction_GetHint(Self);
 998 end;
 999
1000 procedure TTntWindowClose.SetHint(const Value: WideString);
1001 begin
1002   TntAction_SetHint(Self, Value);
1003 end;
1004
1005 { TTntWindowCascade }
1006
1007 procedure TTntWindowCascade.Assign(Source: TPersistent);
1008 begin
1009   inherited;
1010   TntStdActn_AfterInherited_Assign(Self, Source);
1011 end;
1012
1013 procedure TTntWindowCascade.DefineProperties(Filer: TFiler);
1014 begin
1015   inherited;
1016   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1017 end;
1018
1019 function TTntWindowCascade.GetCaption: WideString;
1020 begin
1021   Result := TntAction_GetCaption(Self);
1022 end;
1023
1024 procedure TTntWindowCascade.SetCaption(const Value: WideString);
1025 begin
1026   TntAction_SetCaption(Self, Value);
1027 end;
1028
1029 function TTntWindowCascade.GetHint: WideString;
1030 begin
1031   Result := TntAction_GetHint(Self);
1032 end;
1033
1034 procedure TTntWindowCascade.SetHint(const Value: WideString);
1035 begin
1036   TntAction_SetHint(Self, Value);
1037 end;
1038
1039 { TTntWindowTileHorizontal }
1040
1041 procedure TTntWindowTileHorizontal.Assign(Source: TPersistent);
1042 begin
1043   inherited;
1044   TntStdActn_AfterInherited_Assign(Self, Source);
1045 end;
1046
1047 procedure TTntWindowTileHorizontal.DefineProperties(Filer: TFiler);
1048 begin
1049   inherited;
1050   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1051 end;
1052
1053 function TTntWindowTileHorizontal.GetCaption: WideString;
1054 begin
1055   Result := TntAction_GetCaption(Self);
1056 end;
1057
1058 procedure TTntWindowTileHorizontal.SetCaption(const Value: WideString);
1059 begin
1060   TntAction_SetCaption(Self, Value);
1061 end;
1062
1063 function TTntWindowTileHorizontal.GetHint: WideString;
1064 begin
1065   Result := TntAction_GetHint(Self);
1066 end;
1067
1068 procedure TTntWindowTileHorizontal.SetHint(const Value: WideString);
1069 begin
1070   TntAction_SetHint(Self, Value);
1071 end;
1072
1073 { TTntWindowTileVertical }
1074
1075 procedure TTntWindowTileVertical.Assign(Source: TPersistent);
1076 begin
1077   inherited;
1078   TntStdActn_AfterInherited_Assign(Self, Source);
1079 end;
1080
1081 procedure TTntWindowTileVertical.DefineProperties(Filer: TFiler);
1082 begin
1083   inherited;
1084   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1085 end;
1086
1087 function TTntWindowTileVertical.GetCaption: WideString;
1088 begin
1089   Result := TntAction_GetCaption(Self);
1090 end;
1091
1092 procedure TTntWindowTileVertical.SetCaption(const Value: WideString);
1093 begin
1094   TntAction_SetCaption(Self, Value);
1095 end;
1096
1097 function TTntWindowTileVertical.GetHint: WideString;
1098 begin
1099   Result := TntAction_GetHint(Self);
1100 end;
1101
1102 procedure TTntWindowTileVertical.SetHint(const Value: WideString);
1103 begin
1104   TntAction_SetHint(Self, Value);
1105 end;
1106
1107 { TTntWindowMinimizeAll }
1108
1109 procedure TTntWindowMinimizeAll.Assign(Source: TPersistent);
1110 begin
1111   inherited;
1112   TntStdActn_AfterInherited_Assign(Self, Source);
1113 end;
1114
1115 procedure TTntWindowMinimizeAll.DefineProperties(Filer: TFiler);
1116 begin
1117   inherited;
1118   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1119 end;
1120
1121 function TTntWindowMinimizeAll.GetCaption: WideString;
1122 begin
1123   Result := TntAction_GetCaption(Self);
1124 end;
1125
1126 procedure TTntWindowMinimizeAll.SetCaption(const Value: WideString);
1127 begin
1128   TntAction_SetCaption(Self, Value);
1129 end;
1130
1131 function TTntWindowMinimizeAll.GetHint: WideString;
1132 begin
1133   Result := TntAction_GetHint(Self);
1134 end;
1135
1136 procedure TTntWindowMinimizeAll.SetHint(const Value: WideString);
1137 begin
1138   TntAction_SetHint(Self, Value);
1139 end;
1140
1141 { TTntWindowArrange }
1142
1143 procedure TTntWindowArrange.Assign(Source: TPersistent);
1144 begin
1145   inherited;
1146   TntStdActn_AfterInherited_Assign(Self, Source);
1147 end;
1148
1149 procedure TTntWindowArrange.DefineProperties(Filer: TFiler);
1150 begin
1151   inherited;
1152   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1153 end;
1154
1155 function TTntWindowArrange.GetCaption: WideString;
1156 begin
1157   Result := TntAction_GetCaption(Self);
1158 end;
1159
1160 procedure TTntWindowArrange.SetCaption(const Value: WideString);
1161 begin
1162   TntAction_SetCaption(Self, Value);
1163 end;
1164
1165 function TTntWindowArrange.GetHint: WideString;
1166 begin
1167   Result := TntAction_GetHint(Self);
1168 end;
1169
1170 procedure TTntWindowArrange.SetHint(const Value: WideString);
1171 begin
1172   TntAction_SetHint(Self, Value);
1173 end;
1174
1175 { TTntHelpAction }
1176
1177 procedure TTntHelpAction.Assign(Source: TPersistent);
1178 begin
1179   inherited;
1180   TntStdActn_AfterInherited_Assign(Self, Source);
1181 end;
1182
1183 procedure TTntHelpAction.DefineProperties(Filer: TFiler);
1184 begin
1185   inherited;
1186   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1187 end;
1188
1189 function TTntHelpAction.GetCaption: WideString;
1190 begin
1191   Result := TntAction_GetCaption(Self);
1192 end;
1193
1194 procedure TTntHelpAction.SetCaption(const Value: WideString);
1195 begin
1196   TntAction_SetCaption(Self, Value);
1197 end;
1198
1199 function TTntHelpAction.GetHint: WideString;
1200 begin
1201   Result := TntAction_GetHint(Self);
1202 end;
1203
1204 procedure TTntHelpAction.SetHint(const Value: WideString);
1205 begin
1206   TntAction_SetHint(Self, Value);
1207 end;
1208
1209 { TTntHelpContents }
1210
1211 procedure TTntHelpContents.Assign(Source: TPersistent);
1212 begin
1213   inherited;
1214   TntStdActn_AfterInherited_Assign(Self, Source);
1215 end;
1216
1217 procedure TTntHelpContents.DefineProperties(Filer: TFiler);
1218 begin
1219   inherited;
1220   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1221 end;
1222
1223 function TTntHelpContents.GetCaption: WideString;
1224 begin
1225   Result := TntAction_GetCaption(Self);
1226 end;
1227
1228 procedure TTntHelpContents.SetCaption(const Value: WideString);
1229 begin
1230   TntAction_SetCaption(Self, Value);
1231 end;
1232
1233 function TTntHelpContents.GetHint: WideString;
1234 begin
1235   Result := TntAction_GetHint(Self);
1236 end;
1237
1238 procedure TTntHelpContents.SetHint(const Value: WideString);
1239 begin
1240   TntAction_SetHint(Self, Value);
1241 end;
1242
1243 { TTntHelpTopicSearch }
1244
1245 procedure TTntHelpTopicSearch.Assign(Source: TPersistent);
1246 begin
1247   inherited;
1248   TntStdActn_AfterInherited_Assign(Self, Source);
1249 end;
1250
1251 procedure TTntHelpTopicSearch.DefineProperties(Filer: TFiler);
1252 begin
1253   inherited;
1254   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1255 end;
1256
1257 function TTntHelpTopicSearch.GetCaption: WideString;
1258 begin
1259   Result := TntAction_GetCaption(Self);
1260 end;
1261
1262 procedure TTntHelpTopicSearch.SetCaption(const Value: WideString);
1263 begin
1264   TntAction_SetCaption(Self, Value);
1265 end;
1266
1267 function TTntHelpTopicSearch.GetHint: WideString;
1268 begin
1269   Result := TntAction_GetHint(Self);
1270 end;
1271
1272 procedure TTntHelpTopicSearch.SetHint(const Value: WideString);
1273 begin
1274   TntAction_SetHint(Self, Value);
1275 end;
1276
1277 { TTntHelpOnHelp }
1278
1279 procedure TTntHelpOnHelp.Assign(Source: TPersistent);
1280 begin
1281   inherited;
1282   TntStdActn_AfterInherited_Assign(Self, Source);
1283 end;
1284
1285 procedure TTntHelpOnHelp.DefineProperties(Filer: TFiler);
1286 begin
1287   inherited;
1288   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1289 end;
1290
1291 function TTntHelpOnHelp.GetCaption: WideString;
1292 begin
1293   Result := TntAction_GetCaption(Self);
1294 end;
1295
1296 procedure TTntHelpOnHelp.SetCaption(const Value: WideString);
1297 begin
1298   TntAction_SetCaption(Self, Value);
1299 end;
1300
1301 function TTntHelpOnHelp.GetHint: WideString;
1302 begin
1303   Result := TntAction_GetHint(Self);
1304 end;
1305
1306 procedure TTntHelpOnHelp.SetHint(const Value: WideString);
1307 begin
1308   TntAction_SetHint(Self, Value);
1309 end;
1310
1311 { TTntHelpContextAction }
1312
1313 procedure TTntHelpContextAction.Assign(Source: TPersistent);
1314 begin
1315   inherited;
1316   TntStdActn_AfterInherited_Assign(Self, Source);
1317 end;
1318
1319 procedure TTntHelpContextAction.DefineProperties(Filer: TFiler);
1320 begin
1321   inherited;
1322   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1323 end;
1324
1325 function TTntHelpContextAction.GetCaption: WideString;
1326 begin
1327   Result := TntAction_GetCaption(Self);
1328 end;
1329
1330 procedure TTntHelpContextAction.SetCaption(const Value: WideString);
1331 begin
1332   TntAction_SetCaption(Self, Value);
1333 end;
1334
1335 function TTntHelpContextAction.GetHint: WideString;
1336 begin
1337   Result := TntAction_GetHint(Self);
1338 end;
1339
1340 procedure TTntHelpContextAction.SetHint(const Value: WideString);
1341 begin
1342   TntAction_SetHint(Self, Value);
1343 end;
1344
1345 { TTntCommonDialogAction }
1346
1347 procedure TTntCommonDialogAction.Assign(Source: TPersistent);
1348 begin
1349   inherited;
1350   TntStdActn_AfterInherited_Assign(Self, Source);
1351 end;
1352
1353 procedure TTntCommonDialogAction.DefineProperties(Filer: TFiler);
1354 begin
1355   inherited;
1356   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1357 end;
1358
1359 function TTntCommonDialogAction.GetCaption: WideString;
1360 begin
1361   Result := TntAction_GetCaption(Self);
1362 end;
1363
1364 procedure TTntCommonDialogAction.SetCaption(const Value: WideString);
1365 begin
1366   TntAction_SetCaption(Self, Value);
1367 end;
1368
1369 function TTntCommonDialogAction.GetHint: WideString;
1370 begin
1371   Result := TntAction_GetHint(Self);
1372 end;
1373
1374 procedure TTntCommonDialogAction.SetHint(const Value: WideString);
1375 begin
1376   TntAction_SetHint(Self, Value);
1377 end;
1378
1379 { TTntFileAction }
1380
1381 procedure TTntFileAction.Assign(Source: TPersistent);
1382 begin
1383   inherited;
1384   TntStdActn_AfterInherited_Assign(Self, Source);
1385 end;
1386
1387 procedure TTntFileAction.DefineProperties(Filer: TFiler);
1388 begin
1389   inherited;
1390   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1391 end;
1392
1393 function TTntFileAction.GetCaption: WideString;
1394 begin
1395   Result := TntAction_GetCaption(Self);
1396 end;
1397
1398 procedure TTntFileAction.SetCaption(const Value: WideString);
1399 begin
1400   TntAction_SetCaption(Self, Value);
1401 end;
1402
1403 function TTntFileAction.GetHint: WideString;
1404 begin
1405   Result := TntAction_GetHint(Self);
1406 end;
1407
1408 procedure TTntFileAction.SetHint(const Value: WideString);
1409 begin
1410   TntAction_SetHint(Self, Value);
1411 end;
1412
1413 { TTntFileOpen }
1414
1415 procedure TTntFileOpen.Assign(Source: TPersistent);
1416 begin
1417   inherited;
1418   TntStdActn_AfterInherited_Assign(Self, Source);
1419 end;
1420
1421 procedure TTntFileOpen.DefineProperties(Filer: TFiler);
1422 begin
1423   inherited;
1424   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1425 end;
1426
1427 function TTntFileOpen.GetCaption: WideString;
1428 begin
1429   Result := TntAction_GetCaption(Self);
1430 end;
1431
1432 procedure TTntFileOpen.SetCaption(const Value: WideString);
1433 begin
1434   TntAction_SetCaption(Self, Value);
1435 end;
1436
1437 function TTntFileOpen.GetHint: WideString;
1438 begin
1439   Result := TntAction_GetHint(Self);
1440 end;
1441
1442 procedure TTntFileOpen.SetHint(const Value: WideString);
1443 begin
1444   TntAction_SetHint(Self, Value);
1445 end;
1446
1447 function TTntFileOpen.GetDialog: TTntOpenDialog;
1448 begin
1449   Result := inherited Dialog as TTntOpenDialog;
1450 end;
1451
1452 function TTntFileOpen.GetDialogClass: TCommonDialogClass;
1453 begin
1454   Result := TTntOpenDialog;
1455 end;
1456
1457 { TTntFileOpenWith }
1458
1459 procedure TTntFileOpenWith.Assign(Source: TPersistent);
1460 begin
1461   inherited;
1462   TntStdActn_AfterInherited_Assign(Self, Source);
1463 end;
1464
1465 procedure TTntFileOpenWith.DefineProperties(Filer: TFiler);
1466 begin
1467   inherited;
1468   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1469 end;
1470
1471 function TTntFileOpenWith.GetCaption: WideString;
1472 begin
1473   Result := TntAction_GetCaption(Self);
1474 end;
1475
1476 procedure TTntFileOpenWith.SetCaption(const Value: WideString);
1477 begin
1478   TntAction_SetCaption(Self, Value);
1479 end;
1480
1481 function TTntFileOpenWith.GetHint: WideString;
1482 begin
1483   Result := TntAction_GetHint(Self);
1484 end;
1485
1486 procedure TTntFileOpenWith.SetHint(const Value: WideString);
1487 begin
1488   TntAction_SetHint(Self, Value);
1489 end;
1490
1491 function TTntFileOpenWith.GetDialog: TTntOpenDialog;
1492 begin
1493   Result := inherited Dialog as TTntOpenDialog;
1494 end;
1495
1496 function TTntFileOpenWith.GetDialogClass: TCommonDialogClass;
1497 begin
1498   Result := TTntOpenDialog;
1499 end;
1500
1501 { TTntFileSaveAs }
1502
1503 procedure TTntFileSaveAs.Assign(Source: TPersistent);
1504 begin
1505   inherited;
1506   TntStdActn_AfterInherited_Assign(Self, Source);
1507 end;
1508
1509 procedure TTntFileSaveAs.DefineProperties(Filer: TFiler);
1510 begin
1511   inherited;
1512   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1513 end;
1514
1515 function TTntFileSaveAs.GetCaption: WideString;
1516 begin
1517   Result := TntAction_GetCaption(Self);
1518 end;
1519
1520 procedure TTntFileSaveAs.SetCaption(const Value: WideString);
1521 begin
1522   TntAction_SetCaption(Self, Value);
1523 end;
1524
1525 function TTntFileSaveAs.GetHint: WideString;
1526 begin
1527   Result := TntAction_GetHint(Self);
1528 end;
1529
1530 procedure TTntFileSaveAs.SetHint(const Value: WideString);
1531 begin
1532   TntAction_SetHint(Self, Value);
1533 end;
1534
1535 function TTntFileSaveAs.GetDialog: TTntSaveDialog;
1536 begin
1537   Result := TOpenDialog(inherited Dialog) as TTntSaveDialog;
1538 end;
1539
1540 function TTntFileSaveAs.GetDialogClass: TCommonDialogClass;
1541 begin
1542   Result := TTntSaveDialog;
1543 end;
1544
1545 { TTntFilePrintSetup }
1546
1547 procedure TTntFilePrintSetup.Assign(Source: TPersistent);
1548 begin
1549   inherited;
1550   TntStdActn_AfterInherited_Assign(Self, Source);
1551 end;
1552
1553 procedure TTntFilePrintSetup.DefineProperties(Filer: TFiler);
1554 begin
1555   inherited;
1556   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1557 end;
1558
1559 function TTntFilePrintSetup.GetCaption: WideString;
1560 begin
1561   Result := TntAction_GetCaption(Self);
1562 end;
1563
1564 procedure TTntFilePrintSetup.SetCaption(const Value: WideString);
1565 begin
1566   TntAction_SetCaption(Self, Value);
1567 end;
1568
1569 function TTntFilePrintSetup.GetHint: WideString;
1570 begin
1571   Result := TntAction_GetHint(Self);
1572 end;
1573
1574 procedure TTntFilePrintSetup.SetHint(const Value: WideString);
1575 begin
1576   TntAction_SetHint(Self, Value);
1577 end;
1578
1579  {$IFDEF COMPILER_7_UP}
1580
1581 { TTntFilePageSetup }
1582
1583 procedure TTntFilePageSetup.Assign(Source: TPersistent);
1584 begin
1585   inherited;
1586   TntStdActn_AfterInherited_Assign(Self, Source);
1587 end;
1588
1589 procedure TTntFilePageSetup.DefineProperties(Filer: TFiler);
1590 begin
1591   inherited;
1592   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1593 end;
1594
1595 function TTntFilePageSetup.GetCaption: WideString;
1596 begin
1597   Result := TntAction_GetCaption(Self);
1598 end;
1599
1600 procedure TTntFilePageSetup.SetCaption(const Value: WideString);
1601 begin
1602   TntAction_SetCaption(Self, Value);
1603 end;
1604
1605 function TTntFilePageSetup.GetHint: WideString;
1606 begin
1607   Result := TntAction_GetHint(Self);
1608 end;
1609
1610 procedure TTntFilePageSetup.SetHint(const Value: WideString);
1611 begin
1612   TntAction_SetHint(Self, Value);
1613 end;
1614  {$ENDIF}
1615
1616 { TTntFileExit }
1617
1618 procedure TTntFileExit.Assign(Source: TPersistent);
1619 begin
1620   inherited;
1621   TntStdActn_AfterInherited_Assign(Self, Source);
1622 end;
1623
1624 procedure TTntFileExit.DefineProperties(Filer: TFiler);
1625 begin
1626   inherited;
1627   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1628 end;
1629
1630 function TTntFileExit.GetCaption: WideString;
1631 begin
1632   Result := TntAction_GetCaption(Self);
1633 end;
1634
1635 procedure TTntFileExit.SetCaption(const Value: WideString);
1636 begin
1637   TntAction_SetCaption(Self, Value);
1638 end;
1639
1640 function TTntFileExit.GetHint: WideString;
1641 begin
1642   Result := TntAction_GetHint(Self);
1643 end;
1644
1645 procedure TTntFileExit.SetHint(const Value: WideString);
1646 begin
1647   TntAction_SetHint(Self, Value);
1648 end;
1649
1650 { TTntSearchAction }
1651
1652 procedure TTntSearchAction.Assign(Source: TPersistent);
1653 begin
1654   inherited;
1655   TntStdActn_AfterInherited_Assign(Self, Source);
1656 end;
1657
1658 procedure TTntSearchAction.DefineProperties(Filer: TFiler);
1659 begin
1660   inherited;
1661   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1662 end;
1663
1664 function TTntSearchAction.GetCaption: WideString;
1665 begin
1666   Result := TntAction_GetCaption(Self);
1667 end;
1668
1669 procedure TTntSearchAction.SetCaption(const Value: WideString);
1670 begin
1671   TntAction_SetCaption(Self, Value);
1672 end;
1673
1674 function TTntSearchAction.GetHint: WideString;
1675 begin
1676   Result := TntAction_GetHint(Self);
1677 end;
1678
1679 procedure TTntSearchAction.SetHint(const Value: WideString);
1680 begin
1681   TntAction_SetHint(Self, Value);
1682 end;
1683
1684 { TTntSearchFind }
1685
1686 procedure TTntSearchFind.Assign(Source: TPersistent);
1687 begin
1688   inherited;
1689   TntStdActn_AfterInherited_Assign(Self, Source);
1690 end;
1691
1692 procedure TTntSearchFind.DefineProperties(Filer: TFiler);
1693 begin
1694   inherited;
1695   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1696 end;
1697
1698 function TTntSearchFind.GetCaption: WideString;
1699 begin
1700   Result := TntAction_GetCaption(Self);
1701 end;
1702
1703 procedure TTntSearchFind.SetCaption(const Value: WideString);
1704 begin
1705   TntAction_SetCaption(Self, Value);
1706 end;
1707
1708 function TTntSearchFind.GetHint: WideString;
1709 begin
1710   Result := TntAction_GetHint(Self);
1711 end;
1712
1713 procedure TTntSearchFind.SetHint(const Value: WideString);
1714 begin
1715   TntAction_SetHint(Self, Value);
1716 end;
1717
1718 { TTntSearchReplace }
1719
1720 procedure TTntSearchReplace.Assign(Source: TPersistent);
1721 begin
1722   inherited;
1723   TntStdActn_AfterInherited_Assign(Self, Source);
1724 end;
1725
1726 procedure TTntSearchReplace.DefineProperties(Filer: TFiler);
1727 begin
1728   inherited;
1729   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1730 end;
1731
1732 function TTntSearchReplace.GetCaption: WideString;
1733 begin
1734   Result := TntAction_GetCaption(Self);
1735 end;
1736
1737 procedure TTntSearchReplace.SetCaption(const Value: WideString);
1738 begin
1739   TntAction_SetCaption(Self, Value);
1740 end;
1741
1742 function TTntSearchReplace.GetHint: WideString;
1743 begin
1744   Result := TntAction_GetHint(Self);
1745 end;
1746
1747 procedure TTntSearchReplace.SetHint(const Value: WideString);
1748 begin
1749   TntAction_SetHint(Self, Value);
1750 end;
1751
1752 { TTntSearchFindFirst }
1753
1754 procedure TTntSearchFindFirst.Assign(Source: TPersistent);
1755 begin
1756   inherited;
1757   TntStdActn_AfterInherited_Assign(Self, Source);
1758 end;
1759
1760 procedure TTntSearchFindFirst.DefineProperties(Filer: TFiler);
1761 begin
1762   inherited;
1763   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1764 end;
1765
1766 function TTntSearchFindFirst.GetCaption: WideString;
1767 begin
1768   Result := TntAction_GetCaption(Self);
1769 end;
1770
1771 procedure TTntSearchFindFirst.SetCaption(const Value: WideString);
1772 begin
1773   TntAction_SetCaption(Self, Value);
1774 end;
1775
1776 function TTntSearchFindFirst.GetHint: WideString;
1777 begin
1778   Result := TntAction_GetHint(Self);
1779 end;
1780
1781 procedure TTntSearchFindFirst.SetHint(const Value: WideString);
1782 begin
1783   TntAction_SetHint(Self, Value);
1784 end;
1785
1786 { TTntSearchFindNext }
1787
1788 procedure TTntSearchFindNext.Assign(Source: TPersistent);
1789 begin
1790   inherited;
1791   TntStdActn_AfterInherited_Assign(Self, Source);
1792 end;
1793
1794 procedure TTntSearchFindNext.DefineProperties(Filer: TFiler);
1795 begin
1796   inherited;
1797   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1798 end;
1799
1800 function TTntSearchFindNext.GetCaption: WideString;
1801 begin
1802   Result := TntAction_GetCaption(Self);
1803 end;
1804
1805 procedure TTntSearchFindNext.SetCaption(const Value: WideString);
1806 begin
1807   TntAction_SetCaption(Self, Value);
1808 end;
1809
1810 function TTntSearchFindNext.GetHint: WideString;
1811 begin
1812   Result := TntAction_GetHint(Self);
1813 end;
1814
1815 procedure TTntSearchFindNext.SetHint(const Value: WideString);
1816 begin
1817   TntAction_SetHint(Self, Value);
1818 end;
1819
1820 { TTntFontEdit }
1821
1822 procedure TTntFontEdit.Assign(Source: TPersistent);
1823 begin
1824   inherited;
1825   TntStdActn_AfterInherited_Assign(Self, Source);
1826 end;
1827
1828 procedure TTntFontEdit.DefineProperties(Filer: TFiler);
1829 begin
1830   inherited;
1831   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1832 end;
1833
1834 function TTntFontEdit.GetCaption: WideString;
1835 begin
1836   Result := TntAction_GetCaption(Self);
1837 end;
1838
1839 procedure TTntFontEdit.SetCaption(const Value: WideString);
1840 begin
1841   TntAction_SetCaption(Self, Value);
1842 end;
1843
1844 function TTntFontEdit.GetHint: WideString;
1845 begin
1846   Result := TntAction_GetHint(Self);
1847 end;
1848
1849 procedure TTntFontEdit.SetHint(const Value: WideString);
1850 begin
1851   TntAction_SetHint(Self, Value);
1852 end;
1853
1854 { TTntColorSelect }
1855
1856 procedure TTntColorSelect.Assign(Source: TPersistent);
1857 begin
1858   inherited;
1859   TntStdActn_AfterInherited_Assign(Self, Source);
1860 end;
1861
1862 procedure TTntColorSelect.DefineProperties(Filer: TFiler);
1863 begin
1864   inherited;
1865   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1866 end;
1867
1868 function TTntColorSelect.GetCaption: WideString;
1869 begin
1870   Result := TntAction_GetCaption(Self);
1871 end;
1872
1873 procedure TTntColorSelect.SetCaption(const Value: WideString);
1874 begin
1875   TntAction_SetCaption(Self, Value);
1876 end;
1877
1878 function TTntColorSelect.GetHint: WideString;
1879 begin
1880   Result := TntAction_GetHint(Self);
1881 end;
1882
1883 procedure TTntColorSelect.SetHint(const Value: WideString);
1884 begin
1885   TntAction_SetHint(Self, Value);
1886 end;
1887
1888 { TTntPrintDlg }
1889
1890 procedure TTntPrintDlg.Assign(Source: TPersistent);
1891 begin
1892   inherited;
1893   TntStdActn_AfterInherited_Assign(Self, Source);
1894 end;
1895
1896 procedure TTntPrintDlg.DefineProperties(Filer: TFiler);
1897 begin
1898   inherited;
1899   TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1900 end;
1901
1902 function TTntPrintDlg.GetCaption: WideString;
1903 begin
1904   Result := TntAction_GetCaption(Self);
1905 end;
1906
1907 procedure TTntPrintDlg.SetCaption(const Value: WideString);
1908 begin
1909   TntAction_SetCaption(Self, Value);
1910 end;
1911
1912 function TTntPrintDlg.GetHint: WideString;
1913 begin
1914   Result := TntAction_GetHint(Self);
1915 end;
1916
1917 procedure TTntPrintDlg.SetHint(const Value: WideString);
1918 begin
1919   TntAction_SetHint(Self, Value);
1920 end;
1921
1922 end.