source: cprs/branches/tmg-cprs/TMG_Extra/tntUniCode/Source/TntDBClientActns.pas

Last change on this file was 672, checked in by Kevin Toppenberg, 9 years ago

Adding source to tntControls for compilation

File size: 5.8 KB
Line 
1
2{*****************************************************************************}
3{                                                                             }
4{    Tnt Delphi Unicode Controls                                              }
5{      http://www.tntware.com/delphicontrols/unicode/                         }
6{        Version: 2.3.0                                                       }
7{                                                                             }
8{    Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com)       }
9{                                                                             }
10{*****************************************************************************}
11
12unit TntDBClientActns;
13
14{$INCLUDE TntCompilers.inc}
15
16interface
17
18uses
19  Classes, ActnList, DBClientActns, TntActnList;
20
21type
22{TNT-WARN TClientDataSetApply}
23  TTntClientDataSetApply = class(TClientDataSetApply{TNT-ALLOW TClientDataSetApply}, ITntAction)
24  private
25    function GetCaption: WideString;
26    procedure SetCaption(const Value: WideString);
27    function GetHint: WideString;
28    procedure SetHint(const Value: WideString);
29  protected
30    procedure DefineProperties(Filer: TFiler); override;
31  public
32    procedure Assign(Source: TPersistent); override;
33  published
34    property Caption: WideString read GetCaption write SetCaption;
35    property Hint: WideString read GetHint write SetHint;
36  end;
37
38{TNT-WARN TClientDataSetRevert}
39  TTntClientDataSetRevert = class(TClientDataSetRevert{TNT-ALLOW TClientDataSetRevert}, ITntAction)
40  private
41    function GetCaption: WideString;
42    procedure SetCaption(const Value: WideString);
43    function GetHint: WideString;
44    procedure SetHint(const Value: WideString);
45  protected
46    procedure DefineProperties(Filer: TFiler); override;
47  public
48    procedure Assign(Source: TPersistent); override;
49  published
50    property Caption: WideString read GetCaption write SetCaption;
51    property Hint: WideString read GetHint write SetHint;
52  end;
53
54{TNT-WARN TClientDataSetUndo}
55  TTntClientDataSetUndo = class(TClientDataSetUndo{TNT-ALLOW TClientDataSetUndo}, ITntAction)
56  private
57    function GetCaption: WideString;
58    procedure SetCaption(const Value: WideString);
59    function GetHint: WideString;
60    procedure SetHint(const Value: WideString);
61  protected
62    procedure DefineProperties(Filer: TFiler); override;
63  public
64    procedure Assign(Source: TPersistent); override;
65  published
66    property Caption: WideString read GetCaption write SetCaption;
67    property Hint: WideString read GetHint write SetHint;
68  end;
69
70implementation
71
72uses
73  TntClasses, TntDBActns;
74
75{TNT-IGNORE-UNIT}
76
77procedure TntDBClientActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
78begin
79  TntDBActn_AfterInherited_Assign(Action, Source);
80  // TClientDataSetApply
81  if (Action is TClientDataSetApply) and (Source is TClientDataSetApply) then begin
82    TClientDataSetApply(Action).MaxErrors := TClientDataSetApply(Source).MaxErrors;
83    TClientDataSetApply(Action).DisplayErrorDlg := TClientDataSetApply(Source).DisplayErrorDlg;
84  end;
85  // TClientDataSetUndo
86  if (Action is TClientDataSetUndo) and (Source is TClientDataSetUndo) then begin
87    TClientDataSetUndo(Action).FollowChange := TClientDataSetUndo(Source).FollowChange;
88  end;
89end;
90
91//-------------------------
92//    TNT DB ACTNS
93//-------------------------
94
95{ TTntClientDataSetApply }
96
97procedure TTntClientDataSetApply.Assign(Source: TPersistent);
98begin
99  inherited;
100  TntDBClientActn_AfterInherited_Assign(Self, Source);
101end;
102
103procedure TTntClientDataSetApply.DefineProperties(Filer: TFiler);
104begin
105  inherited;
106  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
107end;
108
109function TTntClientDataSetApply.GetCaption: WideString;
110begin
111  Result := TntAction_GetCaption(Self);
112end;
113
114procedure TTntClientDataSetApply.SetCaption(const Value: WideString);
115begin
116  TntAction_SetCaption(Self, Value);
117end;
118
119function TTntClientDataSetApply.GetHint: WideString;
120begin
121  Result := TntAction_GetHint(Self);
122end;
123
124procedure TTntClientDataSetApply.SetHint(const Value: WideString);
125begin
126  TntAction_SetHint(Self, Value);
127end;
128
129{ TTntClientDataSetRevert }
130
131procedure TTntClientDataSetRevert.Assign(Source: TPersistent);
132begin
133  inherited;
134  TntDBClientActn_AfterInherited_Assign(Self, Source);
135end;
136
137procedure TTntClientDataSetRevert.DefineProperties(Filer: TFiler);
138begin
139  inherited;
140  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
141end;
142
143function TTntClientDataSetRevert.GetCaption: WideString;
144begin
145  Result := TntAction_GetCaption(Self);
146end;
147
148procedure TTntClientDataSetRevert.SetCaption(const Value: WideString);
149begin
150  TntAction_SetCaption(Self, Value);
151end;
152
153function TTntClientDataSetRevert.GetHint: WideString;
154begin
155  Result := TntAction_GetHint(Self);
156end;
157
158procedure TTntClientDataSetRevert.SetHint(const Value: WideString);
159begin
160  TntAction_SetHint(Self, Value);
161end;
162
163{ TTntClientDataSetUndo }
164
165procedure TTntClientDataSetUndo.Assign(Source: TPersistent);
166begin
167  inherited;
168  TntDBClientActn_AfterInherited_Assign(Self, Source);
169end;
170
171procedure TTntClientDataSetUndo.DefineProperties(Filer: TFiler);
172begin
173  inherited;
174  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
175end;
176
177function TTntClientDataSetUndo.GetCaption: WideString;
178begin
179  Result := TntAction_GetCaption(Self);
180end;
181
182procedure TTntClientDataSetUndo.SetCaption(const Value: WideString);
183begin
184  TntAction_SetCaption(Self, Value);
185end;
186
187function TTntClientDataSetUndo.GetHint: WideString;
188begin
189  Result := TntAction_GetHint(Self);
190end;
191
192procedure TTntClientDataSetUndo.SetHint(const Value: WideString);
193begin
194  TntAction_SetHint(Self, Value);
195end;
196
197end.
Note: See TracBrowser for help on using the repository browser.