界面库

优化coolbar

designer/tslvcldesigner.tsf

@@ -5391,34 +5391,11 @@ type TGridCellVariabletimagelistEdit = class(TGridCellVariableTactionEdit)
         inherited;
     end 
 end 
-type TGridCellVariablehgtEdit = class(TGridCellVariableTactionEdit)
+type TGridCellVariablehgtEdit = class(TGridCellVariabletimagelistEdit)
     Function EditType();override;
     begin
         return "thighlighter";
     end 
-    function CellDrawLabel(dc,rect,d);override;
-    begin
-        v := d["value"];
-        if v is class(tcomponent) then 
-        begin
-            dc.DrawText(v.name,rect,DT_VCENTER.|DT_LEFT .|DT_SINGLELINE);
-        end 
-    end 
-
-    function FormatTMF(d);override;
-    begin
-        if d is class(tcomponent) then 
-        begin
-            r := d.name;
-            if r then return r;
-        end 
-        return false;
-    end 
-    function GetItemValue(V);override;
-    begin
-        if v is class(TDComponent) then r := v.GetTrueComponent();
-        return r;
-    end 
     function create(owner);override;
     begin
         inherited;