From 06494286215a50b75bbd153d296acd639eb1c9e3 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Sun, 12 Feb 2006 15:41:39 +0000
Subject: [PATCH] setting ClipBoard.AsText clears the clipboard (fixes issue
 #1704)

git-svn-id: trunk@8733 -
---
 lcl/include/clipbrd.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/clipbrd.inc b/lcl/include/clipbrd.inc
index acde5fd3bd..2e0b724a5f 100644
--- a/lcl/include/clipbrd.inc
+++ b/lcl/include/clipbrd.inc
@@ -416,6 +416,7 @@ begin
     s:=Value
   else
     s:=#0;
+  Clear;
   SetBuffer(PredefinedClipboardFormat(pcfText),s[1],length(Value)+1);
   //DebugLn('[TClipboard.SetAsText] END ',ClipboardTypeName[ClipboardType],' "',Value,'"');
 end;