Changeset 1694 for cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck
- Timestamp:
- May 9, 2015, 7:14:07 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaHunSpellChecker.dproj
r1693 r1694 41 41 42 42 43 44 45 46 47 48 49 50 <Excluded_Packages Name="E:\Hans SpellCheck\Bin\skaHunSpellChecker.bpl">File E:\Hans SpellCheck\Bin\skaHunSpellChecker.bpl not found</Excluded_Packages> 43 <Excluded_Packages Name="C:\Documents and Settings\All Users\Documents\RAD Studio\5.0\Bpl\XWB_R2007.bpl">VistA RPC Broker Runtime Package</Excluded_Packages> 44 <Excluded_Packages Name="E:\WVEHR\branches\HealthSevak-CPRS\BDK50\Packages\XWB_D2007.bpl">File E:\WVEHR\branches\HealthSevak-CPRS\BDK50\Packages\XWB_D2007.bpl not found</Excluded_Packages> 51 45 <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> 52 46 </Excluded_Packages><Source><Source Name="MainSource">skaHunSpellChecker.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> -
cprs/branches/HealthSevak-CPRS/CPRS-Lib/Hans SpellCheck/skaSpellCheck.pas
r1693 r1694 70 70 FHighlightEdit: TEdit; 71 71 FbtnClose: TButton; 72 FTxtBeforeManualEdit: String; 72 73 function AddCustomWord(aWord: String; isInternal: Boolean = False): Boolean; 73 74 overload; virtual; … … 87 88 procedure ReplaceCurrentWordWith(const aNewWord: String); 88 89 function GetAboutThis: String; 89 procedure SaveForUndo(const Ignoring: Boolean =False);90 procedure SaveForUndo(const Ignoring: Boolean=False); 90 91 public 91 92 constructor Create(AOwner: TComponent); overload; override; … … 106 107 procedure IgnoreOnce; 107 108 function IsMisspelled(const AWord: string): Boolean; dynamic; 109 procedure ManualChangeStart; 110 procedure ManualChangeDone; 108 111 function Open:Boolean; virtual; 109 112 function ReStart: Boolean; virtual; 113 110 114 function Undo: Boolean; 111 115 … … 204 208 full: String; 205 209 prefix: string; 206 current: string;207 210 suffix: string; 208 211 begin … … 588 591 end; 589 592 593 procedure TskaHunSpellChecker.ManualChangeDone; 594 begin 595 if trim(FTxtBeforeManualEdit) = '' then 596 exit; 597 FUndoList.Add(FTxtBeforeManualEdit); 598 ReStart; 599 end; 600 601 procedure TskaHunSpellChecker.ManualChangeStart; 602 begin 603 FTxtBeforeManualEdit := FSourceEdit.Text; 604 end; 605 590 606 function TskaHunSpellChecker.Open: Boolean; 591 607 var
Note:
See TracChangeset
for help on using the changeset viewer.