Index: /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.dproj
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.dproj (revision 1722)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.dproj (revision 1723)
@@ -52,5 +52,5 @@
VCLApplication
-FalseTrueFalseCCOW=disable s=192.168.1.11 p=9430TrueFalse102824FalseFalseFalseFalseFalse10331252Department of Veterans Affairs1/24/20111.0.28.241.0.28.24 server requiredUnauthorized 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.Patch 280Computerized Patient Record System1.0.0.0Version 1.0.28.24CPRSChart.dprFalseFalse
+FalseTrueFalseCCOW=disable s=192.168.1.10 p=9430TrueFalse102824FalseFalseFalseFalseFalse10331252Department of Veterans Affairs1/24/20111.0.28.241.0.28.24 server requiredUnauthorized 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.Patch 280Computerized Patient Record System1.0.0.0Version 1.0.28.24CPRSChart.dprFalseFalse
Index: /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.drc
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.drc (revision 1722)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.drc (revision 1723)
@@ -723,5 +723,5 @@
/* Encounter\fPCEEdit.DFM */
/* Templates\fTemplateFields.DFM */
-/* E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\fHunSpell.DFM */
+/* fHunSpell.DFM */
/* fSpellNotify.dfm */
/* Templates\fTemplateFieldEditor.DFM */
Index: /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart_TLB.pas
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart_TLB.pas (revision 1722)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart_TLB.pas (revision 1723)
@@ -13,8 +13,8 @@
// $Rev: 8291 $
-// File generated on 5/2/2015 5:57:00 PM from Type Library described below.
+// File generated on 5/23/2015 7:44:32 PM from Type Library described below.
// ************************************************************************ //
-// Type Lib: E:\Vista_30_28\OR_SRC_CREATION\CPRS-Chart\CPRSChart.tlb (1)
+// Type Lib: E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\CPRSChart.tlb (1)
// LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274}
// LCID: 0
Index: /cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm (revision 1722)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm (revision 1723)
@@ -15,5 +15,4 @@
OnCreate = FormCreate
OnShow = FormShow
- ExplicitTop = -92
ExplicitWidth = 743
ExplicitHeight = 548
@@ -78,5 +77,5 @@
'Work under progress by Sunil Kumar Arora (digitiger@gmail.com).' +
'.........Thi will be updated later........'
- TabOrder = 4
+ TabOrder = 5
Visible = False
object Button1: TButton
@@ -123,6 +122,6 @@
end
object edtMisSpelt: TEdit
- Left = 151
- Top = 4
+ Left = 150
+ Top = 2
Width = 554
Height = 18
@@ -225,5 +224,5 @@
ParentFont = False
ReadOnly = True
- TabOrder = 5
+ TabOrder = 6
OnEnter = edtDictionaryEnter
end
@@ -233,6 +232,6 @@
Width = 258
Height = 25
- Caption = '&Browse for and select different dictionary'
- TabOrder = 6
+ Caption = 'Bro&wse for and select different dictionary'
+ TabOrder = 7
OnClick = btnSelectDictClick
end
@@ -250,20 +249,20 @@
end
object btnAbout: TButton [8]
- Left = 452
- Top = 291
+ Left = 300
+ Top = 285
Width = 110
Height = 25
- Caption = 'A&bout'
- TabOrder = 3
+ Caption = 'Abo&ut'
+ TabOrder = 4
OnClick = btnAboutClick
end
object btnClose: TButton [9]
Left = 611
- Top = 291
+ Top = 285
Width = 110
Height = 25
- Caption = 'C&lose'
+ Caption = 'Finish && C&lose'
ModalResult = 1
- TabOrder = 2
+ TabOrder = 3
Visible = False
OnClick = btnCloseClick
@@ -275,5 +274,5 @@
Height = 17
Caption = 'Ignore words in &UpperCase'
- TabOrder = 7
+ TabOrder = 8
OnClick = cbIgnoreAllCapsClick
end
@@ -284,6 +283,15 @@
Height = 17
Caption = 'Ignore words with &digits'
- TabOrder = 8
+ TabOrder = 9
OnClick = cbIgnoreDigitClick
+ end
+ object btnRestat: TButton [12]
+ Left = 452
+ Top = 285
+ Width = 110
+ Height = 25
+ Caption = 'Re&Start Check'
+ TabOrder = 2
+ OnClick = btnRestatClick
end
inherited amgrMain: TVA508AccessibilityManager
@@ -351,4 +359,7 @@
(
'Component = cbIgnoreDigit'
+ 'Status = stsDefault')
+ (
+ 'Component = btnRestat'
'Status = stsDefault'))
end
Index: /cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas
===================================================================
--- /cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas (revision 1722)
+++ /cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas (revision 1723)
@@ -68,4 +68,5 @@
cbIgnoreAllCaps: TCheckBox;
cbIgnoreDigit: TCheckBox;
+ btnRestat: TButton;
procedure FormCreate(Sender: TObject);
procedure btnIgnoreOnceClick(Sender: TObject);
@@ -98,4 +99,5 @@
procedure cbIgnoreDigitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+ procedure btnRestatClick(Sender: TObject);
private
{ Private declarations }
@@ -249,4 +251,13 @@
begin
SpellCheck1.CorrectWithMyWord;
+end;
+
+procedure TfrmHunSpell.btnRestatClick(Sender: TObject);
+begin
+ inherited;
+ if SpellCheck1.SpellCheckState = ssChecking then
+ SpellCheck1.ReStart
+ else
+ SpellCheck1.CheckSpelling;
end;
@@ -363,5 +374,5 @@
if SpellCheck1.SpellCheckState = ssCompleted then
begin
- ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;
+ // ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;
if Assigned(FSourceControl) then
FSourceControl.Text := RichEdit1.Text;