diff options
| -rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index 3b191267..00808d7d 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -189,6 +189,7 @@ type procedure ScrollTo(X, Y: Integer); procedure GotoLine(ALine: integer); procedure CopyToClipboard; + procedure CutToClipboard; procedure PasteFromClipboard; procedure DeleteSelection; function GetSelectedText: TfpgString; @@ -1497,6 +1498,14 @@ begin fpgClipboard.Text := GetSelectedText; end; +procedure TfpgBaseTextEdit.CutToClipboard; +begin + if not FSelected then + Exit; + CopyToClipboard; + DeleteSelection; +end; + procedure TfpgBaseTextEdit.PasteFromClipboard; begin if FSelected then |