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

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

Adding source to tntControls for compilation

File size: 15.7 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 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.