source: cprs/branches/tmg-cprs/TMG_Extra/tntUniCode/Source/TntDBActns.pas@ 1672

Last change on this file since 1672 was 672, checked in by Kevin Toppenberg, 15 years ago

Adding source to tntControls for compilation

File size: 15.7 KB
RevLine 
[672]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 TntDBActns;
13
14{$INCLUDE TntCompilers.inc}
15
16interface
17
18uses
19 Classes, ActnList, DBActns, TntActnList;
20
21type
22{TNT-WARN TDataSetAction}
23 TTntDataSetAction = class(TDataSetAction{TNT-ALLOW TDataSetAction}, 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 TDataSetFirst}
39 TTntDataSetFirst = class(TDataSetFirst{TNT-ALLOW TDataSetFirst}, 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 TDataSetPrior}
55 TTntDataSetPrior = class(TDataSetPrior{TNT-ALLOW TDataSetPrior}, 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
70{TNT-WARN TDataSetNext}
71 TTntDataSetNext = class(TDataSetNext{TNT-ALLOW TDataSetNext}, ITntAction)
72 private
73 function GetCaption: WideString;
74 procedure SetCaption(const Value: WideString);
75 function GetHint: WideString;
76 procedure SetHint(const Value: WideString);
77 protected
78 procedure DefineProperties(Filer: TFiler); override;
79 public
80 procedure Assign(Source: TPersistent); override;
81 published
82 property Caption: WideString read GetCaption write SetCaption;
83 property Hint: WideString read GetHint write SetHint;
84 end;
85
86{TNT-WARN TDataSetLast}
87 TTntDataSetLast = class(TDataSetLast{TNT-ALLOW TDataSetLast}, ITntAction)
88 private
89 function GetCaption: WideString;
90 procedure SetCaption(const Value: WideString);
91 function GetHint: WideString;
92 procedure SetHint(const Value: WideString);
93 protected
94 procedure DefineProperties(Filer: TFiler); override;
95 public
96 procedure Assign(Source: TPersistent); override;
97 published
98 property Caption: WideString read GetCaption write SetCaption;
99 property Hint: WideString read GetHint write SetHint;
100 end;
101
102{TNT-WARN TDataSetInsert}
103 TTntDataSetInsert = class(TDataSetInsert{TNT-ALLOW TDataSetInsert}, ITntAction)
104 private
105 function GetCaption: WideString;
106 procedure SetCaption(const Value: WideString);
107 function GetHint: WideString;
108 procedure SetHint(const Value: WideString);
109 protected
110 procedure DefineProperties(Filer: TFiler); override;
111 public
112 procedure Assign(Source: TPersistent); override;
113 published
114 property Caption: WideString read GetCaption write SetCaption;
115 property Hint: WideString read GetHint write SetHint;
116 end;
117
118{TNT-WARN TDataSetDelete}
119 TTntDataSetDelete = class(TDataSetDelete{TNT-ALLOW TDataSetDelete}, ITntAction)
120 private
121 function GetCaption: WideString;
122 procedure SetCaption(const Value: WideString);
123 function GetHint: WideString;
124 procedure SetHint(const Value: WideString);
125 protected
126 procedure DefineProperties(Filer: TFiler); override;
127 public
128 procedure Assign(Source: TPersistent); override;
129 published
130 property Caption: WideString read GetCaption write SetCaption;
131 property Hint: WideString read GetHint write SetHint;
132 end;
133
134{TNT-WARN TDataSetEdit}
135 TTntDataSetEdit = class(TDataSetEdit{TNT-ALLOW TDataSetEdit}, ITntAction)
136 private
137 function GetCaption: WideString;
138 procedure SetCaption(const Value: WideString);
139 function GetHint: WideString;
140 procedure SetHint(const Value: WideString);
141 protected
142 procedure DefineProperties(Filer: TFiler); override;
143 public
144 procedure Assign(Source: TPersistent); override;
145 published
146 property Caption: WideString read GetCaption write SetCaption;
147 property Hint: WideString read GetHint write SetHint;
148 end;
149
150{TNT-WARN TDataSetPost}
151 TTntDataSetPost = class(TDataSetPost{TNT-ALLOW TDataSetPost}, ITntAction)
152 private
153 function GetCaption: WideString;
154 procedure SetCaption(const Value: WideString);
155 function GetHint: WideString;
156 procedure SetHint(const Value: WideString);
157 protected
158 procedure DefineProperties(Filer: TFiler); override;
159 public
160 procedure Assign(Source: TPersistent); override;
161 published
162 property Caption: WideString read GetCaption write SetCaption;
163 property Hint: WideString read GetHint write SetHint;
164 end;
165
166{TNT-WARN TDataSetCancel}
167 TTntDataSetCancel = class(TDataSetCancel{TNT-ALLOW TDataSetCancel}, ITntAction)
168 private
169 function GetCaption: WideString;
170 procedure SetCaption(const Value: WideString);
171 function GetHint: WideString;
172 procedure SetHint(const Value: WideString);
173 protected
174 procedure DefineProperties(Filer: TFiler); override;
175 public
176 procedure Assign(Source: TPersistent); override;
177 published
178 property Caption: WideString read GetCaption write SetCaption;
179 property Hint: WideString read GetHint write SetHint;
180 end;
181
182{TNT-WARN TDataSetRefresh}
183 TTntDataSetRefresh = class(TDataSetRefresh{TNT-ALLOW TDataSetRefresh}, ITntAction)
184 private
185 function GetCaption: WideString;
186 procedure SetCaption(const Value: WideString);
187 function GetHint: WideString;
188 procedure SetHint(const Value: WideString);
189 protected
190 procedure DefineProperties(Filer: TFiler); override;
191 public
192 procedure Assign(Source: TPersistent); override;
193 published
194 property Caption: WideString read GetCaption write SetCaption;
195 property Hint: WideString read GetHint write SetHint;
196 end;
197
198procedure TntDBActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
199
200implementation
201
202uses
203 TntClasses;
204
205{TNT-IGNORE-UNIT}
206
207procedure TntDBActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
208begin
209 TntAction_AfterInherited_Assign(Action, Source);
210 // TDataSetAction
211 if (Action is TDataSetAction) and (Source is TDataSetAction) then begin
212 TDataSetAction(Action).DataSource := TDataSetAction(Source).DataSource;
213 end;
214end;
215
216//-------------------------
217// TNT DB ACTNS
218//-------------------------
219
220{ TTntDataSetAction }
221
222procedure TTntDataSetAction.Assign(Source: TPersistent);
223begin
224 inherited;
225 TntDBActn_AfterInherited_Assign(Self, Source);
226end;
227
228procedure TTntDataSetAction.DefineProperties(Filer: TFiler);
229begin
230 inherited;
231 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
232end;
233
234function TTntDataSetAction.GetCaption: WideString;
235begin
236 Result := TntAction_GetCaption(Self);
237end;
238
239procedure TTntDataSetAction.SetCaption(const Value: WideString);
240begin
241 TntAction_SetCaption(Self, Value);
242end;
243
244function TTntDataSetAction.GetHint: WideString;
245begin
246 Result := TntAction_GetHint(Self);
247end;
248
249procedure TTntDataSetAction.SetHint(const Value: WideString);
250begin
251 TntAction_SetHint(Self, Value);
252end;
253
254{ TTntDataSetFirst }
255
256procedure TTntDataSetFirst.Assign(Source: TPersistent);
257begin
258 inherited;
259 TntDBActn_AfterInherited_Assign(Self, Source);
260end;
261
262procedure TTntDataSetFirst.DefineProperties(Filer: TFiler);
263begin
264 inherited;
265 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
266end;
267
268function TTntDataSetFirst.GetCaption: WideString;
269begin
270 Result := TntAction_GetCaption(Self);
271end;
272
273procedure TTntDataSetFirst.SetCaption(const Value: WideString);
274begin
275 TntAction_SetCaption(Self, Value);
276end;
277
278function TTntDataSetFirst.GetHint: WideString;
279begin
280 Result := TntAction_GetHint(Self);
281end;
282
283procedure TTntDataSetFirst.SetHint(const Value: WideString);
284begin
285 TntAction_SetHint(Self, Value);
286end;
287
288{ TTntDataSetPrior }
289
290procedure TTntDataSetPrior.Assign(Source: TPersistent);
291begin
292 inherited;
293 TntDBActn_AfterInherited_Assign(Self, Source);
294end;
295
296procedure TTntDataSetPrior.DefineProperties(Filer: TFiler);
297begin
298 inherited;
299 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
300end;
301
302function TTntDataSetPrior.GetCaption: WideString;
303begin
304 Result := TntAction_GetCaption(Self);
305end;
306
307procedure TTntDataSetPrior.SetCaption(const Value: WideString);
308begin
309 TntAction_SetCaption(Self, Value);
310end;
311
312function TTntDataSetPrior.GetHint: WideString;
313begin
314 Result := TntAction_GetHint(Self);
315end;
316
317procedure TTntDataSetPrior.SetHint(const Value: WideString);
318begin
319 TntAction_SetHint(Self, Value);
320end;
321
322{ TTntDataSetNext }
323
324procedure TTntDataSetNext.Assign(Source: TPersistent);
325begin
326 inherited;
327 TntDBActn_AfterInherited_Assign(Self, Source);
328end;
329
330procedure TTntDataSetNext.DefineProperties(Filer: TFiler);
331begin
332 inherited;
333 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
334end;
335
336function TTntDataSetNext.GetCaption: WideString;
337begin
338 Result := TntAction_GetCaption(Self);
339end;
340
341procedure TTntDataSetNext.SetCaption(const Value: WideString);
342begin
343 TntAction_SetCaption(Self, Value);
344end;
345
346function TTntDataSetNext.GetHint: WideString;
347begin
348 Result := TntAction_GetHint(Self);
349end;
350
351procedure TTntDataSetNext.SetHint(const Value: WideString);
352begin
353 TntAction_SetHint(Self, Value);
354end;
355
356{ TTntDataSetLast }
357
358procedure TTntDataSetLast.Assign(Source: TPersistent);
359begin
360 inherited;
361 TntDBActn_AfterInherited_Assign(Self, Source);
362end;
363
364procedure TTntDataSetLast.DefineProperties(Filer: TFiler);
365begin
366 inherited;
367 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
368end;
369
370function TTntDataSetLast.GetCaption: WideString;
371begin
372 Result := TntAction_GetCaption(Self);
373end;
374
375procedure TTntDataSetLast.SetCaption(const Value: WideString);
376begin
377 TntAction_SetCaption(Self, Value);
378end;
379
380function TTntDataSetLast.GetHint: WideString;
381begin
382 Result := TntAction_GetHint(Self);
383end;
384
385procedure TTntDataSetLast.SetHint(const Value: WideString);
386begin
387 TntAction_SetHint(Self, Value);
388end;
389
390{ TTntDataSetInsert }
391
392procedure TTntDataSetInsert.Assign(Source: TPersistent);
393begin
394 inherited;
395 TntDBActn_AfterInherited_Assign(Self, Source);
396end;
397
398procedure TTntDataSetInsert.DefineProperties(Filer: TFiler);
399begin
400 inherited;
401 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
402end;
403
404function TTntDataSetInsert.GetCaption: WideString;
405begin
406 Result := TntAction_GetCaption(Self);
407end;
408
409procedure TTntDataSetInsert.SetCaption(const Value: WideString);
410begin
411 TntAction_SetCaption(Self, Value);
412end;
413
414function TTntDataSetInsert.GetHint: WideString;
415begin
416 Result := TntAction_GetHint(Self);
417end;
418
419procedure TTntDataSetInsert.SetHint(const Value: WideString);
420begin
421 TntAction_SetHint(Self, Value);
422end;
423
424{ TTntDataSetDelete }
425
426procedure TTntDataSetDelete.Assign(Source: TPersistent);
427begin
428 inherited;
429 TntDBActn_AfterInherited_Assign(Self, Source);
430end;
431
432procedure TTntDataSetDelete.DefineProperties(Filer: TFiler);
433begin
434 inherited;
435 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
436end;
437
438function TTntDataSetDelete.GetCaption: WideString;
439begin
440 Result := TntAction_GetCaption(Self);
441end;
442
443procedure TTntDataSetDelete.SetCaption(const Value: WideString);
444begin
445 TntAction_SetCaption(Self, Value);
446end;
447
448function TTntDataSetDelete.GetHint: WideString;
449begin
450 Result := TntAction_GetHint(Self);
451end;
452
453procedure TTntDataSetDelete.SetHint(const Value: WideString);
454begin
455 TntAction_SetHint(Self, Value);
456end;
457
458{ TTntDataSetEdit }
459
460procedure TTntDataSetEdit.Assign(Source: TPersistent);
461begin
462 inherited;
463 TntDBActn_AfterInherited_Assign(Self, Source);
464end;
465
466procedure TTntDataSetEdit.DefineProperties(Filer: TFiler);
467begin
468 inherited;
469 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
470end;
471
472function TTntDataSetEdit.GetCaption: WideString;
473begin
474 Result := TntAction_GetCaption(Self);
475end;
476
477procedure TTntDataSetEdit.SetCaption(const Value: WideString);
478begin
479 TntAction_SetCaption(Self, Value);
480end;
481
482function TTntDataSetEdit.GetHint: WideString;
483begin
484 Result := TntAction_GetHint(Self);
485end;
486
487procedure TTntDataSetEdit.SetHint(const Value: WideString);
488begin
489 TntAction_SetHint(Self, Value);
490end;
491
492{ TTntDataSetPost }
493
494procedure TTntDataSetPost.Assign(Source: TPersistent);
495begin
496 inherited;
497 TntDBActn_AfterInherited_Assign(Self, Source);
498end;
499
500procedure TTntDataSetPost.DefineProperties(Filer: TFiler);
501begin
502 inherited;
503 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
504end;
505
506function TTntDataSetPost.GetCaption: WideString;
507begin
508 Result := TntAction_GetCaption(Self);
509end;
510
511procedure TTntDataSetPost.SetCaption(const Value: WideString);
512begin
513 TntAction_SetCaption(Self, Value);
514end;
515
516function TTntDataSetPost.GetHint: WideString;
517begin
518 Result := TntAction_GetHint(Self);
519end;
520
521procedure TTntDataSetPost.SetHint(const Value: WideString);
522begin
523 TntAction_SetHint(Self, Value);
524end;
525
526{ TTntDataSetCancel }
527
528procedure TTntDataSetCancel.Assign(Source: TPersistent);
529begin
530 inherited;
531 TntDBActn_AfterInherited_Assign(Self, Source);
532end;
533
534procedure TTntDataSetCancel.DefineProperties(Filer: TFiler);
535begin
536 inherited;
537 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
538end;
539
540function TTntDataSetCancel.GetCaption: WideString;
541begin
542 Result := TntAction_GetCaption(Self);
543end;
544
545procedure TTntDataSetCancel.SetCaption(const Value: WideString);
546begin
547 TntAction_SetCaption(Self, Value);
548end;
549
550function TTntDataSetCancel.GetHint: WideString;
551begin
552 Result := TntAction_GetHint(Self);
553end;
554
555procedure TTntDataSetCancel.SetHint(const Value: WideString);
556begin
557 TntAction_SetHint(Self, Value);
558end;
559
560{ TTntDataSetRefresh }
561
562procedure TTntDataSetRefresh.Assign(Source: TPersistent);
563begin
564 inherited;
565 TntDBActn_AfterInherited_Assign(Self, Source);
566end;
567
568procedure TTntDataSetRefresh.DefineProperties(Filer: TFiler);
569begin
570 inherited;
571 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
572end;
573
574function TTntDataSetRefresh.GetCaption: WideString;
575begin
576 Result := TntAction_GetCaption(Self);
577end;
578
579procedure TTntDataSetRefresh.SetCaption(const Value: WideString);
580begin
581 TntAction_SetCaption(Self, Value);
582end;
583
584function TTntDataSetRefresh.GetHint: WideString;
585begin
586 Result := TntAction_GetHint(Self);
587end;
588
589procedure TTntDataSetRefresh.SetHint(const Value: WideString);
590begin
591 TntAction_SetHint(Self, Value);
592end;
593
594end.
Note: See TracBrowser for help on using the repository browser.