source: cprs/branches/tmg-cprs/TMG_Extra/tntUniCode/Source/TntStdActns.pas@ 1286

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

Adding source to tntControls for compilation

File size: 50.5 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 TntStdActns;
13
14{$INCLUDE TntCompilers.inc}
15
16interface
17
18uses
19 Classes, ActnList, TntActnList, StdActns, TntDialogs;
20
21type
22{TNT-WARN THintAction}
23 TTntHintAction = class(THintAction{TNT-ALLOW THintAction}, 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 published
36 property Hint: WideString read GetHint write SetHint;
37 end;
38
39{TNT-WARN TEditAction}
40 TTntEditAction = class(TEditAction{TNT-ALLOW TEditAction}, ITntAction)
41 private
42 function GetCaption: WideString;
43 procedure SetCaption(const Value: WideString);
44 function GetHint: WideString;
45 procedure SetHint(const Value: WideString);
46 protected
47 procedure DefineProperties(Filer: TFiler); override;
48 public
49 procedure Assign(Source: TPersistent); override;
50 published
51 property Caption: WideString read GetCaption write SetCaption;
52 property Hint: WideString read GetHint write SetHint;
53 end;
54
55{TNT-WARN TEditCut}
56 TTntEditCut = class(TEditCut{TNT-ALLOW TEditCut}, ITntAction)
57 private
58 function GetCaption: WideString;
59 procedure SetCaption(const Value: WideString);
60 function GetHint: WideString;
61 procedure SetHint(const Value: WideString);
62 protected
63 procedure DefineProperties(Filer: TFiler); override;
64 public
65 procedure Assign(Source: TPersistent); override;
66 published
67 property Caption: WideString read GetCaption write SetCaption;
68 property Hint: WideString read GetHint write SetHint;
69 end;
70
71{TNT-WARN TEditCopy}
72 TTntEditCopy = class(TEditCopy{TNT-ALLOW TEditCopy}, ITntAction)
73 private
74 function GetCaption: WideString;
75 procedure SetCaption(const Value: WideString);
76 function GetHint: WideString;
77 procedure SetHint(const Value: WideString);
78 protected
79 procedure DefineProperties(Filer: TFiler); override;
80 public
81 procedure Assign(Source: TPersistent); override;
82 published
83 property Caption: WideString read GetCaption write SetCaption;
84 property Hint: WideString read GetHint write SetHint;
85 end;
86
87{TNT-WARN TEditPaste}
88 TTntEditPaste = class(TEditPaste{TNT-ALLOW TEditPaste}, ITntAction)
89 private
90 function GetCaption: WideString;
91 procedure SetCaption(const Value: WideString);
92 function GetHint: WideString;
93 procedure SetHint(const Value: WideString);
94 protected
95 procedure DefineProperties(Filer: TFiler); override;
96 public
97 procedure Assign(Source: TPersistent); override;
98 published
99 property Caption: WideString read GetCaption write SetCaption;
100 property Hint: WideString read GetHint write SetHint;
101 end;
102
103{TNT-WARN TEditSelectAll}
104 TTntEditSelectAll = class(TEditSelectAll{TNT-ALLOW TEditSelectAll}, ITntAction)
105 private
106 function GetCaption: WideString;
107 procedure SetCaption(const Value: WideString);
108 function GetHint: WideString;
109 procedure SetHint(const Value: WideString);
110 protected
111 procedure DefineProperties(Filer: TFiler); override;
112 public
113 procedure Assign(Source: TPersistent); override;
114 published
115 property Caption: WideString read GetCaption write SetCaption;
116 property Hint: WideString read GetHint write SetHint;
117 end;
118
119{TNT-WARN TEditUndo}
120 TTntEditUndo = class(TEditUndo{TNT-ALLOW TEditUndo}, ITntAction)
121 private
122 function GetCaption: WideString;
123 procedure SetCaption(const Value: WideString);
124 function GetHint: WideString;
125 procedure SetHint(const Value: WideString);
126 protected
127 procedure DefineProperties(Filer: TFiler); override;
128 public
129 procedure Assign(Source: TPersistent); override;
130 published
131 property Caption: WideString read GetCaption write SetCaption;
132 property Hint: WideString read GetHint write SetHint;
133 end;
134
135{TNT-WARN TEditDelete}
136 TTntEditDelete = class(TEditDelete{TNT-ALLOW TEditDelete}, ITntAction)
137 private
138 function GetCaption: WideString;
139 procedure SetCaption(const Value: WideString);
140 function GetHint: WideString;
141 procedure SetHint(const Value: WideString);
142 protected
143 procedure DefineProperties(Filer: TFiler); override;
144 public
145 procedure Assign(Source: TPersistent); override;
146 procedure UpdateTarget(Target: TObject); override;
147 procedure ExecuteTarget(Target: TObject); override;
148 published
149 property Caption: WideString read GetCaption write SetCaption;
150 property Hint: WideString read GetHint write SetHint;
151 end;
152
153{TNT-WARN TWindowAction}
154 TTntWindowAction = class(TWindowAction{TNT-ALLOW TWindowAction}, ITntAction)
155 private
156 function GetCaption: WideString;
157 procedure SetCaption(const Value: WideString);
158 function GetHint: WideString;
159 procedure SetHint(const Value: WideString);
160 protected
161 procedure DefineProperties(Filer: TFiler); override;
162 public
163 procedure Assign(Source: TPersistent); override;
164 published
165 property Caption: WideString read GetCaption write SetCaption;
166 property Hint: WideString read GetHint write SetHint;
167 end;
168
169{TNT-WARN TWindowClose}
170 TTntWindowClose = class(TWindowClose{TNT-ALLOW TWindowClose}, ITntAction)
171 private
172 function GetCaption: WideString;
173 procedure SetCaption(const Value: WideString);
174 function GetHint: WideString;
175 procedure SetHint(const Value: WideString);
176 protected
177 procedure DefineProperties(Filer: TFiler); override;
178 public
179 procedure Assign(Source: TPersistent); override;
180 published
181 property Caption: WideString read GetCaption write SetCaption;
182 property Hint: WideString read GetHint write SetHint;
183 end;
184
185{TNT-WARN TWindowCascade}
186 TTntWindowCascade = class(TWindowCascade{TNT-ALLOW TWindowCascade}, ITntAction)
187 private
188 function GetCaption: WideString;
189 procedure SetCaption(const Value: WideString);
190 function GetHint: WideString;
191 procedure SetHint(const Value: WideString);
192 protected
193 procedure DefineProperties(Filer: TFiler); override;
194 public
195 procedure Assign(Source: TPersistent); override;
196 published
197 property Caption: WideString read GetCaption write SetCaption;
198 property Hint: WideString read GetHint write SetHint;
199 end;
200
201{TNT-WARN TWindowTileHorizontal}
202 TTntWindowTileHorizontal = class(TWindowTileHorizontal{TNT-ALLOW TWindowTileHorizontal}, ITntAction)
203 private
204 function GetCaption: WideString;
205 procedure SetCaption(const Value: WideString);
206 function GetHint: WideString;
207 procedure SetHint(const Value: WideString);
208 protected
209 procedure DefineProperties(Filer: TFiler); override;
210 public
211 procedure Assign(Source: TPersistent); override;
212 published
213 property Caption: WideString read GetCaption write SetCaption;
214 property Hint: WideString read GetHint write SetHint;
215 end;
216
217{TNT-WARN TWindowTileVertical}
218 TTntWindowTileVertical = class(TWindowTileVertical{TNT-ALLOW TWindowTileVertical}, ITntAction)
219 private
220 function GetCaption: WideString;
221 procedure SetCaption(const Value: WideString);
222 function GetHint: WideString;
223 procedure SetHint(const Value: WideString);
224 protected
225 procedure DefineProperties(Filer: TFiler); override;
226 public
227 procedure Assign(Source: TPersistent); override;
228 published
229 property Caption: WideString read GetCaption write SetCaption;
230 property Hint: WideString read GetHint write SetHint;
231 end;
232
233{TNT-WARN TWindowMinimizeAll}
234 TTntWindowMinimizeAll = class(TWindowMinimizeAll{TNT-ALLOW TWindowMinimizeAll}, ITntAction)
235 private
236 function GetCaption: WideString;
237 procedure SetCaption(const Value: WideString);
238 function GetHint: WideString;
239 procedure SetHint(const Value: WideString);
240 protected
241 procedure DefineProperties(Filer: TFiler); override;
242 public
243 procedure Assign(Source: TPersistent); override;
244 published
245 property Caption: WideString read GetCaption write SetCaption;
246 property Hint: WideString read GetHint write SetHint;
247 end;
248
249{TNT-WARN TWindowArrange}
250 TTntWindowArrange = class(TWindowArrange{TNT-ALLOW TWindowArrange}, ITntAction)
251 private
252 function GetCaption: WideString;
253 procedure SetCaption(const Value: WideString);
254 function GetHint: WideString;
255 procedure SetHint(const Value: WideString);
256 protected
257 procedure DefineProperties(Filer: TFiler); override;
258 public
259 procedure Assign(Source: TPersistent); override;
260 published
261 property Caption: WideString read GetCaption write SetCaption;
262 property Hint: WideString read GetHint write SetHint;
263 end;
264
265{TNT-WARN THelpAction}
266 TTntHelpAction = class(THelpAction{TNT-ALLOW THelpAction}, ITntAction)
267 private
268 function GetCaption: WideString;
269 procedure SetCaption(const Value: WideString);
270 function GetHint: WideString;
271 procedure SetHint(const Value: WideString);
272 protected
273 procedure DefineProperties(Filer: TFiler); override;
274 public
275 procedure Assign(Source: TPersistent); override;
276 published
277 property Caption: WideString read GetCaption write SetCaption;
278 property Hint: WideString read GetHint write SetHint;
279 end;
280
281{TNT-WARN THelpContents}
282 TTntHelpContents = class(THelpContents{TNT-ALLOW THelpContents}, ITntAction)
283 private
284 function GetCaption: WideString;
285 procedure SetCaption(const Value: WideString);
286 function GetHint: WideString;
287 procedure SetHint(const Value: WideString);
288 protected
289 procedure DefineProperties(Filer: TFiler); override;
290 public
291 procedure Assign(Source: TPersistent); override;
292 published
293 property Caption: WideString read GetCaption write SetCaption;
294 property Hint: WideString read GetHint write SetHint;
295 end;
296
297{TNT-WARN THelpTopicSearch}
298 TTntHelpTopicSearch = class(THelpTopicSearch{TNT-ALLOW THelpTopicSearch}, ITntAction)
299 private
300 function GetCaption: WideString;
301 procedure SetCaption(const Value: WideString);
302 function GetHint: WideString;
303 procedure SetHint(const Value: WideString);
304 protected
305 procedure DefineProperties(Filer: TFiler); override;
306 public
307 procedure Assign(Source: TPersistent); override;
308 published
309 property Caption: WideString read GetCaption write SetCaption;
310 property Hint: WideString read GetHint write SetHint;
311 end;
312
313{TNT-WARN THelpOnHelp}
314 TTntHelpOnHelp = class(THelpOnHelp{TNT-ALLOW THelpOnHelp}, ITntAction)
315 private
316 function GetCaption: WideString;
317 procedure SetCaption(const Value: WideString);
318 function GetHint: WideString;
319 procedure SetHint(const Value: WideString);
320 protected
321 procedure DefineProperties(Filer: TFiler); override;
322 public
323 procedure Assign(Source: TPersistent); override;
324 published
325 property Caption: WideString read GetCaption write SetCaption;
326 property Hint: WideString read GetHint write SetHint;
327 end;
328
329{TNT-WARN THelpContextAction}
330 TTntHelpContextAction = class(THelpContextAction{TNT-ALLOW THelpContextAction}, ITntAction)
331 private
332 function GetCaption: WideString;
333 procedure SetCaption(const Value: WideString);
334 function GetHint: WideString;
335 procedure SetHint(const Value: WideString);
336 protected
337 procedure DefineProperties(Filer: TFiler); override;
338 public
339 procedure Assign(Source: TPersistent); override;
340 published
341 property Caption: WideString read GetCaption write SetCaption;
342 property Hint: WideString read GetHint write SetHint;
343 end;
344
345{TNT-WARN TCommonDialogAction}
346 TTntCommonDialogAction = class(TCommonDialogAction{TNT-ALLOW TCommonDialogAction}, ITntAction)
347 private
348 function GetCaption: WideString;
349 procedure SetCaption(const Value: WideString);
350 function GetHint: WideString;
351 procedure SetHint(const Value: WideString);
352 protected
353 procedure DefineProperties(Filer: TFiler); override;
354 public
355 procedure Assign(Source: TPersistent); override;
356 public
357 property Caption: WideString read GetCaption write SetCaption;
358 property Hint: WideString read GetHint write SetHint;
359 end;
360
361{TNT-WARN TFileAction}
362 TTntFileAction = class(TFileAction{TNT-ALLOW TFileAction}, ITntAction)
363 private
364 function GetCaption: WideString;
365 procedure SetCaption(const Value: WideString);
366 function GetHint: WideString;
367 procedure SetHint(const Value: WideString);
368 protected
369 procedure DefineProperties(Filer: TFiler); override;
370 public
371 procedure Assign(Source: TPersistent); override;
372 public
373 property Caption: WideString read GetCaption write SetCaption;
374 property Hint: WideString read GetHint write SetHint;
375 end;
376
377{TNT-WARN TFileOpen}
378 TTntFileOpen = class(TFileOpen{TNT-ALLOW TFileOpen}, ITntAction)
379 private
380 function GetCaption: WideString;
381 procedure SetCaption(const Value: WideString);
382 function GetHint: WideString;
383 procedure SetHint(const Value: WideString);
384 function GetDialog: TTntOpenDialog;
385 protected
386 procedure DefineProperties(Filer: TFiler); override;
387 function GetDialogClass: TCommonDialogClass; override;
388 public
389 procedure Assign(Source: TPersistent); override;
390 published
391 property Caption: WideString read GetCaption write SetCaption;
392 property Dialog: TTntOpenDialog read GetDialog;
393 property Hint: WideString read GetHint write SetHint;
394 end;
395
396{TNT-WARN TFileOpenWith}
397 TTntFileOpenWith = class(TFileOpenWith{TNT-ALLOW TFileOpenWith}, ITntAction)
398 private
399 function GetCaption: WideString;
400 procedure SetCaption(const Value: WideString);
401 function GetHint: WideString;
402 procedure SetHint(const Value: WideString);
403 function GetDialog: TTntOpenDialog;
404 protected
405 procedure DefineProperties(Filer: TFiler); override;
406 function GetDialogClass: TCommonDialogClass; override;
407 public
408 procedure Assign(Source: TPersistent); override;
409 published
410 property Caption: WideString read GetCaption write SetCaption;
411 property Dialog: TTntOpenDialog read GetDialog;
412 property Hint: WideString read GetHint write SetHint;
413 end;
414
415{TNT-WARN TFileSaveAs}
416 TTntFileSaveAs = class(TFileSaveAs{TNT-ALLOW TFileSaveAs}, ITntAction)
417 private
418 function GetCaption: WideString;
419 procedure SetCaption(const Value: WideString);
420 function GetHint: WideString;
421 procedure SetHint(const Value: WideString);
422 function GetDialog: TTntSaveDialog;
423 protected
424 procedure DefineProperties(Filer: TFiler); override;
425 function GetDialogClass: TCommonDialogClass; override;
426 public
427 procedure Assign(Source: TPersistent); override;
428 published
429 property Caption: WideString read GetCaption write SetCaption;
430 property Dialog: TTntSaveDialog read GetDialog;
431 property Hint: WideString read GetHint write SetHint;
432 end;
433
434{TNT-WARN TFilePrintSetup}
435 TTntFilePrintSetup = class(TFilePrintSetup{TNT-ALLOW TFilePrintSetup}, ITntAction)
436 private
437 function GetCaption: WideString;
438 procedure SetCaption(const Value: WideString);
439 function GetHint: WideString;
440 procedure SetHint(const Value: WideString);
441 protected
442 procedure DefineProperties(Filer: TFiler); override;
443 public
444 procedure Assign(Source: TPersistent); override;
445 published
446 property Caption: WideString read GetCaption write SetCaption;
447 property Hint: WideString read GetHint write SetHint;
448 end;
449
450 {$IFDEF COMPILER_7_UP}
451{TNT-WARN TFilePageSetup}
452 TTntFilePageSetup = class(TFilePageSetup{TNT-ALLOW TFilePageSetup}, ITntAction)
453 private
454 function GetCaption: WideString;
455 procedure SetCaption(const Value: WideString);
456 function GetHint: WideString;
457 procedure SetHint(const Value: WideString);
458 protected
459 procedure DefineProperties(Filer: TFiler); override;
460 public
461 procedure Assign(Source: TPersistent); override;
462 published
463 property Caption: WideString read GetCaption write SetCaption;
464 property Hint: WideString read GetHint write SetHint;
465 end;
466 {$ENDIF}
467
468{TNT-WARN TFileExit}
469 TTntFileExit = class(TFileExit{TNT-ALLOW TFileExit}, ITntAction)
470 private
471 function GetCaption: WideString;
472 procedure SetCaption(const Value: WideString);
473 function GetHint: WideString;
474 procedure SetHint(const Value: WideString);
475 protected
476 procedure DefineProperties(Filer: TFiler); override;
477 public
478 procedure Assign(Source: TPersistent); override;
479 published
480 property Caption: WideString read GetCaption write SetCaption;
481 property Hint: WideString read GetHint write SetHint;
482 end;
483
484{TNT-WARN TSearchAction}
485 TTntSearchAction = class(TSearchAction{TNT-ALLOW TSearchAction}, ITntAction)
486 private
487 function GetCaption: WideString;
488 procedure SetCaption(const Value: WideString);
489 function GetHint: WideString;
490 procedure SetHint(const Value: WideString);
491 protected
492 procedure DefineProperties(Filer: TFiler); override;
493 public
494 procedure Assign(Source: TPersistent); override;
495 public
496 property Caption: WideString read GetCaption write SetCaption;
497 property Hint: WideString read GetHint write SetHint;
498 end;
499
500{TNT-WARN TSearchFind}
501 TTntSearchFind = class(TSearchFind{TNT-ALLOW TSearchFind}, ITntAction)
502 private
503 function GetCaption: WideString;
504 procedure SetCaption(const Value: WideString);
505 function GetHint: WideString;
506 procedure SetHint(const Value: WideString);
507 protected
508 procedure DefineProperties(Filer: TFiler); override;
509 public
510 procedure Assign(Source: TPersistent); override;
511 published
512 property Caption: WideString read GetCaption write SetCaption;
513 property Hint: WideString read GetHint write SetHint;
514 end;
515
516{TNT-WARN TSearchReplace}
517 TTntSearchReplace = class(TSearchReplace{TNT-ALLOW TSearchReplace}, ITntAction)
518 private
519 function GetCaption: WideString;
520 procedure SetCaption(const Value: WideString);
521 function GetHint: WideString;
522 procedure SetHint(const Value: WideString);
523 protected
524 procedure DefineProperties(Filer: TFiler); override;
525 public
526 procedure Assign(Source: TPersistent); override;
527 published
528 property Caption: WideString read GetCaption write SetCaption;
529 property Hint: WideString read GetHint write SetHint;
530 end;
531
532{TNT-WARN TSearchFindFirst}
533 TTntSearchFindFirst = class(TSearchFindFirst{TNT-ALLOW TSearchFindFirst}, ITntAction)
534 private
535 function GetCaption: WideString;
536 procedure SetCaption(const Value: WideString);
537 function GetHint: WideString;
538 procedure SetHint(const Value: WideString);
539 protected
540 procedure DefineProperties(Filer: TFiler); override;
541 public
542 procedure Assign(Source: TPersistent); override;
543 published
544 property Caption: WideString read GetCaption write SetCaption;
545 property Hint: WideString read GetHint write SetHint;
546 end;
547
548{TNT-WARN TSearchFindNext}
549 TTntSearchFindNext = class(TSearchFindNext{TNT-ALLOW TSearchFindNext}, ITntAction)
550 private
551 function GetCaption: WideString;
552 procedure SetCaption(const Value: WideString);
553 function GetHint: WideString;
554 procedure SetHint(const Value: WideString);
555 protected
556 procedure DefineProperties(Filer: TFiler); override;
557 public
558 procedure Assign(Source: TPersistent); override;
559 published
560 property Caption: WideString read GetCaption write SetCaption;
561 property Hint: WideString read GetHint write SetHint;
562 end;
563
564{TNT-WARN TFontEdit}
565 TTntFontEdit = class(TFontEdit{TNT-ALLOW TFontEdit}, ITntAction)
566 private
567 function GetCaption: WideString;
568 procedure SetCaption(const Value: WideString);
569 function GetHint: WideString;
570 procedure SetHint(const Value: WideString);
571 protected
572 procedure DefineProperties(Filer: TFiler); override;
573 public
574 procedure Assign(Source: TPersistent); override;
575 published
576 property Caption: WideString read GetCaption write SetCaption;
577 property Hint: WideString read GetHint write SetHint;
578 end;
579
580{TNT-WARN TColorSelect}
581 TTntColorSelect = class(TColorSelect{TNT-ALLOW TColorSelect}, ITntAction)
582 private
583 function GetCaption: WideString;
584 procedure SetCaption(const Value: WideString);
585 function GetHint: WideString;
586 procedure SetHint(const Value: WideString);
587 protected
588 procedure DefineProperties(Filer: TFiler); override;
589 public
590 procedure Assign(Source: TPersistent); override;
591 published
592 property Caption: WideString read GetCaption write SetCaption;
593 property Hint: WideString read GetHint write SetHint;
594 end;
595
596{TNT-WARN TPrintDlg}
597 TTntPrintDlg = class(TPrintDlg{TNT-ALLOW TPrintDlg}, ITntAction)
598 private
599 function GetCaption: WideString;
600 procedure SetCaption(const Value: WideString);
601 function GetHint: WideString;
602 procedure SetHint(const Value: WideString);
603 protected
604 procedure DefineProperties(Filer: TFiler); override;
605 public
606 procedure Assign(Source: TPersistent); override;
607 published
608 property Caption: WideString read GetCaption write SetCaption;
609 property Hint: WideString read GetHint write SetHint;
610 end;
611
612procedure TntStdActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
613
614implementation
615
616uses
617 Dialogs, TntClasses;
618
619{TNT-IGNORE-UNIT}
620
621procedure TntStdActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
622begin
623 TntAction_AfterInherited_Assign(Action, Source);
624 // TCommonDialogAction
625 if (Action is TCommonDialogAction) and (Source is TCommonDialogAction) then begin
626 TCommonDialogAction(Action).BeforeExecute := TCommonDialogAction(Source).BeforeExecute;
627 TCommonDialogAction(Action).OnAccept := TCommonDialogAction(Source).OnAccept;
628 TCommonDialogAction(Action).OnCancel := TCommonDialogAction(Source).OnCancel;
629 end;
630 // TFileOpen
631 if (Action is TFileOpen) and (Source is TFileOpen) then begin
632 {$IFDEF COMPILER_7_UP}
633 TFileOpen(Action).UseDefaultApp := TFileOpen(Source).UseDefaultApp;
634 {$ENDIF}
635 end;
636 // TFileOpenWith
637 if (Action is TFileOpenWith) and (Source is TFileOpenWith) then begin
638 TFileOpenWith(Action).FileName := TFileOpenWith(Source).FileName;
639 {$IFDEF COMPILER_7_UP}
640 TFileOpenWith(Action).AfterOpen := TFileOpenWith(Source).AfterOpen;
641 {$ENDIF}
642 end;
643 // TSearchFindNext
644 if (Action is TSearchFindNext) and (Source is TSearchFindNext) then begin
645 TSearchFindNext(Action).SearchFind := TSearchFindNext(Source).SearchFind;
646 end;
647end;
648
649//-------------------------
650// TNT STD ACTNS
651//-------------------------
652
653{ TTntHintAction }
654
655procedure TTntHintAction.Assign(Source: TPersistent);
656begin
657 inherited;
658 TntStdActn_AfterInherited_Assign(Self, Source);
659end;
660
661procedure TTntHintAction.DefineProperties(Filer: TFiler);
662begin
663 inherited;
664 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
665end;
666
667function TTntHintAction.GetCaption: WideString;
668begin
669 Result := TntAction_GetCaption(Self);
670end;
671
672procedure TTntHintAction.SetCaption(const Value: WideString);
673begin
674 TntAction_SetCaption(Self, Value);
675end;
676
677function TTntHintAction.GetHint: WideString;
678begin
679 Result := TntAction_GetHint(Self);
680end;
681
682procedure TTntHintAction.SetHint(const Value: WideString);
683begin
684 TntAction_SetHint(Self, Value);
685end;
686
687{ TTntEditAction }
688
689procedure TTntEditAction.Assign(Source: TPersistent);
690begin
691 inherited;
692 TntStdActn_AfterInherited_Assign(Self, Source);
693end;
694
695procedure TTntEditAction.DefineProperties(Filer: TFiler);
696begin
697 inherited;
698 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
699end;
700
701function TTntEditAction.GetCaption: WideString;
702begin
703 Result := TntAction_GetCaption(Self);
704end;
705
706procedure TTntEditAction.SetCaption(const Value: WideString);
707begin
708 TntAction_SetCaption(Self, Value);
709end;
710
711function TTntEditAction.GetHint: WideString;
712begin
713 Result := TntAction_GetHint(Self);
714end;
715
716procedure TTntEditAction.SetHint(const Value: WideString);
717begin
718 TntAction_SetHint(Self, Value);
719end;
720
721{ TTntEditCut }
722
723procedure TTntEditCut.Assign(Source: TPersistent);
724begin
725 inherited;
726 TntStdActn_AfterInherited_Assign(Self, Source);
727end;
728
729procedure TTntEditCut.DefineProperties(Filer: TFiler);
730begin
731 inherited;
732 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
733end;
734
735function TTntEditCut.GetCaption: WideString;
736begin
737 Result := TntAction_GetCaption(Self);
738end;
739
740procedure TTntEditCut.SetCaption(const Value: WideString);
741begin
742 TntAction_SetCaption(Self, Value);
743end;
744
745function TTntEditCut.GetHint: WideString;
746begin
747 Result := TntAction_GetHint(Self);
748end;
749
750procedure TTntEditCut.SetHint(const Value: WideString);
751begin
752 TntAction_SetHint(Self, Value);
753end;
754
755{ TTntEditCopy }
756
757procedure TTntEditCopy.Assign(Source: TPersistent);
758begin
759 inherited;
760 TntStdActn_AfterInherited_Assign(Self, Source);
761end;
762
763procedure TTntEditCopy.DefineProperties(Filer: TFiler);
764begin
765 inherited;
766 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
767end;
768
769function TTntEditCopy.GetCaption: WideString;
770begin
771 Result := TntAction_GetCaption(Self);
772end;
773
774procedure TTntEditCopy.SetCaption(const Value: WideString);
775begin
776 TntAction_SetCaption(Self, Value);
777end;
778
779function TTntEditCopy.GetHint: WideString;
780begin
781 Result := TntAction_GetHint(Self);
782end;
783
784procedure TTntEditCopy.SetHint(const Value: WideString);
785begin
786 TntAction_SetHint(Self, Value);
787end;
788
789{ TTntEditPaste }
790
791procedure TTntEditPaste.Assign(Source: TPersistent);
792begin
793 inherited;
794 TntStdActn_AfterInherited_Assign(Self, Source);
795end;
796
797procedure TTntEditPaste.DefineProperties(Filer: TFiler);
798begin
799 inherited;
800 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
801end;
802
803function TTntEditPaste.GetCaption: WideString;
804begin
805 Result := TntAction_GetCaption(Self);
806end;
807
808procedure TTntEditPaste.SetCaption(const Value: WideString);
809begin
810 TntAction_SetCaption(Self, Value);
811end;
812
813function TTntEditPaste.GetHint: WideString;
814begin
815 Result := TntAction_GetHint(Self);
816end;
817
818procedure TTntEditPaste.SetHint(const Value: WideString);
819begin
820 TntAction_SetHint(Self, Value);
821end;
822
823{ TTntEditSelectAll }
824
825procedure TTntEditSelectAll.Assign(Source: TPersistent);
826begin
827 inherited;
828 TntStdActn_AfterInherited_Assign(Self, Source);
829end;
830
831procedure TTntEditSelectAll.DefineProperties(Filer: TFiler);
832begin
833 inherited;
834 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
835end;
836
837function TTntEditSelectAll.GetCaption: WideString;
838begin
839 Result := TntAction_GetCaption(Self);
840end;
841
842procedure TTntEditSelectAll.SetCaption(const Value: WideString);
843begin
844 TntAction_SetCaption(Self, Value);
845end;
846
847function TTntEditSelectAll.GetHint: WideString;
848begin
849 Result := TntAction_GetHint(Self);
850end;
851
852procedure TTntEditSelectAll.SetHint(const Value: WideString);
853begin
854 TntAction_SetHint(Self, Value);
855end;
856
857{ TTntEditUndo }
858
859procedure TTntEditUndo.Assign(Source: TPersistent);
860begin
861 inherited;
862 TntStdActn_AfterInherited_Assign(Self, Source);
863end;
864
865procedure TTntEditUndo.DefineProperties(Filer: TFiler);
866begin
867 inherited;
868 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
869end;
870
871function TTntEditUndo.GetCaption: WideString;
872begin
873 Result := TntAction_GetCaption(Self);
874end;
875
876procedure TTntEditUndo.SetCaption(const Value: WideString);
877begin
878 TntAction_SetCaption(Self, Value);
879end;
880
881function TTntEditUndo.GetHint: WideString;
882begin
883 Result := TntAction_GetHint(Self);
884end;
885
886procedure TTntEditUndo.SetHint(const Value: WideString);
887begin
888 TntAction_SetHint(Self, Value);
889end;
890
891{ TTntEditDelete }
892
893procedure TTntEditDelete.Assign(Source: TPersistent);
894begin
895 inherited;
896 TntStdActn_AfterInherited_Assign(Self, Source);
897end;
898
899procedure TTntEditDelete.DefineProperties(Filer: TFiler);
900begin
901 inherited;
902 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
903end;
904
905function TTntEditDelete.GetCaption: WideString;
906begin
907 Result := TntAction_GetCaption(Self);
908end;
909
910procedure TTntEditDelete.SetCaption(const Value: WideString);
911begin
912 TntAction_SetCaption(Self, Value);
913end;
914
915function TTntEditDelete.GetHint: WideString;
916begin
917 Result := TntAction_GetHint(Self);
918end;
919
920procedure TTntEditDelete.SetHint(const Value: WideString);
921begin
922 TntAction_SetHint(Self, Value);
923end;
924
925procedure TTntEditDelete.UpdateTarget(Target: TObject);
926begin
927 Enabled := True;
928end;
929
930procedure TTntEditDelete.ExecuteTarget(Target: TObject);
931begin
932 if GetControl(Target).SelLength = 0 then
933 GetControl(Target).SelLength := 1;
934 GetControl(Target).ClearSelection
935end;
936
937{ TTntWindowAction }
938
939procedure TTntWindowAction.Assign(Source: TPersistent);
940begin
941 inherited;
942 TntStdActn_AfterInherited_Assign(Self, Source);
943end;
944
945procedure TTntWindowAction.DefineProperties(Filer: TFiler);
946begin
947 inherited;
948 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
949end;
950
951function TTntWindowAction.GetCaption: WideString;
952begin
953 Result := TntAction_GetCaption(Self);
954end;
955
956procedure TTntWindowAction.SetCaption(const Value: WideString);
957begin
958 TntAction_SetCaption(Self, Value);
959end;
960
961function TTntWindowAction.GetHint: WideString;
962begin
963 Result := TntAction_GetHint(Self);
964end;
965
966procedure TTntWindowAction.SetHint(const Value: WideString);
967begin
968 TntAction_SetHint(Self, Value);
969end;
970
971{ TTntWindowClose }
972
973procedure TTntWindowClose.Assign(Source: TPersistent);
974begin
975 inherited;
976 TntStdActn_AfterInherited_Assign(Self, Source);
977end;
978
979procedure TTntWindowClose.DefineProperties(Filer: TFiler);
980begin
981 inherited;
982 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
983end;
984
985function TTntWindowClose.GetCaption: WideString;
986begin
987 Result := TntAction_GetCaption(Self);
988end;
989
990procedure TTntWindowClose.SetCaption(const Value: WideString);
991begin
992 TntAction_SetCaption(Self, Value);
993end;
994
995function TTntWindowClose.GetHint: WideString;
996begin
997 Result := TntAction_GetHint(Self);
998end;
999
1000procedure TTntWindowClose.SetHint(const Value: WideString);
1001begin
1002 TntAction_SetHint(Self, Value);
1003end;
1004
1005{ TTntWindowCascade }
1006
1007procedure TTntWindowCascade.Assign(Source: TPersistent);
1008begin
1009 inherited;
1010 TntStdActn_AfterInherited_Assign(Self, Source);
1011end;
1012
1013procedure TTntWindowCascade.DefineProperties(Filer: TFiler);
1014begin
1015 inherited;
1016 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1017end;
1018
1019function TTntWindowCascade.GetCaption: WideString;
1020begin
1021 Result := TntAction_GetCaption(Self);
1022end;
1023
1024procedure TTntWindowCascade.SetCaption(const Value: WideString);
1025begin
1026 TntAction_SetCaption(Self, Value);
1027end;
1028
1029function TTntWindowCascade.GetHint: WideString;
1030begin
1031 Result := TntAction_GetHint(Self);
1032end;
1033
1034procedure TTntWindowCascade.SetHint(const Value: WideString);
1035begin
1036 TntAction_SetHint(Self, Value);
1037end;
1038
1039{ TTntWindowTileHorizontal }
1040
1041procedure TTntWindowTileHorizontal.Assign(Source: TPersistent);
1042begin
1043 inherited;
1044 TntStdActn_AfterInherited_Assign(Self, Source);
1045end;
1046
1047procedure TTntWindowTileHorizontal.DefineProperties(Filer: TFiler);
1048begin
1049 inherited;
1050 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1051end;
1052
1053function TTntWindowTileHorizontal.GetCaption: WideString;
1054begin
1055 Result := TntAction_GetCaption(Self);
1056end;
1057
1058procedure TTntWindowTileHorizontal.SetCaption(const Value: WideString);
1059begin
1060 TntAction_SetCaption(Self, Value);
1061end;
1062
1063function TTntWindowTileHorizontal.GetHint: WideString;
1064begin
1065 Result := TntAction_GetHint(Self);
1066end;
1067
1068procedure TTntWindowTileHorizontal.SetHint(const Value: WideString);
1069begin
1070 TntAction_SetHint(Self, Value);
1071end;
1072
1073{ TTntWindowTileVertical }
1074
1075procedure TTntWindowTileVertical.Assign(Source: TPersistent);
1076begin
1077 inherited;
1078 TntStdActn_AfterInherited_Assign(Self, Source);
1079end;
1080
1081procedure TTntWindowTileVertical.DefineProperties(Filer: TFiler);
1082begin
1083 inherited;
1084 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1085end;
1086
1087function TTntWindowTileVertical.GetCaption: WideString;
1088begin
1089 Result := TntAction_GetCaption(Self);
1090end;
1091
1092procedure TTntWindowTileVertical.SetCaption(const Value: WideString);
1093begin
1094 TntAction_SetCaption(Self, Value);
1095end;
1096
1097function TTntWindowTileVertical.GetHint: WideString;
1098begin
1099 Result := TntAction_GetHint(Self);
1100end;
1101
1102procedure TTntWindowTileVertical.SetHint(const Value: WideString);
1103begin
1104 TntAction_SetHint(Self, Value);
1105end;
1106
1107{ TTntWindowMinimizeAll }
1108
1109procedure TTntWindowMinimizeAll.Assign(Source: TPersistent);
1110begin
1111 inherited;
1112 TntStdActn_AfterInherited_Assign(Self, Source);
1113end;
1114
1115procedure TTntWindowMinimizeAll.DefineProperties(Filer: TFiler);
1116begin
1117 inherited;
1118 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1119end;
1120
1121function TTntWindowMinimizeAll.GetCaption: WideString;
1122begin
1123 Result := TntAction_GetCaption(Self);
1124end;
1125
1126procedure TTntWindowMinimizeAll.SetCaption(const Value: WideString);
1127begin
1128 TntAction_SetCaption(Self, Value);
1129end;
1130
1131function TTntWindowMinimizeAll.GetHint: WideString;
1132begin
1133 Result := TntAction_GetHint(Self);
1134end;
1135
1136procedure TTntWindowMinimizeAll.SetHint(const Value: WideString);
1137begin
1138 TntAction_SetHint(Self, Value);
1139end;
1140
1141{ TTntWindowArrange }
1142
1143procedure TTntWindowArrange.Assign(Source: TPersistent);
1144begin
1145 inherited;
1146 TntStdActn_AfterInherited_Assign(Self, Source);
1147end;
1148
1149procedure TTntWindowArrange.DefineProperties(Filer: TFiler);
1150begin
1151 inherited;
1152 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1153end;
1154
1155function TTntWindowArrange.GetCaption: WideString;
1156begin
1157 Result := TntAction_GetCaption(Self);
1158end;
1159
1160procedure TTntWindowArrange.SetCaption(const Value: WideString);
1161begin
1162 TntAction_SetCaption(Self, Value);
1163end;
1164
1165function TTntWindowArrange.GetHint: WideString;
1166begin
1167 Result := TntAction_GetHint(Self);
1168end;
1169
1170procedure TTntWindowArrange.SetHint(const Value: WideString);
1171begin
1172 TntAction_SetHint(Self, Value);
1173end;
1174
1175{ TTntHelpAction }
1176
1177procedure TTntHelpAction.Assign(Source: TPersistent);
1178begin
1179 inherited;
1180 TntStdActn_AfterInherited_Assign(Self, Source);
1181end;
1182
1183procedure TTntHelpAction.DefineProperties(Filer: TFiler);
1184begin
1185 inherited;
1186 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1187end;
1188
1189function TTntHelpAction.GetCaption: WideString;
1190begin
1191 Result := TntAction_GetCaption(Self);
1192end;
1193
1194procedure TTntHelpAction.SetCaption(const Value: WideString);
1195begin
1196 TntAction_SetCaption(Self, Value);
1197end;
1198
1199function TTntHelpAction.GetHint: WideString;
1200begin
1201 Result := TntAction_GetHint(Self);
1202end;
1203
1204procedure TTntHelpAction.SetHint(const Value: WideString);
1205begin
1206 TntAction_SetHint(Self, Value);
1207end;
1208
1209{ TTntHelpContents }
1210
1211procedure TTntHelpContents.Assign(Source: TPersistent);
1212begin
1213 inherited;
1214 TntStdActn_AfterInherited_Assign(Self, Source);
1215end;
1216
1217procedure TTntHelpContents.DefineProperties(Filer: TFiler);
1218begin
1219 inherited;
1220 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1221end;
1222
1223function TTntHelpContents.GetCaption: WideString;
1224begin
1225 Result := TntAction_GetCaption(Self);
1226end;
1227
1228procedure TTntHelpContents.SetCaption(const Value: WideString);
1229begin
1230 TntAction_SetCaption(Self, Value);
1231end;
1232
1233function TTntHelpContents.GetHint: WideString;
1234begin
1235 Result := TntAction_GetHint(Self);
1236end;
1237
1238procedure TTntHelpContents.SetHint(const Value: WideString);
1239begin
1240 TntAction_SetHint(Self, Value);
1241end;
1242
1243{ TTntHelpTopicSearch }
1244
1245procedure TTntHelpTopicSearch.Assign(Source: TPersistent);
1246begin
1247 inherited;
1248 TntStdActn_AfterInherited_Assign(Self, Source);
1249end;
1250
1251procedure TTntHelpTopicSearch.DefineProperties(Filer: TFiler);
1252begin
1253 inherited;
1254 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1255end;
1256
1257function TTntHelpTopicSearch.GetCaption: WideString;
1258begin
1259 Result := TntAction_GetCaption(Self);
1260end;
1261
1262procedure TTntHelpTopicSearch.SetCaption(const Value: WideString);
1263begin
1264 TntAction_SetCaption(Self, Value);
1265end;
1266
1267function TTntHelpTopicSearch.GetHint: WideString;
1268begin
1269 Result := TntAction_GetHint(Self);
1270end;
1271
1272procedure TTntHelpTopicSearch.SetHint(const Value: WideString);
1273begin
1274 TntAction_SetHint(Self, Value);
1275end;
1276
1277{ TTntHelpOnHelp }
1278
1279procedure TTntHelpOnHelp.Assign(Source: TPersistent);
1280begin
1281 inherited;
1282 TntStdActn_AfterInherited_Assign(Self, Source);
1283end;
1284
1285procedure TTntHelpOnHelp.DefineProperties(Filer: TFiler);
1286begin
1287 inherited;
1288 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1289end;
1290
1291function TTntHelpOnHelp.GetCaption: WideString;
1292begin
1293 Result := TntAction_GetCaption(Self);
1294end;
1295
1296procedure TTntHelpOnHelp.SetCaption(const Value: WideString);
1297begin
1298 TntAction_SetCaption(Self, Value);
1299end;
1300
1301function TTntHelpOnHelp.GetHint: WideString;
1302begin
1303 Result := TntAction_GetHint(Self);
1304end;
1305
1306procedure TTntHelpOnHelp.SetHint(const Value: WideString);
1307begin
1308 TntAction_SetHint(Self, Value);
1309end;
1310
1311{ TTntHelpContextAction }
1312
1313procedure TTntHelpContextAction.Assign(Source: TPersistent);
1314begin
1315 inherited;
1316 TntStdActn_AfterInherited_Assign(Self, Source);
1317end;
1318
1319procedure TTntHelpContextAction.DefineProperties(Filer: TFiler);
1320begin
1321 inherited;
1322 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1323end;
1324
1325function TTntHelpContextAction.GetCaption: WideString;
1326begin
1327 Result := TntAction_GetCaption(Self);
1328end;
1329
1330procedure TTntHelpContextAction.SetCaption(const Value: WideString);
1331begin
1332 TntAction_SetCaption(Self, Value);
1333end;
1334
1335function TTntHelpContextAction.GetHint: WideString;
1336begin
1337 Result := TntAction_GetHint(Self);
1338end;
1339
1340procedure TTntHelpContextAction.SetHint(const Value: WideString);
1341begin
1342 TntAction_SetHint(Self, Value);
1343end;
1344
1345{ TTntCommonDialogAction }
1346
1347procedure TTntCommonDialogAction.Assign(Source: TPersistent);
1348begin
1349 inherited;
1350 TntStdActn_AfterInherited_Assign(Self, Source);
1351end;
1352
1353procedure TTntCommonDialogAction.DefineProperties(Filer: TFiler);
1354begin
1355 inherited;
1356 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1357end;
1358
1359function TTntCommonDialogAction.GetCaption: WideString;
1360begin
1361 Result := TntAction_GetCaption(Self);
1362end;
1363
1364procedure TTntCommonDialogAction.SetCaption(const Value: WideString);
1365begin
1366 TntAction_SetCaption(Self, Value);
1367end;
1368
1369function TTntCommonDialogAction.GetHint: WideString;
1370begin
1371 Result := TntAction_GetHint(Self);
1372end;
1373
1374procedure TTntCommonDialogAction.SetHint(const Value: WideString);
1375begin
1376 TntAction_SetHint(Self, Value);
1377end;
1378
1379{ TTntFileAction }
1380
1381procedure TTntFileAction.Assign(Source: TPersistent);
1382begin
1383 inherited;
1384 TntStdActn_AfterInherited_Assign(Self, Source);
1385end;
1386
1387procedure TTntFileAction.DefineProperties(Filer: TFiler);
1388begin
1389 inherited;
1390 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1391end;
1392
1393function TTntFileAction.GetCaption: WideString;
1394begin
1395 Result := TntAction_GetCaption(Self);
1396end;
1397
1398procedure TTntFileAction.SetCaption(const Value: WideString);
1399begin
1400 TntAction_SetCaption(Self, Value);
1401end;
1402
1403function TTntFileAction.GetHint: WideString;
1404begin
1405 Result := TntAction_GetHint(Self);
1406end;
1407
1408procedure TTntFileAction.SetHint(const Value: WideString);
1409begin
1410 TntAction_SetHint(Self, Value);
1411end;
1412
1413{ TTntFileOpen }
1414
1415procedure TTntFileOpen.Assign(Source: TPersistent);
1416begin
1417 inherited;
1418 TntStdActn_AfterInherited_Assign(Self, Source);
1419end;
1420
1421procedure TTntFileOpen.DefineProperties(Filer: TFiler);
1422begin
1423 inherited;
1424 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1425end;
1426
1427function TTntFileOpen.GetCaption: WideString;
1428begin
1429 Result := TntAction_GetCaption(Self);
1430end;
1431
1432procedure TTntFileOpen.SetCaption(const Value: WideString);
1433begin
1434 TntAction_SetCaption(Self, Value);
1435end;
1436
1437function TTntFileOpen.GetHint: WideString;
1438begin
1439 Result := TntAction_GetHint(Self);
1440end;
1441
1442procedure TTntFileOpen.SetHint(const Value: WideString);
1443begin
1444 TntAction_SetHint(Self, Value);
1445end;
1446
1447function TTntFileOpen.GetDialog: TTntOpenDialog;
1448begin
1449 Result := inherited Dialog as TTntOpenDialog;
1450end;
1451
1452function TTntFileOpen.GetDialogClass: TCommonDialogClass;
1453begin
1454 Result := TTntOpenDialog;
1455end;
1456
1457{ TTntFileOpenWith }
1458
1459procedure TTntFileOpenWith.Assign(Source: TPersistent);
1460begin
1461 inherited;
1462 TntStdActn_AfterInherited_Assign(Self, Source);
1463end;
1464
1465procedure TTntFileOpenWith.DefineProperties(Filer: TFiler);
1466begin
1467 inherited;
1468 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1469end;
1470
1471function TTntFileOpenWith.GetCaption: WideString;
1472begin
1473 Result := TntAction_GetCaption(Self);
1474end;
1475
1476procedure TTntFileOpenWith.SetCaption(const Value: WideString);
1477begin
1478 TntAction_SetCaption(Self, Value);
1479end;
1480
1481function TTntFileOpenWith.GetHint: WideString;
1482begin
1483 Result := TntAction_GetHint(Self);
1484end;
1485
1486procedure TTntFileOpenWith.SetHint(const Value: WideString);
1487begin
1488 TntAction_SetHint(Self, Value);
1489end;
1490
1491function TTntFileOpenWith.GetDialog: TTntOpenDialog;
1492begin
1493 Result := inherited Dialog as TTntOpenDialog;
1494end;
1495
1496function TTntFileOpenWith.GetDialogClass: TCommonDialogClass;
1497begin
1498 Result := TTntOpenDialog;
1499end;
1500
1501{ TTntFileSaveAs }
1502
1503procedure TTntFileSaveAs.Assign(Source: TPersistent);
1504begin
1505 inherited;
1506 TntStdActn_AfterInherited_Assign(Self, Source);
1507end;
1508
1509procedure TTntFileSaveAs.DefineProperties(Filer: TFiler);
1510begin
1511 inherited;
1512 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1513end;
1514
1515function TTntFileSaveAs.GetCaption: WideString;
1516begin
1517 Result := TntAction_GetCaption(Self);
1518end;
1519
1520procedure TTntFileSaveAs.SetCaption(const Value: WideString);
1521begin
1522 TntAction_SetCaption(Self, Value);
1523end;
1524
1525function TTntFileSaveAs.GetHint: WideString;
1526begin
1527 Result := TntAction_GetHint(Self);
1528end;
1529
1530procedure TTntFileSaveAs.SetHint(const Value: WideString);
1531begin
1532 TntAction_SetHint(Self, Value);
1533end;
1534
1535function TTntFileSaveAs.GetDialog: TTntSaveDialog;
1536begin
1537 Result := TOpenDialog(inherited Dialog) as TTntSaveDialog;
1538end;
1539
1540function TTntFileSaveAs.GetDialogClass: TCommonDialogClass;
1541begin
1542 Result := TTntSaveDialog;
1543end;
1544
1545{ TTntFilePrintSetup }
1546
1547procedure TTntFilePrintSetup.Assign(Source: TPersistent);
1548begin
1549 inherited;
1550 TntStdActn_AfterInherited_Assign(Self, Source);
1551end;
1552
1553procedure TTntFilePrintSetup.DefineProperties(Filer: TFiler);
1554begin
1555 inherited;
1556 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1557end;
1558
1559function TTntFilePrintSetup.GetCaption: WideString;
1560begin
1561 Result := TntAction_GetCaption(Self);
1562end;
1563
1564procedure TTntFilePrintSetup.SetCaption(const Value: WideString);
1565begin
1566 TntAction_SetCaption(Self, Value);
1567end;
1568
1569function TTntFilePrintSetup.GetHint: WideString;
1570begin
1571 Result := TntAction_GetHint(Self);
1572end;
1573
1574procedure TTntFilePrintSetup.SetHint(const Value: WideString);
1575begin
1576 TntAction_SetHint(Self, Value);
1577end;
1578
1579 {$IFDEF COMPILER_7_UP}
1580
1581{ TTntFilePageSetup }
1582
1583procedure TTntFilePageSetup.Assign(Source: TPersistent);
1584begin
1585 inherited;
1586 TntStdActn_AfterInherited_Assign(Self, Source);
1587end;
1588
1589procedure TTntFilePageSetup.DefineProperties(Filer: TFiler);
1590begin
1591 inherited;
1592 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1593end;
1594
1595function TTntFilePageSetup.GetCaption: WideString;
1596begin
1597 Result := TntAction_GetCaption(Self);
1598end;
1599
1600procedure TTntFilePageSetup.SetCaption(const Value: WideString);
1601begin
1602 TntAction_SetCaption(Self, Value);
1603end;
1604
1605function TTntFilePageSetup.GetHint: WideString;
1606begin
1607 Result := TntAction_GetHint(Self);
1608end;
1609
1610procedure TTntFilePageSetup.SetHint(const Value: WideString);
1611begin
1612 TntAction_SetHint(Self, Value);
1613end;
1614 {$ENDIF}
1615
1616{ TTntFileExit }
1617
1618procedure TTntFileExit.Assign(Source: TPersistent);
1619begin
1620 inherited;
1621 TntStdActn_AfterInherited_Assign(Self, Source);
1622end;
1623
1624procedure TTntFileExit.DefineProperties(Filer: TFiler);
1625begin
1626 inherited;
1627 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1628end;
1629
1630function TTntFileExit.GetCaption: WideString;
1631begin
1632 Result := TntAction_GetCaption(Self);
1633end;
1634
1635procedure TTntFileExit.SetCaption(const Value: WideString);
1636begin
1637 TntAction_SetCaption(Self, Value);
1638end;
1639
1640function TTntFileExit.GetHint: WideString;
1641begin
1642 Result := TntAction_GetHint(Self);
1643end;
1644
1645procedure TTntFileExit.SetHint(const Value: WideString);
1646begin
1647 TntAction_SetHint(Self, Value);
1648end;
1649
1650{ TTntSearchAction }
1651
1652procedure TTntSearchAction.Assign(Source: TPersistent);
1653begin
1654 inherited;
1655 TntStdActn_AfterInherited_Assign(Self, Source);
1656end;
1657
1658procedure TTntSearchAction.DefineProperties(Filer: TFiler);
1659begin
1660 inherited;
1661 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1662end;
1663
1664function TTntSearchAction.GetCaption: WideString;
1665begin
1666 Result := TntAction_GetCaption(Self);
1667end;
1668
1669procedure TTntSearchAction.SetCaption(const Value: WideString);
1670begin
1671 TntAction_SetCaption(Self, Value);
1672end;
1673
1674function TTntSearchAction.GetHint: WideString;
1675begin
1676 Result := TntAction_GetHint(Self);
1677end;
1678
1679procedure TTntSearchAction.SetHint(const Value: WideString);
1680begin
1681 TntAction_SetHint(Self, Value);
1682end;
1683
1684{ TTntSearchFind }
1685
1686procedure TTntSearchFind.Assign(Source: TPersistent);
1687begin
1688 inherited;
1689 TntStdActn_AfterInherited_Assign(Self, Source);
1690end;
1691
1692procedure TTntSearchFind.DefineProperties(Filer: TFiler);
1693begin
1694 inherited;
1695 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1696end;
1697
1698function TTntSearchFind.GetCaption: WideString;
1699begin
1700 Result := TntAction_GetCaption(Self);
1701end;
1702
1703procedure TTntSearchFind.SetCaption(const Value: WideString);
1704begin
1705 TntAction_SetCaption(Self, Value);
1706end;
1707
1708function TTntSearchFind.GetHint: WideString;
1709begin
1710 Result := TntAction_GetHint(Self);
1711end;
1712
1713procedure TTntSearchFind.SetHint(const Value: WideString);
1714begin
1715 TntAction_SetHint(Self, Value);
1716end;
1717
1718{ TTntSearchReplace }
1719
1720procedure TTntSearchReplace.Assign(Source: TPersistent);
1721begin
1722 inherited;
1723 TntStdActn_AfterInherited_Assign(Self, Source);
1724end;
1725
1726procedure TTntSearchReplace.DefineProperties(Filer: TFiler);
1727begin
1728 inherited;
1729 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1730end;
1731
1732function TTntSearchReplace.GetCaption: WideString;
1733begin
1734 Result := TntAction_GetCaption(Self);
1735end;
1736
1737procedure TTntSearchReplace.SetCaption(const Value: WideString);
1738begin
1739 TntAction_SetCaption(Self, Value);
1740end;
1741
1742function TTntSearchReplace.GetHint: WideString;
1743begin
1744 Result := TntAction_GetHint(Self);
1745end;
1746
1747procedure TTntSearchReplace.SetHint(const Value: WideString);
1748begin
1749 TntAction_SetHint(Self, Value);
1750end;
1751
1752{ TTntSearchFindFirst }
1753
1754procedure TTntSearchFindFirst.Assign(Source: TPersistent);
1755begin
1756 inherited;
1757 TntStdActn_AfterInherited_Assign(Self, Source);
1758end;
1759
1760procedure TTntSearchFindFirst.DefineProperties(Filer: TFiler);
1761begin
1762 inherited;
1763 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1764end;
1765
1766function TTntSearchFindFirst.GetCaption: WideString;
1767begin
1768 Result := TntAction_GetCaption(Self);
1769end;
1770
1771procedure TTntSearchFindFirst.SetCaption(const Value: WideString);
1772begin
1773 TntAction_SetCaption(Self, Value);
1774end;
1775
1776function TTntSearchFindFirst.GetHint: WideString;
1777begin
1778 Result := TntAction_GetHint(Self);
1779end;
1780
1781procedure TTntSearchFindFirst.SetHint(const Value: WideString);
1782begin
1783 TntAction_SetHint(Self, Value);
1784end;
1785
1786{ TTntSearchFindNext }
1787
1788procedure TTntSearchFindNext.Assign(Source: TPersistent);
1789begin
1790 inherited;
1791 TntStdActn_AfterInherited_Assign(Self, Source);
1792end;
1793
1794procedure TTntSearchFindNext.DefineProperties(Filer: TFiler);
1795begin
1796 inherited;
1797 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1798end;
1799
1800function TTntSearchFindNext.GetCaption: WideString;
1801begin
1802 Result := TntAction_GetCaption(Self);
1803end;
1804
1805procedure TTntSearchFindNext.SetCaption(const Value: WideString);
1806begin
1807 TntAction_SetCaption(Self, Value);
1808end;
1809
1810function TTntSearchFindNext.GetHint: WideString;
1811begin
1812 Result := TntAction_GetHint(Self);
1813end;
1814
1815procedure TTntSearchFindNext.SetHint(const Value: WideString);
1816begin
1817 TntAction_SetHint(Self, Value);
1818end;
1819
1820{ TTntFontEdit }
1821
1822procedure TTntFontEdit.Assign(Source: TPersistent);
1823begin
1824 inherited;
1825 TntStdActn_AfterInherited_Assign(Self, Source);
1826end;
1827
1828procedure TTntFontEdit.DefineProperties(Filer: TFiler);
1829begin
1830 inherited;
1831 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1832end;
1833
1834function TTntFontEdit.GetCaption: WideString;
1835begin
1836 Result := TntAction_GetCaption(Self);
1837end;
1838
1839procedure TTntFontEdit.SetCaption(const Value: WideString);
1840begin
1841 TntAction_SetCaption(Self, Value);
1842end;
1843
1844function TTntFontEdit.GetHint: WideString;
1845begin
1846 Result := TntAction_GetHint(Self);
1847end;
1848
1849procedure TTntFontEdit.SetHint(const Value: WideString);
1850begin
1851 TntAction_SetHint(Self, Value);
1852end;
1853
1854{ TTntColorSelect }
1855
1856procedure TTntColorSelect.Assign(Source: TPersistent);
1857begin
1858 inherited;
1859 TntStdActn_AfterInherited_Assign(Self, Source);
1860end;
1861
1862procedure TTntColorSelect.DefineProperties(Filer: TFiler);
1863begin
1864 inherited;
1865 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1866end;
1867
1868function TTntColorSelect.GetCaption: WideString;
1869begin
1870 Result := TntAction_GetCaption(Self);
1871end;
1872
1873procedure TTntColorSelect.SetCaption(const Value: WideString);
1874begin
1875 TntAction_SetCaption(Self, Value);
1876end;
1877
1878function TTntColorSelect.GetHint: WideString;
1879begin
1880 Result := TntAction_GetHint(Self);
1881end;
1882
1883procedure TTntColorSelect.SetHint(const Value: WideString);
1884begin
1885 TntAction_SetHint(Self, Value);
1886end;
1887
1888{ TTntPrintDlg }
1889
1890procedure TTntPrintDlg.Assign(Source: TPersistent);
1891begin
1892 inherited;
1893 TntStdActn_AfterInherited_Assign(Self, Source);
1894end;
1895
1896procedure TTntPrintDlg.DefineProperties(Filer: TFiler);
1897begin
1898 inherited;
1899 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
1900end;
1901
1902function TTntPrintDlg.GetCaption: WideString;
1903begin
1904 Result := TntAction_GetCaption(Self);
1905end;
1906
1907procedure TTntPrintDlg.SetCaption(const Value: WideString);
1908begin
1909 TntAction_SetCaption(Self, Value);
1910end;
1911
1912function TTntPrintDlg.GetHint: WideString;
1913begin
1914 Result := TntAction_GetHint(Self);
1915end;
1916
1917procedure TTntPrintDlg.SetHint(const Value: WideString);
1918begin
1919 TntAction_SetHint(Self, Value);
1920end;
1921
1922end.
Note: See TracBrowser for help on using the repository browser.