【Delphi】制作控件面板安装图标的简单方法（译）

译者按：

        早在2019-12-05日译者发布了一篇博文《Delphi 控件开发步骤》里边有介绍控件安装图标的制作步骤，那里介绍的是传统的（也是相对标准的）图标制作步骤，那是我从Delphi 7开发时学习的，这么多年了，自己也一直感觉那样做图标限制太多（图片颜色深度有限制，安装步骤繁琐），想着Delphi发展了这么长时间了，关于控件图标这块也应该有改进了吧，可是却一直未在管方文档上看到过。今天终于看到了一篇官方博文，介绍了一种简单的办法，把我的多年一直的疑惑都解决了，欣喜若狂，立即翻译出来（翻译水平有限，如有不足，请谅解），以飨Delphi开发的朋友。

一种简单的控件图标制作步骤

By Embarcadero Archives  August 3, 2017

作者：Pawe Gowacki

 

        我最近发现一个超级简单的制作控件图标的方法。传统的方法是需要一个图片编辑工具，编辑一个方形的有色深(4bit 24X24 译者按)限制的图片，这方面的介绍在 Stackoverflow 上也有很多。

        经过一番谷歌搜索，找到另外一个Stackoverflow博文启发我尝试更简单的方法。我期望的是可以图片大小色深等不受限制，甚至不是方形。在谷歌图片搜索上找到一个图片（非版权约束），这个链接是一个高精度自行车图片，我打算用这个图片作为控件图标。

1. 保存这个图片为bitmap格式，是一个超过40M（实际是4M，译者按）4851X3264的大图片。
2. 创建一个新的Delphi Package项目，为了简单，就直接创建一个运行期和设计期统一的包。包名为：“PackageMySuperComponent”
3. 给这个包增加一个空的unit控件单元，命名为：“uMySuperComponent.pas”。
4. 简单的增加一个没有功能的控件“TMySuperComponent”，代码如下：

   unit uMySuperComponent
   
   interface
   uses
       System.Classes;
   
   type
       TMySuperComponent = Class(TComponent)
       end;
   
   procedure register;
   
   implementation
   
   procedure register;
   begin
       RegisterComponents('Samples', [TMySuperComponent]);
   end;
   
   end.
   

5. 存盘以后选择当前Package包项目菜单：Project -> Resources and Images ，增加第1步的自行车图标，确认bitmap identifier名称是控件的类名。在本例中是“TMySuperComponent”。
6. 在包项目上右击鼠标，选择：Build，然后 Install。这样控件就安装好了，然后重启IDE就好了。
7. 创建可视程序，在控件面板（Tool Palette）的 “Samples” 页上就可以看到控件。

这似乎不是一个文档，但我希望这种方法可以使用，并且您会发现它很有用！