界面库

修正

funcext/tvclib/tcontrol.tsf

@@ -573,6 +573,7 @@ type tcontrol = class(tcomponent)
         d := new tvclwindowpos_class(0);
         if SizeChanged then
         begin
+            if AWidth=-3200 or AHeight = -3200 then exit ;
             d.cx := AWidth;
             d.cy := AHeight;
             D.flags := SWP_NOMOVE;

funcext/tvclib/tgdiplusflat.tsf

@@ -1,4 +1,4 @@
-type TGdiplusflat=class
+type TGdiplusflat=class()
 {**
 			@explan(说明)gdi+ 的c接口函数 %%
 		**}

funcext/tvclib/ugtkinterface.tsf

@@ -8529,7 +8529,7 @@ begin
     end 
     unit(uvclthreadworker).RunThreadWorkerHost();
     GLobal G_GTK_MESSAGE_QUEUE_A;  
-    if r=0 then sleep(1);
+    if r=0 then sleep(30);
     //G_GTK_MESSAGE_QUEUE_A.idleworked := r;
     return true;
 end