source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.dfm@ 1705

Last change on this file since 1705 was 1699, checked in by healthsevak, 10 years ago

Implemented the OpenSource based spell check feature

File size: 27.1 KB
Line 
1inherited frmTemplateFieldEditor: TfrmTemplateFieldEditor
2 Left = 294
3 Top = 211
4 BorderIcons = [biSystemMenu, biMaximize]
5 Caption = 'Template Field Editor'
6 ClientHeight = 420
7 ClientWidth = 788
8 Position = poScreenCenter
9 OnCloseQuery = FormCloseQuery
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnResize = FormResize
13 ExplicitWidth = 796
14 ExplicitHeight = 454
15 PixelsPerInch = 96
16 TextHeight = 13
17 object splLeft: TSplitter [0]
18 Left = 429
19 Top = 25
20 Height = 366
21 Beveled = True
22 ExplicitLeft = 273
23 end
24 object pnlBottom: TPanel [1]
25 Left = 0
26 Top = 391
27 Width = 788
28 Height = 29
29 Align = alBottom
30 TabOrder = 2
31 DesignSize = (
32 788
33 29)
34 object lblReq: TStaticText
35 Left = 132
36 Top = 8
37 Width = 134
38 Height = 17
39 Caption = '* Indicates a Required Field'
40 TabOrder = 5
41 end
42 object btnOK: TButton
43 Left = 548
44 Top = 4
45 Width = 75
46 Height = 21
47 Anchors = [akTop, akRight, akBottom]
48 Caption = 'OK'
49 ModalResult = 1
50 TabOrder = 2
51 OnClick = btnOKClick
52 end
53 object btnCancel: TButton
54 Left = 628
55 Top = 4
56 Width = 75
57 Height = 21
58 Anchors = [akTop, akRight, akBottom]
59 Cancel = True
60 Caption = 'Cancel'
61 ModalResult = 2
62 TabOrder = 3
63 OnClick = btnCancelClick
64 end
65 object btnApply: TButton
66 Left = 708
67 Top = 4
68 Width = 75
69 Height = 21
70 Anchors = [akTop, akRight, akBottom]
71 Caption = 'Apply'
72 TabOrder = 4
73 OnClick = btnApplyClick
74 end
75 object btnPreview: TButton
76 Left = 435
77 Top = 4
78 Width = 75
79 Height = 21
80 Anchors = [akTop, akRight, akBottom]
81 Caption = 'Preview'
82 Enabled = False
83 TabOrder = 1
84 OnClick = btnPreviewClick
85 end
86 object cbHide: TCheckBox
87 Left = 6
88 Top = 6
89 Width = 115
90 Height = 17
91 Caption = 'Hide Inactive Fields'
92 Checked = True
93 State = cbChecked
94 TabOrder = 0
95 OnClick = cbHideClick
96 end
97 end
98 object pnlObjs: TPanel [2]
99 Left = 0
100 Top = 25
101 Width = 429
102 Height = 366
103 Align = alLeft
104 Caption = 'pnlObjs'
105 TabOrder = 0
106 OnResize = pnlObjsResize
107 object lblObjs: TLabel
108 Left = 1
109 Top = 1
110 Width = 427
111 Height = 13
112 Align = alTop
113 Caption = 'Template Fields'
114 ExplicitWidth = 74
115 end
116 object cbxObjs: TORComboBox
117 Left = 1
118 Top = 14
119 Width = 427
120 Height = 351
121 Style = orcsSimple
122 Align = alClient
123 AutoSelect = True
124 Caption = 'Template Fields'
125 Color = clWindow
126 DropDownCount = 8
127 ItemHeight = 13
128 ItemTipColor = clWindow
129 ItemTipEnable = True
130 ListItemsOnly = True
131 LongList = True
132 LookupPiece = 0
133 MaxLength = 0
134 Pieces = '2,3'
135 HideSynonyms = True
136 Sorted = False
137 SynonymChars = '<Inactive>'
138 TabPositions = '50,60,70,80,90'
139 TabOrder = 0
140 OnChange = cbxObjsChange
141 OnKeyDown = cbxObjsKeyDown
142 OnNeedData = cbxObjsNeedData
143 OnSynonymCheck = cbxObjsSynonymCheck
144 CharsNeedMatch = 1
145 end
146 end
147 object pnlRight: TPanel [3]
148 Left = 432
149 Top = 25
150 Width = 356
151 Height = 366
152 Align = alClient
153 Constraints.MinWidth = 356
154 TabOrder = 1
155 OnResize = FormResize
156 object splBottom: TSplitter
157 Left = 1
158 Top = 278
159 Width = 354
160 Height = 3
161 Cursor = crVSplit
162 Align = alBottom
163 Beveled = True
164 end
165 object pnlPreview: TPanel
166 Left = 1
167 Top = 281
168 Width = 354
169 Height = 84
170 Align = alBottom
171 TabOrder = 1
172 OnResize = FormResize
173 object lblNotes: TLabel
174 Left = 1
175 Top = 1
176 Width = 352
177 Height = 13
178 Align = alTop
179 Caption = 'Notes:'
180 ExplicitWidth = 31
181 end
182 object reNotes: TRichEdit
183 Left = 1
184 Top = 14
185 Width = 352
186 Height = 69
187 Align = alClient
188 Font.Charset = DEFAULT_CHARSET
189 Font.Color = clWindowText
190 Font.Height = -11
191 Font.Name = 'Courier New'
192 Font.Style = []
193 ParentFont = False
194 PopupMenu = popText
195 ScrollBars = ssBoth
196 TabOrder = 0
197 WantTabs = True
198 OnChange = reNotesChange
199 OnEnter = edtpopControlEnter
200 OnKeyUp = reNotesKeyUp
201 OnResizeRequest = reItemsResizeRequest
202 end
203 end
204 object pnlObjInfo: TPanel
205 Left = 1
206 Top = 1
207 Width = 354
208 Height = 277
209 Align = alClient
210 TabOrder = 0
211 OnResize = FormResize
212 DesignSize = (
213 354
214 277)
215 object lblName: TLabel
216 Left = 4
217 Top = 8
218 Width = 31
219 Height = 13
220 Caption = 'Name:'
221 end
222 object lblS2: TLabel
223 Left = 4
224 Top = 75
225 Width = 23
226 Height = 13
227 Caption = 'lblS2'
228 end
229 object lblLM: TLabel
230 Left = 3
231 Top = 194
232 Width = 42
233 Height = 13
234 Hint = 'Text to replace template field when used in List Manager'
235 Anchors = [akLeft, akBottom]
236 Caption = 'LM Text:'
237 ParentShowHint = False
238 ShowHint = True
239 end
240 object lblS1: TLabel
241 Left = 4
242 Top = 53
243 Width = 23
244 Height = 13
245 Caption = 'lblS1'
246 end
247 object lblType: TLabel
248 Left = 4
249 Top = 32
250 Width = 27
251 Height = 13
252 Caption = 'Type:'
253 end
254 object lblTextLen: TLabel
255 Left = 255
256 Top = 31
257 Width = 45
258 Height = 13
259 Anchors = [akTop, akRight]
260 Caption = 'Text Len:'
261 end
262 object lblLength: TLabel
263 Left = 157
264 Top = 31
265 Width = 46
266 Height = 13
267 Anchors = [akTop, akRight]
268 Caption = 'Field Len:'
269 end
270 object lblS3: TLabel
271 Left = 4
272 Top = 97
273 Width = 23
274 Height = 13
275 Caption = 'lblS3'
276 end
277 object lblLine: TLabel
278 Left = 4
279 Top = 152
280 Width = 23
281 Height = 13
282 Caption = 'Line:'
283 end
284 object lblCol: TLabel
285 Left = 4
286 Top = 168
287 Width = 18
288 Height = 13
289 Caption = 'Col:'
290 end
291 object edtName: TCaptionEdit
292 Left = 50
293 Top = 4
294 Width = 300
295 Height = 22
296 Anchors = [akLeft, akTop, akRight]
297 CharCase = ecUpperCase
298 Font.Charset = ANSI_CHARSET
299 Font.Color = clWindowText
300 Font.Height = -11
301 Font.Name = 'Courier New'
302 Font.Style = []
303 MaxLength = 60
304 ParentFont = False
305 PopupMenu = popText
306 TabOrder = 0
307 OnChange = edtNameChange
308 OnEnter = edtpopControlEnter
309 OnExit = edtNameExit
310 Caption = 'Name'
311 end
312 object edtLMText: TCaptionEdit
313 Left = 50
314 Top = 189
315 Width = 300
316 Height = 22
317 Hint = 'Text to replace template field when used in List Manager'
318 Anchors = [akLeft, akRight, akBottom]
319 Font.Charset = ANSI_CHARSET
320 Font.Color = clWindowText
321 Font.Height = -11
322 Font.Name = 'Courier New'
323 Font.Style = []
324 MaxLength = 70
325 ParentFont = False
326 ParentShowHint = False
327 PopupMenu = popText
328 ShowHint = True
329 TabOrder = 7
330 OnChange = edtLMTextChange
331 OnEnter = edtpopControlEnter
332 Caption = 'LM Text'
333 end
334 object cbxType: TORComboBox
335 Left = 50
336 Top = 27
337 Width = 102
338 Height = 21
339 Anchors = [akLeft, akTop, akRight]
340 Style = orcsDropDown
341 AutoSelect = True
342 Caption = 'Type'
343 Color = clWindow
344 DropDownCount = 11
345 Items.Strings = (
346 ''
347 'E^Edit Box'
348 'C^Combo Box'
349 'B^Button'
350 'X^Check Boxes'
351 'R^Radio Buttons'
352 'D^Date'
353 'N^Number'
354 'H^Hyperlink'
355 'W^Word Processing'
356 'T^Text')
357 ItemHeight = 13
358 ItemTipColor = clWindow
359 ItemTipEnable = True
360 ListItemsOnly = True
361 LongList = False
362 LookupPiece = 0
363 MaxLength = 0
364 Pieces = '2'
365 Sorted = False
366 SynonymChars = '<>'
367 TabOrder = 1
368 OnChange = cbxTypeChange
369 CharsNeedMatch = 1
370 end
371 object edtTextLen: TCaptionEdit
372 Left = 309
373 Top = 27
374 Width = 26
375 Height = 21
376 Anchors = [akTop, akRight]
377 TabOrder = 4
378 Text = '0'
379 OnChange = edtTextLenChange
380 Caption = 'Text Length'
381 end
382 object udTextLen: TUpDown
383 Left = 335
384 Top = 27
385 Width = 15
386 Height = 21
387 Anchors = [akTop, akRight]
388 Associate = edtTextLen
389 Max = 240
390 TabOrder = 5
391 end
392 object pnlSwap: TPanel
393 Left = 50
394 Top = 49
395 Width = 300
396 Height = 140
397 Anchors = [akLeft, akTop, akRight, akBottom]
398 BevelOuter = bvNone
399 TabOrder = 6
400 object edtDefault: TCaptionEdit
401 Left = 0
402 Top = 0
403 Width = 300
404 Height = 22
405 Align = alTop
406 Font.Charset = ANSI_CHARSET
407 Font.Color = clWindowText
408 Font.Height = -11
409 Font.Name = 'Courier New'
410 Font.Style = []
411 MaxLength = 70
412 ParentFont = False
413 PopupMenu = popText
414 TabOrder = 2
415 OnChange = edtDefaultChange
416 OnEnter = edtpopControlEnter
417 OnExit = ControlExit
418 Caption = 'Default Value'
419 end
420 object pnlNum: TPanel
421 Left = 0
422 Top = 22
423 Width = 300
424 Height = 22
425 Align = alTop
426 BevelOuter = bvNone
427 TabOrder = 0
428 object lblMin: TLabel
429 Left = 53
430 Top = 4
431 Width = 20
432 Height = 13
433 Caption = 'Min:'
434 end
435 object lblInc: TLabel
436 Left = 207
437 Top = 4
438 Width = 50
439 Height = 13
440 Caption = 'Increment:'
441 end
442 object lblMaxVal: TLabel
443 Left = 129
444 Top = 4
445 Width = 23
446 Height = 13
447 Caption = 'Max:'
448 end
449 object udDefNum: TUpDown
450 Left = 34
451 Top = 0
452 Width = 15
453 Height = 21
454 Associate = edtDefNum
455 Min = -9999
456 Max = 9999
457 TabOrder = 1
458 Thousands = False
459 end
460 object edtDefNum: TCaptionEdit
461 Left = 0
462 Top = 0
463 Width = 34
464 Height = 21
465 TabOrder = 0
466 Text = '0'
467 OnChange = edtDefNumChange
468 Caption = 'Default Number'
469 end
470 object udMinVal: TUpDown
471 Left = 110
472 Top = 0
473 Width = 15
474 Height = 21
475 Associate = edtMinVal
476 Min = -9999
477 Max = 9999
478 TabOrder = 3
479 Thousands = False
480 end
481 object edtMinVal: TCaptionEdit
482 Left = 76
483 Top = 0
484 Width = 34
485 Height = 21
486 TabOrder = 2
487 Text = '0'
488 OnChange = edtMinValChange
489 Caption = 'Minimum'
490 end
491 object udInc: TUpDown
492 Left = 285
493 Top = 0
494 Width = 15
495 Height = 21
496 Associate = edtInc
497 Min = 1
498 Max = 999
499 Position = 1
500 TabOrder = 7
501 end
502 object edtInc: TCaptionEdit
503 Left = 259
504 Top = 0
505 Width = 26
506 Height = 21
507 TabOrder = 6
508 Text = '1'
509 OnChange = edtIncChange
510 Caption = 'Increment'
511 end
512 object edtMaxVal: TCaptionEdit
513 Left = 155
514 Top = 0
515 Width = 34
516 Height = 21
517 TabOrder = 4
518 Text = '0'
519 OnChange = edtMaxValChange
520 Caption = 'Maimum'
521 end
522 object udMaxVal: TUpDown
523 Left = 189
524 Top = 0
525 Width = 15
526 Height = 21
527 Associate = edtMaxVal
528 Min = -9999
529 Max = 9999
530 TabOrder = 5
531 Thousands = False
532 end
533 end
534 object edtURL: TCaptionEdit
535 Left = 0
536 Top = 66
537 Width = 300
538 Height = 22
539 Align = alTop
540 Font.Charset = ANSI_CHARSET
541 Font.Color = clWindowText
542 Font.Height = -11
543 Font.Name = 'Courier New'
544 Font.Style = []
545 MaxLength = 240
546 ParentFont = False
547 PopupMenu = popText
548 TabOrder = 3
549 OnChange = edtURLChange
550 OnEnter = edtpopControlEnter
551 Caption = 'URL'
552 end
553 object reItems: TRichEdit
554 Left = 0
555 Top = 110
556 Width = 300
557 Height = 30
558 Align = alClient
559 Font.Charset = ANSI_CHARSET
560 Font.Color = clWindowText
561 Font.Height = -11
562 Font.Name = 'Courier New'
563 Font.Style = []
564 ParentFont = False
565 PopupMenu = popText
566 ScrollBars = ssBoth
567 TabOrder = 5
568 WantTabs = True
569 OnChange = reItemsChange
570 OnEnter = edtpopControlEnter
571 OnExit = ControlExit
572 OnKeyUp = reNotesKeyUp
573 OnResizeRequest = reItemsResizeRequest
574 OnSelectionChange = reItemsSelectionChange
575 end
576 object cbxDefault: TORComboBox
577 Left = 0
578 Top = 44
579 Width = 300
580 Height = 22
581 Style = orcsDropDown
582 Align = alTop
583 AutoSelect = True
584 Caption = 'Default Selection'
585 Color = clWindow
586 DropDownCount = 8
587 Font.Charset = ANSI_CHARSET
588 Font.Color = clWindowText
589 Font.Height = -11
590 Font.Name = 'Courier New'
591 Font.Style = []
592 ItemHeight = 14
593 ItemTipColor = clWindow
594 ItemTipEnable = True
595 ListItemsOnly = True
596 LongList = False
597 LookupPiece = 0
598 MaxLength = 0
599 ParentFont = False
600 Sorted = False
601 SynonymChars = '<>'
602 TabOrder = 1
603 TabStop = True
604 OnChange = cbxDefaultChange
605 CharsNeedMatch = 1
606 end
607 object pnlDate: TPanel
608 Left = 0
609 Top = 88
610 Width = 300
611 Height = 22
612 Align = alTop
613 BevelOuter = bvNone
614 TabOrder = 4
615 DesignSize = (
616 300
617 22)
618 object lblDateType: TLabel
619 Left = 111
620 Top = 4
621 Width = 53
622 Height = 13
623 Anchors = [akTop, akRight]
624 Caption = 'Date Type:'
625 end
626 object edtDateDef: TCaptionEdit
627 Left = 0
628 Top = 0
629 Width = 106
630 Height = 21
631 Anchors = [akLeft, akTop, akRight]
632 MaxLength = 70
633 PopupMenu = popText
634 TabOrder = 0
635 OnChange = edtDefaultChange
636 OnEnter = edtpopControlEnter
637 Caption = 'Default Date'
638 end
639 object cbxDateType: TORComboBox
640 Left = 167
641 Top = 0
642 Width = 133
643 Height = 21
644 Anchors = [akTop, akRight]
645 Style = orcsDropDown
646 AutoSelect = True
647 Caption = 'Date Type'
648 Color = clWindow
649 DropDownCount = 8
650 Items.Strings = (
651 'D^Date'
652 'T^Date & Time'
653 'R^Date & Required Time'
654 'C^Combo Style'
655 'Y^Combo Year Only'
656 'M^Combo Year & Month')
657 ItemHeight = 13
658 ItemTipColor = clWindow
659 ItemTipEnable = True
660 ListItemsOnly = True
661 LongList = False
662 LookupPiece = 0
663 MaxLength = 0
664 Pieces = '2'
665 Sorted = False
666 SynonymChars = '<>'
667 TabOrder = 1
668 OnChange = cbxDateTypeChange
669 CharsNeedMatch = 1
670 end
671 end
672 end
673 object edtLen: TCaptionEdit
674 Left = 214
675 Top = 27
676 Width = 19
677 Height = 21
678 Anchors = [akTop, akRight]
679 TabOrder = 2
680 Text = '1'
681 OnChange = edtLenChange
682 Caption = 'Field Length'
683 end
684 object udLen: TUpDown
685 Left = 233
686 Top = 27
687 Width = 15
688 Height = 21
689 Anchors = [akTop, akRight]
690 Associate = edtLen
691 Min = 1
692 Max = 70
693 Position = 1
694 TabOrder = 3
695 end
696 object gbIndent: TGroupBox
697 Left = 232
698 Top = 213
699 Width = 118
700 Height = 59
701 Anchors = [akLeft, akBottom]
702 Caption = ' Indent '
703 TabOrder = 9
704 object lblIndent: TLabel
705 Left = 10
706 Top = 14
707 Width = 58
708 Height = 13
709 Caption = 'Indent Field:'
710 end
711 object lblPad: TLabel
712 Left = 10
713 Top = 37
714 Width = 57
715 Height = 13
716 Caption = 'Indent Text:'
717 end
718 object edtIndent: TCaptionEdit
719 Left = 72
720 Top = 10
721 Width = 21
722 Height = 21
723 TabOrder = 0
724 Text = '0'
725 OnChange = edtIndentChange
726 Caption = 'Indent Field'
727 end
728 object udIndent: TUpDown
729 Left = 93
730 Top = 10
731 Width = 15
732 Height = 21
733 Associate = edtIndent
734 Max = 30
735 TabOrder = 1
736 Thousands = False
737 end
738 object udPad: TUpDown
739 Left = 93
740 Top = 33
741 Width = 15
742 Height = 21
743 Associate = edtPad
744 Max = 30
745 TabOrder = 2
746 Thousands = False
747 end
748 object edtPad: TCaptionEdit
749 Left = 72
750 Top = 33
751 Width = 21
752 Height = 21
753 TabOrder = 3
754 Text = '0'
755 OnChange = edtPadChange
756 Caption = 'Indent Text'
757 end
758 end
759 object gbMisc: TGroupBox
760 Left = 10
761 Top = 213
762 Width = 207
763 Height = 59
764 Anchors = [akLeft, akBottom]
765 Caption = ' Miscellaneous '
766 TabOrder = 8
767 object cbActive: TCheckBox
768 Left = 6
769 Top = 14
770 Width = 67
771 Height = 17
772 BiDiMode = bdLeftToRight
773 Caption = 'Inactive'
774 ParentBiDiMode = False
775 TabOrder = 0
776 OnClick = cbActiveClick
777 end
778 object cbRequired: TCheckBox
779 Left = 6
780 Top = 37
781 Width = 67
782 Height = 17
783 Caption = 'Required'
784 TabOrder = 1
785 OnClick = cbRequiredClick
786 end
787 object cbSepLines: TCheckBox
788 Left = 83
789 Top = 14
790 Width = 99
791 Height = 17
792 Caption = 'Separate Lines'
793 TabOrder = 2
794 OnClick = cbSepLinesClick
795 end
796 object cbExclude: TCheckBox
797 Left = 83
798 Top = 37
799 Width = 118
800 Height = 17
801 Caption = 'Exclude From Note'
802 TabOrder = 3
803 OnClick = cbExcludeClick
804 end
805 end
806 end
807 end
808 object pnlTop: TPanel [4]
809 Left = 0
810 Top = 0
811 Width = 788
812 Height = 25
813 Align = alTop
814 BevelOuter = bvNone
815 TabOrder = 3
816 DesignSize = (
817 788
818 25)
819 object MenuBar1: TMenuBar
820 Left = 0
821 Top = 0
822 Width = 41
823 Height = 25
824 Align = alLeft
825 AutoSize = True
826 ButtonHeight = 21
827 ButtonWidth = 37
828 Caption = 'MenuBar1'
829 Menu = mnuMain
830 ShowCaptions = True
831 TabOrder = 0
832 end
833 object btnNew: TButton
834 Left = 710
835 Top = 2
836 Width = 75
837 Height = 21
838 Anchors = [akTop, akRight, akBottom]
839 Caption = 'New'
840 TabOrder = 3
841 OnClick = mnuNewClick
842 end
843 object btnCopy: TButton
844 Left = 631
845 Top = 2
846 Width = 75
847 Height = 21
848 Anchors = [akTop, akRight, akBottom]
849 Caption = 'Copy'
850 Enabled = False
851 TabOrder = 2
852 OnClick = mnuCopyClick
853 end
854 object btnDelete: TButton
855 Left = 552
856 Top = 2
857 Width = 75
858 Height = 21
859 Anchors = [akTop, akRight, akBottom]
860 Caption = 'Delete'
861 Enabled = False
862 TabOrder = 1
863 OnClick = mnuDeleteClick
864 end
865 end
866 inherited amgrMain: TVA508AccessibilityManager
867 Data = (
868 (
869 'Component = pnlBottom'
870 'Status = stsDefault')
871 (
872 'Component = lblReq'
873 'Status = stsDefault')
874 (
875 'Component = btnOK'
876 'Status = stsDefault')
877 (
878 'Component = btnCancel'
879 'Status = stsDefault')
880 (
881 'Component = btnApply'
882 'Status = stsDefault')
883 (
884 'Component = btnPreview'
885 'Status = stsDefault')
886 (
887 'Component = cbHide'
888 'Status = stsDefault')
889 (
890 'Component = pnlObjs'
891 'Status = stsDefault')
892 (
893 'Component = cbxObjs'
894 'Status = stsDefault')
895 (
896 'Component = pnlRight'
897 'Status = stsDefault')
898 (
899 'Component = pnlPreview'
900 'Status = stsDefault')
901 (
902 'Component = reNotes'
903 'Status = stsDefault')
904 (
905 'Component = pnlObjInfo'
906 'Status = stsDefault')
907 (
908 'Component = edtName'
909 'Status = stsDefault')
910 (
911 'Component = edtLMText'
912 'Status = stsDefault')
913 (
914 'Component = cbxType'
915 'Status = stsDefault')
916 (
917 'Component = edtTextLen'
918 'Status = stsDefault')
919 (
920 'Component = udTextLen'
921 'Status = stsDefault')
922 (
923 'Component = pnlSwap'
924 'Status = stsDefault')
925 (
926 'Component = edtDefault'
927 'Status = stsDefault')
928 (
929 'Component = pnlNum'
930 'Status = stsDefault')
931 (
932 'Component = udDefNum'
933 'Status = stsDefault')
934 (
935 'Component = edtDefNum'
936 'Status = stsDefault')
937 (
938 'Component = udMinVal'
939 'Status = stsDefault')
940 (
941 'Component = edtMinVal'
942 'Status = stsDefault')
943 (
944 'Component = udInc'
945 'Status = stsDefault')
946 (
947 'Component = edtInc'
948 'Status = stsDefault')
949 (
950 'Component = edtMaxVal'
951 'Status = stsDefault')
952 (
953 'Component = udMaxVal'
954 'Status = stsDefault')
955 (
956 'Component = edtURL'
957 'Status = stsDefault')
958 (
959 'Component = reItems'
960 'Status = stsDefault')
961 (
962 'Component = cbxDefault'
963 'Status = stsDefault')
964 (
965 'Component = pnlDate'
966 'Status = stsDefault')
967 (
968 'Component = edtDateDef'
969 'Status = stsDefault')
970 (
971 'Component = cbxDateType'
972 'Status = stsDefault')
973 (
974 'Component = edtLen'
975 'Status = stsDefault')
976 (
977 'Component = udLen'
978 'Status = stsDefault')
979 (
980 'Component = gbIndent'
981 'Status = stsDefault')
982 (
983 'Component = edtIndent'
984 'Status = stsDefault')
985 (
986 'Component = udIndent'
987 'Status = stsDefault')
988 (
989 'Component = udPad'
990 'Status = stsDefault')
991 (
992 'Component = edtPad'
993 'Status = stsDefault')
994 (
995 'Component = gbMisc'
996 'Status = stsDefault')
997 (
998 'Component = cbActive'
999 'Status = stsDefault')
1000 (
1001 'Component = cbRequired'
1002 'Status = stsDefault')
1003 (
1004 'Component = cbSepLines'
1005 'Status = stsDefault')
1006 (
1007 'Component = cbExclude'
1008 'Status = stsDefault')
1009 (
1010 'Component = pnlTop'
1011 'Status = stsDefault')
1012 (
1013 'Component = MenuBar1'
1014 'Status = stsDefault')
1015 (
1016 'Component = btnNew'
1017 'Status = stsDefault')
1018 (
1019 'Component = btnCopy'
1020 'Status = stsDefault')
1021 (
1022 'Component = btnDelete'
1023 'Status = stsDefault')
1024 (
1025 'Component = frmTemplateFieldEditor'
1026 'Status = stsDefault'))
1027 end
1028 object mnuMain: TMainMenu
1029 Left = 8
1030 Top = 64
1031 object mnuAction: TMenuItem
1032 Caption = '&Action'
1033 OnClick = mnuActionClick
1034 object mnuNew: TMenuItem
1035 Caption = '&New'
1036 OnClick = mnuNewClick
1037 end
1038 object mnuCopy: TMenuItem
1039 Caption = '&Copy'
1040 OnClick = mnuCopyClick
1041 end
1042 object mnuDelete: TMenuItem
1043 Caption = '&Delete'
1044 OnClick = mnuDeleteClick
1045 end
1046 object mnuPreview: TMenuItem
1047 Caption = '&Preview'
1048 OnClick = btnPreviewClick
1049 end
1050 end
1051 end
1052 object popText: TPopupMenu
1053 OnPopup = popTextPopup
1054 Left = 339
1055 Top = 204
1056 object mnuBPUndo: TMenuItem
1057 Caption = '&Undo'
1058 ShortCut = 16474
1059 OnClick = mnuBPUndoClick
1060 end
1061 object N8: TMenuItem
1062 Caption = '-'
1063 end
1064 object mnuBPCut: TMenuItem
1065 Caption = 'Cu&t'
1066 ShortCut = 16472
1067 OnClick = mnuBPCutClick
1068 end
1069 object mnuBPCopy: TMenuItem
1070 Caption = '&Copy'
1071 ShortCut = 16451
1072 OnClick = mnuBPCopyClick
1073 end
1074 object mnuBPPaste: TMenuItem
1075 Caption = '&Paste'
1076 ShortCut = 16470
1077 OnClick = mnuBPPasteClick
1078 end
1079 object mnuBPSelectAll: TMenuItem
1080 Caption = 'Select &All'
1081 ShortCut = 16449
1082 OnClick = mnuBPSelectAllClick
1083 end
1084 object N2: TMenuItem
1085 Caption = '-'
1086 end
1087 object mnuBPCheckGrammar: TMenuItem
1088 Caption = 'Check &Grammar'
1089 ShortCut = 16455
1090 OnClick = mnuBPCheckGrammarClick
1091 end
1092 object popNoteMemoSpellOpenSource: TMenuItem
1093 Caption = 'Chec&k Spelling (OpenSource based)'
1094 ShortCut = 118
1095 OnClick = mnuBPSpellCheckClick
1096 end
1097 object mnuBPSpellCheck: TMenuItem
1098 Caption = 'Check &Spelling (MS Office based)'
1099 ShortCut = 16467
1100 OnClick = mnuBPSpellCheckClick
1101 end
1102 object N14: TMenuItem
1103 Caption = '-'
1104 end
1105 object mnuInsertTemplateField: TMenuItem
1106 Caption = 'Insert Template &Field'
1107 ShortCut = 16454
1108 OnClick = mnuInsertTemplateFieldClick
1109 end
1110 end
1111end
Note: See TracBrowser for help on using the repository browser.