Changeset 1702 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 9, 2015, 7:37:29 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fDCSumm.dfm
r1693 r1702 4 4 HelpContext = 7000 5 5 Caption = 'Discharge Summary Page' 6 ClientHeight = 3826 ClientHeight = 482 7 7 ClientWidth = 679 8 8 HelpFile = 'overvw' … … 10 10 OnDestroy = FormDestroy 11 11 ExplicitWidth = 687 12 ExplicitHeight = 43612 ExplicitHeight = 536 13 13 PixelsPerInch = 96 14 14 TextHeight = 13 15 15 inherited shpPageBottom: TShape 16 Top = 37716 Top = 477 17 17 Width = 679 18 18 ExplicitTop = 358 … … 22 22 Left = 64 23 23 Width = 3 24 Height = 37724 Height = 477 25 25 OnCanResize = sptHorzCanResize 26 26 ExplicitLeft = 64 … … 30 30 inherited pnlLeft: TPanel 31 31 Width = 64 32 Height = 37732 Height = 477 33 33 ExplicitWidth = 64 34 ExplicitHeight = 37734 ExplicitHeight = 457 35 35 object lblSumms: TOROffsetLabel 36 36 Left = 0 … … 49 49 object lblSpace1: TLabel 50 50 Left = 0 51 Top = 35351 Top = 453 52 52 Width = 64 53 53 Height = 3 … … 59 59 object cmdNewSumm: TORAlignButton 60 60 Left = 0 61 Top = 33261 Top = 432 62 62 Width = 64 63 63 Height = 21 … … 66 66 TabOrder = 1 67 67 OnClick = cmdNewSummClick 68 ExplicitTop = 412 68 69 end 69 70 object cmdPCE: TORAlignButton 70 71 Left = 0 71 Top = 35672 Top = 456 72 73 Width = 64 73 74 Height = 21 … … 77 78 Visible = False 78 79 OnClick = cmdPCEClick 80 ExplicitTop = 436 79 81 end 80 82 object pnlDrawers: TPanel … … 82 84 Top = 19 83 85 Width = 64 84 Height = 31386 Height = 413 85 87 Align = alClient 86 88 BevelOuter = bvNone 87 89 TabOrder = 0 90 ExplicitHeight = 393 88 91 object splDrawers: TSplitter 89 92 Left = 0 90 Top = 31093 Top = 410 91 94 Width = 64 92 95 Height = 3 … … 119 122 Top = 0 120 123 Width = 64 121 Height = 310124 Height = 410 122 125 Align = alClient 123 126 Constraints.MinWidth = 30 … … 139 142 NodePiece = 0 140 143 ShortNodeCaptions = True 144 ExplicitHeight = 390 141 145 end 142 146 end … … 145 149 Left = 67 146 150 Width = 612 147 Height = 377151 Height = 477 148 152 ExplicitLeft = 67 149 153 ExplicitWidth = 612 150 ExplicitHeight = 377154 ExplicitHeight = 457 151 155 object sptVert: TSplitter 152 156 Left = 0 153 Top = 328157 Top = 428 154 158 Width = 612 155 159 Height = 4 … … 160 164 object memPCEShow: TRichEdit 161 165 Left = 0 162 Top = 332166 Top = 432 163 167 Width = 612 164 168 Height = 45 … … 173 177 WantReturns = False 174 178 WordWrap = False 179 ExplicitTop = 412 175 180 end 176 181 object pnlWrite: TPanel … … 178 183 Top = 0 179 184 Width = 612 180 Height = 328185 Height = 428 181 186 Align = alClient 182 187 BevelOuter = bvNone … … 184 189 Visible = False 185 190 OnResize = pnlWriteResize 191 ExplicitHeight = 408 186 192 object memNewSumm: TRichEdit 187 193 Left = 0 188 194 Top = 52 189 195 Width = 612 190 Height = 276196 Height = 376 191 197 Align = alClient 192 198 Font.Charset = DEFAULT_CHARSET … … 204 210 OnChange = memNewSummChange 205 211 OnKeyUp = memNewSummKeyUp 212 ExplicitHeight = 356 206 213 end 207 214 object pnlFields: TORAutoPanel … … 318 325 Top = 0 319 326 Width = 612 320 Height = 328327 Height = 428 321 328 Align = alClient 322 329 BevelOuter = bvNone 323 330 TabOrder = 0 331 ExplicitHeight = 408 324 332 object lblTitle: TOROffsetLabel 325 333 Left = 0 … … 355 363 Top = 116 356 364 Width = 612 357 Height = 212365 Height = 312 358 366 Align = alClient 359 367 Color = clCream … … 377 385 WantReturns = False 378 386 WordWrap = False 387 ExplicitHeight = 292 379 388 end 380 389 object lvSumms: TCaptionListView … … 499 508 'Status = stsDefault')) 500 509 end 501 object mnuSumms: TMainMenu 510 object mnuSumms: TMainMenu [5] 502 511 Left = 596 503 512 Top = 305 … … 784 793 end 785 794 end 786 object popSummMemo: TPopupMenu 795 object popSummMemo: TPopupMenu [6] 787 796 OnPopup = popSummMemoPopup 788 797 Left = 539 … … 838 847 OnClick = popSummMemoGrammarClick 839 848 end 849 object popNoteMemoSpellOpenSource: TMenuItem 850 Caption = 'Chec&k Spelling (OpenSource based)' 851 ShortCut = 118 852 OnClick = popSummMemoSpellClick 853 end 840 854 object popSummMemoSpell: TMenuItem 841 Caption = 'C&heck Spelling '855 Caption = 'C&heck Spelling (MS Office based)' 842 856 OnClick = popSummMemoSpellClick 843 857 end … … 899 913 end 900 914 end 901 object popSummList: TPopupMenu 915 object popSummList: TPopupMenu [7] 902 916 OnPopup = popSummListPopup 903 917 Left = 500 … … 968 982 end 969 983 end 970 object timAutoSave: TTimer 984 object timAutoSave: TTimer [8] 971 985 Enabled = False 972 986 Interval = 300000 … … 975 989 Top = 61 976 990 end 977 object dlgFindText: TFindDialog 991 object dlgFindText: TFindDialog [9] 978 992 Options = [frDown, frHideUpDown] 979 993 OnFind = dlgFindTextFind … … 981 995 Top = 312 982 996 end 983 object dlgReplaceText: TReplaceDialog 997 object dlgReplaceText: TReplaceDialog [10] 984 998 OnFind = dlgReplaceTextFind 985 999 OnReplace = dlgReplaceTextReplace … … 987 1001 Top = 313 988 1002 end 989 object imgLblNotes: TVA508ImageListLabeler 1003 object imgLblNotes: TVA508ImageListLabeler [11] 990 1004 Components = < 991 1005 item … … 1000 1014 Top = 171 1001 1015 end 1002 object imgLblImages: TVA508ImageListLabeler 1016 object imgLblImages: TVA508ImageListLabeler [12] 1003 1017 Components = < 1004 1018 item -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fDCSumm.pas
r1693 r1702 147 147 imgLblNotes: TVA508ImageListLabeler; 148 148 imgLblImages: TVA508ImageListLabeler; 149 popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 149 150 procedure mnuChartTabClick(Sender: TObject); 150 151 procedure lstSummsClick(Sender: TObject); … … 501 502 FCurrentContext := FDefaultContext; 502 503 popSummMemoSpell.Visible := SpellCheckAvailable; 504 popNoteMemoSpellOpenSource.Visible := SpellCheckAvailable; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 503 505 popSummMemoGrammar.Visible := popSummMemoSpell.Visible; 504 506 Z11.Visible := popSummMemoSpell.Visible; … … 1856 1858 begin 1857 1859 popSummMemoSpell.Enabled := True; 1860 popNoteMemoSpellOpenSource.Enabled := True; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1858 1861 popSummMemoGrammar.Enabled := True; 1859 1862 popSummMemoReformat.Enabled := True; … … 1864 1867 begin 1865 1868 popSummMemoSpell.Enabled := False; 1869 popNoteMemoSpellOpenSource.Enabled := False; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1866 1870 popSummMemoGrammar.Enabled := False; 1867 1871 popSummMemoReformat.Enabled := False; … … 1948 1952 timAutoSave.Enabled := False; 1949 1953 try 1950 SpellCheckForControl(memNewSumm );1954 SpellCheckForControl(memNewSumm, Sender = popNoteMemoSpellOpenSource); //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1951 1955 finally 1952 1956 FChanged := True;
Note:
See TracChangeset
for help on using the changeset viewer.