Invalid icon used as default icon after loading icons from RES file

Question

I am trying to create a custom component that shows an icon when the mouse moves over it. I load the icons as follows:

UNIT Test; constructor TTestPath.Create(aOwner: TComponent); VAR myIcon: TIcon; begin inherited Create(aOwner); ImgList:= TImageList.Create(Self); myicon := TIcon.Create; TRY myicon.LoadFromResourceName(HInstance, 'FOLDER'); <------ this becomes application icon! ImgList.AddIcon(myicon); FINALLY FreeAndNil(myicon); end; 

The thing is, as soon as I add Test.pas to the USES cause of my test application, the application icon (red delphi helmet) is replaced by the "FOLDER" icon.

Update:
The icons in the EXE file are in the following order: 'FOLDER', Default_Delphi_icon Thus, the TTestPath icon is added to the EXE icon before use.

What is wrong here: the fact that the TTestPath icon is present in this way in the EXE file or the fact that it is placed in front of the application icon (by default)?

---

The control code is below:

 UNIT test; INTERFACE USES System.SysUtils, Winapi.Windows, System.Classes, Vcl.StdCtrls, Vcl.Controls, Vcl.Graphics, vcl.imglist, Vcl.ExtCtrls; {$WARN GARBAGE OFF} {Silent the: 'W1011 Text after final END' warning } TYPE TValidity= (vaNone, vaValid, vaInvalid); { Normal / Green / Red color } TInputType= (itFile, itFolder); { What kind of path will the user type in this control: folder or file } TTestPath = class(TCustomGroupBox) private edtPath : TButtonedEdit; btnApply : TButton; btnExplore : TButton; FInputType : TInputType; imgList : TImageList; FShowApplyBtn: Boolean; protected public constructor Create(aOwner: TComponent); override; published property Align; property Anchors; property BiDiMode; property Caption; property Color; property Constraints; property Ctl3D; property DockSite; property DoubleBuffered; property DragCursor; property DragKind; property DragMode; property Enabled; property Font; property Padding; property ParentBackground default True; property ParentBiDiMode; property ParentColor; property ParentCtl3D; property ParentDoubleBuffered; property ParentFont; property ParentShowHint; property PopupMenu; property ShowHint; property TabOrder; property TabStop; property Touch; property Visible; property StyleElements; property OnAlignInsertBefore; property OnAlignPosition; property OnClick; property OnContextPopup; property OnDblClick; property OnDragDrop; property OnDockDrop; property OnDockOver; property OnDragOver; property OnEndDock; property OnEndDrag; property OnEnter; property OnExit; property OnGesture; property OnGetSiteInfo; property OnMouseActivate; property OnMouseDown; property OnMouseEnter; property OnMouseLeave; property OnMouseMove; property OnMouseUp; property OnStartDock; property OnStartDrag; property OnUnDock; end; procedure Register; IMPLEMENTATION {$R cPathEdit.res} USES cIO; constructor TTestPath.Create(aOwner: TComponent); VAR myIcon: TIcon; begin inherited Create(aOwner); Caption := 'Folder'; Height:= 41; FShowApplyBtn:= TRUE; ImgList:= TImageList.Create(Self); { Freed by Self } myicon := TIcon.Create; TRY myicon.LoadFromResourceName(HInstance, 'FOLDER'); ImgList.AddIcon(myicon); myicon.LoadFromResourceName(HInstance, 'FOLDER_OPEN'); ImgList.AddIcon(myicon); FINALLY FreeAndNil(myicon); end; edtPath:= TButtonedEdit.Create(Self); WITH edtPath DO begin Parent := Self; Align := alClient; Margins.Left := 1; Margins.Top := 2; Margins.Right := 1; Margins.Bottom := 1; AlignWithMargins := TRUE; Images := imgList; TabOrder := 0 ; OnChange := nil; RightButton.Hint := 'Browse for a folder'; RightButton.ImageIndex:= 0; RightButton.HotImageIndex:= 1; RightButton.Visible := TRUE; OnRightButtonClick := nil; OnKeyPress := nil; end; btnExplore:= TButton.Create(Self); WITH btnExplore DO begin Parent := Self; Align := alRight; Width := 22; Margins.Left := 1; Margins.Top := 1; Margins.Right := 1; Margins.Bottom := 1; AlignWithMargins := TRUE; Caption := '^'; TabOrder := 1; Hint := 'Open this folder in Windows Explorer'; OnClick := nil; end; btnApply:= TButton.Create(Self); WITH btnApply DO begin Parent := Self; Align := alRight; Width := 38; Margins.Left := 1; Margins.Top := 1; Margins.Right := 1; Margins.Bottom := 1; AlignWithMargins := TRUE; Hint := 'Create folder if necessary'; Caption := 'Apply'; TabOrder := 2; OnClick := nil; end; FInputType:= itFolder; end; procedure Register; begin RegisterComponents('xxx', [TTestPath]); end; end. 

Test application:

 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, Forms, test; <-------- this type TForm1 = class(TForm) private public end; var Form1: TForm1; IMPLEMENTATION {$R *.dfm} end. 

Answer 1

Due to the rather confusing solution from Embarcadero, icon resources are sorted alphabetically when connected. The Windows rule is that the icon used by the shell for the executable is the first icon. The Delphi VCL code assumes that the application icon is named 'MAINICON' .

Match these requirements together and you can determine that all of your badges should have names that appear after 'MAINICON' in alphabetical order.

It is quite difficult, but easy enough to get around. Accept the appropriate naming convention for your badges and everything will behave the way you plan.

That's why Embarcadero does not change its code to make sure that the icon with the name 'MAINICON' first to be emitted, outside of me. Or agree that the application icon is defined as the first, and therefore, follow the rules of the platform. But we can do nothing.