界面库

减少c的依赖

designer/udesignerproject.tsf

@@ -364,6 +364,7 @@ type TProjectView = class(TVCForm) //
         imgs := New TControlImageList(self);
         imgs.width := 24;
         imgs.height := 24;
+        imgs.DrawBimpFirst := true;
         EditToolBmps := array();
         for i,v in GetToolBtns() do
         begin

designer/utslvcldesigner.tsf

@@ -1745,6 +1745,7 @@ type TDesigImageList = class(TControlImageList)
         inherited;
         Width := 24;
         Height := 24;
+        DrawBimpFirst := true;
         FIconMaps := array();
     end 
     function RegisterDitem(item);virtual;