From bf7bc4c1aa188a30ab41bae22e44c2a088c65652 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Wed, 7 Dec 2022 17:45:07 +0800
Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

鏁寸悊浠ｇ爜
---
 funcext/tvclib/lpseudointerface.tsl | 11 +----------
 funcext/tvclib/twincontrol.tsf      |  6 +-----
 funcext/tvclib/ugtkinterface.tsf    |  8 ++++----
 3 files changed, 6 insertions(+), 19 deletions(-)

diff --git a/funcext/tvclib/lpseudointerface.tsl b/funcext/tvclib/lpseudointerface.tsl
index f0899fe..6d9c8e1 100644
--- a/funcext/tvclib/lpseudointerface.tsl
+++ b/funcext/tvclib/lpseudointerface.tsl
@@ -8,9 +8,8 @@ interface
 
 **}
 function getsenderdatabyid();
-function gettslvariableptr(obj);
 function getctypesize();
-type aefclassobj_=class
+type aefclassobj_=class()
     {**
     @nickname(内存管理对象) %%
     @explan(说明)内存操作底层接口伪类 %%
@@ -150,14 +149,6 @@ type aefclassobj_=class
     end
 end
 Implementation
-function gettslvariableptr(obj);
-begin
-    {**
-    @explan(说明) 获取变量的地址,在send消息使用 %%
-    @param(obj)(obj) tsl变量 %%
-    @return(integer) 变量地址 %%
-    **}
-end
 function getctypesize();
 begin
     {**
diff --git a/funcext/tvclib/twincontrol.tsf b/funcext/tvclib/twincontrol.tsf
index 3d0f323..bb7da93 100644
--- a/funcext/tvclib/twincontrol.tsf
+++ b/funcext/tvclib/twincontrol.tsf
@@ -1845,11 +1845,7 @@ type TWinControl = class(tcontrol)
         y := p.y;
         sx := p.width;
         sy := p.height;
-        try
-            selfid := int64(self(true));
-        except
-            selfid := gettslvariableptr(self(true));
-        end;
+        selfid := integer(self(true));//int64
         saveobj := new TGlobalValues(selfid,self(true));
         createwndclass(p);
         FDefWndproc := p.subclasswndproc;
diff --git a/funcext/tvclib/ugtkinterface.tsf b/funcext/tvclib/ugtkinterface.tsf
index 5523c2c..b9337da 100644
--- a/funcext/tvclib/ugtkinterface.tsf
+++ b/funcext/tvclib/ugtkinterface.tsf
@@ -7207,19 +7207,19 @@ begin
 end
 function  tsl_gtk_preedit_changed_event(a:pointer;b:pointer;c:pointer):integer;
 begin 
-	return dotparamseevents(a, "preedit-changed", b, c);
+    return dotparamseevents(a, "preedit-changed", b, c);
 end 
 function  tsl_gtk_changed_event(a:pointer;b:pointer):integer;
 begin 
-	return dodeleteevents(a, "changed");
+    return dodeleteevents(a, "changed");
 end
 function  tsl_gtk_day_select_event(a:pointer;b:pointer):integer;
 begin
-	return dodeleteevents(a, "day-selected");
+    return dodeleteevents(a, "day-selected");
 end
 function  tsl_gtk_delete_event(a:pointer;b:pointer):integer;
 begin
-	return dodeleteevents(a, "delete-event");
+    return dodeleteevents(a, "delete-event");
 end
 function tsl_gtk_adj_value_changed_event(a:pointer;b:pointer):integer;
 begin