| 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 - 39 ) matches ( 11 - 39 ) |
.... | ( 11 - 39 ) matches ( 11 - 39 ) |
| 40 | function CanCut: Boolean; |
40 | function CanCut: Boolean; |
| 41 | function CanCopy: Boolean; |
41 | function CanCopy: Boolean; |
| 42 | function CanPaste: Boolean; |
42 | function CanPaste: Boolean; |
| 43 | function CanSelectAll: Boolean; |
43 | function CanSelectAll: Boolean; |
| 44 | |
44 | |
| 45 | procedure Undo; |
45 | procedure Undo; |
| 46 | procedure Redo; // not used at the moment |
46 | procedure Redo; // not used at the moment |
| 47 | procedure Cut; |
47 | procedure Cut; |
| 48 | procedure Copy; |
48 | procedure Copy; |
| 49 | procedure Paste; |
49 | procedure Paste; |
| 50< | procedure Delete; |
50> | procedure Deselect; |
| 51 | procedure SelectAll; |
51 | procedure SelectAll; |
| 52 | procedure ClearSelection; |
52 | procedure ClearSelection; |
| 53 | end; |
53 | end; |
| 54 | |
54 | |
| 55 | { Standard Editor actions } |
55 | { Standard Editor actions } |
| 56 | |
56 | |
| 57 | TJvEditAction = class(TAction) |
57 | TJvEditAction = class(TAction) |
| 58 | private |
58 | private |
| 59 | FControl: TWinControl; |
59 | FControl: TWinControl; |
| 60 | procedure SetControl(Value: TWinControl); |
60 | procedure SetControl(Value: TWinControl); |
| ..... | ( 61 - 290 ) matches ( 61 - 290 ) |
.... | ( 61 - 290 ) matches ( 61 - 290 ) |
| 291 | var |
291 | var |
| 292 | Intf: IStandardEditActions; |
292 | Intf: IStandardEditActions; |
| 293 | begin |
293 | begin |
| 294 | if Supports(Target, IStandardEditActions, Intf) then |
294 | if Supports(Target, IStandardEditActions, Intf) then |
| 295 | Enabled := Intf.CanCut |
295 | Enabled := Intf.CanCut |
| 296 | else if Target is TCustomEdit then |
296 | else if Target is TCustomEdit then |
| 297 | Enabled := (GetEditControl(Target).SelLength > 0) and not TOpenCustomEdit(GetEditControl(Target)).ReadOnly; |
297 | Enabled := (GetEditControl(Target).SelLength > 0) and not TOpenCustomEdit(GetEditControl(Target)).ReadOnly; |
| 298 | end; |
298 | end; |
| 299 | |
299 | |
| 300 | end. |
300 | end. |