Changeset 1723 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 23, 2015, 9:39:28 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.dproj
r1693 r1723 52 52 <Borland.ProjectType>VCLApplication</Borland.ProjectType> 53 53 <BorlandProject> 54 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">CCOW=disable s=192.168.1.1 1p=9430</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">28</VersionInfo><VersionInfo Name="Build">24</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys><VersionInfoKeys Name="FileDescription">1/24/2011</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.28.24</VersionInfoKeys><VersionInfoKeys Name="InternalName">1.0.28.24 server required</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">Patch 280</VersionInfoKeys><VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Version 1.0.28.24</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">CPRSChart.dpr</Source></Source><TypeLibOptions><TypeLibOptions Name="AutoRegisterTLB">False</TypeLibOptions><TypeLibOptions Name="AutoGenImportAssembly">False</TypeLibOptions></TypeLibOptions></Delphi.Personality></BorlandProject></BorlandProject>54 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">CCOW=disable s=192.168.1.10 p=9430</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">28</VersionInfo><VersionInfo Name="Build">24</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys><VersionInfoKeys Name="FileDescription">1/24/2011</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.28.24</VersionInfoKeys><VersionInfoKeys Name="InternalName">1.0.28.24 server required</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">Patch 280</VersionInfoKeys><VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Version 1.0.28.24</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">CPRSChart.dpr</Source></Source><TypeLibOptions><TypeLibOptions Name="AutoRegisterTLB">False</TypeLibOptions><TypeLibOptions Name="AutoGenImportAssembly">False</TypeLibOptions></TypeLibOptions></Delphi.Personality></BorlandProject></BorlandProject> 55 55 </ProjectExtensions> 56 56 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.drc
r1721 r1723 723 723 /* Encounter\fPCEEdit.DFM */ 724 724 /* Templates\fTemplateFields.DFM */ 725 /* E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\fHunSpell.DFM */725 /* fHunSpell.DFM */ 726 726 /* fSpellNotify.dfm */ 727 727 /* Templates\fTemplateFieldEditor.DFM */ -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart_TLB.pas
r1693 r1723 13 13 14 14 // $Rev: 8291 $ 15 // File generated on 5/2 /2015 5:57:00PM from Type Library described below.15 // File generated on 5/23/2015 7:44:32 PM from Type Library described below. 16 16 17 17 // ************************************************************************ // 18 // Type Lib: E:\ Vista_30_28\OR_SRC_CREATION\CPRS-Chart\CPRSChart.tlb (1)18 // Type Lib: E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\CPRSChart.tlb (1) 19 19 // LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274} 20 20 // LCID: 0 -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm
r1719 r1723 15 15 OnCreate = FormCreate 16 16 OnShow = FormShow 17 ExplicitTop = -9218 17 ExplicitWidth = 743 19 18 ExplicitHeight = 548 … … 78 77 'Work under progress by Sunil Kumar Arora (digitiger@gmail.com).' + 79 78 '.........Thi will be updated later........' 80 TabOrder = 479 TabOrder = 5 81 80 Visible = False 82 81 object Button1: TButton … … 123 122 end 124 123 object edtMisSpelt: TEdit 125 Left = 15 1126 Top = 4124 Left = 150 125 Top = 2 127 126 Width = 554 128 127 Height = 18 … … 225 224 ParentFont = False 226 225 ReadOnly = True 227 TabOrder = 5226 TabOrder = 6 228 227 OnEnter = edtDictionaryEnter 229 228 end … … 233 232 Width = 258 234 233 Height = 25 235 Caption = ' &Browse for and select different dictionary'236 TabOrder = 6234 Caption = 'Bro&wse for and select different dictionary' 235 TabOrder = 7 237 236 OnClick = btnSelectDictClick 238 237 end … … 250 249 end 251 250 object btnAbout: TButton [8] 252 Left = 452253 Top = 2 91251 Left = 300 252 Top = 285 254 253 Width = 110 255 254 Height = 25 256 Caption = 'A &bout'257 TabOrder = 3255 Caption = 'Abo&ut' 256 TabOrder = 4 258 257 OnClick = btnAboutClick 259 258 end 260 259 object btnClose: TButton [9] 261 260 Left = 611 262 Top = 2 91261 Top = 285 263 262 Width = 110 264 263 Height = 25 265 Caption = ' C&lose'264 Caption = 'Finish && C&lose' 266 265 ModalResult = 1 267 TabOrder = 2266 TabOrder = 3 268 267 Visible = False 269 268 OnClick = btnCloseClick … … 275 274 Height = 17 276 275 Caption = 'Ignore words in &UpperCase' 277 TabOrder = 7276 TabOrder = 8 278 277 OnClick = cbIgnoreAllCapsClick 279 278 end … … 284 283 Height = 17 285 284 Caption = 'Ignore words with &digits' 286 TabOrder = 8285 TabOrder = 9 287 286 OnClick = cbIgnoreDigitClick 287 end 288 object btnRestat: TButton [12] 289 Left = 452 290 Top = 285 291 Width = 110 292 Height = 25 293 Caption = 'Re&Start Check' 294 TabOrder = 2 295 OnClick = btnRestatClick 288 296 end 289 297 inherited amgrMain: TVA508AccessibilityManager … … 351 359 ( 352 360 'Component = cbIgnoreDigit' 361 'Status = stsDefault') 362 ( 363 'Component = btnRestat' 353 364 'Status = stsDefault')) 354 365 end -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas
r1719 r1723 68 68 cbIgnoreAllCaps: TCheckBox; 69 69 cbIgnoreDigit: TCheckBox; 70 btnRestat: TButton; 70 71 procedure FormCreate(Sender: TObject); 71 72 procedure btnIgnoreOnceClick(Sender: TObject); … … 98 99 procedure cbIgnoreDigitClick(Sender: TObject); 99 100 procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); 101 procedure btnRestatClick(Sender: TObject); 100 102 private 101 103 { Private declarations } … … 249 251 begin 250 252 SpellCheck1.CorrectWithMyWord; 253 end; 254 255 procedure TfrmHunSpell.btnRestatClick(Sender: TObject); 256 begin 257 inherited; 258 if SpellCheck1.SpellCheckState = ssChecking then 259 SpellCheck1.ReStart 260 else 261 SpellCheck1.CheckSpelling; 251 262 end; 252 263 … … 363 374 if SpellCheck1.SpellCheckState = ssCompleted then 364 375 begin 365 ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;376 // ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ; 366 377 if Assigned(FSourceControl) then 367 378 FSourceControl.Text := RichEdit1.Text;
Note:
See TracChangeset
for help on using the changeset viewer.