Ignore:
Timestamp:
May 19, 2015, 3:06:26 PM (9 years ago)
Author:
healthsevak
Message:

Added few options to SpellChecker which persists beyond current session

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1707 r1719  
    1212  OnActivate = FormActivate
    1313  OnClose = FormClose
     14  OnCloseQuery = FormCloseQuery
    1415  OnCreate = FormCreate
    1516  OnShow = FormShow
     17  ExplicitTop = -92
    1618  ExplicitWidth = 743
    1719  ExplicitHeight = 548
    … …  
    2426    Height = 16
    2527    Caption = 'Main &Dictionary File:'
     28    FocusControl = edtDictionary
    2629  end
    2730  object lblOpenMedURL: TLabel [1]
    2831    Left = 11
    2932    Top = 54
    30     Width = 726
     33    Width = 707
    3134    Height = 14
    3235    Cursor = crHandPoint
    … …  
    4043    Font.Height = -11
    4144    Font.Name = 'Arial'
    42     Font.Style = [fsItalic, fsUnderline]
     45    Font.Style = [fsUnderline]
    4346    ParentFont = False
    4447    ParentShowHint = False
    … …  
    4952  object lblDictionariesURL: TLabel [2]
    5053    Left = 11
    51     Top = 74
    52     Width = 486
    53     Height = 16
     54    Top = 25
     55    Width = 409
     56    Height = 14
    5457    Cursor = crHandPoint
    5558    Hint = 'URL for other language dictionaries'
    … …  
    5962    Font.Charset = DEFAULT_CHARSET
    6063    Font.Color = clBlue
    61     Font.Height = -13
     64    Font.Height = -11
    6265    Font.Name = 'Arial'
    63     Font.Style = [fsItalic, fsUnderline]
     66    Font.Style = [fsUnderline]
    6467    ParentFont = False
    6568    ParentShowHint = False
    … …  
    7578      'Work under progress by  Sunil Kumar Arora (digitiger@gmail.com).' +
    7679      '.........Thi will be updated later........'
    77     TabOrder = 6
     80    TabOrder = 4
    7881    Visible = False
    7982    object Button1: TButton
    … …  
    8790    end
    8891  end
    89   object btnClose: TButton [4]
    90     Left = 503
    91     Top = 483
    92     Width = 110
    93     Height = 25
    94     Caption = 'C&lose'
    95     ModalResult = 1
    96     TabOrder = 2
    97     Visible = False
    98     OnClick = btnCloseClick
    99   end
    100   object pnlMisSpelled: TPanel [5]
     92  object pnlMisSpelled: TPanel [4]
    10193    Left = 0
    10294    Top = 268
    … …  
    119111      Height = 16
    120112      Caption = 'C&urrent Misspelt Word:'
    121       FocusControl = Edit2
     113      FocusControl = edtMisSpelt
    122114    end
    123115    object lstSuggestions: TListBox
    … …  
    128120      ItemHeight = 16
    129121      TabOrder = 1
    130     end
    131     object Edit2: TEdit
     122      OnDblClick = lstSuggestionsDblClick
     123    end
     124    object edtMisSpelt: TEdit
    132125      Left = 151
    133126      Top = 4
    … …  
    149142    object btnReplaceWith: TButton
    150143      Left = 452
    151       Top = 129
     144      Top = 165
    152145      Width = 110
    153146      Height = 25
    … …  
    158151    object btnChangeAll: TButton
    159152      Left = 452
    160       Top = 84
     153      Top = 116
    161154      Width = 110
    162155      Height = 25
    … …  
    167160    object btnChange: TButton
    168161      Left = 452
    169       Top = 39
     162      Top = 67
    170163      Width = 110
    171164      Height = 25
    … …  
    176169    object btnAddToDictionary: TButton
    177170      Left = 611
    178       Top = 129
     171      Top = 165
    179172      Width = 110
    180173      Height = 25
    181174      Caption = 'A&dd to Dictionary'
    182       TabOrder = 8
     175      TabOrder = 7
    183176      OnClick = btnAddToDictionaryClick
    184177    end
    185178    object btnIgnoreAll: TButton
    186179      Left = 611
    187       Top = 84
     180      Top = 116
    188181      Width = 110
    189182      Height = 25
    … …  
    194187    object btnIgnoreOnce: TButton
    195188      Left = 611
    196       Top = 39
     189      Top = 67
    197190      Width = 110
    198191      Height = 25
    … …  
    201194      OnClick = btnIgnoreOnceClick
    202195    end
    203     object btnCancel: TButton
    204       Left = 619
    205       Top = 216
    206       Width = 110
    207       Height = 25
    208       Caption = 'Ca&ncel'
     196    object btnAbort: TButton
     197      Left = 611
     198      Top = 215
     199      Width = 110
     200      Height = 25
     201      Caption = 'A&bort'
    209202      TabOrder = 9
    210       OnClick = btnCancelClick
     203      OnClick = btnAbortClick
    211204    end
    212205    object btnUndo: TButton
    213206      Left = 452
    214       Top = 175
     207      Top = 215
    215208      Width = 110
    216209      Height = 25
    217210      Caption = '&Undo'
    218       TabOrder = 7
     211      TabOrder = 8
    219212      OnClick = btnUndoClick
    220213    end
    221214  end
    222   object Edit1: TEdit [6]
     215  object edtDictionary: TEdit [5]
    223216    Left = 131
    224217    Top = 0
    … …  
    232225    ParentFont = False
    233226    ReadOnly = True
    234     TabOrder = 3
    235     OnEnter = Edit1Enter
    236   end
    237   object btnSelectDict: TBitBtn [7]
    238     Left = 476
    239     Top = 26
     227    TabOrder = 5
     228    OnEnter = edtDictionaryEnter
     229  end
     230  object btnSelectDict: TBitBtn [6]
     231    Left = 471
     232    Top = 23
    240233    Width = 258
    241234    Height = 25
    242235    Caption = '&Browse for and select different dictionary'
    243     TabOrder = 4
     236    TabOrder = 6
    244237    OnClick = btnSelectDictClick
    245238  end
    246   object RichEdit1: TRichEdit [8]
     239  object RichEdit1: TRichEdit [7]
    247240    Left = 3
    248241    Top = 101
    … …  
    256249    OnKeyUp = RichEdit1KeyUp
    257250  end
    258   object btnAbout: TButton [9]
     251  object btnAbout: TButton [8]
    259252    Left = 452
    260     Top = 483
     253    Top = 291
    261254    Width = 110
    262255    Height = 25
    263256    Caption = 'A&bout'
    264     TabOrder = 5
     257    TabOrder = 3
    265258    OnClick = btnAboutClick
     259  end
     260  object btnClose: TButton [9]
     261    Left = 611
     262    Top = 291
     263    Width = 110
     264    Height = 25
     265    Caption = 'C&lose'
     266    ModalResult = 1
     267    TabOrder = 2
     268    Visible = False
     269    OnClick = btnCloseClick
     270  end
     271  object cbIgnoreAllCaps: TCheckBox [10]
     272    Left = 131
     273    Top = 74
     274    Width = 178
     275    Height = 17
     276    Caption = 'Ignore words in &UpperCase'
     277    TabOrder = 7
     278    OnClick = cbIgnoreAllCapsClick
     279  end
     280  object cbIgnoreDigit: TCheckBox [11]
     281    Left = 339
     282    Top = 73
     283    Width = 166
     284    Height = 17
     285    Caption = 'Ignore words with &digits'
     286    TabOrder = 8
     287    OnClick = cbIgnoreDigitClick
    266288  end
    267289  inherited amgrMain: TVA508AccessibilityManager
    … …  
    274296        'Status = stsDefault')
    275297      (
    276         'Component = Edit2'
     298        'Component = edtMisSpelt'
    277299        'Status = stsDefault')
    278300      (
    … …  
    295317        'Status = stsDefault')
    296318      (
    297         'Component = btnCancel'
     319        'Component = btnAbort'
    298320        'Status = stsDefault')
    299321      (
    … …  
    301323        'Status = stsDefault')
    302324      (
    303         'Component = Edit1'
     325        'Component = edtDictionary'
    304326        'Status = stsDefault')
    305327      (
    … …  
    323345      (
    324346        'Component = btnUndo'
     347        'Status = stsDefault')
     348      (
     349        'Component = cbIgnoreAllCaps'
     350        'Status = stsDefault')
     351      (
     352        'Component = cbIgnoreDigit'
    325353        'Status = stsDefault'))
    326354  end
    … …  
    335363  object SpellCheck1: TskaHunSpellChecker
    336364    Active = False
    337     btnClose = btnClose
    338365    CustDictionaryFile =
    339366      'C:\Documents and Settings\All Users\Documents\CustomDictionary.d' +
    340367      'ic'
    341     MisSpeltWord = Edit2
     368    MisSpeltWord = edtMisSpelt
     369    OnStart = SpellCheck1Start
     370    OnStateChange = SpellCheck1StateChange
     371    OnAbort = SpellCheck1Abort
    342372    SourceTextControl = RichEdit1
    343     SpellCheckCompletionMessage = 'Spell Check Complete'
    344373    SuggestionList = lstSuggestions
    345374    Left = 368
Note: See TracChangeset for help on using the changeset viewer.