| 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 - 862 ) matches ( 11 - 862 ) |
..... | ( 11 - 862 ) matches ( 11 - 862 ) |
| 863 | { IFixedPopupIntf method assignment } |
863 | { IFixedPopupIntf method assignment } |
| 864 | procedure IFixedPopupIntf.Cut = ClipboardCut; |
864 | procedure IFixedPopupIntf.Cut = ClipboardCut; |
| 865 | procedure IFixedPopupIntf.Copy = ClipboardCopy; |
865 | procedure IFixedPopupIntf.Copy = ClipboardCopy; |
| 866 | procedure IFixedPopupIntf.Paste = ClipboardPaste; |
866 | procedure IFixedPopupIntf.Paste = ClipboardPaste; |
| 867 | procedure IFixedPopupIntf.Delete = DeleteSelected; |
867 | procedure IFixedPopupIntf.Delete = DeleteSelected; |
| 868 | |
868 | |
| 869 | { IStandardEditActions method assignment } |
869 | { IStandardEditActions method assignment } |
| 870 | procedure IStandardEditActions.Cut = ClipboardCut; |
870 | procedure IStandardEditActions.Cut = ClipboardCut; |
| 871 | procedure IStandardEditActions.Copy = ClipboardCopy; |
871 | procedure IStandardEditActions.Copy = ClipboardCopy; |
| 872 | procedure IStandardEditActions.Paste = ClipboardPaste; |
872 | procedure IStandardEditActions.Paste = ClipboardPaste; |
| 873< | procedure IStandardEditActions.Delete = DeleteSelected; |
873> | procedure IStandardEditActions.ClearSelection = DeleteSelected; |
| 874 | protected |
874 | protected |
| 875 | { get/set methods for properties } |
875 | { get/set methods for properties } |
| 876 | procedure SetGutterWidth(AWidth: Integer); |
876 | procedure SetGutterWidth(AWidth: Integer); |
| 877 | procedure SetGutterColor(AColor: TColor); |
877 | procedure SetGutterColor(AColor: TColor); |
| 878 | procedure SetBorderStyle(Value: TBorderStyle); |
878 | procedure SetBorderStyle(Value: TBorderStyle); |
| 879 | function GetSelStart: Integer; |
879 | function GetSelStart: Integer; |
| 880 | procedure SetSelStart(ASelStart: Integer); |
880 | procedure SetSelStart(ASelStart: Integer); |
| 881 | procedure SetSelLength(ASelLength: Integer); |
881 | procedure SetSelLength(ASelLength: Integer); |
| 882 | function GetSelLength: Integer; |
882 | function GetSelLength: Integer; |
| 883 | procedure SetSelBlockFormat(Value: TJvSelBlockFormat); |
883 | procedure SetSelBlockFormat(Value: TJvSelBlockFormat); |
| ...... | ( 884 - 970 ) matches ( 884 - 970 ) |
..... | ( 884 - 970 ) matches ( 884 - 970 ) |
| 971 | function CanPaste: Boolean; { IFixedPopupIntf } |
971 | function CanPaste: Boolean; { IFixedPopupIntf } |
| 972 | function CanCut: Boolean; { IFixedPopupIntf } |
972 | function CanCut: Boolean; { IFixedPopupIntf } |
| 973 | function CanSelectAll: Boolean; { IFixedPopupIntf } |
973 | function CanSelectAll: Boolean; { IFixedPopupIntf } |
| 974 | procedure SelectAll; { IFixedPopupIntf } |
974 | procedure SelectAll; { IFixedPopupIntf } |
| 975 | function HasSelection: Boolean; { IFixedPopupIntf } |
975 | function HasSelection: Boolean; { IFixedPopupIntf } |
| 976 | |
976 | |
| 977 | procedure ClipboardCopy; dynamic; abstract; |
977 | procedure ClipboardCopy; dynamic; abstract; |
| 978 | procedure ClipboardPaste; dynamic; abstract; |
978 | procedure ClipboardPaste; dynamic; abstract; |
| 979 | procedure ClipboardCut; dynamic; |
979 | procedure ClipboardCut; dynamic; |
| 980 | procedure DeleteSelected; dynamic; abstract; |
980 | procedure DeleteSelected; dynamic; abstract; |
| 981< | procedure ClearSelection; dynamic; |
981> | procedure Deselect; dynamic; |
| 982 | |
982 | |
| 983 | procedure Undo; |
983 | procedure Undo; |
| 984 | procedure Redo; // not implemented yet |
984 | procedure Redo; // not implemented yet |
| 985 | |
985 | |
| 986 | procedure CaretChanged(LastCaretX, LastCaretY: Integer); virtual; |
986 | procedure CaretChanged(LastCaretX, LastCaretY: Integer); virtual; |
| 987 | |
987 | |
| 988 | procedure SelectRange(BegX, BegY, EndX, EndY: Integer); |
988 | procedure SelectRange(BegX, BegY, EndX, EndY: Integer); |
| 989 | function CalcCellRect(X, Y: Integer): TRect; |
989 | function CalcCellRect(X, Y: Integer): TRect; |
| 990 | procedure SetCaret(X, Y: Integer); |
990 | procedure SetCaret(X, Y: Integer); |
| 991 | procedure CaretFromPos(Pos: Integer; var X, Y: Integer); |
991 | procedure CaretFromPos(Pos: Integer; var X, Y: Integer); |
| ...... | ( 992 - 5149 ) matches ( 992 - 5149 ) |
..... | ( 992 - 5149 ) matches ( 992 - 5149 ) |
| 5150 | begin |
5150 | begin |
| 5151 | Result := FSelection.IsSelected and not IsEmptySelection; |
5151 | Result := FSelection.IsSelected and not IsEmptySelection; |
| 5152 | end; |
5152 | end; |
| 5153 | |
5153 | |
| 5154 | procedure TJvCustomEditorBase.ClipboardCut; |
5154 | procedure TJvCustomEditorBase.ClipboardCut; |
| 5155 | begin |
5155 | begin |
| 5156 | ClipboardCopy; |
5156 | ClipboardCopy; |
| 5157 | DeleteSelected; |
5157 | DeleteSelected; |
| 5158 | end; |
5158 | end; |
| 5159 | |
5159 | |
| 5160< | procedure TJvCustomEditorBase.ClearSelection; |
5160> | procedure TJvCustomEditorBase.Deselect; |
| 5161 | begin |
5161 | begin |
| 5162 | SetUnSelected; |
5162 | SetUnSelected; |
| 5163 | end; |
5163 | end; |
| 5164 | |
5164 | |
| 5165 | procedure TJvCustomEditorBase.Redo; |
5165 | procedure TJvCustomEditorBase.Redo; |
| 5166 | begin |
5166 | begin |
| 5167 | FUndoBuffer.Redo; |
5167 | FUndoBuffer.Redo; |
| 5168 | end; |
5168 | end; |
| 5169 | |
5169 | |
| 5170 | procedure TJvCustomEditorBase.Undo; |
5170 | procedure TJvCustomEditorBase.Undo; |
| ...... | ( 5171 - 6556 ) matches ( 5171 - 6556 ) |
..... | ( 5171 - 6556 ) matches ( 5171 - 6556 ) |
| 6557 | |
6557 | |
| 6558 | {$IFDEF UNITVERSIONING} |
6558 | {$IFDEF UNITVERSIONING} |
| 6559 | initialization |
6559 | initialization |
| 6560 | RegisterUnitVersion(HInstance, UnitVersioning); |
6560 | RegisterUnitVersion(HInstance, UnitVersioning); |
| 6561 | |
6561 | |
| 6562 | finalization |
6562 | finalization |
| 6563 | UnregisterUnitVersion(HInstance); |
6563 | UnregisterUnitVersion(HInstance); |
| 6564 | {$ENDIF UNITVERSIONING} |
6564 | {$ENDIF UNITVERSIONING} |
| 6565 | |
6565 | |
| 6566 | end. |
6566 | end. |