{"id":2428,"date":"2011-06-26T08:00:06","date_gmt":"2011-06-26T06:00:06","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=2428"},"modified":"2012-03-03T15:56:16","modified_gmt":"2012-03-03T14:56:16","slug":"visualiseur-icones","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2011\/06\/26\/visualiseur-icones\/","title":{"rendered":"Visualiseur d\u2019ic\u00f4nes"},"content":{"rendered":"

En continuant de jouer avec les t\u00e2ches de Windows 7<\/a>, voulant impl\u00e9menter du code pour cr\u00e9er une t\u00e2che sur le menu contextuel d’une de mes applications, comme l’a expliqu\u00e9 Franck<\/a> dans son article \u00ab\u00a0Utilisez la barre des t\u00e2ches Windows 7 dans vos applications Delphi 2010<\/a>\u00ab\u00a0, j’ai eu besoin d’utiliser des ic\u00f4nes externes \u00e0 mon application.<\/p>\n

Pour cela, je me suis tr\u00e8s rapidement cr\u00e9\u00e9 une nouvelle application qui ne sert qu’\u00e0 afficher les ic\u00f4nes d’une ressource avec leur index.
\n

\"wIcons\"<\/a>

wIcons<\/p><\/div>
\n 
\nSi vous le souhaitez, vous pouvez t\u00e9l\u00e9charger l’application depuis ce lien<\/a>.<\/p>\n

Sur la seconde page<\/a>, le code utilis\u00e9 pour r\u00e9cup\u00e9rer une ic\u00f4ne…
\n<\/p>\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
<\/div><\/td>
procedure<\/span> TfrmMain.<\/span>AddIcon<\/span>(<\/span>iIndex:<\/span> Integer<\/span>)<\/span>;<\/span>
\nvar<\/span>
\n  gbOne :<\/span> TGroupBox;<\/span>
\n  imgOne:<\/span> TImage;<\/span>
\n  icOne :<\/span> TIcon;<\/span>
\nbegin<\/span>
\n  icOne :<\/span>=<\/span> TIcon.<\/span>Create<\/span>;<\/span>
\n  try<\/span>
\n    icOne.<\/span>Handle<\/span> :<\/span>=<\/span> ExtractIcon(<\/span>Handle,<\/span> PWideChar<\/span>(<\/span>btnedFile.<\/span>Text<\/span>)<\/span>,<\/span> iIndex)<\/span>;<\/span>
\n
\n    gbOne              :<\/span>=<\/span> TGroupBox.<\/span>Create<\/span>(<\/span>Self<\/span>)<\/span>;<\/span>
\n    gbOne.<\/span>Caption<\/span>      :<\/span>=<\/span> IntToStr<\/span>(<\/span>iIndex)<\/span>;<\/span>
\n    gbOne.<\/span>Width<\/span>        :<\/span>=<\/span> 38<\/span>;<\/span>
\n    gbOne.<\/span>Height<\/span>       :<\/span>=<\/span> 48<\/span>;<\/span>
\n    gbOne.<\/span>OnClick<\/span>      :<\/span>=<\/span> IconClick;<\/span>
\n    gbOne.<\/span>Cursor<\/span>       :<\/span>=<\/span> crHandPoint;<\/span>
\n
\n    imgOne             :<\/span>=<\/span> TImage.<\/span>Create<\/span>(<\/span>Self<\/span>)<\/span>;<\/span>
\n    imgOne.<\/span>Width<\/span>       :<\/span>=<\/span> 32<\/span>;<\/span>
\n    imgOne.<\/span>Height<\/span>      :<\/span>=<\/span> 32<\/span>;<\/span>
\n    imgOne.<\/span>Top<\/span>         :<\/span>=<\/span> 12<\/span>;<\/span>
\n    imgOne.<\/span>Left<\/span>        :<\/span>=<\/span> 3<\/span>;<\/span>
\n    imgOne.<\/span>Transparent<\/span> :<\/span>=<\/span> True<\/span>;<\/span>
\n    imgOne.<\/span>OnClick<\/span>     :<\/span>=<\/span> IconClick;<\/span>
\n    imgOne.<\/span>Parent<\/span>      :<\/span>=<\/span> gbOne;<\/span>
\n
\n    gbOne.<\/span>Parent<\/span>       :<\/span>=<\/span> flwpnlIcons;<\/span>
\n
\n    imgOne.<\/span>Canvas<\/span>.<\/span>FillRect<\/span>(<\/span>rect<\/span>(<\/span>0<\/span>,<\/span> 0<\/span>,<\/span> 32<\/span>,<\/span> 32<\/span>)<\/span>)<\/span>;<\/span>
\n    DrawIcon(<\/span>imgOne.<\/span>Canvas<\/span>.<\/span>Handle<\/span>,<\/span> 0<\/span>,<\/span> 0<\/span>,<\/span> icOne.<\/span>Handle<\/span>)<\/span>;<\/span>
\n
\n  except<\/span> on<\/span> E:<\/span> Exception do<\/span>
\n    begin<\/span>
\n      MessageDlg(<\/span>'Une erreur s'<\/span>'est produite :'<\/span> +<\/span> #13<\/span>#10<\/span>#13<\/span>#10<\/span> +<\/span> e.<\/span>Message<\/span>,<\/span> mtWarning,<\/span> [<\/span>mbOK]<\/span>,<\/span> 0<\/span>)<\/span>;<\/span>
\n      Exit;<\/span>
\n    end<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n  icOne.<\/span>Free<\/span>;<\/span>
\nend<\/span>;<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

\"D\u00e9velopp\u00e9<\/a><\/center><\/p>\n","protected":false},"excerpt":{"rendered":"

En continuant de jouer avec les t\u00e2ches de Windows 7, voulant impl\u00e9menter du code pour cr\u00e9er une t\u00e2che sur le menu contextuel d\u2019une de mes applications, j\u2019ai eu besoin d\u2019utiliser des ic\u00f4nes externes \u00e0 mon application.<\/p>\n

Pour cela, je me suis tr\u00e8s rapidement cr\u00e9\u00e9 une nouvelle application qui ne sert qu\u2019\u00e0 afficher les ic\u00f4nes d\u2019une ressource avec leur index…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_links_to":"","_links_to_target":""},"categories":[7,6],"tags":[27,154,93,151],"class_list":["post-2428","post","type-post","status-publish","format-standard","hentry","category-delphi","category-dev","tag-coloration-syntaxique","tag-delphi","tag-freeware","tag-windows-7"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/2428","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/comments?post=2428"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/2428\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=2428"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=2428"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=2428"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}