设计器

更新设计器

funcext/tvclib/utslmemo.tsf

@@ -1685,6 +1685,13 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
         return array(cy,cx+(ci?(0):1));
     end
     private //属性设置函数
+    function getclipboard();//获得clipbord
+    begin
+        if not FCopyer then 
+        begin
+            FCopyer := new TcustomClipBoard(self);
+        end 
+    end 
     function memtextchanged(p);
     begin
         if not(fundoing or fredoing) then 
@@ -1819,10 +1826,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
         r := GetSelText();
         if r then
         begin
-            if not FCopyer then
-            begin
-                FCopyer := new TcustomClipBoard(self);
-            end
+            getclipboard();
             FCopyer.text := r;
             return true;
         end
@@ -1830,10 +1834,7 @@ type TCustomMemo = class(TCustomScrollControl,TCustomMemoCmd) //
     function PasteFromClipboard();
     begin
         //if ReadOnly then return ;
-        if not FCopyer then
-        begin
-            FCopyer := new TcustomClipBoard(self);
-        end
+        getclipboard();
         //s := FCopyer.Text;
         //echo length(s),"\r\n";
         if SelAvail then SelText := FCopyer.Text;