界面库

整理代码

designer/utslvcldcomponents.tsf

@@ -2104,28 +2104,7 @@ type TPopUpMenuWindow = class(TDVirutalWindow)
         return GetPopUpMenuBitmapInfo();
     end 
 end 
-type TSocketServerWindow = class(TDVirutalWindow)
+
-    function Create(AOwner);override;
-    begin
-        inherited;
-        BindComp := new TSocketServer(self);
-    end 
-    function bitmapinfo();override;
-    begin
-        return GetServerBitmapInfo();
-    end 
-end 
-type TSocketClientWindow = class(TDVirutalWindow)
-    function Create(AOwner);override;
-    begin
-        inherited;
-        BindComp := new TSocketClient(self);
-    end 
-    function bitmapinfo();override;
-    begin
-        return GetClientBitmapInfo();
-    end 
-end 
 type TClipBordWindow = class(TDVirutalWindow)
     function Create(AOwner);override;
     begin
@@ -2282,74 +2261,7 @@ type TDtlogincontrol = class(TDRootComponent)
 
 end 
 
-//*************Server*************************
-type TDSocketServer = class(TDRootComponent)
-{**
-    @explan(说明) 弹出菜单控件 %%
-**}
-    function HitTip();override;
-    begin
-        return "socket服务端";
-    end 
-    function classification();override;
-    begin
-        return "天软";
-    end 
-    function ComponentClass();override;
-    begin
-        return class(TSocketServer);
-    end 
-    function bitmapinfo();override;
-    begin
-        return GetServerBitmapInfo();
-    end 
 
-    function WndClass();override;
-    begin
-        return Class(TSocketServerWindow);
-    end 
-    function Create(AOwner);override;
-    begin
-        inherited;
-        fiscontainerdcmp := false;
-    end 
-
-end 
-
-//*************client**********************
-
-type TDSocketClient = class(TDRootComponent)
-{**
-    @explan(说明) 弹出菜单控件 %%
-**}
-    function HitTip();override;
-    begin
-        return "socket客户端";
-    end 
-    function classification();override;
-    begin
-        return "天软";
-    end 
-    function ComponentClass();override;
-    begin
-        return class(TSocketClient);
-    end 
-    function bitmapinfo();override;
-    begin
-        return GetClientBitmapInfo();
-    end 
-
-    function WndClass();override;
-    begin
-        return Class(TSocketClientWindow);
-    end 
-    function Create(AOwner);override;
-    begin
-        inherited;
-        fiscontainerdcmp := false;
-    end 
-
-end 
 
 //*************TTreeView***************************
 type TDTreeView  = class (TDComponent)

funcext/tvclib/utslvclstdctl.tsf

@@ -5935,14 +5935,44 @@ type tcustomprogressbar=class(TCustomControl)
         if Fvertical then 
         begin 
             d := rt *h; 
-            br[0] +=(h-d);  
+            br[1] +=(h-d);  
         end else 
         begin 
             d := floor(rt*w); 
             br[2] :=  br[0]+d;   
         end 
         dc.brush.color := FbarColor;
-        dc.FillRect(br);    
+        dc.FillRect(br);   
+        if not Fsmooth then 
+        begin
+            pc := dc.pen.Color;
+            pw := dc.pen.Width;
+            dc.pen.Color := color;
+            dc.pen.Width := 2;
+            sp := 18;                       
+            if Fvertical then 
+            begin
+                p := br[3]-sp;
+                while p>br[1] do 
+                begin
+                    dc.moveto(array(r[0],p));
+                    dc.LineTo(array(r[2],p));
+                    p-=sp;
+                    
+                end 
+            end else 
+            begin
+                p := sp ; 
+                while p<br[2] do 
+                begin
+                    dc.moveto(array(p,r[1]));
+                    dc.LineTo(array(p,r[3]));
+                    p+=sp;
+                end         
+            end  
+            dc.pen.Color := pc;
+            dc.pen.Width := pw;       
+        end   
     end 
     function increaseByStep();
     begin
@@ -5989,14 +6019,14 @@ type tcustomprogressbar=class(TCustomControl)
         @param(stepincrement)(integer)½ø¶ÈÀ¸µÄ²½ÔöÁ¿%%
     **}    
 
-    private
+    private //属性
     Fsmooth;
     Fvertical;
     Frange;
     Fposition;
     Fstep;
     FbarColor;
-    private 
+    private //属性处理函数
     function setSmooth(n);
     begin
         Fsmooth := n;
@@ -6388,10 +6418,10 @@ type tcustomipaddr = class(TCustomControl)
     end
     property HasPort:bool read FHasPort write SetHasPort;
     property ipaddr:string  read getAddress write setAddress;
-    property onAddrChange:eventhandler read FaddrChange  write FaddrChange;
+    property onaddrchanged:eventhandler read FaddrChange  write FaddrChange;
     {**
     @param(ipaddr)(string)ipµØÖ·%%
-    @param(onAddrChange)(function[tIPAddr,tuieventbase])id華硊曹趙隙覃%%	
+    @param(onaddrchanged)(function[tIPAddr,tuieventbase])id地址变化回调%%	
     **} 
     private
     FEditors;
@@ -6443,8 +6473,7 @@ type tcustomipaddr = class(TCustomControl)
         nv := v?true:false;
         if FHasPort <>nv then 
         begin 
-            FHasPort := nv;
+            FHasPort := nv;            
-            
             calcportsize();
             FPort.Visible := nv;
             InvalidateRect(nil,false);
@@ -6496,9 +6525,7 @@ type tcustomipaddr = class(TCustomControl)
         Fsynrects[3,0] := ":";
         Fsynrects[3,1] := rc1;
     end 
-
 end 
-
 implementation 
 type TtoolbuttonActionLink=class(TControlActionLink)
     {**