Changeset 1698 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 9, 2015, 7:25:33 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/fConsults.dfm
r1693 r1698 4 4 HelpContext = 6000 5 5 Caption = 'Consults Page' 6 ClientHeight = 4216 ClientHeight = 501 7 7 ClientWidth = 715 8 8 Menu = mnuConsults … … 11 11 OnShow = FormShow 12 12 ExplicitWidth = 723 13 ExplicitHeight = 47513 ExplicitHeight = 555 14 14 PixelsPerInch = 96 15 15 TextHeight = 13 16 16 inherited shpPageBottom: TShape 17 Top = 4 1617 Top = 496 18 18 Width = 715 19 19 ExplicitTop = 416 … … 23 23 Left = 83 24 24 Width = 2 25 Height = 4 1625 Height = 496 26 26 OnCanResize = sptHorzCanResize 27 27 ExplicitLeft = 83 … … 32 32 Left = 85 33 33 Width = 630 34 Height = 4 1634 Height = 496 35 35 OnExit = pnlRightExit 36 36 OnResize = pnlRightResize 37 37 ExplicitLeft = 85 38 38 ExplicitWidth = 630 39 ExplicitHeight = 4 1639 ExplicitHeight = 476 40 40 object sptVert: TSplitter 41 41 Left = 0 42 Top = 35042 Top = 430 43 43 Width = 630 44 44 Height = 4 45 45 Cursor = crVSplit 46 46 Align = alBottom 47 ExplicitTop = 350 47 48 end 48 49 object pnlRead: TPanel … … 50 51 Top = 0 51 52 Width = 630 52 Height = 35053 Height = 430 53 54 Align = alClient 54 55 BevelOuter = bvNone 55 56 TabOrder = 0 57 ExplicitHeight = 410 56 58 object lblTitle: TOROffsetLabel 57 59 Left = 0 … … 78 80 Top = 19 79 81 Width = 630 80 Height = 33182 Height = 411 81 83 Align = alClient 82 84 Color = clCream … … 100 102 WantReturns = False 101 103 WordWrap = False 104 ExplicitHeight = 391 102 105 end 103 106 end 104 107 object memPCEShow: TRichEdit 105 108 Left = 0 106 Top = 354109 Top = 434 107 110 Width = 630 108 111 Height = 62 … … 111 114 TabOrder = 2 112 115 WantReturns = False 116 ExplicitTop = 414 113 117 end 114 118 object pnlResults: TPanel … … 116 120 Top = 0 117 121 Width = 630 118 Height = 350122 Height = 430 119 123 Align = alClient 120 124 BevelOuter = bvNone 121 125 TabOrder = 1 122 126 OnResize = pnlResultsResize 127 ExplicitHeight = 410 123 128 object memResults: TRichEdit 124 129 Left = 0 125 130 Top = 67 126 131 Width = 630 127 Height = 283132 Height = 363 128 133 Align = alClient 129 134 Font.Charset = ANSI_CHARSET … … 139 144 OnChange = memResultChange 140 145 OnKeyDown = memResultsKeyDown 146 ExplicitHeight = 343 141 147 end 142 148 object pnlFields: TPanel … … 266 272 inherited pnlLeft: TPanel [3] 267 273 Width = 83 268 Height = 4 16274 Height = 496 269 275 OnExit = pnlLeftExit 270 276 OnResize = pnlLeftResize 271 277 ExplicitWidth = 83 272 ExplicitHeight = 4 16278 ExplicitHeight = 476 273 279 object splConsults: TSplitter 274 280 Left = 0 … … 283 289 Top = 164 284 290 Width = 83 285 Height = 231291 Height = 311 286 292 Align = alClient 287 293 BevelOuter = bvNone 288 294 TabOrder = 1 295 ExplicitHeight = 291 289 296 object splDrawers: TSplitter 290 297 Left = 0 291 Top = 228298 Top = 308 292 299 Width = 83 293 300 Height = 3 294 301 Cursor = crVSplit 295 302 Align = alBottom 303 ExplicitTop = 228 296 304 end 297 305 object cmdNewConsult: TORAlignButton … … 360 368 Top = 63 361 369 Width = 83 362 Height = 165370 Height = 245 363 371 Align = alClient 364 372 Constraints.MinWidth = 30 … … 379 387 Caption = 'Consult Notes' 380 388 NodePiece = 0 389 ExplicitHeight = 225 381 390 end 382 391 end 383 392 object cmdPCE: TORAlignButton 384 393 Left = 0 385 Top = 395394 Top = 475 386 395 Width = 83 387 396 Height = 21 … … 392 401 Visible = False 393 402 OnClick = cmdPCEClick 403 ExplicitTop = 455 394 404 end 395 405 object pnlConsultList: TPanel … … 540 550 'Status = stsDefault')) 541 551 end 542 object popNoteMemo: TPopupMenu 552 object popNoteMemo: TPopupMenu [5] 543 553 OnPopup = popNoteMemoPopup 544 554 Left = 589 … … 594 604 OnClick = popNoteMemoGrammarClick 595 605 end 606 object popNoteMemoSpellOpenSource: TMenuItem 607 Caption = 'Chec&k Spelling (OpenSource based)' 608 ShortCut = 118 609 OnClick = popNoteMemoSpellClick 610 end 596 611 object popNoteMemoSpell: TMenuItem 597 Caption = 'C&heck Spelling '612 Caption = 'C&heck Spelling (MS Office based)' 598 613 OnClick = popNoteMemoSpellClick 599 614 end … … 667 682 end 668 683 end 669 object popConsultList: TPopupMenu 684 object popConsultList: TPopupMenu [6] 670 685 Left = 523 671 686 Top = 308 … … 696 711 end 697 712 end 698 object mnuConsults: TMainMenu 713 object mnuConsults: TMainMenu [7] 699 714 Left = 461 700 715 Top = 305 … … 1080 1095 end 1081 1096 end 1082 object timAutoSave: TTimer 1097 object timAutoSave: TTimer [8] 1083 1098 Enabled = False 1084 1099 Interval = 300000 … … 1087 1102 Top = 110 1088 1103 end 1089 object popNoteList: TPopupMenu 1104 object popNoteList: TPopupMenu [9] 1090 1105 OnPopup = popNoteListPopup 1091 1106 Left = 395 … … 1123 1138 end 1124 1139 end 1125 object dlgFindText: TFindDialog 1140 object dlgFindText: TFindDialog [10] 1126 1141 Options = [frDown, frHideUpDown] 1127 1142 OnFind = dlgFindTextFind … … 1129 1144 Top = 303 1130 1145 end 1131 object dlgReplaceText: TReplaceDialog 1146 object dlgReplaceText: TReplaceDialog [11] 1132 1147 OnFind = dlgReplaceTextFind 1133 1148 OnReplace = dlgReplaceTextReplace … … 1135 1150 Top = 303 1136 1151 end 1137 object imgLblNotes: TVA508ImageListLabeler 1152 object imgLblNotes: TVA508ImageListLabeler [12] 1138 1153 Components = < 1139 1154 item … … 1145 1160 Top = 48 1146 1161 end 1147 object imgLblImages: TVA508ImageListLabeler 1162 object imgLblImages: TVA508ImageListLabeler [13] 1148 1163 Components = < 1149 1164 item … … 1155 1170 Top = 88 1156 1171 end 1157 object imgLblConsults: TVA508ImageListLabeler 1172 object imgLblConsults: TVA508ImageListLabeler [14] 1158 1173 Components = < 1159 1174 item -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/fConsults.pas
r1693 r1698 180 180 imgLblImages: TVA508ImageListLabeler; 181 181 imgLblConsults: TVA508ImageListLabeler; 182 popNoteMemoViewCslt: TMenuItem; //wat cq 17586 182 popNoteMemoViewCslt: TMenuItem; 183 popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 183 184 procedure mnuChartTabClick(Sender: TObject); 184 185 procedure lstConsultsClick(Sender: TObject); … … 677 678 FCurrentContext := FDefaultContext; 678 679 popNoteMemoSpell.Visible := SpellCheckAvailable; 680 popNoteMemoSpellOpenSource.Visible := SpellCheckAvailable; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 679 681 popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible; 680 682 Z11.Visible := popNoteMemoSpell.Visible; … … 2741 2743 begin 2742 2744 popNoteMemoSpell.Enabled := True; 2745 popNoteMemoSpellOpenSource.Enabled := True; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2743 2746 popNoteMemoGrammar.Enabled := True; 2744 2747 popNoteMemoReformat.Enabled := True; … … 2750 2753 begin 2751 2754 popNoteMemoSpell.Enabled := False; 2755 popNoteMemoSpellOpenSource.Enabled := False; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2752 2756 popNoteMemoGrammar.Enabled := False; 2753 2757 popNoteMemoReformat.Enabled := False; … … 2835 2839 timAutoSave.Enabled := False; 2836 2840 try 2837 SpellCheckForControl(memResults );2841 SpellCheckForControl(memResults, Sender = popNoteMemoSpellOpenSource); //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 2838 2842 finally 2839 2843 FChanged := True;
Note:
See TracChangeset
for help on using the changeset viewer.