Changeset 1700 for cprs


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

Did minor changes related to manual modification by user inside the richedit control

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

Legend:

Unmodified
Added
Removed

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

    r1693 r1700  
    1414  OnCreate = FormCreate
    1515  OnShow = FormShow
    16   ExplicitTop = -69
    1716  ExplicitWidth = 743
    1817  ExplicitHeight = 548
    … …  
    251250    ScrollBars = ssBoth
    252251    TabOrder = 0
     252    OnKeyDown = RichEdit1KeyDown
     253    OnKeyUp = RichEdit1KeyUp
    253254  end
    254255  object btnAbout: TButton [9]

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

    r1693 r1700  
    8484    procedure Button1Click(Sender: TObject);
    8585    procedure btnUndoClick(Sender: TObject);
     86    procedure RichEdit1KeyUp(Sender: TObject; var Key: Word;
     87      Shift: TShiftState);
     88    procedure RichEdit1KeyDown(Sender: TObject; var Key: Word;
     89      Shift: TShiftState);
    8690  private
    8791    { Private declarations }
    … …  
    147151  inherited;
    148152  GoToURL(TLabel(sender).Caption);
     153end;
     154
     155procedure TfrmHunSpell.RichEdit1KeyDown(Sender: TObject; var Key: Word;
     156  Shift: TShiftState);
     157begin
     158  inherited;
     159  SpellCheck1.ManualChangeStart;
     160end;
     161
     162procedure TfrmHunSpell.RichEdit1KeyUp(Sender: TObject; var Key: Word;
     163  Shift: TShiftState);
     164begin
     165  inherited;
     166  SpellCheck1.ManualChangeDone;
    149167end;
    150168
Note: See TracChangeset for help on using the changeset viewer.