Changeset 1698 for cprs


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

Implemented the OpenSource based spell check feature

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

Legend:

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

    r1693 r1698  
    44  HelpContext = 6000
    55  Caption = 'Consults Page'
    6   ClientHeight = 421
     6  ClientHeight = 501
    77  ClientWidth = 715
    88  Menu = mnuConsults
     
    1111  OnShow = FormShow
    1212  ExplicitWidth = 723
    13   ExplicitHeight = 475
     13  ExplicitHeight = 555
    1414  PixelsPerInch = 96
    1515  TextHeight = 13
    1616  inherited shpPageBottom: TShape
    17     Top = 416
     17    Top = 496
    1818    Width = 715
    1919    ExplicitTop = 416
     
    2323    Left = 83
    2424    Width = 2
    25     Height = 416
     25    Height = 496
    2626    OnCanResize = sptHorzCanResize
    2727    ExplicitLeft = 83
     
    3232    Left = 85
    3333    Width = 630
    34     Height = 416
     34    Height = 496
    3535    OnExit = pnlRightExit
    3636    OnResize = pnlRightResize
    3737    ExplicitLeft = 85
    3838    ExplicitWidth = 630
    39     ExplicitHeight = 416
     39    ExplicitHeight = 476
    4040    object sptVert: TSplitter
    4141      Left = 0
    42       Top = 350
     42      Top = 430
    4343      Width = 630
    4444      Height = 4
    4545      Cursor = crVSplit
    4646      Align = alBottom
     47      ExplicitTop = 350
    4748    end
    4849    object pnlRead: TPanel
     
    5051      Top = 0
    5152      Width = 630
    52       Height = 350
     53      Height = 430
    5354      Align = alClient
    5455      BevelOuter = bvNone
    5556      TabOrder = 0
     57      ExplicitHeight = 410
    5658      object lblTitle: TOROffsetLabel
    5759        Left = 0
     
    7880        Top = 19
    7981        Width = 630
    80         Height = 331
     82        Height = 411
    8183        Align = alClient
    8284        Color = clCream
     
    100102        WantReturns = False
    101103        WordWrap = False
     104        ExplicitHeight = 391
    102105      end
    103106    end
    104107    object memPCEShow: TRichEdit
    105108      Left = 0
    106       Top = 354
     109      Top = 434
    107110      Width = 630
    108111      Height = 62
     
    111114      TabOrder = 2
    112115      WantReturns = False
     116      ExplicitTop = 414
    113117    end
    114118    object pnlResults: TPanel
     
    116120      Top = 0
    117121      Width = 630
    118       Height = 350
     122      Height = 430
    119123      Align = alClient
    120124      BevelOuter = bvNone
    121125      TabOrder = 1
    122126      OnResize = pnlResultsResize
     127      ExplicitHeight = 410
    123128      object memResults: TRichEdit
    124129        Left = 0
    125130        Top = 67
    126131        Width = 630
    127         Height = 283
     132        Height = 363
    128133        Align = alClient
    129134        Font.Charset = ANSI_CHARSET
     
    139144        OnChange = memResultChange
    140145        OnKeyDown = memResultsKeyDown
     146        ExplicitHeight = 343
    141147      end
    142148      object pnlFields: TPanel
     
    266272  inherited pnlLeft: TPanel [3]
    267273    Width = 83
    268     Height = 416
     274    Height = 496
    269275    OnExit = pnlLeftExit
    270276    OnResize = pnlLeftResize
    271277    ExplicitWidth = 83
    272     ExplicitHeight = 416
     278    ExplicitHeight = 476
    273279    object splConsults: TSplitter
    274280      Left = 0
     
    283289      Top = 164
    284290      Width = 83
    285       Height = 231
     291      Height = 311
    286292      Align = alClient
    287293      BevelOuter = bvNone
    288294      TabOrder = 1
     295      ExplicitHeight = 291
    289296      object splDrawers: TSplitter
    290297        Left = 0
    291         Top = 228
     298        Top = 308
    292299        Width = 83
    293300        Height = 3
    294301        Cursor = crVSplit
    295302        Align = alBottom
     303        ExplicitTop = 228
    296304      end
    297305      object cmdNewConsult: TORAlignButton
     
    360368        Top = 63
    361369        Width = 83
    362         Height = 165
     370        Height = 245
    363371        Align = alClient
    364372        Constraints.MinWidth = 30
     
    379387        Caption = 'Consult Notes'
    380388        NodePiece = 0
     389        ExplicitHeight = 225
    381390      end
    382391    end
    383392    object cmdPCE: TORAlignButton
    384393      Left = 0
    385       Top = 395
     394      Top = 475
    386395      Width = 83
    387396      Height = 21
     
    392401      Visible = False
    393402      OnClick = cmdPCEClick
     403      ExplicitTop = 455
    394404    end
    395405    object pnlConsultList: TPanel
     
    540550        'Status = stsDefault'))
    541551  end
    542   object popNoteMemo: TPopupMenu
     552  object popNoteMemo: TPopupMenu [5]
    543553    OnPopup = popNoteMemoPopup
    544554    Left = 589
     
    594604      OnClick = popNoteMemoGrammarClick
    595605    end
     606    object popNoteMemoSpellOpenSource: TMenuItem
     607      Caption = 'Chec&k Spelling (OpenSource based)'
     608      ShortCut = 118
     609      OnClick = popNoteMemoSpellClick
     610    end
    596611    object popNoteMemoSpell: TMenuItem
    597       Caption = 'C&heck Spelling'
     612      Caption = 'C&heck Spelling (MS Office based)'
    598613      OnClick = popNoteMemoSpellClick
    599614    end
     
    667682    end
    668683  end
    669   object popConsultList: TPopupMenu
     684  object popConsultList: TPopupMenu [6]
    670685    Left = 523
    671686    Top = 308
     
    696711    end
    697712  end
    698   object mnuConsults: TMainMenu
     713  object mnuConsults: TMainMenu [7]
    699714    Left = 461
    700715    Top = 305
     
    10801095    end
    10811096  end
    1082   object timAutoSave: TTimer
     1097  object timAutoSave: TTimer [8]
    10831098    Enabled = False
    10841099    Interval = 300000
     
    10871102    Top = 110
    10881103  end
    1089   object popNoteList: TPopupMenu
     1104  object popNoteList: TPopupMenu [9]
    10901105    OnPopup = popNoteListPopup
    10911106    Left = 395
     
    11231138    end
    11241139  end
    1125   object dlgFindText: TFindDialog
     1140  object dlgFindText: TFindDialog [10]
    11261141    Options = [frDown, frHideUpDown]
    11271142    OnFind = dlgFindTextFind
     
    11291144    Top = 303
    11301145  end
    1131   object dlgReplaceText: TReplaceDialog
     1146  object dlgReplaceText: TReplaceDialog [11]
    11321147    OnFind = dlgReplaceTextFind
    11331148    OnReplace = dlgReplaceTextReplace
     
    11351150    Top = 303
    11361151  end
    1137   object imgLblNotes: TVA508ImageListLabeler
     1152  object imgLblNotes: TVA508ImageListLabeler [12]
    11381153    Components = <
    11391154      item
     
    11451160    Top = 48
    11461161  end
    1147   object imgLblImages: TVA508ImageListLabeler
     1162  object imgLblImages: TVA508ImageListLabeler [13]
    11481163    Components = <
    11491164      item
     
    11551170    Top = 88
    11561171  end
    1157   object imgLblConsults: TVA508ImageListLabeler
     1172  object imgLblConsults: TVA508ImageListLabeler [14]
    11581173    Components = <
    11591174      item
  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/Consults/fConsults.pas

    r1693 r1698  
    180180    imgLblImages: TVA508ImageListLabeler;
    181181    imgLblConsults: TVA508ImageListLabeler;
    182     popNoteMemoViewCslt: TMenuItem;   //wat cq 17586
     182    popNoteMemoViewCslt: TMenuItem;
     183    popNoteMemoSpellOpenSource: TMenuItem; //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    183184    procedure mnuChartTabClick(Sender: TObject);
    184185    procedure lstConsultsClick(Sender: TObject);
     
    677678    FCurrentContext := FDefaultContext;
    678679    popNoteMemoSpell.Visible   := SpellCheckAvailable;
     680    popNoteMemoSpellOpenSource.Visible   := SpellCheckAvailable;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    679681    popNoteMemoGrammar.Visible := popNoteMemoSpell.Visible;
    680682    Z11.Visible                := popNoteMemoSpell.Visible;
     
    27412743  begin
    27422744    popNoteMemoSpell.Enabled    := True;
     2745    popNoteMemoSpellOpenSource.Enabled   := True;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    27432746    popNoteMemoGrammar.Enabled  := True;
    27442747    popNoteMemoReformat.Enabled := True;
     
    27502753  begin
    27512754    popNoteMemoSpell.Enabled    := False;
     2755    popNoteMemoSpellOpenSource.Enabled   := False;  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    27522756    popNoteMemoGrammar.Enabled  := False;
    27532757    popNoteMemoReformat.Enabled := False;
     
    28352839  timAutoSave.Enabled := False;
    28362840  try
    2837     SpellCheckForControl(memResults);
     2841    SpellCheckForControl(memResults, Sender = popNoteMemoSpellOpenSource);  //WordVisTA@SK_Arora@HealthSevak to implement OpenSource SpellCheck Engine
    28382842  finally
    28392843    FChanged := True;
Note: See TracChangeset for help on using the changeset viewer.