Ignore:
Timestamp:
May 9, 2015, 7:26:48 AM (10 years ago)
Author:
healthsevak
Message:

Implemented the OpenSource based spell check feature

Location:
cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.dfm

    r1693 r1699  
    964964          Align = alLeft
    965965          AutoSize = True
    966           ButtonHeight = 0
    967           ButtonWidth = 0
     966          ButtonHeight = 21
     967          ButtonWidth = 37
    968968          Caption = 'mbMain'
    969969          Menu = mnuMain
     
    10961096    Align = alClient
    10971097    TabOrder = 4
    1098     ExplicitLeft = 138
    1099     ExplicitTop = 221
    11001098    object pnlBoilerplate: TPanel
    11011099      Left = 1
     
    11081106      OnCanResize = pnlBoilerplateCanResize
    11091107      OnResize = pnlBoilerplateResize
    1110       ExplicitLeft = 17
    1111       ExplicitTop = 2
    11121108      object splBoil: TSplitter
    11131109        Left = 0
     
    11731169        TabOrder = 2
    11741170        Visible = False
    1175         ExplicitLeft = -1
    1176         ExplicitTop = 154
    11771171        object lblGroupBP: TLabel
    11781172          Left = 0
     
    12821276        TabOrder = 3
    12831277        Visible = False
    1284         ExplicitTop = 158
    12851278        object lblNotes: TLabel
    12861279          Left = 0
    12871280          Top = 0
    1288           Width = 78
     1281          Width = 738
    12891282          Height = 13
    12901283          Align = alTop
    12911284          Caption = 'Template Notes:'
     1285          ExplicitWidth = 78
    12921286        end
    12931287        object reNotes: TRichEdit
     
    13261320    BevelOuter = bvNone
    13271321    TabOrder = 2
    1328     ExplicitLeft = 40
    1329     ExplicitTop = 498
    13301322    DesignSize = (
    13311323      740
     
    17551747      OnClick = mnuBPCheckGrammarClick
    17561748    end
     1749    object popNoteMemoSpellOpenSource: TMenuItem
     1750      Caption = 'Chec&k Spelling (OpenSource based)'
     1751      ShortCut = 118
     1752      OnClick = mnuBPSpellCheckClick
     1753    end
    17571754    object mnuBPSpellCheck: TMenuItem
    1758       Caption = 'Check &Spelling'
     1755      Caption = 'C&heck Spelling (MS Office based)'
    17591756      ShortCut = 16467
    17601757      OnClick = mnuBPSpellCheckClick
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateEditor.pas

    r1693 r1699  
    212212    lblNotes: TLabel;
    213213    reNotes: TRichEdit;
     214    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    214215    procedure btnNewClick(Sender: TObject);
    215216    procedure btnApplyClick(Sender: TObject);
     
    26122613  mnuBPTry.Enabled := tryOK;
    26132614  mnuBPSpellCheck.Enabled := ok and SpellCheckAvailable;
     2615  popNoteMemoSpellOpenSource.Enabled   := ok and SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    26142616  mnuBPCheckGrammar.Enabled := ok and SpellCheckAvailable;
    26152617
     
    27092711procedure TfrmTemplateEditor.mnuBPSpellCheckClick(Sender: TObject);
    27102712begin
    2711   SpellCheckForControl(reBoil);
     2713  SpellCheckForControl(reBoil, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    27122714end;
    27132715
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.dfm

    r1693 r1699  
    825825      AutoSize = True
    826826      ButtonHeight = 21
    827       ButtonWidth = 43
     827      ButtonWidth = 37
    828828      Caption = 'MenuBar1'
    829829      Menu = mnuMain
     
    10901090      OnClick = mnuBPCheckGrammarClick
    10911091    end
     1092    object popNoteMemoSpellOpenSource: TMenuItem
     1093      Caption = 'Chec&k Spelling (OpenSource based)'
     1094      ShortCut = 118
     1095      OnClick = mnuBPSpellCheckClick
     1096    end
    10921097    object mnuBPSpellCheck: TMenuItem
    1093       Caption = 'Check &Spelling'
     1098      Caption = 'Check &Spelling (MS Office based)'
    10941099      ShortCut = 16467
    10951100      OnClick = mnuBPSpellCheckClick
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/Templates/fTemplateFieldEditor.pas

    r829 r1699  
    100100    N14: TMenuItem;
    101101    mnuInsertTemplateField: TMenuItem;
     102    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    102103    procedure cbxObjsNeedData(Sender: TObject; const StartFrom: String;
    103104      Direction, InsertAt: Integer);
     
    10411042
    10421043  mnuBPSpellCheck.Visible := isre;
     1044  popNoteMemoSpellOpenSource.Visible   := isre;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    10431045  mnuBPCheckGrammar.Visible := isre;
    10441046
     
    10461048  begin
    10471049    mnuBPSpellCheck.Enabled   := SpellCheckAvailable;
     1050    popNoteMemoSpellOpenSource.Enabled   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    10481051    mnuBPCheckGrammar.Enabled := SpellCheckAvailable;
    10491052  end
     
    10511054  begin
    10521055    mnuBPSpellCheck.Enabled   := FALSE;
     1056    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    10531057    mnuBPCheckGrammar.Enabled := FALSE;
    10541058  end;
     
    11301134  ce := GetPopupControl;
    11311135  if(assigned(ce) and (ce is TRichEdit)) then
    1132     SpellCheckForControl(TRichEdit(ce));
     1136    SpellCheckForControl(TRichEdit(ce), Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    11331137end;
    11341138
Note: See TracChangeset for help on using the changeset viewer.