Ignore:
Timestamp:
May 9, 2015, 7:37:29 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/fDCSumm.dfm

    r1693 r1702  
    44  HelpContext = 7000
    55  Caption = 'Discharge Summary Page'
    6   ClientHeight = 382
     6  ClientHeight = 482
    77  ClientWidth = 679
    88  HelpFile = 'overvw'
     
    1010  OnDestroy = FormDestroy
    1111  ExplicitWidth = 687
    12   ExplicitHeight = 436
     12  ExplicitHeight = 536
    1313  PixelsPerInch = 96
    1414  TextHeight = 13
    1515  inherited shpPageBottom: TShape
    16     Top = 377
     16    Top = 477
    1717    Width = 679
    1818    ExplicitTop = 358
     
    2222    Left = 64
    2323    Width = 3
    24     Height = 377
     24    Height = 477
    2525    OnCanResize = sptHorzCanResize
    2626    ExplicitLeft = 64
     
    3030  inherited pnlLeft: TPanel
    3131    Width = 64
    32     Height = 377
     32    Height = 477
    3333    ExplicitWidth = 64
    34     ExplicitHeight = 377
     34    ExplicitHeight = 457
    3535    object lblSumms: TOROffsetLabel
    3636      Left = 0
     
    4949    object lblSpace1: TLabel
    5050      Left = 0
    51       Top = 353
     51      Top = 453
    5252      Width = 64
    5353      Height = 3
     
    5959    object cmdNewSumm: TORAlignButton
    6060      Left = 0
    61       Top = 332
     61      Top = 432
    6262      Width = 64
    6363      Height = 21
     
    6666      TabOrder = 1
    6767      OnClick = cmdNewSummClick
     68      ExplicitTop = 412
    6869    end
    6970    object cmdPCE: TORAlignButton
    7071      Left = 0
    71       Top = 356
     72      Top = 456
    7273      Width = 64
    7374      Height = 21
     
    7778      Visible = False
    7879      OnClick = cmdPCEClick
     80      ExplicitTop = 436
    7981    end
    8082    object pnlDrawers: TPanel
     
    8284      Top = 19
    8385      Width = 64
    84       Height = 313
     86      Height = 413
    8587      Align = alClient
    8688      BevelOuter = bvNone
    8789      TabOrder = 0
     90      ExplicitHeight = 393
    8891      object splDrawers: TSplitter
    8992        Left = 0
    90         Top = 310
     93        Top = 410
    9194        Width = 64
    9295        Height = 3
     
    119122        Top = 0
    120123        Width = 64
    121         Height = 310
     124        Height = 410
    122125        Align = alClient
    123126        Constraints.MinWidth = 30
     
    139142        NodePiece = 0
    140143        ShortNodeCaptions = True
     144        ExplicitHeight = 390
    141145      end
    142146    end
     
    145149    Left = 67
    146150    Width = 612
    147     Height = 377
     151    Height = 477
    148152    ExplicitLeft = 67
    149153    ExplicitWidth = 612
    150     ExplicitHeight = 377
     154    ExplicitHeight = 457
    151155    object sptVert: TSplitter
    152156      Left = 0
    153       Top = 328
     157      Top = 428
    154158      Width = 612
    155159      Height = 4
     
    160164    object memPCEShow: TRichEdit
    161165      Left = 0
    162       Top = 332
     166      Top = 432
    163167      Width = 612
    164168      Height = 45
     
    173177      WantReturns = False
    174178      WordWrap = False
     179      ExplicitTop = 412
    175180    end
    176181    object pnlWrite: TPanel
     
    178183      Top = 0
    179184      Width = 612
    180       Height = 328
     185      Height = 428
    181186      Align = alClient
    182187      BevelOuter = bvNone
     
    184189      Visible = False
    185190      OnResize = pnlWriteResize
     191      ExplicitHeight = 408
    186192      object memNewSumm: TRichEdit
    187193        Left = 0
    188194        Top = 52
    189195        Width = 612
    190         Height = 276
     196        Height = 376
    191197        Align = alClient
    192198        Font.Charset = DEFAULT_CHARSET
     
    204210        OnChange = memNewSummChange
    205211        OnKeyUp = memNewSummKeyUp
     212        ExplicitHeight = 356
    206213      end
    207214      object pnlFields: TORAutoPanel
     
    318325      Top = 0
    319326      Width = 612
    320       Height = 328
     327      Height = 428
    321328      Align = alClient
    322329      BevelOuter = bvNone
    323330      TabOrder = 0
     331      ExplicitHeight = 408
    324332      object lblTitle: TOROffsetLabel
    325333        Left = 0
     
    355363        Top = 116
    356364        Width = 612
    357         Height = 212
     365        Height = 312
    358366        Align = alClient
    359367        Color = clCream
     
    377385        WantReturns = False
    378386        WordWrap = False
     387        ExplicitHeight = 292
    379388      end
    380389      object lvSumms: TCaptionListView
     
    499508        'Status = stsDefault'))
    500509  end
    501   object mnuSumms: TMainMenu
     510  object mnuSumms: TMainMenu [5]
    502511    Left = 596
    503512    Top = 305
     
    784793    end
    785794  end
    786   object popSummMemo: TPopupMenu
     795  object popSummMemo: TPopupMenu [6]
    787796    OnPopup = popSummMemoPopup
    788797    Left = 539
     
    838847      OnClick = popSummMemoGrammarClick
    839848    end
     849    object popNoteMemoSpellOpenSource: TMenuItem
     850      Caption = 'Chec&k Spelling (OpenSource based)'
     851      ShortCut = 118
     852      OnClick = popSummMemoSpellClick
     853    end
    840854    object popSummMemoSpell: TMenuItem
    841       Caption = 'C&heck Spelling'
     855      Caption = 'C&heck Spelling (MS Office based)'
    842856      OnClick = popSummMemoSpellClick
    843857    end
     
    899913    end
    900914  end
    901   object popSummList: TPopupMenu
     915  object popSummList: TPopupMenu [7]
    902916    OnPopup = popSummListPopup
    903917    Left = 500
     
    968982    end
    969983  end
    970   object timAutoSave: TTimer
     984  object timAutoSave: TTimer [8]
    971985    Enabled = False
    972986    Interval = 300000
     
    975989    Top = 61
    976990  end
    977   object dlgFindText: TFindDialog
     991  object dlgFindText: TFindDialog [9]
    978992    Options = [frDown, frHideUpDown]
    979993    OnFind = dlgFindTextFind
     
    981995    Top = 312
    982996  end
    983   object dlgReplaceText: TReplaceDialog
     997  object dlgReplaceText: TReplaceDialog [10]
    984998    OnFind = dlgReplaceTextFind
    985999    OnReplace = dlgReplaceTextReplace
     
    9871001    Top = 313
    9881002  end
    989   object imgLblNotes: TVA508ImageListLabeler
     1003  object imgLblNotes: TVA508ImageListLabeler [11]
    9901004    Components = <
    9911005      item
     
    10001014    Top = 171
    10011015  end
    1002   object imgLblImages: TVA508ImageListLabeler
     1016  object imgLblImages: TVA508ImageListLabeler [12]
    10031017    Components = <
    10041018      item
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/fDCSumm.pas

    r1693 r1702  
    147147    imgLblNotes: TVA508ImageListLabeler;
    148148    imgLblImages: TVA508ImageListLabeler;
     149    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    149150    procedure mnuChartTabClick(Sender: TObject);
    150151    procedure lstSummsClick(Sender: TObject);
     
    501502    FCurrentContext := FDefaultContext;
    502503    popSummMemoSpell.Visible   := SpellCheckAvailable;
     504    popNoteMemoSpellOpenSource.Visible   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    503505    popSummMemoGrammar.Visible := popSummMemoSpell.Visible;
    504506    Z11.Visible                := popSummMemoSpell.Visible;
     
    18561858  begin
    18571859    popSummMemoSpell.Enabled   := True;
     1860    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    18581861    popSummMemoGrammar.Enabled := True;
    18591862    popSummMemoReformat.Enabled := True;
     
    18641867  begin
    18651868    popSummMemoSpell.Enabled   := False;
     1869    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    18661870    popSummMemoGrammar.Enabled := False;
    18671871    popSummMemoReformat.Enabled := False;
     
    19481952  timAutoSave.Enabled := False;
    19491953  try
    1950     SpellCheckForControl(memNewSumm);
     1954    SpellCheckForControl(memNewSumm, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    19511955  finally
    19521956    FChanged := True;
Note: See TracChangeset for help on using the changeset viewer.