source: cprs/branches/tmg-cprs/TntWare/Delphi Unicode Controls/Source/TntDBClientActns.pas@ 1123

Last change on this file since 1123 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 5.8 KB
RevLine 
[453]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.