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

Implemented the OpenSource based spell check feature

Location:
cprs/branches/HealthSevak-CPRS/CPRS-Chart
Files:
2 edited

Legend:

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

    r1693 r1704  
    44  Align = alClient
    55  Caption = 'Surgery Page'
    6   ClientHeight = 363
     6  ClientHeight = 403
    77  ClientWidth = 712
    88  HelpFile = 'overvw'
     
    1010  OnDestroy = FormDestroy
    1111  ExplicitWidth = 720
    12   ExplicitHeight = 417
     12  ExplicitHeight = 457
    1313  PixelsPerInch = 96
    1414  TextHeight = 13
    1515  inherited shpPageBottom: TShape
    16     Top = 358
     16    Top = 398
    1717    Width = 712
    1818    ExplicitTop = 358
     
    2121  inherited sptHorz: TSplitter
    2222    Left = 64
    23     Height = 358
     23    Height = 398
    2424    AutoSnap = False
    2525    OnCanResize = sptHorzCanResize
     
    2929  inherited pnlLeft: TPanel
    3030    Width = 64
    31     Height = 358
     31    Height = 398
    3232    ExplicitWidth = 64
    3333    ExplicitHeight = 358
     
    4848    object lblSpace1: TLabel
    4949      Left = 0
    50       Top = 313
     50      Top = 353
    5151      Width = 64
    5252      Height = 3
     
    5454      AutoSize = False
    5555      Caption = ' '
     56      ExplicitTop = 313
    5657    end
    5758    object cmdNewNote: TORAlignButton
    5859      Left = 0
    59       Top = 316
     60      Top = 356
    6061      Width = 64
    6162      Height = 21
     
    6566      Visible = False
    6667      OnClick = cmdNewNoteClick
     68      ExplicitTop = 316
    6769    end
    6870    object cmdPCE: TORAlignButton
    6971      Left = 0
    70       Top = 337
     72      Top = 377
    7173      Width = 64
    7274      Height = 21
     
    7678      Visible = False
    7779      OnClick = cmdPCEClick
     80      ExplicitTop = 337
    7881    end
    7982    object pnlDrawers: TPanel
     
    8184      Top = 19
    8285      Width = 64
    83       Height = 294
     86      Height = 334
    8487      Align = alClient
    8588      BevelOuter = bvNone
    8689      TabOrder = 2
     90      ExplicitHeight = 294
    8791      object splDrawers: TSplitter
    8892        Left = 0
    89         Top = 291
     93        Top = 331
    9094        Width = 64
    9195        Height = 3
    9296        Cursor = crVSplit
    9397        Align = alBottom
     98        ExplicitTop = 291
    9499      end
    95100      object lstNotes: TORListBox
     
    111116        Top = 0
    112117        Width = 64
    113         Height = 291
     118        Height = 331
    114119        Align = alClient
    115120        Constraints.MinWidth = 30
     
    128133        NodePiece = 0
    129134        ShortNodeCaptions = True
     135        ExplicitHeight = 291
    130136      end
    131137    end
     
    134140    Left = 68
    135141    Width = 644
    136     Height = 358
     142    Height = 398
    137143    ExplicitLeft = 68
    138144    ExplicitWidth = 644
     
    140146    object sptVert: TSplitter
    141147      Left = 0
    142       Top = 309
     148      Top = 349
    143149      Width = 644
    144150      Height = 4
    145151      Cursor = crVSplit
    146152      Align = alBottom
     153      ExplicitTop = 309
    147154    end
    148155    object pnlRead: TPanel
     
    150157      Top = 0
    151158      Width = 644
    152       Height = 309
     159      Height = 349
    153160      Align = alClient
    154161      BevelOuter = bvNone
    155162      TabOrder = 0
     163      ExplicitHeight = 309
    156164      object lblTitle: TOROffsetLabel
    157165        Left = 0
     
    178186        Top = 19
    179187        Width = 644
    180         Height = 290
     188        Height = 330
    181189        Align = alClient
    182190        Color = clCream
     
    200208        WantReturns = False
    201209        WordWrap = False
     210        ExplicitHeight = 290
    202211      end
    203212    end
    204213    object memPCEShow: TRichEdit
    205214      Left = 0
    206       Top = 313
     215      Top = 353
    207216      Width = 644
    208217      Height = 45
     
    216225      TabOrder = 2
    217226      WantReturns = False
     227      ExplicitTop = 313
    218228    end
    219229    object pnlWrite: TPanel
     
    221231      Top = 0
    222232      Width = 644
    223       Height = 309
     233      Height = 349
    224234      Align = alClient
    225235      BevelOuter = bvNone
     
    227237      Visible = False
    228238      OnResize = pnlWriteResize
     239      ExplicitHeight = 309
    229240      object memNewNote: TRichEdit
    230241        Left = 0
    231242        Top = 67
    232243        Width = 644
    233         Height = 242
     244        Height = 282
    234245        Align = alClient
    235246        Font.Charset = DEFAULT_CHARSET
     
    247258        OnChange = memNewNoteChange
    248259        OnKeyDown = memNewNoteKeyDown
     260        ExplicitHeight = 242
    249261      end
    250262      object pnlFields: TPanel
     
    777789      OnClick = popNoteMemoGrammarClick
    778790    end
     791    object popNoteMemoSpellOpenSource: TMenuItem
     792      Caption = 'Chec&k Spelling (OpenSource based)'
     793      ShortCut = 118
     794      OnClick = popNoteMemoSpellClick
     795    end
    779796    object popNoteMemoSpell: TMenuItem
    780       Caption = 'C&heck Spelling'
     797      Caption = 'C&heck Spelling (MS Office based)'
    781798      OnClick = popNoteMemoSpellClick
    782799    end
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/fSurgery.pas

    r830 r1704  
    144144    imgLblImages: TVA508ImageListLabeler;
    145145    imgLblSurgery: TVA508ImageListLabeler;
     146    popNoteMemoSpellOpenSource: TMenuItem;//WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    146147    procedure mnuChartTabClick(Sender: TObject);
    147148    procedure pnlRightResize(Sender: TObject);
     
    437438    FCurrentContext := FDefaultContext;
    438439    popNoteMemoSpell.Visible   := SpellCheckAvailable;
     440    popNoteMemoSpellOpenSource.Visible   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    439441    popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible;
    440442    Z11.Visible                := popNoteMemoSpell.Visible;
     
    18751877  begin
    18761878    popNoteMemoSpell.Enabled    := True;
     1879    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    18771880    popNoteMemoGrammar.Enabled  := True;
    18781881    popNoteMemoReformat.Enabled := True;
     
    18831886  begin
    18841887    popNoteMemoSpell.Enabled    := False;
     1888    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    18851889    popNoteMemoGrammar.Enabled  := False;
    18861890    popNoteMemoReformat.Enabled := False;
     
    19561960  timAutoSave.Enabled := False;
    19571961  try
    1958     SpellCheckForControl(memNewNote);
     1962    SpellCheckForControl(memNewNote, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    19591963  finally
    19601964    FChanged := True;
Note: See TracChangeset for help on using the changeset viewer.