diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-19 18:24:56 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-10-19 18:24:56 +0100 |
| commit | 31abd9a92e841c11d22ee6d2885c75807d4ea9f6 (patch) | |
| tree | 1c77c3ebafbbd374cb46f9be56348b5e493ec64c /examples | |
| parent | ce022bcfb4c1e9544f76ed8a83d4ec17233a5cf1 (diff) | |
| download | fpGUI-31abd9a92e841c11d22ee6d2885c75807d4ea9f6.tar.xz | |
textedit: Renamed private DoCopy and made it public as CopyToClipboard.
Now we can programatically copy selected text to the clipboard.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/apps/ide/src/fpg_textedit.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/examples/apps/ide/src/fpg_textedit.pas b/examples/apps/ide/src/fpg_textedit.pas index caf51736..b8c59719 100644 --- a/examples/apps/ide/src/fpg_textedit.pas +++ b/examples/apps/ide/src/fpg_textedit.pas @@ -149,7 +149,6 @@ type function mousewheelacceleration(const avalue: double): double; function mousewheelacceleration(const avalue: integer): integer; function FindReplaceProc(TextToFind: TfpgString; FindOptions: TfpgFindOptions; Backward, ReplaceMode: Boolean; var ReplaceText: Boolean): Boolean; - procedure DoCopy; protected { -- internal events -- } procedure HandleShow; override; @@ -188,6 +187,7 @@ type procedure Clear; procedure ScrollTo(X, Y: Integer); procedure GotoLine(ALine: integer); + procedure CopyToClipboard; procedure DeleteSelection; function GetSelectedText: TfpgString; procedure SaveToFile(const AFileName: TfpgString); @@ -1488,7 +1488,7 @@ begin end; end; -procedure TfpgBaseTextEdit.DoCopy; +procedure TfpgBaseTextEdit.CopyToClipboard; begin if not FSelected then Exit; @@ -1535,7 +1535,7 @@ begin case CheckClipboardKey(keycode, shiftstate) of ckCopy: begin - DoCopy; + CopyToClipboard; end; ckPaste: |