From 194923c172167eb3fc33807ec8009b255f86337e Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Mon, 8 Oct 2012 09:10:06 +0000 Subject: Plugin is not adapted until someone can compile it and tell others how to do the same git-svn-id: http://svn.miranda-ng.org/main/trunk@1809 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- .../TntUnicodeControls/Source/TntDBClientActns.pas | 197 +++++++++++++++++++++ 1 file changed, 197 insertions(+) create mode 100644 plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBClientActns.pas (limited to 'plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBClientActns.pas') diff --git a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBClientActns.pas b/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBClientActns.pas new file mode 100644 index 0000000000..98904c7380 --- /dev/null +++ b/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntDBClientActns.pas @@ -0,0 +1,197 @@ + +{*****************************************************************************} +{ } +{ 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 TntDBClientActns; + +{$INCLUDE TntCompilers.inc} + +interface + +uses + Classes, ActnList, DBClientActns, TntActnList; + +type +{TNT-WARN TClientDataSetApply} + TTntClientDataSetApply = class(TClientDataSetApply{TNT-ALLOW TClientDataSetApply}, 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 TClientDataSetRevert} + TTntClientDataSetRevert = class(TClientDataSetRevert{TNT-ALLOW TClientDataSetRevert}, 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 TClientDataSetUndo} + TTntClientDataSetUndo = class(TClientDataSetUndo{TNT-ALLOW TClientDataSetUndo}, 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; + +implementation + +uses + TntClasses, TntDBActns; + +{TNT-IGNORE-UNIT} + +procedure TntDBClientActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent); +begin + TntDBActn_AfterInherited_Assign(Action, Source); + // TClientDataSetApply + if (Action is TClientDataSetApply) and (Source is TClientDataSetApply) then begin + TClientDataSetApply(Action).MaxErrors := TClientDataSetApply(Source).MaxErrors; + TClientDataSetApply(Action).DisplayErrorDlg := TClientDataSetApply(Source).DisplayErrorDlg; + end; + // TClientDataSetUndo + if (Action is TClientDataSetUndo) and (Source is TClientDataSetUndo) then begin + TClientDataSetUndo(Action).FollowChange := TClientDataSetUndo(Source).FollowChange; + end; +end; + +//------------------------- +// TNT DB ACTNS +//------------------------- + +{ TTntClientDataSetApply } + +procedure TTntClientDataSetApply.Assign(Source: TPersistent); +begin + inherited; + TntDBClientActn_AfterInherited_Assign(Self, Source); +end; + +procedure TTntClientDataSetApply.DefineProperties(Filer: TFiler); +begin + inherited; + TntPersistent_AfterInherited_DefineProperties(Filer, Self); +end; + +function TTntClientDataSetApply.GetCaption: WideString; +begin + Result := TntAction_GetCaption(Self); +end; + +procedure TTntClientDataSetApply.SetCaption(const Value: WideString); +begin + TntAction_SetCaption(Self, Value); +end; + +function TTntClientDataSetApply.GetHint: WideString; +begin + Result := TntAction_GetHint(Self); +end; + +procedure TTntClientDataSetApply.SetHint(const Value: WideString); +begin + TntAction_SetHint(Self, Value); +end; + +{ TTntClientDataSetRevert } + +procedure TTntClientDataSetRevert.Assign(Source: TPersistent); +begin + inherited; + TntDBClientActn_AfterInherited_Assign(Self, Source); +end; + +procedure TTntClientDataSetRevert.DefineProperties(Filer: TFiler); +begin + inherited; + TntPersistent_AfterInherited_DefineProperties(Filer, Self); +end; + +function TTntClientDataSetRevert.GetCaption: WideString; +begin + Result := TntAction_GetCaption(Self); +end; + +procedure TTntClientDataSetRevert.SetCaption(const Value: WideString); +begin + TntAction_SetCaption(Self, Value); +end; + +function TTntClientDataSetRevert.GetHint: WideString; +begin + Result := TntAction_GetHint(Self); +end; + +procedure TTntClientDataSetRevert.SetHint(const Value: WideString); +begin + TntAction_SetHint(Self, Value); +end; + +{ TTntClientDataSetUndo } + +procedure TTntClientDataSetUndo.Assign(Source: TPersistent); +begin + inherited; + TntDBClientActn_AfterInherited_Assign(Self, Source); +end; + +procedure TTntClientDataSetUndo.DefineProperties(Filer: TFiler); +begin + inherited; + TntPersistent_AfterInherited_DefineProperties(Filer, Self); +end; + +function TTntClientDataSetUndo.GetCaption: WideString; +begin + Result := TntAction_GetCaption(Self); +end; + +procedure TTntClientDataSetUndo.SetCaption(const Value: WideString); +begin + TntAction_SetCaption(Self, Value); +end; + +function TTntClientDataSetUndo.GetHint: WideString; +begin + Result := TntAction_GetHint(Self); +end; + +procedure TTntClientDataSetUndo.SetHint(const Value: WideString); +begin + TntAction_SetHint(Self, Value); +end; + +end. -- cgit v1.2.3