diff --git a/designer/utslvcldpropertytypes.tsf b/designer/utslvcldpropertytypes.tsf
index 0dfdd59..7b13914 100644
--- a/designer/utslvcldpropertytypes.tsf
+++ b/designer/utslvcldpropertytypes.tsf
@@ -844,13 +844,18 @@ type TPropGrid = class(TTSLDataGrid)
             return inherited;
         end else 
         if ifnil(d) then return ;
-        
-        src :=e.SubItemRect;
+                
+        src :=e.SubItemRect;        
         if not(ifarray(d) and (d["type"] = "object" )) then exit;
         edit := GetCellEditer(d["class"]);
         if not(edit)then return inherited;
-        edit.CellDraw(o,e,d);
-        
+        edit.CellDraw(o,e,d); 
+        dc.pen.color := 0xe0e0f0;
+        dc.pen.width := 1;
+        dc.moveto(src[array(0,3)]-1);       
+        dc.LineTo(src[array(2,3)]-1);       
+        dc.LineTo(src[array(2,1)]-1);       
+                
     end 
     property EventEditer write FEventEditer;
     property VariabeEditer write FVariabeEditer;
@@ -4125,16 +4130,23 @@ type TBitmapGrid = class(TGridList)
         begin
             return inherited;
         end else 
-        if j = 1 and it.HandleAllocated() then 
-        begin
-            src[2] := src[0]+40;
-            dc.StretchDraw(src,it);
-        end else 
-        if j = 2 then 
-        begin    
-            if it.HandleAllocated() then 
+        begin 
+            dc.pen.color := 0xe0e0f0;
+            dc.pen.width := 1;
+            dc.moveto(src[array(0,3)]-1);       
+            dc.LineTo(src[array(2,3)]-1);       
+            dc.LineTo(src[array(2,1)]-1); 
+            if j = 1 and it.HandleAllocated() then 
             begin
-                dc.DrawText(format("%d*%d",it.bmwidth,    it.bmheight),src,DT_VCENTER .| DT_SINGLELINE);
+                src[2] := src[0]+40;
+                dc.StretchDraw(src,it);
+            end else 
+            if j = 2 then 
+            begin    
+                if it.HandleAllocated() then 
+                begin
+                    dc.DrawText(format("%d*%d",it.bmwidth,    it.bmheight),src,DT_VCENTER .| DT_SINGLELINE);
+                end 
             end 
         end 
     end 
@@ -4208,6 +4220,11 @@ type TListStatusbarItem = class(TGridList)
             end 
             else di := di["text"];
                 dc.DrawText(di,src,DT_VCENTER .| DT_SINGLELINE);
+            dc.pen.color := 0xe0e0f0;
+            dc.pen.width := 1;
+            dc.moveto(src[array(0,3)]-1);       
+            dc.LineTo(src[array(2,3)]-1);       
+            dc.LineTo(src[array(2,1)]-1); 
         end 
     end 
 end