Changeset 1700 for cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Timestamp:
- May 9, 2015, 7:29:20 AM (10 years ago)
- Location:
- cprs/branches/HealthSevak-CPRS/CPRS-Chart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.dfm
r1693 r1700 14 14 OnCreate = FormCreate 15 15 OnShow = FormShow 16 ExplicitTop = -6917 16 ExplicitWidth = 743 18 17 ExplicitHeight = 548 … … 251 250 ScrollBars = ssBoth 252 251 TabOrder = 0 252 OnKeyDown = RichEdit1KeyDown 253 OnKeyUp = RichEdit1KeyUp 253 254 end 254 255 object btnAbout: TButton [9] -
cprs/branches/HealthSevak-CPRS/CPRS-Chart/fHunSpell.pas
r1693 r1700 84 84 procedure Button1Click(Sender: TObject); 85 85 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); 86 90 private 87 91 { Private declarations } … … 147 151 inherited; 148 152 GoToURL(TLabel(sender).Caption); 153 end; 154 155 procedure TfrmHunSpell.RichEdit1KeyDown(Sender: TObject; var Key: Word; 156 Shift: TShiftState); 157 begin 158 inherited; 159 SpellCheck1.ManualChangeStart; 160 end; 161 162 procedure TfrmHunSpell.RichEdit1KeyUp(Sender: TObject; var Key: Word; 163 Shift: TShiftState); 164 begin 165 inherited; 166 SpellCheck1.ManualChangeDone; 149 167 end; 150 168
Note:
See TracChangeset
for help on using the changeset viewer.