Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

TntExtActns.pas@ 861

Last change on this file since 861 was 672, checked in by Kevin Toppenberg, 15 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
12	unit TntExtActns;
13
14	{$INCLUDE TntCompilers.inc}
15
16	interface
17
18	uses
19	Classes, TntActnList, ExtActns;
20
21	type
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
438	implementation
439
440	uses
441	ActnList, TntStdActns, TntClasses;
442
443	{TNT-IGNORE-UNIT}
444
445	procedure TntExtActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
446	begin
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;
510	end;
511
512	//-------------------------
513	// TNT EXT ACTNS
514	//-------------------------
515
516	{ TTntCustomFileRun }
517
518	procedure TTntCustomFileRun.Assign(Source: TPersistent);
519	begin
520	inherited;
521	TntExtActn_AfterInherited_Assign(Self, Source);
522	end;
523
524	procedure TTntCustomFileRun.DefineProperties(Filer: TFiler);
525	begin
526	inherited;
527	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
528	end;
529
530	function TTntCustomFileRun.GetCaption: WideString;
531	begin
532	Result := TntAction_GetCaption(Self);
533	end;
534
535	procedure TTntCustomFileRun.SetCaption(const Value: WideString);
536	begin
537	TntAction_SetCaption(Self, Value);
538	end;
539
540	function TTntCustomFileRun.GetHint: WideString;
541	begin
542	Result := TntAction_GetHint(Self);
543	end;
544
545	procedure TTntCustomFileRun.SetHint(const Value: WideString);
546	begin
547	TntAction_SetHint(Self, Value);
548	end;
549
550	{ TTntFileRun }
551
552	procedure TTntFileRun.Assign(Source: TPersistent);
553	begin
554	inherited;
555	TntExtActn_AfterInherited_Assign(Self, Source);
556	end;
557
558	procedure TTntFileRun.DefineProperties(Filer: TFiler);
559	begin
560	inherited;
561	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
562	end;
563
564	function TTntFileRun.GetCaption: WideString;
565	begin
566	Result := TntAction_GetCaption(Self);
567	end;
568
569	procedure TTntFileRun.SetCaption(const Value: WideString);
570	begin
571	TntAction_SetCaption(Self, Value);
572	end;
573
574	function TTntFileRun.GetHint: WideString;
575	begin
576	Result := TntAction_GetHint(Self);
577	end;
578
579	procedure TTntFileRun.SetHint(const Value: WideString);
580	begin
581	TntAction_SetHint(Self, Value);
582	end;
583
584	{ TTntRichEditAction }
585
586	procedure TTntRichEditAction.Assign(Source: TPersistent);
587	begin
588	inherited;
589	TntExtActn_AfterInherited_Assign(Self, Source);
590	end;
591
592	procedure TTntRichEditAction.DefineProperties(Filer: TFiler);
593	begin
594	inherited;
595	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
596	end;
597
598	function TTntRichEditAction.GetCaption: WideString;
599	begin
600	Result := TntAction_GetCaption(Self);
601	end;
602
603	procedure TTntRichEditAction.SetCaption(const Value: WideString);
604	begin
605	TntAction_SetCaption(Self, Value);
606	end;
607
608	function TTntRichEditAction.GetHint: WideString;
609	begin
610	Result := TntAction_GetHint(Self);
611	end;
612
613	procedure TTntRichEditAction.SetHint(const Value: WideString);
614	begin
615	TntAction_SetHint(Self, Value);
616	end;
617
618	{ TTntRichEditBold }
619
620	procedure TTntRichEditBold.Assign(Source: TPersistent);
621	begin
622	inherited;
623	TntExtActn_AfterInherited_Assign(Self, Source);
624	end;
625
626	procedure TTntRichEditBold.DefineProperties(Filer: TFiler);
627	begin
628	inherited;
629	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
630	end;
631
632	function TTntRichEditBold.GetCaption: WideString;
633	begin
634	Result := TntAction_GetCaption(Self);
635	end;
636
637	procedure TTntRichEditBold.SetCaption(const Value: WideString);
638	begin
639	TntAction_SetCaption(Self, Value);
640	end;
641
642	function TTntRichEditBold.GetHint: WideString;
643	begin
644	Result := TntAction_GetHint(Self);
645	end;
646
647	procedure TTntRichEditBold.SetHint(const Value: WideString);
648	begin
649	TntAction_SetHint(Self, Value);
650	end;
651
652	{ TTntRichEditItalic }
653
654	procedure TTntRichEditItalic.Assign(Source: TPersistent);
655	begin
656	inherited;
657	TntExtActn_AfterInherited_Assign(Self, Source);
658	end;
659
660	procedure TTntRichEditItalic.DefineProperties(Filer: TFiler);
661	begin
662	inherited;
663	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
664	end;
665
666	function TTntRichEditItalic.GetCaption: WideString;
667	begin
668	Result := TntAction_GetCaption(Self);
669	end;
670
671	procedure TTntRichEditItalic.SetCaption(const Value: WideString);
672	begin
673	TntAction_SetCaption(Self, Value);
674	end;
675
676	function TTntRichEditItalic.GetHint: WideString;
677	begin
678	Result := TntAction_GetHint(Self);
679	end;
680
681	procedure TTntRichEditItalic.SetHint(const Value: WideString);
682	begin
683	TntAction_SetHint(Self, Value);
684	end;
685
686	{ TTntRichEditUnderline }
687
688	procedure TTntRichEditUnderline.Assign(Source: TPersistent);
689	begin
690	inherited;
691	TntExtActn_AfterInherited_Assign(Self, Source);
692	end;
693
694	procedure TTntRichEditUnderline.DefineProperties(Filer: TFiler);
695	begin
696	inherited;
697	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
698	end;
699
700	function TTntRichEditUnderline.GetCaption: WideString;
701	begin
702	Result := TntAction_GetCaption(Self);
703	end;
704
705	procedure TTntRichEditUnderline.SetCaption(const Value: WideString);
706	begin
707	TntAction_SetCaption(Self, Value);
708	end;
709
710	function TTntRichEditUnderline.GetHint: WideString;
711	begin
712	Result := TntAction_GetHint(Self);
713	end;
714
715	procedure TTntRichEditUnderline.SetHint(const Value: WideString);
716	begin
717	TntAction_SetHint(Self, Value);
718	end;
719
720	{ TTntRichEditStrikeOut }
721
722	procedure TTntRichEditStrikeOut.Assign(Source: TPersistent);
723	begin
724	inherited;
725	TntExtActn_AfterInherited_Assign(Self, Source);
726	end;
727
728	procedure TTntRichEditStrikeOut.DefineProperties(Filer: TFiler);
729	begin
730	inherited;
731	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
732	end;
733
734	function TTntRichEditStrikeOut.GetCaption: WideString;
735	begin
736	Result := TntAction_GetCaption(Self);
737	end;
738
739	procedure TTntRichEditStrikeOut.SetCaption(const Value: WideString);
740	begin
741	TntAction_SetCaption(Self, Value);
742	end;
743
744	function TTntRichEditStrikeOut.GetHint: WideString;
745	begin
746	Result := TntAction_GetHint(Self);
747	end;
748
749	procedure TTntRichEditStrikeOut.SetHint(const Value: WideString);
750	begin
751	TntAction_SetHint(Self, Value);
752	end;
753
754	{ TTntRichEditBullets }
755
756	procedure TTntRichEditBullets.Assign(Source: TPersistent);
757	begin
758	inherited;
759	TntExtActn_AfterInherited_Assign(Self, Source);
760	end;
761
762	procedure TTntRichEditBullets.DefineProperties(Filer: TFiler);
763	begin
764	inherited;
765	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
766	end;
767
768	function TTntRichEditBullets.GetCaption: WideString;
769	begin
770	Result := TntAction_GetCaption(Self);
771	end;
772
773	procedure TTntRichEditBullets.SetCaption(const Value: WideString);
774	begin
775	TntAction_SetCaption(Self, Value);
776	end;
777
778	function TTntRichEditBullets.GetHint: WideString;
779	begin
780	Result := TntAction_GetHint(Self);
781	end;
782
783	procedure TTntRichEditBullets.SetHint(const Value: WideString);
784	begin
785	TntAction_SetHint(Self, Value);
786	end;
787
788	{ TTntRichEditAlignLeft }
789
790	procedure TTntRichEditAlignLeft.Assign(Source: TPersistent);
791	begin
792	inherited;
793	TntExtActn_AfterInherited_Assign(Self, Source);
794	end;
795
796	procedure TTntRichEditAlignLeft.DefineProperties(Filer: TFiler);
797	begin
798	inherited;
799	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
800	end;
801
802	function TTntRichEditAlignLeft.GetCaption: WideString;
803	begin
804	Result := TntAction_GetCaption(Self);
805	end;
806
807	procedure TTntRichEditAlignLeft.SetCaption(const Value: WideString);
808	begin
809	TntAction_SetCaption(Self, Value);
810	end;
811
812	function TTntRichEditAlignLeft.GetHint: WideString;
813	begin
814	Result := TntAction_GetHint(Self);
815	end;
816
817	procedure TTntRichEditAlignLeft.SetHint(const Value: WideString);
818	begin
819	TntAction_SetHint(Self, Value);
820	end;
821
822	{ TTntRichEditAlignRight }
823
824	procedure TTntRichEditAlignRight.Assign(Source: TPersistent);
825	begin
826	inherited;
827	TntExtActn_AfterInherited_Assign(Self, Source);
828	end;
829
830	procedure TTntRichEditAlignRight.DefineProperties(Filer: TFiler);
831	begin
832	inherited;
833	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
834	end;
835
836	function TTntRichEditAlignRight.GetCaption: WideString;
837	begin
838	Result := TntAction_GetCaption(Self);
839	end;
840
841	procedure TTntRichEditAlignRight.SetCaption(const Value: WideString);
842	begin
843	TntAction_SetCaption(Self, Value);
844	end;
845
846	function TTntRichEditAlignRight.GetHint: WideString;
847	begin
848	Result := TntAction_GetHint(Self);
849	end;
850
851	procedure TTntRichEditAlignRight.SetHint(const Value: WideString);
852	begin
853	TntAction_SetHint(Self, Value);
854	end;
855
856	{ TTntRichEditAlignCenter }
857
858	procedure TTntRichEditAlignCenter.Assign(Source: TPersistent);
859	begin
860	inherited;
861	TntExtActn_AfterInherited_Assign(Self, Source);
862	end;
863
864	procedure TTntRichEditAlignCenter.DefineProperties(Filer: TFiler);
865	begin
866	inherited;
867	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
868	end;
869
870	function TTntRichEditAlignCenter.GetCaption: WideString;
871	begin
872	Result := TntAction_GetCaption(Self);
873	end;
874
875	procedure TTntRichEditAlignCenter.SetCaption(const Value: WideString);
876	begin
877	TntAction_SetCaption(Self, Value);
878	end;
879
880	function TTntRichEditAlignCenter.GetHint: WideString;
881	begin
882	Result := TntAction_GetHint(Self);
883	end;
884
885	procedure TTntRichEditAlignCenter.SetHint(const Value: WideString);
886	begin
887	TntAction_SetHint(Self, Value);
888	end;
889
890	{ TTntTabAction }
891
892	procedure TTntTabAction.Assign(Source: TPersistent);
893	begin
894	inherited;
895	TntExtActn_AfterInherited_Assign(Self, Source);
896	end;
897
898	procedure TTntTabAction.DefineProperties(Filer: TFiler);
899	begin
900	inherited;
901	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
902	end;
903
904	function TTntTabAction.GetCaption: WideString;
905	begin
906	Result := TntAction_GetCaption(Self);
907	end;
908
909	procedure TTntTabAction.SetCaption(const Value: WideString);
910	begin
911	TntAction_SetCaption(Self, Value);
912	end;
913
914	function TTntTabAction.GetHint: WideString;
915	begin
916	Result := TntAction_GetHint(Self);
917	end;
918
919	procedure TTntTabAction.SetHint(const Value: WideString);
920	begin
921	TntAction_SetHint(Self, Value);
922	end;
923
924	{ TTntPreviousTab }
925
926	procedure TTntPreviousTab.Assign(Source: TPersistent);
927	begin
928	inherited;
929	TntExtActn_AfterInherited_Assign(Self, Source);
930	end;
931
932	procedure TTntPreviousTab.DefineProperties(Filer: TFiler);
933	begin
934	inherited;
935	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
936	end;
937
938	function TTntPreviousTab.GetCaption: WideString;
939	begin
940	Result := TntAction_GetCaption(Self);
941	end;
942
943	procedure TTntPreviousTab.SetCaption(const Value: WideString);
944	begin
945	TntAction_SetCaption(Self, Value);
946	end;
947
948	function TTntPreviousTab.GetHint: WideString;
949	begin
950	Result := TntAction_GetHint(Self);
951	end;
952
953	procedure TTntPreviousTab.SetHint(const Value: WideString);
954	begin
955	TntAction_SetHint(Self, Value);
956	end;
957
958	{ TTntNextTab }
959
960	procedure TTntNextTab.Assign(Source: TPersistent);
961	begin
962	inherited;
963	TntExtActn_AfterInherited_Assign(Self, Source);
964	end;
965
966	procedure TTntNextTab.DefineProperties(Filer: TFiler);
967	begin
968	inherited;
969	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
970	end;
971
972	function TTntNextTab.GetCaption: WideString;
973	begin
974	Result := TntAction_GetCaption(Self);
975	end;
976
977	procedure TTntNextTab.SetCaption(const Value: WideString);
978	begin
979	TntAction_SetCaption(Self, Value);
980	end;
981
982	function TTntNextTab.GetHint: WideString;
983	begin
984	Result := TntAction_GetHint(Self);
985	end;
986
987	procedure TTntNextTab.SetHint(const Value: WideString);
988	begin
989	TntAction_SetHint(Self, Value);
990	end;
991
992	{ TTntOpenPicture }
993
994	procedure TTntOpenPicture.Assign(Source: TPersistent);
995	begin
996	inherited;
997	TntExtActn_AfterInherited_Assign(Self, Source);
998	end;
999
1000	procedure TTntOpenPicture.DefineProperties(Filer: TFiler);
1001	begin
1002	inherited;
1003	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1004	end;
1005
1006	function TTntOpenPicture.GetCaption: WideString;
1007	begin
1008	Result := TntAction_GetCaption(Self);
1009	end;
1010
1011	procedure TTntOpenPicture.SetCaption(const Value: WideString);
1012	begin
1013	TntAction_SetCaption(Self, Value);
1014	end;
1015
1016	function TTntOpenPicture.GetHint: WideString;
1017	begin
1018	Result := TntAction_GetHint(Self);
1019	end;
1020
1021	procedure TTntOpenPicture.SetHint(const Value: WideString);
1022	begin
1023	TntAction_SetHint(Self, Value);
1024	end;
1025
1026	{ TTntSavePicture }
1027
1028	procedure TTntSavePicture.Assign(Source: TPersistent);
1029	begin
1030	inherited;
1031	TntExtActn_AfterInherited_Assign(Self, Source);
1032	end;
1033
1034	procedure TTntSavePicture.DefineProperties(Filer: TFiler);
1035	begin
1036	inherited;
1037	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1038	end;
1039
1040	function TTntSavePicture.GetCaption: WideString;
1041	begin
1042	Result := TntAction_GetCaption(Self);
1043	end;
1044
1045	procedure TTntSavePicture.SetCaption(const Value: WideString);
1046	begin
1047	TntAction_SetCaption(Self, Value);
1048	end;
1049
1050	function TTntSavePicture.GetHint: WideString;
1051	begin
1052	Result := TntAction_GetHint(Self);
1053	end;
1054
1055	procedure TTntSavePicture.SetHint(const Value: WideString);
1056	begin
1057	TntAction_SetHint(Self, Value);
1058	end;
1059
1060	{ TTntURLAction }
1061
1062	procedure TTntURLAction.Assign(Source: TPersistent);
1063	begin
1064	inherited;
1065	TntExtActn_AfterInherited_Assign(Self, Source);
1066	end;
1067
1068	procedure TTntURLAction.DefineProperties(Filer: TFiler);
1069	begin
1070	inherited;
1071	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1072	end;
1073
1074	function TTntURLAction.GetCaption: WideString;
1075	begin
1076	Result := TntAction_GetCaption(Self);
1077	end;
1078
1079	procedure TTntURLAction.SetCaption(const Value: WideString);
1080	begin
1081	TntAction_SetCaption(Self, Value);
1082	end;
1083
1084	function TTntURLAction.GetHint: WideString;
1085	begin
1086	Result := TntAction_GetHint(Self);
1087	end;
1088
1089	procedure TTntURLAction.SetHint(const Value: WideString);
1090	begin
1091	TntAction_SetHint(Self, Value);
1092	end;
1093
1094	{ TTntBrowseURL }
1095
1096	procedure TTntBrowseURL.Assign(Source: TPersistent);
1097	begin
1098	inherited;
1099	TntExtActn_AfterInherited_Assign(Self, Source);
1100	end;
1101
1102	procedure TTntBrowseURL.DefineProperties(Filer: TFiler);
1103	begin
1104	inherited;
1105	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1106	end;
1107
1108	function TTntBrowseURL.GetCaption: WideString;
1109	begin
1110	Result := TntAction_GetCaption(Self);
1111	end;
1112
1113	procedure TTntBrowseURL.SetCaption(const Value: WideString);
1114	begin
1115	TntAction_SetCaption(Self, Value);
1116	end;
1117
1118	function TTntBrowseURL.GetHint: WideString;
1119	begin
1120	Result := TntAction_GetHint(Self);
1121	end;
1122
1123	procedure TTntBrowseURL.SetHint(const Value: WideString);
1124	begin
1125	TntAction_SetHint(Self, Value);
1126	end;
1127
1128	{ TTntDownLoadURL }
1129
1130	procedure TTntDownLoadURL.Assign(Source: TPersistent);
1131	begin
1132	inherited;
1133	TntExtActn_AfterInherited_Assign(Self, Source);
1134	end;
1135
1136	procedure TTntDownLoadURL.DefineProperties(Filer: TFiler);
1137	begin
1138	inherited;
1139	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1140	end;
1141
1142	function TTntDownLoadURL.GetCaption: WideString;
1143	begin
1144	Result := TntAction_GetCaption(Self);
1145	end;
1146
1147	procedure TTntDownLoadURL.SetCaption(const Value: WideString);
1148	begin
1149	TntAction_SetCaption(Self, Value);
1150	end;
1151
1152	function TTntDownLoadURL.GetHint: WideString;
1153	begin
1154	Result := TntAction_GetHint(Self);
1155	end;
1156
1157	procedure TTntDownLoadURL.SetHint(const Value: WideString);
1158	begin
1159	TntAction_SetHint(Self, Value);
1160	end;
1161
1162	{ TTntSendMail }
1163
1164	procedure TTntSendMail.Assign(Source: TPersistent);
1165	begin
1166	inherited;
1167	TntExtActn_AfterInherited_Assign(Self, Source);
1168	end;
1169
1170	procedure TTntSendMail.DefineProperties(Filer: TFiler);
1171	begin
1172	inherited;
1173	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1174	end;
1175
1176	function TTntSendMail.GetCaption: WideString;
1177	begin
1178	Result := TntAction_GetCaption(Self);
1179	end;
1180
1181	procedure TTntSendMail.SetCaption(const Value: WideString);
1182	begin
1183	TntAction_SetCaption(Self, Value);
1184	end;
1185
1186	function TTntSendMail.GetHint: WideString;
1187	begin
1188	Result := TntAction_GetHint(Self);
1189	end;
1190
1191	procedure TTntSendMail.SetHint(const Value: WideString);
1192	begin
1193	TntAction_SetHint(Self, Value);
1194	end;
1195
1196	{ TTntListControlAction }
1197
1198	procedure TTntListControlAction.Assign(Source: TPersistent);
1199	begin
1200	inherited;
1201	TntExtActn_AfterInherited_Assign(Self, Source);
1202	end;
1203
1204	procedure TTntListControlAction.DefineProperties(Filer: TFiler);
1205	begin
1206	inherited;
1207	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1208	end;
1209
1210	function TTntListControlAction.GetCaption: WideString;
1211	begin
1212	Result := TntAction_GetCaption(Self);
1213	end;
1214
1215	procedure TTntListControlAction.SetCaption(const Value: WideString);
1216	begin
1217	TntAction_SetCaption(Self, Value);
1218	end;
1219
1220	function TTntListControlAction.GetHint: WideString;
1221	begin
1222	Result := TntAction_GetHint(Self);
1223	end;
1224
1225	procedure TTntListControlAction.SetHint(const Value: WideString);
1226	begin
1227	TntAction_SetHint(Self, Value);
1228	end;
1229
1230	{ TTntListControlCopySelection }
1231
1232	procedure TTntListControlCopySelection.Assign(Source: TPersistent);
1233	begin
1234	inherited;
1235	TntExtActn_AfterInherited_Assign(Self, Source);
1236	end;
1237
1238	procedure TTntListControlCopySelection.DefineProperties(Filer: TFiler);
1239	begin
1240	inherited;
1241	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1242	end;
1243
1244	function TTntListControlCopySelection.GetCaption: WideString;
1245	begin
1246	Result := TntAction_GetCaption(Self);
1247	end;
1248
1249	procedure TTntListControlCopySelection.SetCaption(const Value: WideString);
1250	begin
1251	TntAction_SetCaption(Self, Value);
1252	end;
1253
1254	function TTntListControlCopySelection.GetHint: WideString;
1255	begin
1256	Result := TntAction_GetHint(Self);
1257	end;
1258
1259	procedure TTntListControlCopySelection.SetHint(const Value: WideString);
1260	begin
1261	TntAction_SetHint(Self, Value);
1262	end;
1263
1264	{ TTntListControlDeleteSelection }
1265
1266	procedure TTntListControlDeleteSelection.Assign(Source: TPersistent);
1267	begin
1268	inherited;
1269	TntExtActn_AfterInherited_Assign(Self, Source);
1270	end;
1271
1272	procedure TTntListControlDeleteSelection.DefineProperties(Filer: TFiler);
1273	begin
1274	inherited;
1275	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1276	end;
1277
1278	function TTntListControlDeleteSelection.GetCaption: WideString;
1279	begin
1280	Result := TntAction_GetCaption(Self);
1281	end;
1282
1283	procedure TTntListControlDeleteSelection.SetCaption(const Value: WideString);
1284	begin
1285	TntAction_SetCaption(Self, Value);
1286	end;
1287
1288	function TTntListControlDeleteSelection.GetHint: WideString;
1289	begin
1290	Result := TntAction_GetHint(Self);
1291	end;
1292
1293	procedure TTntListControlDeleteSelection.SetHint(const Value: WideString);
1294	begin
1295	TntAction_SetHint(Self, Value);
1296	end;
1297
1298	{ TTntListControlSelectAll }
1299
1300	procedure TTntListControlSelectAll.Assign(Source: TPersistent);
1301	begin
1302	inherited;
1303	TntExtActn_AfterInherited_Assign(Self, Source);
1304	end;
1305
1306	procedure TTntListControlSelectAll.DefineProperties(Filer: TFiler);
1307	begin
1308	inherited;
1309	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1310	end;
1311
1312	function TTntListControlSelectAll.GetCaption: WideString;
1313	begin
1314	Result := TntAction_GetCaption(Self);
1315	end;
1316
1317	procedure TTntListControlSelectAll.SetCaption(const Value: WideString);
1318	begin
1319	TntAction_SetCaption(Self, Value);
1320	end;
1321
1322	function TTntListControlSelectAll.GetHint: WideString;
1323	begin
1324	Result := TntAction_GetHint(Self);
1325	end;
1326
1327	procedure TTntListControlSelectAll.SetHint(const Value: WideString);
1328	begin
1329	TntAction_SetHint(Self, Value);
1330	end;
1331
1332	{ TTntListControlClearSelection }
1333
1334	procedure TTntListControlClearSelection.Assign(Source: TPersistent);
1335	begin
1336	inherited;
1337	TntExtActn_AfterInherited_Assign(Self, Source);
1338	end;
1339
1340	procedure TTntListControlClearSelection.DefineProperties(Filer: TFiler);
1341	begin
1342	inherited;
1343	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1344	end;
1345
1346	function TTntListControlClearSelection.GetCaption: WideString;
1347	begin
1348	Result := TntAction_GetCaption(Self);
1349	end;
1350
1351	procedure TTntListControlClearSelection.SetCaption(const Value: WideString);
1352	begin
1353	TntAction_SetCaption(Self, Value);
1354	end;
1355
1356	function TTntListControlClearSelection.GetHint: WideString;
1357	begin
1358	Result := TntAction_GetHint(Self);
1359	end;
1360
1361	procedure TTntListControlClearSelection.SetHint(const Value: WideString);
1362	begin
1363	TntAction_SetHint(Self, Value);
1364	end;
1365
1366	{ TTntListControlMoveSelection }
1367
1368	procedure TTntListControlMoveSelection.Assign(Source: TPersistent);
1369	begin
1370	inherited;
1371	TntExtActn_AfterInherited_Assign(Self, Source);
1372	end;
1373
1374	procedure TTntListControlMoveSelection.DefineProperties(Filer: TFiler);
1375	begin
1376	inherited;
1377	TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1378	end;
1379
1380	function TTntListControlMoveSelection.GetCaption: WideString;
1381	begin
1382	Result := TntAction_GetCaption(Self);
1383	end;
1384
1385	procedure TTntListControlMoveSelection.SetCaption(const Value: WideString);
1386	begin
1387	TntAction_SetCaption(Self, Value);
1388	end;
1389
1390	function TTntListControlMoveSelection.GetHint: WideString;
1391	begin
1392	Result := TntAction_GetHint(Self);
1393	end;
1394
1395	procedure TTntListControlMoveSelection.SetHint(const Value: WideString);
1396	begin
1397	TntAction_SetHint(Self, Value);
1398	end;
1399
1400	end.

Note: See TracBrowser for help on using the repository browser.

Context Navigation

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

Download in other formats: