How can I display the built-in icons on the buttons?

[iruanpan]

Excuse me. How can I display the built-in icons on the buttons?

The application was compiled with an icon collection. Can I display one of these icons on a button component?

[KodeZwerg]

You need to place Icons in the RT_ICON section and call my method
image1 = do it like i show
image2 = the clean button
image3 = after button was pressed

and here is the code:

Code: Pascal  [Select][+][-]

1. procedure AssignIcon(const ABitBtn: TBitBtn; const AName: string);
2. var
3.   ico: TIcon;
4. begin
5.   ico := TIcon.Create;
6.   try
7.     ico.LoadFromResourceName(HINSTANCE, AName);
8.     ABitBtn.Glyph.Assign(ico);
9.   finally
10.     ico.Free;
11.   end;
12. end;
13.  
14. procedure TForm1.BitBtn1Click(Sender: TObject);
15. begin
16.   if Sender is TBitBtn then
17.     AssignIcon((Sender as TBitBtn), 'HEART');
18. end;

Enjoy!

[wp]

The resources shown in your screenshot seem to be the default resource files which the LCL is linking in. These resources are use by TBitBtn and TSpeedButton as default icons. Simply set the Kind property, and the icon corresponding to the Kind value, will appear.

[iruanpan]

You need to place Icons in the RT_ICON section and call my method
image1 = do it like i show
image2 = the clean button
image3 = after button was pressed

and here is the code:

Code: Pascal  [Select][+][-]

1. procedure AssignIcon(const ABitBtn: TBitBtn; const AName: string);
2. var
3.   ico: TIcon;
4. begin
5.   ico := TIcon.Create;
6.   try
7.     ico.LoadFromResourceName(HINSTANCE, AName);
8.     ABitBtn.Glyph.Assign(ico);
9.   finally
10.     ico.Free;
11.   end;
12. end;
13.  
14. procedure TForm1.BitBtn1Click(Sender: TObject);
15. begin
16.   if Sender is TBitBtn then
17.     AssignIcon((Sender as TBitBtn), 'HEART');
18. end;

Enjoy!

Thank you very much for your help

[iruanpan]

The resources shown in your screenshot seem to be the default resource files which the LCL is linking in. These resources are use by TBitBtn and TSpeedButton as default icons. Simply set the Kind property, and the icon corresponding to the Kind value, will appear.

That's what I want. Thank you very much for your help!