[Delphi] a simple method to make the installation icon of the control panel (translation)

Translator press ：

        As early as 2019-12-05 The Japanese translator posted a blog post 《Delphi Control development steps 》 There are steps to make the installation icon of the control , What is introduced there is traditional （ It is also relatively standard ） Icon making steps , That's what I learned from Delphi 7 Learned during development , All these years , I have always felt that there are too many restrictions on icons （ There is a limit on the color depth of the picture , The installation steps are cumbersome ）, Thinking about Delphi It has developed for so long , The control icon should also be improved , But I haven't seen it on the management document . I finally saw an official blog post today , A simple method is introduced , I have solved my doubts for many years , Tread , Translate it immediately （ The level of translation is limited , If there is any deficiency , Please understand ）, For Delphi Friends of development .

A simple control icon making steps

By Embarcadero Archives  August 3, 2017

author ：Pawe Gowacki

 

        I recently found a super simple way to make control icons . The traditional method requires a picture editing tool , Edit the color depth of a square (4bit 24X24 Translator press ) Restricted pictures , This aspect is introduced in Stackoverflow There are a lot of them on the Internet .

        After a Google search , Find another one Stackoverflow The blog inspired me to try a simpler method . What I expect is that the size and color depth of the picture can be unlimited , Not even square . Find an image on Google Image Search （ Non copyright constraints ）, This link It is a high-precision bicycle picture , I plan to use this image as the control icon .

1. Save this picture as bitmap Format , It's more than 40M（ the truth is that 4M, Translator press ）4851X3264 Big picture of .
2. Create a new Delphi Package project , For simplicity , Just create a package that unifies the runtime and design phases . Package name is ：“PackageMySuperComponent”
3. Add an empty... To this package unit Control unit , Name it ：“uMySuperComponent.pas”.
4. Simply add a control without function “TMySuperComponent”, The code is as follows ：

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

5. After saving, select current Package Package item menu ：Project -> Resources and Images , Add para 1 Step bike icon , confirm bitmap identifier The name is the class name of the control . In this case, it's “TMySuperComponent”.
6. Right click the package item , choice ：Build, then Install. So the control is installed , And then restart IDE Just fine .
7. Create a visual program , In the control panel （Tool Palette） Of  “Samples” You can see the control on the page .

This does not seem to be a document , But I hope this method can be used , And you will find it very useful ！