| 1 | {----------------------------------------------------------------------------- |
1 | {----------------------------------------------------------------------------- |
| 2 | The contents of this file are subject to the Mozilla Public License |
2 | The contents of this file are subject to the Mozilla Public License |
| 3 | Version 1.1 (the "License"); you may not use this file except in compliance |
3 | Version 1.1 (the "License"); you may not use this file except in compliance |
| 4 | with the License. You may obtain a copy of the License at |
4 | with the License. You may obtain a copy of the License at |
| 5 | http://www.mozilla.org/MPL/MPL-1.1.html |
5 | http://www.mozilla.org/MPL/MPL-1.1.html |
| 6 | |
6 | |
| 7 | Software distributed under the License is distributed on an "AS IS" basis, |
7 | Software distributed under the License is distributed on an "AS IS" basis, |
| 8 | WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for |
8 | WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for |
| 9 | the specific language governing rights and limitations under the License. |
9 | the specific language governing rights and limitations under the License. |
| 10 | |
10 | |
| ...... | ( 11 - 2628 ) matches ( 11 - 2628 ) |
..... | ( 11 - 2628 ) matches ( 11 - 2628 ) |
| 2629 | if CaretY < FLines.Count then |
2629 | if CaretY < FLines.Count then |
| 2630 | S := FLines[CaretY]; |
2630 | S := FLines[CaretY]; |
| 2631 | W := GetNextWordPosEx(S, CaretX, iBegSX, iEndSX); |
2631 | W := GetNextWordPosEx(S, CaretX, iBegSX, iEndSX); |
| 2632 | if W <> NewString then |
2632 | if W <> NewString then |
| 2633 | begin |
2633 | begin |
| 2634 | BeginUpdate; |
2634 | BeginUpdate; |
| 2635 | PaintCaret(False); |
2635 | PaintCaret(False); |
| 2636 | try |
2636 | try |
| 2637 | BeginCompound; |
2637 | BeginCompound; |
| 2638 | try |
2638 | try |
| 2639< | ClearSelection; |
2639> | Deselect; |
| 2640 | ReLine; |
2640 | ReLine; |
| 2641 | |
2641 | |
| 2642 | if Length(W) = 0 then |
2642 | if Length(W) = 0 then |
| 2643 | begin |
2643 | begin |
| 2644 | iBegSX := CaretX + 1; |
2644 | iBegSX := CaretX + 1; |
| 2645 | iEndSX := CaretX; |
2645 | iEndSX := CaretX; |
| 2646 | end; |
2646 | end; |
| 2647 | case Mode of |
2647 | case Mode of |
| 2648 | cmIdentifiers: |
2648 | cmIdentifiers: |
| 2649 | begin |
2649 | begin |
| ...... | ( 2650 - 2803 ) matches ( 2650 - 2803 ) |
..... | ( 2650 - 2803 ) matches ( 2650 - 2803 ) |
| 2804 | |
2804 | |
| 2805 | {$IFDEF UNITVERSIONING} |
2805 | {$IFDEF UNITVERSIONING} |
| 2806 | initialization |
2806 | initialization |
| 2807 | RegisterUnitVersion(HInstance, UnitVersioning); |
2807 | RegisterUnitVersion(HInstance, UnitVersioning); |
| 2808 | |
2808 | |
| 2809 | finalization |
2809 | finalization |
| 2810 | UnregisterUnitVersion(HInstance); |
2810 | UnregisterUnitVersion(HInstance); |
| 2811 | {$ENDIF UNITVERSIONING} |
2811 | {$ENDIF UNITVERSIONING} |
| 2812 | |
2812 | |
| 2813 | end. |
2813 | end. |