From 31abd9a92e841c11d22ee6d2885c75807d4ea9f6 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 19 Oct 2012 18:24:56 +0100
Subject: textedit: Renamed private DoCopy and made it public as
 CopyToClipboard.

Now we can programatically copy selected text to the clipboard.
---
 examples/apps/ide/src/fpg_textedit.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'examples')

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:
-- 
cgit v1.2.3-70-g09d2