From a0f6fd68a56068a20e7186e2dd2d7daccfbce4aa Mon Sep 17 00:00:00 2001 From: Pavel Perminov Date: Wed, 26 Sep 2012 19:02:53 +0000 Subject: Chess4Net_MI 2010.0 release (106 rev. truncated adjusted copy) git-svn-id: http://svn.miranda-ng.org/main/trunk@1666 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- .../lib/TntUnicodeControls/Source/TntStdActns.pas | 1922 ++++++++++++++++++++ 1 file changed, 1922 insertions(+) create mode 100644 plugins/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas (limited to 'plugins/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas') diff --git a/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas b/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas new file mode 100644 index 0000000000..118e806336 --- /dev/null +++ b/plugins/Chess4Net/lib/TntUnicodeControls/Source/TntStdActns.pas @@ -0,0 +1,1922 @@ + +{*****************************************************************************} +{ } +{ 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. -- cgit v1.2.3