Changeset 1723


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

Did few minor modifications/Additions related to restarting spell check, changing caption of Close button and adding a new button to re-start the spell check if required, and also removed the confirmation dialog/message while closing the dialog as suggested by Jim Bell

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

Legend:

Unmodified
Added
Removed

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.dproj

    r1693 r1723  
    5252    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
    5353    <BorlandProject>
    54 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">CCOW=disable s=192.168.1.11 p=9430</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">28</VersionInfo><VersionInfo Name="Build">24</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys><VersionInfoKeys Name="FileDescription">1/24/2011</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.28.24</VersionInfoKeys><VersionInfoKeys Name="InternalName">1.0.28.24 server required</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">Patch 280</VersionInfoKeys><VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Version 1.0.28.24</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">CPRSChart.dpr</Source></Source><TypeLibOptions><TypeLibOptions Name="AutoRegisterTLB">False</TypeLibOptions><TypeLibOptions Name="AutoGenImportAssembly">False</TypeLibOptions></TypeLibOptions></Delphi.Personality></BorlandProject></BorlandProject>
     54<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">CCOW=disable s=192.168.1.10 p=9430</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">28</VersionInfo><VersionInfo Name="Build">24</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Department of Veterans Affairs</VersionInfoKeys><VersionInfoKeys Name="FileDescription">1/24/2011</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.28.24</VersionInfoKeys><VersionInfoKeys Name="InternalName">1.0.28.24 server required</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Unauthorized access or misuse of this system and/or its data is a federal crime. Use of all data shall be in accordance with VA policy on security and privacy.</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">Patch 280</VersionInfoKeys><VersionInfoKeys Name="ProductName">Computerized Patient Record System</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Version 1.0.28.24</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">CPRSChart.dpr</Source></Source><TypeLibOptions><TypeLibOptions Name="AutoRegisterTLB">False</TypeLibOptions><TypeLibOptions Name="AutoGenImportAssembly">False</TypeLibOptions></TypeLibOptions></Delphi.Personality></BorlandProject></BorlandProject>
    5555  </ProjectExtensions>
    5656  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart.drc

    r1721 r1723  
    723723/* Encounter\fPCEEdit.DFM */
    724724/* Templates\fTemplateFields.DFM */
    725 /* E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\fHunSpell.DFM */
     725/* fHunSpell.DFM */
    726726/* fSpellNotify.dfm */
    727727/* Templates\fTemplateFieldEditor.DFM */

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/CPRSChart_TLB.pas

    r1693 r1723  
    1313
    1414// $Rev: 8291 $
    15 // File generated on 5/2/2015 5:57:00 PM from Type Library described below.
     15// File generated on 5/23/2015 7:44:32 PM from Type Library described below.
    1616
    1717// ************************************************************************  //
    18 // Type Lib: E:\Vista_30_28\OR_SRC_CREATION\CPRS-Chart\CPRSChart.tlb (1)
     18// Type Lib: E:\WVEHR\branches\HealthSevak-CPRS\CPRS-Chart\CPRSChart.tlb (1)
    1919// LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274}
    2020// LCID: 0

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm

    r1719 r1723  
    1515  OnCreate = FormCreate
    1616  OnShow = FormShow
    17   ExplicitTop = -92
    1817  ExplicitWidth = 743
    1918  ExplicitHeight = 548
    … …  
    7877      'Work under progress by  Sunil Kumar Arora (digitiger@gmail.com).' +
    7978      '.........Thi will be updated later........'
    80     TabOrder = 4
     79    TabOrder = 5
    8180    Visible = False
    8281    object Button1: TButton
    … …  
    123122    end
    124123    object edtMisSpelt: TEdit
    125       Left = 151
    126       Top = 4
     124      Left = 150
     125      Top = 2
    127126      Width = 554
    128127      Height = 18
    … …  
    225224    ParentFont = False
    226225    ReadOnly = True
    227     TabOrder = 5
     226    TabOrder = 6
    228227    OnEnter = edtDictionaryEnter
    229228  end
    … …  
    233232    Width = 258
    234233    Height = 25
    235     Caption = '&Browse for and select different dictionary'
    236     TabOrder = 6
     234    Caption = 'Bro&wse for and select different dictionary'
     235    TabOrder = 7
    237236    OnClick = btnSelectDictClick
    238237  end
    … …  
    250249  end
    251250  object btnAbout: TButton [8]
    252     Left = 452
    253     Top = 291
     251    Left = 300
     252    Top = 285
    254253    Width = 110
    255254    Height = 25
    256     Caption = 'A&bout'
    257     TabOrder = 3
     255    Caption = 'Abo&ut'
     256    TabOrder = 4
    258257    OnClick = btnAboutClick
    259258  end
    260259  object btnClose: TButton [9]
    261260    Left = 611
    262     Top = 291
     261    Top = 285
    263262    Width = 110
    264263    Height = 25
    265     Caption = 'C&lose'
     264    Caption = 'Finish && C&lose'
    266265    ModalResult = 1
    267     TabOrder = 2
     266    TabOrder = 3
    268267    Visible = False
    269268    OnClick = btnCloseClick
    … …  
    275274    Height = 17
    276275    Caption = 'Ignore words in &UpperCase'
    277     TabOrder = 7
     276    TabOrder = 8
    278277    OnClick = cbIgnoreAllCapsClick
    279278  end
    … …  
    284283    Height = 17
    285284    Caption = 'Ignore words with &digits'
    286     TabOrder = 8
     285    TabOrder = 9
    287286    OnClick = cbIgnoreDigitClick
     287  end
     288  object btnRestat: TButton [12]
     289    Left = 452
     290    Top = 285
     291    Width = 110
     292    Height = 25
     293    Caption = 'Re&Start Check'
     294    TabOrder = 2
     295    OnClick = btnRestatClick
    288296  end
    289297  inherited amgrMain: TVA508AccessibilityManager
    … …  
    351359      (
    352360        'Component = cbIgnoreDigit'
     361        'Status = stsDefault')
     362      (
     363        'Component = btnRestat'
    353364        'Status = stsDefault'))
    354365  end

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas

    r1719 r1723  
    6868    cbIgnoreAllCaps: TCheckBox;
    6969    cbIgnoreDigit: TCheckBox;
     70    btnRestat: TButton;
    7071    procedure FormCreate(Sender: TObject);
    7172    procedure btnIgnoreOnceClick(Sender: TObject);
    … …  
    9899    procedure cbIgnoreDigitClick(Sender: TObject);
    99100    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
     101    procedure btnRestatClick(Sender: TObject);
    100102  private
    101103    { Private declarations }
    … …  
    249251begin
    250252   SpellCheck1.CorrectWithMyWord;
     253end;
     254
     255procedure TfrmHunSpell.btnRestatClick(Sender: TObject);
     256begin
     257  inherited;
     258  if SpellCheck1.SpellCheckState = ssChecking then
     259    SpellCheck1.ReStart
     260  else
     261    SpellCheck1.CheckSpelling;
    251262end;
    252263
    … …  
    363374  if SpellCheck1.SpellCheckState = ssCompleted then
    364375  begin
    365     ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;
     376   // ShowMsg(TX_SPELL_COMPLETE, TShow508MessageIcon(1), smbOK) ;
    366377    if Assigned(FSourceControl) then
    367378      FSourceControl.Text := RichEdit1.Text;
Note: See TracChangeset for help on using the changeset viewer.