1 files changed, 0 insertions, 1922 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas b/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas
deleted file mode 100644
index 118e806336..0000000000
--- a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas
+++ /dev/null
@@ -1,1922 +0,0 @@
-
-{*****************************************************************************}
-{                                                                             }
-{    Tnt Delphi Unicode Controls                                              }
-{      http://www.tntware.com/delphicontrols/unicode/                         }
-{        Version: 2.3.0                                                       }
-{                                                                             }
-{    Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com)       }
-{                                                                             }
-{*****************************************************************************}
-
-unit TntStdActns;
-
-{$INCLUDE TntCompilers.inc}
-
-interface
-
-uses
-  Classes, ActnList, TntActnList, StdActns, TntDialogs;
-
-type
-{TNT-WARN THintAction}
-  TTntHintAction = class(THintAction{TNT-ALLOW THintAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  public
-    property Caption: WideString read GetCaption write SetCaption;
-  published
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditAction}
-  TTntEditAction = class(TEditAction{TNT-ALLOW TEditAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditCut}
-  TTntEditCut = class(TEditCut{TNT-ALLOW TEditCut}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditCopy}
-  TTntEditCopy = class(TEditCopy{TNT-ALLOW TEditCopy}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditPaste}
-  TTntEditPaste = class(TEditPaste{TNT-ALLOW TEditPaste}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditSelectAll}
-  TTntEditSelectAll = class(TEditSelectAll{TNT-ALLOW TEditSelectAll}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditUndo}
-  TTntEditUndo = class(TEditUndo{TNT-ALLOW TEditUndo}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TEditDelete}
-  TTntEditDelete = class(TEditDelete{TNT-ALLOW TEditDelete}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-    procedure UpdateTarget(Target: TObject); override;
-    procedure ExecuteTarget(Target: TObject); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowAction}
-  TTntWindowAction = class(TWindowAction{TNT-ALLOW TWindowAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowClose}
-  TTntWindowClose = class(TWindowClose{TNT-ALLOW TWindowClose}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowCascade}
-  TTntWindowCascade = class(TWindowCascade{TNT-ALLOW TWindowCascade}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowTileHorizontal}
-  TTntWindowTileHorizontal = class(TWindowTileHorizontal{TNT-ALLOW TWindowTileHorizontal}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowTileVertical}
-  TTntWindowTileVertical = class(TWindowTileVertical{TNT-ALLOW TWindowTileVertical}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowMinimizeAll}
-  TTntWindowMinimizeAll = class(TWindowMinimizeAll{TNT-ALLOW TWindowMinimizeAll}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TWindowArrange}
-  TTntWindowArrange = class(TWindowArrange{TNT-ALLOW TWindowArrange}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN THelpAction}
-  TTntHelpAction = class(THelpAction{TNT-ALLOW THelpAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN THelpContents}
-  TTntHelpContents = class(THelpContents{TNT-ALLOW THelpContents}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN THelpTopicSearch}
-  TTntHelpTopicSearch = class(THelpTopicSearch{TNT-ALLOW THelpTopicSearch}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN THelpOnHelp}
-  TTntHelpOnHelp = class(THelpOnHelp{TNT-ALLOW THelpOnHelp}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN THelpContextAction}
-  TTntHelpContextAction = class(THelpContextAction{TNT-ALLOW THelpContextAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TCommonDialogAction}
-  TTntCommonDialogAction = class(TCommonDialogAction{TNT-ALLOW TCommonDialogAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  public
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TFileAction}
-  TTntFileAction = class(TFileAction{TNT-ALLOW TFileAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  public
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TFileOpen}
-  TTntFileOpen = class(TFileOpen{TNT-ALLOW TFileOpen}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-    function GetDialog: TTntOpenDialog;
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-    function GetDialogClass: TCommonDialogClass; override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Dialog: TTntOpenDialog read GetDialog;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TFileOpenWith}
-  TTntFileOpenWith = class(TFileOpenWith{TNT-ALLOW TFileOpenWith}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-    function GetDialog: TTntOpenDialog;
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-    function GetDialogClass: TCommonDialogClass; override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Dialog: TTntOpenDialog read GetDialog;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TFileSaveAs}
-  TTntFileSaveAs = class(TFileSaveAs{TNT-ALLOW TFileSaveAs}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-    function GetDialog: TTntSaveDialog;
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-    function GetDialogClass: TCommonDialogClass; override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Dialog: TTntSaveDialog read GetDialog;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TFilePrintSetup}
-  TTntFilePrintSetup = class(TFilePrintSetup{TNT-ALLOW TFilePrintSetup}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-  {$IFDEF COMPILER_7_UP}
-{TNT-WARN TFilePageSetup}
-  TTntFilePageSetup = class(TFilePageSetup{TNT-ALLOW TFilePageSetup}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-  {$ENDIF}
-
-{TNT-WARN TFileExit}
-  TTntFileExit = class(TFileExit{TNT-ALLOW TFileExit}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TSearchAction}
-  TTntSearchAction = class(TSearchAction{TNT-ALLOW TSearchAction}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  public
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TSearchFind}
-  TTntSearchFind = class(TSearchFind{TNT-ALLOW TSearchFind}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TSearchReplace}
-  TTntSearchReplace = class(TSearchReplace{TNT-ALLOW TSearchReplace}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TSearchFindFirst}
-  TTntSearchFindFirst = class(TSearchFindFirst{TNT-ALLOW TSearchFindFirst}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TSearchFindNext}
-  TTntSearchFindNext = class(TSearchFindNext{TNT-ALLOW TSearchFindNext}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TFontEdit}
-  TTntFontEdit = class(TFontEdit{TNT-ALLOW TFontEdit}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TColorSelect}
-  TTntColorSelect = class(TColorSelect{TNT-ALLOW TColorSelect}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-{TNT-WARN TPrintDlg}
-  TTntPrintDlg = class(TPrintDlg{TNT-ALLOW TPrintDlg}, ITntAction)
-  private
-    function GetCaption: WideString;
-    procedure SetCaption(const Value: WideString);
-    function GetHint: WideString;
-    procedure SetHint(const Value: WideString);
-  protected
-    procedure DefineProperties(Filer: TFiler); override;
-  public
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Caption: WideString read GetCaption write SetCaption;
-    property Hint: WideString read GetHint write SetHint;
-  end;
-
-procedure TntStdActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
-
-implementation
-
-uses
-  Dialogs, TntClasses;
-
-{TNT-IGNORE-UNIT}
-
-procedure TntStdActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
-begin
-  TntAction_AfterInherited_Assign(Action, Source);
-  // TCommonDialogAction
-  if (Action is TCommonDialogAction) and (Source is TCommonDialogAction) then begin
-    TCommonDialogAction(Action).BeforeExecute := TCommonDialogAction(Source).BeforeExecute;
-    TCommonDialogAction(Action).OnAccept      := TCommonDialogAction(Source).OnAccept;
-    TCommonDialogAction(Action).OnCancel      := TCommonDialogAction(Source).OnCancel;
-  end;
-  // TFileOpen
-  if (Action is TFileOpen) and (Source is TFileOpen) then begin
-    {$IFDEF COMPILER_7_UP}
-    TFileOpen(Action).UseDefaultApp := TFileOpen(Source).UseDefaultApp;
-    {$ENDIF}
-  end;
-  // TFileOpenWith
-  if (Action is TFileOpenWith) and (Source is TFileOpenWith) then begin
-    TFileOpenWith(Action).FileName  := TFileOpenWith(Source).FileName;
-    {$IFDEF COMPILER_7_UP}
-    TFileOpenWith(Action).AfterOpen := TFileOpenWith(Source).AfterOpen;
-    {$ENDIF}
-  end;
-  // TSearchFindNext
-  if (Action is TSearchFindNext) and (Source is TSearchFindNext) then begin
-    TSearchFindNext(Action).SearchFind := TSearchFindNext(Source).SearchFind;
-  end;
-end;
-
-//-------------------------
-//    TNT STD ACTNS
-//-------------------------
-
-{ TTntHintAction }
-
-procedure TTntHintAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntHintAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntHintAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntHintAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntHintAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntHintAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditAction }
-
-procedure TTntEditAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditCut }
-
-procedure TTntEditCut.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditCut.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditCut.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditCut.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditCut.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditCut.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditCopy }
-
-procedure TTntEditCopy.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditCopy.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditCopy.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditCopy.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditCopy.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditCopy.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditPaste }
-
-procedure TTntEditPaste.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditPaste.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditPaste.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditPaste.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditPaste.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditPaste.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditSelectAll }
-
-procedure TTntEditSelectAll.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditSelectAll.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditSelectAll.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditSelectAll.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditSelectAll.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditSelectAll.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditUndo }
-
-procedure TTntEditUndo.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditUndo.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditUndo.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditUndo.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditUndo.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditUndo.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntEditDelete }
-
-procedure TTntEditDelete.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntEditDelete.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntEditDelete.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntEditDelete.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntEditDelete.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntEditDelete.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-procedure TTntEditDelete.UpdateTarget(Target: TObject);
-begin
-  Enabled := True;
-end;
-
-procedure TTntEditDelete.ExecuteTarget(Target: TObject);
-begin
-  if GetControl(Target).SelLength = 0 then
-    GetControl(Target).SelLength := 1;
-  GetControl(Target).ClearSelection
-end;
-
-{ TTntWindowAction }
-
-procedure TTntWindowAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntWindowClose }
-
-procedure TTntWindowClose.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowClose.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowClose.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowClose.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowClose.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowClose.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntWindowCascade }
-
-procedure TTntWindowCascade.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowCascade.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowCascade.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowCascade.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowCascade.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowCascade.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntWindowTileHorizontal }
-
-procedure TTntWindowTileHorizontal.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowTileHorizontal.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowTileHorizontal.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowTileHorizontal.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowTileHorizontal.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowTileHorizontal.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntWindowTileVertical }
-
-procedure TTntWindowTileVertical.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowTileVertical.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowTileVertical.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowTileVertical.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowTileVertical.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowTileVertical.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntWindowMinimizeAll }
-
-procedure TTntWindowMinimizeAll.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowMinimizeAll.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowMinimizeAll.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowMinimizeAll.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowMinimizeAll.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowMinimizeAll.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntWindowArrange }
-
-procedure TTntWindowArrange.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntWindowArrange.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntWindowArrange.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntWindowArrange.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntWindowArrange.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntWindowArrange.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntHelpAction }
-
-procedure TTntHelpAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntHelpAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntHelpAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntHelpAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntHelpAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntHelpAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntHelpContents }
-
-procedure TTntHelpContents.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntHelpContents.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntHelpContents.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntHelpContents.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntHelpContents.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntHelpContents.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntHelpTopicSearch }
-
-procedure TTntHelpTopicSearch.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntHelpTopicSearch.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntHelpTopicSearch.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntHelpTopicSearch.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntHelpTopicSearch.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntHelpTopicSearch.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntHelpOnHelp }
-
-procedure TTntHelpOnHelp.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntHelpOnHelp.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntHelpOnHelp.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntHelpOnHelp.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntHelpOnHelp.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntHelpOnHelp.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntHelpContextAction }
-
-procedure TTntHelpContextAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntHelpContextAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntHelpContextAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntHelpContextAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntHelpContextAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntHelpContextAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntCommonDialogAction }
-
-procedure TTntCommonDialogAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntCommonDialogAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntCommonDialogAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntCommonDialogAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntCommonDialogAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntCommonDialogAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntFileAction }
-
-procedure TTntFileAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFileAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFileAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFileAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFileAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFileAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntFileOpen }
-
-procedure TTntFileOpen.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFileOpen.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFileOpen.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFileOpen.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFileOpen.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFileOpen.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-function TTntFileOpen.GetDialog: TTntOpenDialog;
-begin
-  Result := inherited Dialog as TTntOpenDialog;
-end;
-
-function TTntFileOpen.GetDialogClass: TCommonDialogClass;
-begin
-  Result := TTntOpenDialog;
-end;
-
-{ TTntFileOpenWith }
-
-procedure TTntFileOpenWith.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFileOpenWith.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFileOpenWith.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFileOpenWith.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFileOpenWith.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFileOpenWith.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-function TTntFileOpenWith.GetDialog: TTntOpenDialog;
-begin
-  Result := inherited Dialog as TTntOpenDialog;
-end;
-
-function TTntFileOpenWith.GetDialogClass: TCommonDialogClass;
-begin
-  Result := TTntOpenDialog;
-end;
-
-{ TTntFileSaveAs }
-
-procedure TTntFileSaveAs.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFileSaveAs.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFileSaveAs.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFileSaveAs.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFileSaveAs.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFileSaveAs.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-function TTntFileSaveAs.GetDialog: TTntSaveDialog;
-begin
-  Result := TOpenDialog(inherited Dialog) as TTntSaveDialog;
-end;
-
-function TTntFileSaveAs.GetDialogClass: TCommonDialogClass;
-begin
-  Result := TTntSaveDialog;
-end;
-
-{ TTntFilePrintSetup }
-
-procedure TTntFilePrintSetup.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFilePrintSetup.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFilePrintSetup.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFilePrintSetup.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFilePrintSetup.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFilePrintSetup.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
- {$IFDEF COMPILER_7_UP}
-
-{ TTntFilePageSetup }
-
-procedure TTntFilePageSetup.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFilePageSetup.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFilePageSetup.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFilePageSetup.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFilePageSetup.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFilePageSetup.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
- {$ENDIF}
-
-{ TTntFileExit }
-
-procedure TTntFileExit.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFileExit.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFileExit.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFileExit.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFileExit.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFileExit.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntSearchAction }
-
-procedure TTntSearchAction.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntSearchAction.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntSearchAction.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntSearchAction.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntSearchAction.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntSearchAction.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntSearchFind }
-
-procedure TTntSearchFind.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntSearchFind.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntSearchFind.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntSearchFind.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntSearchFind.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntSearchFind.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntSearchReplace }
-
-procedure TTntSearchReplace.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntSearchReplace.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntSearchReplace.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntSearchReplace.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntSearchReplace.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntSearchReplace.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntSearchFindFirst }
-
-procedure TTntSearchFindFirst.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntSearchFindFirst.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntSearchFindFirst.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntSearchFindFirst.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntSearchFindFirst.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntSearchFindFirst.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntSearchFindNext }
-
-procedure TTntSearchFindNext.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntSearchFindNext.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntSearchFindNext.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntSearchFindNext.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntSearchFindNext.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntSearchFindNext.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntFontEdit }
-
-procedure TTntFontEdit.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntFontEdit.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntFontEdit.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntFontEdit.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntFontEdit.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntFontEdit.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntColorSelect }
-
-procedure TTntColorSelect.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntColorSelect.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntColorSelect.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntColorSelect.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntColorSelect.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntColorSelect.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-{ TTntPrintDlg }
-
-procedure TTntPrintDlg.Assign(Source: TPersistent);
-begin
-  inherited;
-  TntStdActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntPrintDlg.DefineProperties(Filer: TFiler);
-begin
-  inherited;
-  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntPrintDlg.GetCaption: WideString;
-begin
-  Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntPrintDlg.SetCaption(const Value: WideString);
-begin
-  TntAction_SetCaption(Self, Value);
-end;
-
-function TTntPrintDlg.GetHint: WideString;
-begin
-  Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntPrintDlg.SetHint(const Value: WideString);
-begin
-  TntAction_SetHint(Self, Value);
-end;
-
-end.