Comment faire en sorte que Delphi 10.2 Tokyo honore ICON_SMALL (icône de la barre de titre de la fenêtre) en plus de ICON_BIG?

Corriger la section d’ interface des sources VCL / RTL principales de Delphi n’est pas autorisée (en théorie). Le fait que vous ayez réussi à le faire est revenu comme un boomerang maintenant. Vous pouvez dans la plupart des cas faire ce dont vous avez besoin sans patcher les sources, par exemple en utilisant l’inheritance, les aides de classe, le code des correctifs dans l’exécution, les détours et dans d’autres cas pour votre projet qui est autorisé – voir aussi How to recomstack modifications to VCL source file et How to change VCL code?

Je suggère de créer une classe de base ancêtre pour tous vos formulaires (je pense que tout projet de grande envergure devrait le faire) dans l’application et remplacer CreateWnd :

 procedure TBaseForm.CreateWnd; var Big, Small: HICON; begin inherited; if BorderStyle <> bsDialog then begin GetIconHandles(Big, Small); if Big <> 0 then SendMessage(Handle, WM_SETICON, ICON_BIG, LParam(Big)); if Small <> 0 then SendMessage(Handle, WM_SETICON, ICON_SMALL, LParam(Small)); end; end; 

Introduisez deux méthodes virtuelles :

 procedure TBaseForm.GetIconResName(var Name: ssortingng); begin Name := 'MAINICON'; end; procedure TBaseForm.GetIconHandles(var Big, Small: HICON); var ResName: ssortingng; begin Big := 0; Small := 0; GetIconResName(ResName); if ResName = '' then Exit; Big := LoadImage(HInstance, PChar(ResName), IMAGE_ICON, GetSystemMesortingcs(SM_CXICON), GetSystemMesortingcs(SM_CYICON), 0); Small := LoadImage(HInstance, PChar(ResName), IMAGE_ICON, GetSystemMesortingcs(SM_CXSMICON), GetSystemMesortingcs(SM_CYSMICON), 0); end; 

Tout ce que vous devez faire dans vos classes enfants est de remplacer le GetIconResName .

c’est à dire:

 TMyChildForm = class(TBaseForm) protected procedure GetIconResName(var Name: ssortingng); override; end; procedure TMyChildForm.GetIconResName(var Name: ssortingng); begin Name := 'SPIDERMAN'; end; 

Ce n’est pas une solution complète …

J’ai essayé de vous donner quelques pistes pour montrer que le patch de la source VCL n’est pas nécessaire.

Dans tous les cas, je n’ai aucun problème si j’utilise la propriété Icon (à la fois Application et Form) et que je fournisse une icône avec au moins 2 tailles (16×16 et 32×32) 32 bits (utilisez d’autres formats si nécessaire), Windows affichera l’icône correcte. le système affiche la grande icône dans la boîte de dialog ALT + TAB et la petite icône dans la légende de la fenêtre. même si seul ICON_BIG est envoyé au handle de la fenêtre Formulaire / Application. (Delphi7 / Win7). (C’est pourquoi j’ai demandé à MCVE, y compris des informations sur le format de vos icons, et pas seulement des fragments de code comme vous l’avez fait …)

Étant donné que je suis confus au sujet de vos exigences précises et que vous refusez toujours de fournir MCVE, je vais essayer de proposer une autre approche:

