Changeset 1699 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 9, 2015, 7:26:48 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.dfm
r1693 r1699 964 964 Align = alLeft 965 965 AutoSize = True 966 ButtonHeight = 0967 ButtonWidth = 0966 ButtonHeight = 21 967 ButtonWidth = 37 968 968 Caption = 'mbMain' 969 969 Menu = mnuMain … … 1096 1096 Align = alClient 1097 1097 TabOrder = 4 1098 ExplicitLeft = 1381099 ExplicitTop = 2211100 1098 object pnlBoilerplate: TPanel 1101 1099 Left = 1 … … 1108 1106 OnCanResize = pnlBoilerplateCanResize 1109 1107 OnResize = pnlBoilerplateResize 1110 ExplicitLeft = 171111 ExplicitTop = 21112 1108 object splBoil: TSplitter 1113 1109 Left = 0 … … 1173 1169 TabOrder = 2 1174 1170 Visible = False 1175 ExplicitLeft = -11176 ExplicitTop = 1541177 1171 object lblGroupBP: TLabel 1178 1172 Left = 0 … … 1282 1276 TabOrder = 3 1283 1277 Visible = False 1284 ExplicitTop = 1581285 1278 object lblNotes: TLabel 1286 1279 Left = 0 1287 1280 Top = 0 1288 Width = 7 81281 Width = 738 1289 1282 Height = 13 1290 1283 Align = alTop 1291 1284 Caption = 'Template Notes:' 1285 ExplicitWidth = 78 1292 1286 end 1293 1287 object reNotes: TRichEdit … … 1326 1320 BevelOuter = bvNone 1327 1321 TabOrder = 2 1328 ExplicitLeft = 401329 ExplicitTop = 4981330 1322 DesignSize = ( 1331 1323 740 … … 1755 1747 OnClick = mnuBPCheckGrammarClick 1756 1748 end 1749 object popNoteMemoSpellOpenSource: TMenuItem 1750 Caption = 'Chec&k Spelling (OpenSource based)' 1751 ShortCut = 118 1752 OnClick = mnuBPSpellCheckClick 1753 end 1757 1754 object mnuBPSpellCheck: TMenuItem 1758 Caption = 'C heck &Spelling'1755 Caption = 'C&heck Spelling (MS Office based)' 1759 1756 ShortCut = 16467 1760 1757 OnClick = mnuBPSpellCheckClick -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.pas
r1693 r1699 212 212 lblNotes: TLabel; 213 213 reNotes: TRichEdit; 214 popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 214 215 procedure btnNewClick(Sender: TObject); 215 216 procedure btnApplyClick(Sender: TObject); … … 2612 2613 mnuBPTry.Enabled := tryOK; 2613 2614 mnuBPSpellCheck.Enabled := ok and SpellCheckAvailable; 2615 popNoteMemoSpellOpenSource.Enabled := ok and SpellCheckAvailable; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2614 2616 mnuBPCheckGrammar.Enabled := ok and SpellCheckAvailable; 2615 2617 … … 2709 2711 procedure TfrmTemplateEditor.mnuBPSpellCheckClick(Sender: TObject); 2710 2712 begin 2711 SpellCheckForControl(reBoil );2713 SpellCheckForControl(reBoil, Sender = popNoteMemoSpellOpenSource); //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2712 2714 end; 2713 2715 -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.dfm
r1693 r1699 825 825 AutoSize = True 826 826 ButtonHeight = 21 827 ButtonWidth = 43827 ButtonWidth = 37 828 828 Caption = 'MenuBar1' 829 829 Menu = mnuMain … … 1090 1090 OnClick = mnuBPCheckGrammarClick 1091 1091 end 1092 object popNoteMemoSpellOpenSource: TMenuItem 1093 Caption = 'Chec&k Spelling (OpenSource based)' 1094 ShortCut = 118 1095 OnClick = mnuBPSpellCheckClick 1096 end 1092 1097 object mnuBPSpellCheck: TMenuItem 1093 Caption = 'Check &Spelling '1098 Caption = 'Check &Spelling (MS Office based)' 1094 1099 ShortCut = 16467 1095 1100 OnClick = mnuBPSpellCheckClick -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.pas
r829 r1699 100 100 N14: TMenuItem; 101 101 mnuInsertTemplateField: TMenuItem; 102 popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 102 103 procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String; 103 104 Direction, InsertAt: Integer); … … 1041 1042 1042 1043 mnuBPSpellCheck.Visible := isre; 1044 popNoteMemoSpellOpenSource.Visible := isre; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1043 1045 mnuBPCheckGrammar.Visible := isre; 1044 1046 … … 1046 1048 begin 1047 1049 mnuBPSpellCheck.Enabled := SpellCheckAvailable; 1050 popNoteMemoSpellOpenSource.Enabled := SpellCheckAvailable; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1048 1051 mnuBPCheckGrammar.Enabled := SpellCheckAvailable; 1049 1052 end … … 1051 1054 begin 1052 1055 mnuBPSpellCheck.Enabled := FALSE; 1056 popNoteMemoSpellOpenSource.Enabled := False; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1053 1057 mnuBPCheckGrammar.Enabled := FALSE; 1054 1058 end; … … 1130 1134 ce := GetPopupControl; 1131 1135 if(assigned(ce) and (ce is TRichEdit)) then 1132 SpellCheckForControl(TRichEdit(ce) );1136 SpellCheckForControl(TRichEdit(ce), Sender = popNoteMemoSpellOpenSource); //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1133 1137 end; 1134 1138
Note:
See TracChangeset
for help on using the changeset viewer.