source: cprs/branches/tmg-cprs/TntWare/Delphi Unicode Controls/Source/TntExtActns.pas@ 1806

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

Initial upload of TMG-CPRS 1.0.26.69

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.