Vous dites que vous devez également gérer l’icône de l’application. l’icône Application est définie au début de la création de l’application, ce qui n’est pas simple à gérer dans vos formulaires car ils ne sont pas encore créés. mais chaque fois que l’ Application.Icon est modifié, l’application notifie les formulaires avec CM_ICONCHANGED (voir: procedure TApplication.IconChanged(Sender: TObject); ). Vous pouvez donc redéfinir l’icône de l’application dans ce gestionnaire de messages via SendMessage(Application.Handle, WM_SETICON... (cela ne déclenchera pas CM_ICONCHANGED ) ou définir directement Application.Icon (qui déclenchera également CM_ICONCHANGED ) si nécessaire. définir les grandes et petites icons via le message WM_SETICON Vous devrez également définir l’icône de la classe:

 SetClassLong(Application.Handle, GCL_HICON, FIcon); 

Donc, chaque fois que l’icône de l’application est modifiée, couvert par CM_ICONCHANGED dans vos formulaires.

 TBaseForm = class(TForm) private procedure CMIconChanged(var Message: TMessage); message CM_ICONCHANGED; ... procedure TBaseForm.CMIconChanged(var Message: TMessage); ... 

Si vous avez besoin de définir cette icône au début de votre application (ce que je ne pense pas est nécessaire), faites ce qui suit dans la création du formulaire principal uniquement.

Pour attraper / manipuler les icons Formulaires, utilisez le WM_SETICON messages WM_SETICON dans vos formulaires:

 TBaseForm = class(TForm) private procedure WMSetIcon(var Message: TWMSetIcon); message WM_SETICON; ... procedure TBaseForm.WMSetIcon(var Message: TWMSetIcon); begin if (Message.Icon <> 0) and (BorderStyle <> bsDialog) then begin // this big icon is being set by the framework if Message.BigIcon then begin // FBigIcon := LoadImage/LoadIcon... // if needed set Message.Icon to return a different big icon // Message.Icon := FBigIcon; // in practice create a virtual method to handle this section so your child forms can override it if needed inherited; FSmallIcon := LoadImage/LoadIcon... // set small icon - this will also re-sortinggger WMSetIcon Perform(WM_SETICON, ICON_SMALL, FSmallIcon); end else inherited; end else inherited; end; 

Cela devrait vous permettre de couvrir toutes les situations.

Je viens de créer une nouvelle application de formulaires VCL, de définir l’icône de l’application dans les options du projet et l’icône du formulaire (uniquement, principal) sur le même fichier, que j’avais modifié pour donner un aspect différent au 16×16 (profondeur 32 bits). code suivant:

 { TForm27 } procedure TForm27.SetIcons; var MainIcon, SmallIcon: HICON; begin MainIcon := Application.Icon.Handle; SmallIcon := Icon.Handle; Perform(WM_SETICON, ICON_BIG, MainIcon); Perform(WM_SETICON, ICON_SMALL, SmallIcon); end; procedure TForm27.FormCreate(Sender: TObject); begin SetIcons; end; 

Cela a produit l’affichage suivant:

Notez que les deux utilisent le même fichier .ico, une modification laide de ib.ico fournie avec 10.2 Tokyo. Je viens de peindre quelques lignes noires et ovales sur la petite icône uniquement .

Je ne connais pas le code de votre modification GetIconHandle, mais vous pouvez faire la même chose ici. Notez également que cela ne fonctionne pas si j’utilise (le formulaire) Icon.Handle pour les deux. Si je le fais, l’icône laide 16×16 s’affiche également dans la barre d’application.

Mais je n’ai eu à modifier aucun code VCL. Vous pouvez le faire dans n’importe quelle application VCL.

Il y a deux questions claires à la toute fin du post.

1. Est-il possible de laisser Delphi définir des icons petites et grandes sans trop de soucis et sans modifier VCL.Forms.pas? (c’est la question principale);

Dans le contexte de la question, cela signifie vraiment demander si forcer le framework VCL lui-même, sans le modifier, pour charger différentes tailles d’icons est possible. Cela a une réponse très courte: non.

Si pris à la lettre cependant, il est possible d’utiliser Delphi pour ce faire. Les extraits de code dans votre question en sont la preuve, ce qui ne semble pas être très compliqué.

2. Sinon, comment append une unité VCL source modifiée à votre application sous Delphi 10.2 Tokyo, où la section d’interface d’une unité est modifiée?

Très courte réponse ici aussi: impossible, vous ne pouvez pas modifier les sections d’interface des fichiers source Delphi.

Maintenant, ce qui précède est vraiment la réponse à la question. C’est tout ce qu’il y a à faire. Cependant, bien que ces informations soient disponibles dans les commentaires et qu’une réponse existe déjà, la question est toujours ouverte. Il fournit même une prime. Je dois chercher fort pour trouver ce que la question veut vraiment demander.

La question dans le titre n’est pas plus explicative que celles incluses dans le post.

Il y a une partie de mise à jour dans la deuxième question du poste:

La configuration des icons après la définition de VCL.Forms.pas ne constitue pas une solution complète.

Cela n’aide vraiment pas. Après avoir lu la mise à jour à plusieurs resockets et y avoir réfléchi; Cette mise à jour n’a aucun rapport avec ce qui a été demandé en tant que question, ou même avec les informations de base données dans le message. Et je ne sais absolument pas de quoi il parle.

En fouillant plus, je rencontre votre commentaire sur la réponse de Rudy :

… Delphi lui-même définit parfois ICON_BIG, donc dans certains scénarios complexes, vous devrez intercepter ces cas et appeler à nouveau le WM_SETICON avec ICON_BIG. …

Je suppose que le problème est le suivant. Malgré votre configuration d’icons appropriées, dans certains cas imprévus, la VCL remplace vos icons. Si ce n’est pas ce que vous souhaitez résoudre, veuillez modifier votre question pour la poser.

Je n’ai rien vu de tel, en tout cas nous n’avons pas besoin de modifier “forms.pas” pour ignorer le paramétrage de l’icône du framework. Un simple gestionnaire WM_SETICON sur le formulaire suffit, ne laissez pas le message être traité.

Alors, comment allons-nous définir l’icône? Il y a une réponse à cela sur la documentation de WM_GETICON :

.. Une fenêtre sans icône explicitement définie (avec WM_SETICON ) utilise l’icône de la classe de fenêtre enregistrée, ..

Voici donc la solution contenue dans une classe de formulaire du problème supposé:

 type TForm1 = class(TForm) protected procedure WMSetIcon(var Message: TWMSetIcon); message WM_SETICON; procedure CreateParams(var Params: TCreateParams); override; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited; Params.WindowClass.hIcon := LoadIcon(HInstance, 'ICON_1'); end; procedure TForm1.WMSetIcon(var Message: TWMSetIcon); begin end; 

Vous trouverez ci-dessous une capture d’écran du formulaire exécuté sur W7, petite icône ( ) dans la légende, grande icône ( ) en haut à gauche de la boîte de dialog alt + tab:

Notez que XE2 a un problème avec son gestionnaire de ressources, j’ai identifié l’icône comme “CANCEL” dans la boîte de dialog “ressources et images”, mais l’icône de l’exécutable s’est retrouvée avec “ICON_1” comme identifiant, donc j’ai dû l’utiliser dans le code.