Changeset 1704 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 9, 2015, 7:39:39 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.dfm
r1693 r1704 4 4 Align = alClient 5 5 Caption = 'Surgery Page' 6 ClientHeight = 3636 ClientHeight = 403 7 7 ClientWidth = 712 8 8 HelpFile = 'overvw' … … 10 10 OnDestroy = FormDestroy 11 11 ExplicitWidth = 720 12 ExplicitHeight = 4 1712 ExplicitHeight = 457 13 13 PixelsPerInch = 96 14 14 TextHeight = 13 15 15 inherited shpPageBottom: TShape 16 Top = 3 5816 Top = 398 17 17 Width = 712 18 18 ExplicitTop = 358 … … 21 21 inherited sptHorz: TSplitter 22 22 Left = 64 23 Height = 3 5823 Height = 398 24 24 AutoSnap = False 25 25 OnCanResize = sptHorzCanResize … … 29 29 inherited pnlLeft: TPanel 30 30 Width = 64 31 Height = 3 5831 Height = 398 32 32 ExplicitWidth = 64 33 33 ExplicitHeight = 358 … … 48 48 object lblSpace1: TLabel 49 49 Left = 0 50 Top = 3 1350 Top = 353 51 51 Width = 64 52 52 Height = 3 … … 54 54 AutoSize = False 55 55 Caption = ' ' 56 ExplicitTop = 313 56 57 end 57 58 object cmdNewNote: TORAlignButton 58 59 Left = 0 59 Top = 3 1660 Top = 356 60 61 Width = 64 61 62 Height = 21 … … 65 66 Visible = False 66 67 OnClick = cmdNewNoteClick 68 ExplicitTop = 316 67 69 end 68 70 object cmdPCE: TORAlignButton 69 71 Left = 0 70 Top = 3 3772 Top = 377 71 73 Width = 64 72 74 Height = 21 … … 76 78 Visible = False 77 79 OnClick = cmdPCEClick 80 ExplicitTop = 337 78 81 end 79 82 object pnlDrawers: TPanel … … 81 84 Top = 19 82 85 Width = 64 83 Height = 29486 Height = 334 84 87 Align = alClient 85 88 BevelOuter = bvNone 86 89 TabOrder = 2 90 ExplicitHeight = 294 87 91 object splDrawers: TSplitter 88 92 Left = 0 89 Top = 29193 Top = 331 90 94 Width = 64 91 95 Height = 3 92 96 Cursor = crVSplit 93 97 Align = alBottom 98 ExplicitTop = 291 94 99 end 95 100 object lstNotes: TORListBox … … 111 116 Top = 0 112 117 Width = 64 113 Height = 291118 Height = 331 114 119 Align = alClient 115 120 Constraints.MinWidth = 30 … … 128 133 NodePiece = 0 129 134 ShortNodeCaptions = True 135 ExplicitHeight = 291 130 136 end 131 137 end … … 134 140 Left = 68 135 141 Width = 644 136 Height = 3 58142 Height = 398 137 143 ExplicitLeft = 68 138 144 ExplicitWidth = 644 … … 140 146 object sptVert: TSplitter 141 147 Left = 0 142 Top = 3 09148 Top = 349 143 149 Width = 644 144 150 Height = 4 145 151 Cursor = crVSplit 146 152 Align = alBottom 153 ExplicitTop = 309 147 154 end 148 155 object pnlRead: TPanel … … 150 157 Top = 0 151 158 Width = 644 152 Height = 3 09159 Height = 349 153 160 Align = alClient 154 161 BevelOuter = bvNone 155 162 TabOrder = 0 163 ExplicitHeight = 309 156 164 object lblTitle: TOROffsetLabel 157 165 Left = 0 … … 178 186 Top = 19 179 187 Width = 644 180 Height = 290188 Height = 330 181 189 Align = alClient 182 190 Color = clCream … … 200 208 WantReturns = False 201 209 WordWrap = False 210 ExplicitHeight = 290 202 211 end 203 212 end 204 213 object memPCEShow: TRichEdit 205 214 Left = 0 206 Top = 3 13215 Top = 353 207 216 Width = 644 208 217 Height = 45 … … 216 225 TabOrder = 2 217 226 WantReturns = False 227 ExplicitTop = 313 218 228 end 219 229 object pnlWrite: TPanel … … 221 231 Top = 0 222 232 Width = 644 223 Height = 3 09233 Height = 349 224 234 Align = alClient 225 235 BevelOuter = bvNone … … 227 237 Visible = False 228 238 OnResize = pnlWriteResize 239 ExplicitHeight = 309 229 240 object memNewNote: TRichEdit 230 241 Left = 0 231 242 Top = 67 232 243 Width = 644 233 Height = 2 42244 Height = 282 234 245 Align = alClient 235 246 Font.Charset = DEFAULT_CHARSET … … 247 258 OnChange = memNewNoteChange 248 259 OnKeyDown = memNewNoteKeyDown 260 ExplicitHeight = 242 249 261 end 250 262 object pnlFields: TPanel … … 777 789 OnClick = popNoteMemoGrammarClick 778 790 end 791 object popNoteMemoSpellOpenSource: TMenuItem 792 Caption = 'Chec&k Spelling (OpenSource based)' 793 ShortCut = 118 794 OnClick = popNoteMemoSpellClick 795 end 779 796 object popNoteMemoSpell: TMenuItem 780 Caption = 'C&heck Spelling '797 Caption = 'C&heck Spelling (MS Office based)' 781 798 OnClick = popNoteMemoSpellClick 782 799 end -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.pas
r830 r1704 144 144 imgLblImages: TVA508ImageListLabeler; 145 145 imgLblSurgery: TVA508ImageListLabeler; 146 popNoteMemoSpellOpenSource: TMenuItem;//WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 146 147 procedure mnuChartTabClick(Sender: TObject); 147 148 procedure pnlRightResize(Sender: TObject); … … 437 438 FCurrentContext := FDefaultContext; 438 439 popNoteMemoSpell.Visible := SpellCheckAvailable; 440 popNoteMemoSpellOpenSource.Visible := SpellCheckAvailable; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 439 441 popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible; 440 442 Z11.Visible := popNoteMemoSpell.Visible; … … 1875 1877 begin 1876 1878 popNoteMemoSpell.Enabled := True; 1879 popNoteMemoSpellOpenSource.Enabled := True; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1877 1880 popNoteMemoGrammar.Enabled := True; 1878 1881 popNoteMemoReformat.Enabled := True; … … 1883 1886 begin 1884 1887 popNoteMemoSpell.Enabled := False; 1888 popNoteMemoSpellOpenSource.Enabled := False; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1885 1889 popNoteMemoGrammar.Enabled := False; 1886 1890 popNoteMemoReformat.Enabled := False; … … 1956 1960 timAutoSave.Enabled := False; 1957 1961 try 1958 SpellCheckForControl(memNewNote );1962 SpellCheckForControl(memNewNote, Sender = popNoteMemoSpellOpenSource); //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine 1959 1963 finally 1960 1964 FChanged := True;
Note:
See TracChangeset
for help on using the changeset viewer.