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

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

Adding source to tntControls for compilation

File size: 38.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 TntExtActns;
13
14{$INCLUDE TntCompilers.inc}
15
16interface
17
18uses
19  Classes, TntActnList, ExtActns;
20
21type
22{TNT-WARN TCustomFileRun}
23  TTntCustomFileRun = class(TCustomFileRun{TNT-ALLOW TCustomFileRun}, 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  public
34    property Caption: WideString read GetCaption write SetCaption;
35    property Hint: WideString read GetHint write SetHint;
36  end;
37
38{TNT-WARN TFileRun}
39  TTntFileRun = class(TFileRun{TNT-ALLOW TFileRun}, 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 TRichEditAction}
55  TTntRichEditAction = class(TRichEditAction{TNT-ALLOW TRichEditAction}, 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 TRichEditBold}
71  TTntRichEditBold = class(TRichEditBold{TNT-ALLOW TRichEditBold}, 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 TRichEditItalic}
87  TTntRichEditItalic = class(TRichEditItalic{TNT-ALLOW TRichEditItalic}, 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 TRichEditUnderline}
103  TTntRichEditUnderline = class(TRichEditUnderline{TNT-ALLOW TRichEditUnderline}, 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 TRichEditStrikeOut}
119  TTntRichEditStrikeOut = class(TRichEditStrikeOut{TNT-ALLOW TRichEditStrikeOut}, 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 TRichEditBullets}
135  TTntRichEditBullets = class(TRichEditBullets{TNT-ALLOW TRichEditBullets}, 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 TRichEditAlignLeft}
151  TTntRichEditAlignLeft = class(TRichEditAlignLeft{TNT-ALLOW TRichEditAlignLeft}, 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 TRichEditAlignRight}
167  TTntRichEditAlignRight = class(TRichEditAlignRight{TNT-ALLOW TRichEditAlignRight}, 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 TRichEditAlignCenter}
183  TTntRichEditAlignCenter = class(TRichEditAlignCenter{TNT-ALLOW TRichEditAlignCenter}, 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
198{TNT-WARN TTabAction}
199  TTntTabAction = class(TTabAction{TNT-ALLOW TTabAction}, ITntAction)
200  private
201    function GetCaption: WideString;
202    procedure SetCaption(const Value: WideString);
203    function GetHint: WideString;
204    procedure SetHint(const Value: WideString);
205  protected
206    procedure DefineProperties(Filer: TFiler); override;
207  public
208    procedure Assign(Source: TPersistent); override;
209  public
210    property Caption: WideString read GetCaption write SetCaption;
211    property Hint: WideString read GetHint write SetHint;
212  end;
213
214{TNT-WARN TPreviousTab}
215  TTntPreviousTab = class(TPreviousTab{TNT-ALLOW TPreviousTab}, ITntAction)
216  private
217    function GetCaption: WideString;
218    procedure SetCaption(const Value: WideString);
219    function GetHint: WideString;
220    procedure SetHint(const Value: WideString);
221  protected
222    procedure DefineProperties(Filer: TFiler); override;
223  public
224    procedure Assign(Source: TPersistent); override;
225  published
226    property Caption: WideString read GetCaption write SetCaption;
227    property Hint: WideString read GetHint write SetHint;
228  end;
229
230{TNT-WARN TNextTab}
231  TTntNextTab = class(TNextTab{TNT-ALLOW TNextTab}, ITntAction)
232  private
233    function GetCaption: WideString;
234    procedure SetCaption(const Value: WideString);
235    function GetHint: WideString;
236    procedure SetHint(const Value: WideString);
237  protected
238    procedure DefineProperties(Filer: TFiler); override;
239  public
240    procedure Assign(Source: TPersistent); override;
241  published
242    property Caption: WideString read GetCaption write SetCaption;
243    property Hint: WideString read GetHint write SetHint;
244  end;
245
246{TNT-WARN TOpenPicture}
247  TTntOpenPicture = class(TOpenPicture{TNT-ALLOW TOpenPicture}, ITntAction)
248  private
249    function GetCaption: WideString;
250    procedure SetCaption(const Value: WideString);
251    function GetHint: WideString;
252    procedure SetHint(const Value: WideString);
253  protected
254    procedure DefineProperties(Filer: TFiler); override;
255  public
256    procedure Assign(Source: TPersistent); override;
257  published
258    property Caption: WideString read GetCaption write SetCaption;
259    property Hint: WideString read GetHint write SetHint;
260  end;
261
262{TNT-WARN TSavePicture}
263  TTntSavePicture = class(TSavePicture{TNT-ALLOW TSavePicture}, ITntAction)
264  private
265    function GetCaption: WideString;
266    procedure SetCaption(const Value: WideString);
267    function GetHint: WideString;
268    procedure SetHint(const Value: WideString);
269  protected
270    procedure DefineProperties(Filer: TFiler); override;
271  public
272    procedure Assign(Source: TPersistent); override;
273  published
274    property Caption: WideString read GetCaption write SetCaption;
275    property Hint: WideString read GetHint write SetHint;
276  end;
277
278{TNT-WARN TURLAction}
279  TTntURLAction = class(TURLAction{TNT-ALLOW TURLAction}, ITntAction)
280  private
281    function GetCaption: WideString;
282    procedure SetCaption(const Value: WideString);
283    function GetHint: WideString;
284    procedure SetHint(const Value: WideString);
285  protected
286    procedure DefineProperties(Filer: TFiler); override;
287  public
288    procedure Assign(Source: TPersistent); override;
289  published
290    property Caption: WideString read GetCaption write SetCaption;
291    property Hint: WideString read GetHint write SetHint;
292  end;
293
294{TNT-WARN TBrowseURL}
295  TTntBrowseURL = class(TBrowseURL{TNT-ALLOW TBrowseURL}, ITntAction)
296  private
297    function GetCaption: WideString;
298    procedure SetCaption(const Value: WideString);
299    function GetHint: WideString;
300    procedure SetHint(const Value: WideString);
301  protected
302    procedure DefineProperties(Filer: TFiler); override;
303  public
304    procedure Assign(Source: TPersistent); override;
305  published
306    property Caption: WideString read GetCaption write SetCaption;
307    property Hint: WideString read GetHint write SetHint;
308  end;
309
310{TNT-WARN TDownLoadURL}
311  TTntDownLoadURL = class(TDownLoadURL{TNT-ALLOW TDownLoadURL}, ITntAction)
312  private
313    function GetCaption: WideString;
314    procedure SetCaption(const Value: WideString);
315    function GetHint: WideString;
316    procedure SetHint(const Value: WideString);
317  protected
318    procedure DefineProperties(Filer: TFiler); override;
319  public
320    procedure Assign(Source: TPersistent); override;
321  published
322    property Caption: WideString read GetCaption write SetCaption;
323    property Hint: WideString read GetHint write SetHint;
324  end;
325
326{TNT-WARN TSendMail}
327  TTntSendMail = class(TSendMail{TNT-ALLOW TSendMail}, ITntAction)
328  private
329    function GetCaption: WideString;
330    procedure SetCaption(const Value: WideString);
331    function GetHint: WideString;
332    procedure SetHint(const Value: WideString);
333  protected
334    procedure DefineProperties(Filer: TFiler); override;
335  public
336    procedure Assign(Source: TPersistent); override;
337  published
338    property Caption: WideString read GetCaption write SetCaption;
339    property Hint: WideString read GetHint write SetHint;
340  end;
341
342{TNT-WARN TListControlAction}
343  TTntListControlAction = class(TListControlAction{TNT-ALLOW TListControlAction}, ITntAction)
344  private
345    function GetCaption: WideString;
346    procedure SetCaption(const Value: WideString);
347    function GetHint: WideString;
348    procedure SetHint(const Value: WideString);
349  protected
350    procedure DefineProperties(Filer: TFiler); override;
351  public
352    procedure Assign(Source: TPersistent); override;
353  public
354    property Caption: WideString read GetCaption write SetCaption;
355    property Hint: WideString read GetHint write SetHint;
356  end;
357
358{TNT-WARN TListControlCopySelection}
359  TTntListControlCopySelection = class(TListControlCopySelection{TNT-ALLOW TListControlCopySelection}, ITntAction)
360  private
361    function GetCaption: WideString;
362    procedure SetCaption(const Value: WideString);
363    function GetHint: WideString;
364    procedure SetHint(const Value: WideString);
365  protected
366    procedure DefineProperties(Filer: TFiler); override;
367  public
368    procedure Assign(Source: TPersistent); override;
369  published
370    property Caption: WideString read GetCaption write SetCaption;
371    property Hint: WideString read GetHint write SetHint;
372  end;
373
374{TNT-WARN TListControlDeleteSelection}
375  TTntListControlDeleteSelection = class(TListControlDeleteSelection{TNT-ALLOW TListControlDeleteSelection}, ITntAction)
376  private
377    function GetCaption: WideString;
378    procedure SetCaption(const Value: WideString);
379    function GetHint: WideString;
380    procedure SetHint(const Value: WideString);
381  protected
382    procedure DefineProperties(Filer: TFiler); override;
383  public
384    procedure Assign(Source: TPersistent); override;
385  published
386    property Caption: WideString read GetCaption write SetCaption;
387    property Hint: WideString read GetHint write SetHint;
388  end;
389
390{TNT-WARN TListControlSelectAll}
391  TTntListControlSelectAll = class(TListControlSelectAll{TNT-ALLOW TListControlSelectAll}, ITntAction)
392  private
393    function GetCaption: WideString;
394    procedure SetCaption(const Value: WideString);
395    function GetHint: WideString;
396    procedure SetHint(const Value: WideString);
397  protected
398    procedure DefineProperties(Filer: TFiler); override;
399  public
400    procedure Assign(Source: TPersistent); override;
401  published
402    property Caption: WideString read GetCaption write SetCaption;
403    property Hint: WideString read GetHint write SetHint;
404  end;
405
406{TNT-WARN TListControlClearSelection}
407  TTntListControlClearSelection = class(TListControlClearSelection{TNT-ALLOW TListControlClearSelection}, ITntAction)
408  private
409    function GetCaption: WideString;
410    procedure SetCaption(const Value: WideString);
411    function GetHint: WideString;
412    procedure SetHint(const Value: WideString);
413  protected
414    procedure DefineProperties(Filer: TFiler); override;
415  public
416    procedure Assign(Source: TPersistent); override;
417  published
418    property Caption: WideString read GetCaption write SetCaption;
419    property Hint: WideString read GetHint write SetHint;
420  end;
421
422{TNT-WARN TListControlMoveSelection}
423  TTntListControlMoveSelection = class(TListControlMoveSelection{TNT-ALLOW TListControlMoveSelection}, ITntAction)
424  private
425    function GetCaption: WideString;
426    procedure SetCaption(const Value: WideString);
427    function GetHint: WideString;
428    procedure SetHint(const Value: WideString);
429  protected
430    procedure DefineProperties(Filer: TFiler); override;
431  public
432    procedure Assign(Source: TPersistent); override;
433  published
434    property Caption: WideString read GetCaption write SetCaption;
435    property Hint: WideString read GetHint write SetHint;
436  end;
437
438implementation
439
440uses
441  ActnList, TntStdActns, TntClasses;
442
443{TNT-IGNORE-UNIT}
444
445procedure TntExtActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
446begin
447  TntStdActn_AfterInherited_Assign(Action, Source);
448  // TCustomFileRun
449  if (Action is TCustomFileRun) and (Source is TCustomFileRun) then begin
450    TCustomFileRun(Action).Browse        := TCustomFileRun(Source).Browse;
451    if TCustomFileRun(Source).BrowseDlg.Owner <> Source then
452      TCustomFileRun(Action).BrowseDlg := TCustomFileRun(Source).BrowseDlg
453    else begin
454      { Carry over dialog properties.  Currently TOpenDialog doesn't support Assign. }
455      { TCustomFileRun(Action).BrowseDlg.Assign(TCustomFileRun(Source).BrowseDlg); }
456    end;
457    TCustomFileRun(Action).Directory     := TCustomFileRun(Source).Directory;
458    TCustomFileRun(Action).FileName      := TCustomFileRun(Source).FileName;
459    TCustomFileRun(Action).Operation     := TCustomFileRun(Source).Operation;
460    TCustomFileRun(Action).ParentControl := TCustomFileRun(Source).ParentControl;
461    TCustomFileRun(Action).Parameters    := TCustomFileRun(Source).Parameters;
462    TCustomFileRun(Action).ShowCmd       := TCustomFileRun(Source).ShowCmd;
463  end;
464  // TTabAction
465  if (Action is TTabAction) and (Source is TTabAction) then begin
466    TTabAction(Action).SkipHiddenTabs  := TTabAction(Source).SkipHiddenTabs;
467    TTabAction(Action).TabControl      := TTabAction(Source).TabControl;
468    TTabAction(Action).Wrap            := TTabAction(Source).Wrap;
469    TTabAction(Action).BeforeTabChange := TTabAction(Source).BeforeTabChange;
470    TTabAction(Action).AfterTabChange  := TTabAction(Source).AfterTabChange;
471    TTabAction(Action).OnValidateTab   := TTabAction(Source).OnValidateTab;
472  end;
473  // TNextTab
474  if (Action is TNextTab) and (Source is TNextTab) then begin
475    TNextTab(Action).LastTabCaption := TNextTab(Source).LastTabCaption;
476    TNextTab(Action).OnFinish       := TNextTab(Source).OnFinish;
477  end;
478  // TURLAction
479  if (Action is TURLAction) and (Source is TURLAction) then begin
480    TURLAction(Action).URL := TURLAction(Source).URL;
481  end;
482  // TBrowseURL
483  if (Action is TBrowseURL) and (Source is TBrowseURL) then begin
484    {$IFDEF COMPILER_7_UP}
485    TBrowseURL(Action).BeforeBrowse := TBrowseURL(Source).BeforeBrowse;
486    TBrowseURL(Action).AfterBrowse  := TBrowseURL(Source).AfterBrowse;
487    {$ENDIF}
488  end;
489  // TDownloadURL
490  if (Action is TDownloadURL) and (Source is TDownloadURL) then begin
491    TDownloadURL(Action).FileName           := TDownloadURL(Source).FileName;
492    {$IFDEF COMPILER_7_UP}
493    TDownloadURL(Action).BeforeDownload     := TDownloadURL(Source).BeforeDownload;
494    TDownloadURL(Action).AfterDownload      := TDownloadURL(Source).AfterDownload;
495    {$ENDIF}
496    TDownloadURL(Action).OnDownloadProgress := TDownloadURL(Source).OnDownloadProgress;
497  end;
498  // TSendMail
499  if (Action is TSendMail) and (Source is TSendMail) then begin
500    TSendMail(Action).Text := TSendMail(Source).Text;
501  end;
502  // TListControlAction
503  if (Action is TListControlAction) and (Source is TListControlAction) then begin
504    TListControlAction(Action).ListControl := TListControlAction(Source).ListControl;
505  end;
506  // TListControlCopySelection
507  if (Action is TListControlCopySelection) and (Source is TListControlCopySelection) then begin
508    TListControlCopySelection(Action).Destination := TListControlCopySelection(Source).Destination;
509  end;
510end;
511
512//-------------------------
513//    TNT EXT ACTNS
514//-------------------------
515
516{ TTntCustomFileRun }
517
518procedure TTntCustomFileRun.Assign(Source: TPersistent);
519begin
520  inherited;
521  TntExtActn_AfterInherited_Assign(Self, Source);
522end;
523
524procedure TTntCustomFileRun.DefineProperties(Filer: TFiler);
525begin
526  inherited;
527  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
528end;
529
530function TTntCustomFileRun.GetCaption: WideString;
531begin
532  Result := TntAction_GetCaption(Self);
533end;
534
535procedure TTntCustomFileRun.SetCaption(const Value: WideString);
536begin
537  TntAction_SetCaption(Self, Value);
538end;
539
540function TTntCustomFileRun.GetHint: WideString;
541begin
542  Result := TntAction_GetHint(Self);
543end;
544
545procedure TTntCustomFileRun.SetHint(const Value: WideString);
546begin
547  TntAction_SetHint(Self, Value);
548end;
549
550{ TTntFileRun }
551
552procedure TTntFileRun.Assign(Source: TPersistent);
553begin
554  inherited;
555  TntExtActn_AfterInherited_Assign(Self, Source);
556end;
557
558procedure TTntFileRun.DefineProperties(Filer: TFiler);
559begin
560  inherited;
561  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
562end;
563
564function TTntFileRun.GetCaption: WideString;
565begin
566  Result := TntAction_GetCaption(Self);
567end;
568
569procedure TTntFileRun.SetCaption(const Value: WideString);
570begin
571  TntAction_SetCaption(Self, Value);
572end;
573
574function TTntFileRun.GetHint: WideString;
575begin
576  Result := TntAction_GetHint(Self);
577end;
578
579procedure TTntFileRun.SetHint(const Value: WideString);
580begin
581  TntAction_SetHint(Self, Value);
582end;
583
584{ TTntRichEditAction }
585
586procedure TTntRichEditAction.Assign(Source: TPersistent);
587begin
588  inherited;
589  TntExtActn_AfterInherited_Assign(Self, Source);
590end;
591
592procedure TTntRichEditAction.DefineProperties(Filer: TFiler);
593begin
594  inherited;
595  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
596end;
597
598function TTntRichEditAction.GetCaption: WideString;
599begin
600  Result := TntAction_GetCaption(Self);
601end;
602
603procedure TTntRichEditAction.SetCaption(const Value: WideString);
604begin
605  TntAction_SetCaption(Self, Value);
606end;
607
608function TTntRichEditAction.GetHint: WideString;
609begin
610  Result := TntAction_GetHint(Self);
611end;
612
613procedure TTntRichEditAction.SetHint(const Value: WideString);
614begin
615  TntAction_SetHint(Self, Value);
616end;
617
618{ TTntRichEditBold }
619
620procedure TTntRichEditBold.Assign(Source: TPersistent);
621begin
622  inherited;
623  TntExtActn_AfterInherited_Assign(Self, Source);
624end;
625
626procedure TTntRichEditBold.DefineProperties(Filer: TFiler);
627begin
628  inherited;
629  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
630end;
631
632function TTntRichEditBold.GetCaption: WideString;
633begin
634  Result := TntAction_GetCaption(Self);
635end;
636
637procedure TTntRichEditBold.SetCaption(const Value: WideString);
638begin
639  TntAction_SetCaption(Self, Value);
640end;
641
642function TTntRichEditBold.GetHint: WideString;
643begin
644  Result := TntAction_GetHint(Self);
645end;
646
647procedure TTntRichEditBold.SetHint(const Value: WideString);
648begin
649  TntAction_SetHint(Self, Value);
650end;
651
652{ TTntRichEditItalic }
653
654procedure TTntRichEditItalic.Assign(Source: TPersistent);
655begin
656  inherited;
657  TntExtActn_AfterInherited_Assign(Self, Source);
658end;
659
660procedure TTntRichEditItalic.DefineProperties(Filer: TFiler);
661begin
662  inherited;
663  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
664end;
665
666function TTntRichEditItalic.GetCaption: WideString;
667begin
668  Result := TntAction_GetCaption(Self);
669end;
670
671procedure TTntRichEditItalic.SetCaption(const Value: WideString);
672begin
673  TntAction_SetCaption(Self, Value);
674end;
675
676function TTntRichEditItalic.GetHint: WideString;
677begin
678  Result := TntAction_GetHint(Self);
679end;
680
681procedure TTntRichEditItalic.SetHint(const Value: WideString);
682begin
683  TntAction_SetHint(Self, Value);
684end;
685
686{ TTntRichEditUnderline }
687
688procedure TTntRichEditUnderline.Assign(Source: TPersistent);
689begin
690  inherited;
691  TntExtActn_AfterInherited_Assign(Self, Source);
692end;
693
694procedure TTntRichEditUnderline.DefineProperties(Filer: TFiler);
695begin
696  inherited;
697  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
698end;
699
700function TTntRichEditUnderline.GetCaption: WideString;
701begin
702  Result := TntAction_GetCaption(Self);
703end;
704
705procedure TTntRichEditUnderline.SetCaption(const Value: WideString);
706begin
707  TntAction_SetCaption(Self, Value);
708end;
709
710function TTntRichEditUnderline.GetHint: WideString;
711begin
712  Result := TntAction_GetHint(Self);
713end;
714
715procedure TTntRichEditUnderline.SetHint(const Value: WideString);
716begin
717  TntAction_SetHint(Self, Value);
718end;
719
720{ TTntRichEditStrikeOut }
721
722procedure TTntRichEditStrikeOut.Assign(Source: TPersistent);
723begin
724  inherited;
725  TntExtActn_AfterInherited_Assign(Self, Source);
726end;
727
728procedure TTntRichEditStrikeOut.DefineProperties(Filer: TFiler);
729begin
730  inherited;
731  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
732end;
733
734function TTntRichEditStrikeOut.GetCaption: WideString;
735begin
736  Result := TntAction_GetCaption(Self);
737end;
738
739procedure TTntRichEditStrikeOut.SetCaption(const Value: WideString);
740begin
741  TntAction_SetCaption(Self, Value);
742end;
743
744function TTntRichEditStrikeOut.GetHint: WideString;
745begin
746  Result := TntAction_GetHint(Self);
747end;
748
749procedure TTntRichEditStrikeOut.SetHint(const Value: WideString);
750begin
751  TntAction_SetHint(Self, Value);
752end;
753
754{ TTntRichEditBullets }
755
756procedure TTntRichEditBullets.Assign(Source: TPersistent);
757begin
758  inherited;
759  TntExtActn_AfterInherited_Assign(Self, Source);
760end;
761
762procedure TTntRichEditBullets.DefineProperties(Filer: TFiler);
763begin
764  inherited;
765  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
766end;
767
768function TTntRichEditBullets.GetCaption: WideString;
769begin
770  Result := TntAction_GetCaption(Self);
771end;
772
773procedure TTntRichEditBullets.SetCaption(const Value: WideString);
774begin
775  TntAction_SetCaption(Self, Value);
776end;
777
778function TTntRichEditBullets.GetHint: WideString;
779begin
780  Result := TntAction_GetHint(Self);
781end;
782
783procedure TTntRichEditBullets.SetHint(const Value: WideString);
784begin
785  TntAction_SetHint(Self, Value);
786end;
787
788{ TTntRichEditAlignLeft }
789
790procedure TTntRichEditAlignLeft.Assign(Source: TPersistent);
791begin
792  inherited;
793  TntExtActn_AfterInherited_Assign(Self, Source);
794end;
795
796procedure TTntRichEditAlignLeft.DefineProperties(Filer: TFiler);
797begin
798  inherited;
799  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
800end;
801
802function TTntRichEditAlignLeft.GetCaption: WideString;
803begin
804  Result := TntAction_GetCaption(Self);
805end;
806
807procedure TTntRichEditAlignLeft.SetCaption(const Value: WideString);
808begin
809  TntAction_SetCaption(Self, Value);
810end;
811
812function TTntRichEditAlignLeft.GetHint: WideString;
813begin
814  Result := TntAction_GetHint(Self);
815end;
816
817procedure TTntRichEditAlignLeft.SetHint(const Value: WideString);
818begin
819  TntAction_SetHint(Self, Value);
820end;
821
822{ TTntRichEditAlignRight }
823
824procedure TTntRichEditAlignRight.Assign(Source: TPersistent);
825begin
826  inherited;
827  TntExtActn_AfterInherited_Assign(Self, Source);
828end;
829
830procedure TTntRichEditAlignRight.DefineProperties(Filer: TFiler);
831begin
832  inherited;
833  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
834end;
835
836function TTntRichEditAlignRight.GetCaption: WideString;
837begin
838  Result := TntAction_GetCaption(Self);
839end;
840
841procedure TTntRichEditAlignRight.SetCaption(const Value: WideString);
842begin
843  TntAction_SetCaption(Self, Value);
844end;
845
846function TTntRichEditAlignRight.GetHint: WideString;
847begin
848  Result := TntAction_GetHint(Self);
849end;
850
851procedure TTntRichEditAlignRight.SetHint(const Value: WideString);
852begin
853  TntAction_SetHint(Self, Value);
854end;
855
856{ TTntRichEditAlignCenter }
857
858procedure TTntRichEditAlignCenter.Assign(Source: TPersistent);
859begin
860  inherited;
861  TntExtActn_AfterInherited_Assign(Self, Source);
862end;
863
864procedure TTntRichEditAlignCenter.DefineProperties(Filer: TFiler);
865begin
866  inherited;
867  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
868end;
869
870function TTntRichEditAlignCenter.GetCaption: WideString;
871begin
872  Result := TntAction_GetCaption(Self);
873end;
874
875procedure TTntRichEditAlignCenter.SetCaption(const Value: WideString);
876begin
877  TntAction_SetCaption(Self, Value);
878end;
879
880function TTntRichEditAlignCenter.GetHint: WideString;
881begin
882  Result := TntAction_GetHint(Self);
883end;
884
885procedure TTntRichEditAlignCenter.SetHint(const Value: WideString);
886begin
887  TntAction_SetHint(Self, Value);
888end;
889
890{ TTntTabAction }
891
892procedure TTntTabAction.Assign(Source: TPersistent);
893begin
894  inherited;
895  TntExtActn_AfterInherited_Assign(Self, Source);
896end;
897
898procedure TTntTabAction.DefineProperties(Filer: TFiler);
899begin
900  inherited;
901  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
902end;
903
904function TTntTabAction.GetCaption: WideString;
905begin
906  Result := TntAction_GetCaption(Self);
907end;
908
909procedure TTntTabAction.SetCaption(const Value: WideString);
910begin
911  TntAction_SetCaption(Self, Value);
912end;
913
914function TTntTabAction.GetHint: WideString;
915begin
916  Result := TntAction_GetHint(Self);
917end;
918
919procedure TTntTabAction.SetHint(const Value: WideString);
920begin
921  TntAction_SetHint(Self, Value);
922end;
923
924{ TTntPreviousTab }
925
926procedure TTntPreviousTab.Assign(Source: TPersistent);
927begin
928  inherited;
929  TntExtActn_AfterInherited_Assign(Self, Source);
930end;
931
932procedure TTntPreviousTab.DefineProperties(Filer: TFiler);
933begin
934  inherited;
935  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
936end;
937
938function TTntPreviousTab.GetCaption: WideString;
939begin
940  Result := TntAction_GetCaption(Self);
941end;
942
943procedure TTntPreviousTab.SetCaption(const Value: WideString);
944begin
945  TntAction_SetCaption(Self, Value);
946end;
947
948function TTntPreviousTab.GetHint: WideString;
949begin
950  Result := TntAction_GetHint(Self);
951end;
952
953procedure TTntPreviousTab.SetHint(const Value: WideString);
954begin
955  TntAction_SetHint(Self, Value);
956end;
957
958{ TTntNextTab }
959
960procedure TTntNextTab.Assign(Source: TPersistent);
961begin
962  inherited;
963  TntExtActn_AfterInherited_Assign(Self, Source);
964end;
965
966procedure TTntNextTab.DefineProperties(Filer: TFiler);
967begin
968  inherited;
969  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
970end;
971
972function TTntNextTab.GetCaption: WideString;
973begin
974  Result := TntAction_GetCaption(Self);
975end;
976
977procedure TTntNextTab.SetCaption(const Value: WideString);
978begin
979  TntAction_SetCaption(Self, Value);
980end;
981
982function TTntNextTab.GetHint: WideString;
983begin
984  Result := TntAction_GetHint(Self);
985end;
986
987procedure TTntNextTab.SetHint(const Value: WideString);
988begin
989  TntAction_SetHint(Self, Value);
990end;
991
992{ TTntOpenPicture }
993
994procedure TTntOpenPicture.Assign(Source: TPersistent);
995begin
996  inherited;
997  TntExtActn_AfterInherited_Assign(Self, Source);
998end;
999
1000procedure TTntOpenPicture.DefineProperties(Filer: TFiler);
1001begin
1002  inherited;
1003  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1004end;
1005
1006function TTntOpenPicture.GetCaption: WideString;
1007begin
1008  Result := TntAction_GetCaption(Self);
1009end;
1010
1011procedure TTntOpenPicture.SetCaption(const Value: WideString);
1012begin
1013  TntAction_SetCaption(Self, Value);
1014end;
1015
1016function TTntOpenPicture.GetHint: WideString;
1017begin
1018  Result := TntAction_GetHint(Self);
1019end;
1020
1021procedure TTntOpenPicture.SetHint(const Value: WideString);
1022begin
1023  TntAction_SetHint(Self, Value);
1024end;
1025
1026{ TTntSavePicture }
1027
1028procedure TTntSavePicture.Assign(Source: TPersistent);
1029begin
1030  inherited;
1031  TntExtActn_AfterInherited_Assign(Self, Source);
1032end;
1033
1034procedure TTntSavePicture.DefineProperties(Filer: TFiler);
1035begin
1036  inherited;
1037  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1038end;
1039
1040function TTntSavePicture.GetCaption: WideString;
1041begin
1042  Result := TntAction_GetCaption(Self);
1043end;
1044
1045procedure TTntSavePicture.SetCaption(const Value: WideString);
1046begin
1047  TntAction_SetCaption(Self, Value);
1048end;
1049
1050function TTntSavePicture.GetHint: WideString;
1051begin
1052  Result := TntAction_GetHint(Self);
1053end;
1054
1055procedure TTntSavePicture.SetHint(const Value: WideString);
1056begin
1057  TntAction_SetHint(Self, Value);
1058end;
1059
1060{ TTntURLAction }
1061
1062procedure TTntURLAction.Assign(Source: TPersistent);
1063begin
1064  inherited;
1065  TntExtActn_AfterInherited_Assign(Self, Source);
1066end;
1067
1068procedure TTntURLAction.DefineProperties(Filer: TFiler);
1069begin
1070  inherited;
1071  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1072end;
1073
1074function TTntURLAction.GetCaption: WideString;
1075begin
1076  Result := TntAction_GetCaption(Self);
1077end;
1078
1079procedure TTntURLAction.SetCaption(const Value: WideString);
1080begin
1081  TntAction_SetCaption(Self, Value);
1082end;
1083
1084function TTntURLAction.GetHint: WideString;
1085begin
1086  Result := TntAction_GetHint(Self);
1087end;
1088
1089procedure TTntURLAction.SetHint(const Value: WideString);
1090begin
1091  TntAction_SetHint(Self, Value);
1092end;
1093
1094{ TTntBrowseURL }
1095
1096procedure TTntBrowseURL.Assign(Source: TPersistent);
1097begin
1098  inherited;
1099  TntExtActn_AfterInherited_Assign(Self, Source);
1100end;
1101
1102procedure TTntBrowseURL.DefineProperties(Filer: TFiler);
1103begin
1104  inherited;
1105  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1106end;
1107
1108function TTntBrowseURL.GetCaption: WideString;
1109begin
1110  Result := TntAction_GetCaption(Self);
1111end;
1112
1113procedure TTntBrowseURL.SetCaption(const Value: WideString);
1114begin
1115  TntAction_SetCaption(Self, Value);
1116end;
1117
1118function TTntBrowseURL.GetHint: WideString;
1119begin
1120  Result := TntAction_GetHint(Self);
1121end;
1122
1123procedure TTntBrowseURL.SetHint(const Value: WideString);
1124begin
1125  TntAction_SetHint(Self, Value);
1126end;
1127
1128{ TTntDownLoadURL }
1129
1130procedure TTntDownLoadURL.Assign(Source: TPersistent);
1131begin
1132  inherited;
1133  TntExtActn_AfterInherited_Assign(Self, Source);
1134end;
1135
1136procedure TTntDownLoadURL.DefineProperties(Filer: TFiler);
1137begin
1138  inherited;
1139  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1140end;
1141
1142function TTntDownLoadURL.GetCaption: WideString;
1143begin
1144  Result := TntAction_GetCaption(Self);
1145end;
1146
1147procedure TTntDownLoadURL.SetCaption(const Value: WideString);
1148begin
1149  TntAction_SetCaption(Self, Value);
1150end;
1151
1152function TTntDownLoadURL.GetHint: WideString;
1153begin
1154  Result := TntAction_GetHint(Self);
1155end;
1156
1157procedure TTntDownLoadURL.SetHint(const Value: WideString);
1158begin
1159  TntAction_SetHint(Self, Value);
1160end;
1161
1162{ TTntSendMail }
1163
1164procedure TTntSendMail.Assign(Source: TPersistent);
1165begin
1166  inherited;
1167  TntExtActn_AfterInherited_Assign(Self, Source);
1168end;
1169
1170procedure TTntSendMail.DefineProperties(Filer: TFiler);
1171begin
1172  inherited;
1173  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1174end;
1175
1176function TTntSendMail.GetCaption: WideString;
1177begin
1178  Result := TntAction_GetCaption(Self);
1179end;
1180
1181procedure TTntSendMail.SetCaption(const Value: WideString);
1182begin
1183  TntAction_SetCaption(Self, Value);
1184end;
1185
1186function TTntSendMail.GetHint: WideString;
1187begin
1188  Result := TntAction_GetHint(Self);
1189end;
1190
1191procedure TTntSendMail.SetHint(const Value: WideString);
1192begin
1193  TntAction_SetHint(Self, Value);
1194end;
1195
1196{ TTntListControlAction }
1197
1198procedure TTntListControlAction.Assign(Source: TPersistent);
1199begin
1200  inherited;
1201  TntExtActn_AfterInherited_Assign(Self, Source);
1202end;
1203
1204procedure TTntListControlAction.DefineProperties(Filer: TFiler);
1205begin
1206  inherited;
1207  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1208end;
1209
1210function TTntListControlAction.GetCaption: WideString;
1211begin
1212  Result := TntAction_GetCaption(Self);
1213end;
1214
1215procedure TTntListControlAction.SetCaption(const Value: WideString);
1216begin
1217  TntAction_SetCaption(Self, Value);
1218end;
1219
1220function TTntListControlAction.GetHint: WideString;
1221begin
1222  Result := TntAction_GetHint(Self);
1223end;
1224
1225procedure TTntListControlAction.SetHint(const Value: WideString);
1226begin
1227  TntAction_SetHint(Self, Value);
1228end;
1229
1230{ TTntListControlCopySelection }
1231
1232procedure TTntListControlCopySelection.Assign(Source: TPersistent);
1233begin
1234  inherited;
1235  TntExtActn_AfterInherited_Assign(Self, Source);
1236end;
1237
1238procedure TTntListControlCopySelection.DefineProperties(Filer: TFiler);
1239begin
1240  inherited;
1241  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1242end;
1243
1244function TTntListControlCopySelection.GetCaption: WideString;
1245begin
1246  Result := TntAction_GetCaption(Self);
1247end;
1248
1249procedure TTntListControlCopySelection.SetCaption(const Value: WideString);
1250begin
1251  TntAction_SetCaption(Self, Value);
1252end;
1253
1254function TTntListControlCopySelection.GetHint: WideString;
1255begin
1256  Result := TntAction_GetHint(Self);
1257end;
1258
1259procedure TTntListControlCopySelection.SetHint(const Value: WideString);
1260begin
1261  TntAction_SetHint(Self, Value);
1262end;
1263
1264{ TTntListControlDeleteSelection }
1265
1266procedure TTntListControlDeleteSelection.Assign(Source: TPersistent);
1267begin
1268  inherited;
1269  TntExtActn_AfterInherited_Assign(Self, Source);
1270end;
1271
1272procedure TTntListControlDeleteSelection.DefineProperties(Filer: TFiler);
1273begin
1274  inherited;
1275  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1276end;
1277
1278function TTntListControlDeleteSelection.GetCaption: WideString;
1279begin
1280  Result := TntAction_GetCaption(Self);
1281end;
1282
1283procedure TTntListControlDeleteSelection.SetCaption(const Value: WideString);
1284begin
1285  TntAction_SetCaption(Self, Value);
1286end;
1287
1288function TTntListControlDeleteSelection.GetHint: WideString;
1289begin
1290  Result := TntAction_GetHint(Self);
1291end;
1292
1293procedure TTntListControlDeleteSelection.SetHint(const Value: WideString);
1294begin
1295  TntAction_SetHint(Self, Value);
1296end;
1297
1298{ TTntListControlSelectAll }
1299
1300procedure TTntListControlSelectAll.Assign(Source: TPersistent);
1301begin
1302  inherited;
1303  TntExtActn_AfterInherited_Assign(Self, Source);
1304end;
1305
1306procedure TTntListControlSelectAll.DefineProperties(Filer: TFiler);
1307begin
1308  inherited;
1309  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1310end;
1311
1312function TTntListControlSelectAll.GetCaption: WideString;
1313begin
1314  Result := TntAction_GetCaption(Self);
1315end;
1316
1317procedure TTntListControlSelectAll.SetCaption(const Value: WideString);
1318begin
1319  TntAction_SetCaption(Self, Value);
1320end;
1321
1322function TTntListControlSelectAll.GetHint: WideString;
1323begin
1324  Result := TntAction_GetHint(Self);
1325end;
1326
1327procedure TTntListControlSelectAll.SetHint(const Value: WideString);
1328begin
1329  TntAction_SetHint(Self, Value);
1330end;
1331
1332{ TTntListControlClearSelection }
1333
1334procedure TTntListControlClearSelection.Assign(Source: TPersistent);
1335begin
1336  inherited;
1337  TntExtActn_AfterInherited_Assign(Self, Source);
1338end;
1339
1340procedure TTntListControlClearSelection.DefineProperties(Filer: TFiler);
1341begin
1342  inherited;
1343  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1344end;
1345
1346function TTntListControlClearSelection.GetCaption: WideString;
1347begin
1348  Result := TntAction_GetCaption(Self);
1349end;
1350
1351procedure TTntListControlClearSelection.SetCaption(const Value: WideString);
1352begin
1353  TntAction_SetCaption(Self, Value);
1354end;
1355
1356function TTntListControlClearSelection.GetHint: WideString;
1357begin
1358  Result := TntAction_GetHint(Self);
1359end;
1360
1361procedure TTntListControlClearSelection.SetHint(const Value: WideString);
1362begin
1363  TntAction_SetHint(Self, Value);
1364end;
1365
1366{ TTntListControlMoveSelection }
1367
1368procedure TTntListControlMoveSelection.Assign(Source: TPersistent);
1369begin
1370  inherited;
1371  TntExtActn_AfterInherited_Assign(Self, Source);
1372end;
1373
1374procedure TTntListControlMoveSelection.DefineProperties(Filer: TFiler);
1375begin
1376  inherited;
1377  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1378end;
1379
1380function TTntListControlMoveSelection.GetCaption: WideString;
1381begin
1382  Result := TntAction_GetCaption(Self);
1383end;
1384
1385procedure TTntListControlMoveSelection.SetCaption(const Value: WideString);
1386begin
1387  TntAction_SetCaption(Self, Value);
1388end;
1389
1390function TTntListControlMoveSelection.GetHint: WideString;
1391begin
1392  Result := TntAction_GetHint(Self);
1393end;
1394
1395procedure TTntListControlMoveSelection.SetHint(const Value: WideString);
1396begin
1397  TntAction_SetHint(Self, Value);
1398end;
1399
1400end.
Note: See TracBrowser for help on using the repository browser.