界面库

整理代码

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
     {**

funcext/tvclib/twincontrol.tsf

@@ -1845,11 +1845,7 @@ type TWinControl = class(tcontrol)
         y := p.y;
         sx := p.width;
         sy := p.height;
-        try
+        selfid := integer(self(true));//int64
-            selfid := int64(self(true));
-        except
-            selfid := gettslvariableptr(self(true));
-        end;
         saveobj := new TGlobalValues(selfid,self(true));
         createwndclass(p);
         FDefWndproc := p.subclasswndproc;

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