{"id":4699,"date":"2012-10-18T18:00:27","date_gmt":"2012-10-18T16:00:27","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=4699"},"modified":"2012-10-20T02:39:30","modified_gmt":"2012-10-20T00:39:30","slug":"fmx-enabledraghighlight","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2012\/10\/18\/fmx-enabledraghighlight\/","title":{"rendered":"FMX & EnableDragHighlight"},"content":{"rendered":"

Par d\u00e9faut, FireMonkey a une propri\u00e9t\u00e9 activ\u00e9e qui s’appelle EnableDragHighlight<\/span><\/code>.<\/p>\n

Cette propri\u00e9t\u00e9 permet d’entourer par d\u00e9faut le composant o\u00f9 elle est activ\u00e9e par un carr\u00e9 bleu lorsqu’un \u00e9l\u00e9ment est glisser au-dessus de lui :<\/p>\n

\"carr\u00e9<\/a>

carr\u00e9 bleu : EnableDragHighlight<\/p><\/div>\n

Cela peut s’av\u00e9rer tr\u00e8s pratique… n\u00e9anmoins, par d\u00e9faut sur tous les composants, c’est rarement utile \"(mm)\" <\/p>\n

Afin d’\u00e9viter d’avoir \u00e0 modifier la propri\u00e9t\u00e9 sur chacun de mes composants de mes fen\u00eatres et styles, j’ai rapidement \u00e9crit ce bout de code :
\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
<\/div><\/td>
unit<\/span> uFMX;<\/span>
\n
\ninterface<\/span>
\n
\nuses<\/span>
\n  FMX.<\/span>Types<\/span>,<\/span> System.<\/span>TypInfo<\/span>;<\/span>
\n
\nprocedure<\/span> SetDragHighlights(<\/span>const<\/span> parent:<\/span> TFmxObject;<\/span> const<\/span> enabled:<\/span> Boolean<\/span> =<\/span> False<\/span>)<\/span>;<\/span> overload<\/span>;<\/span>
\n
\nimplementation<\/span>
\n
\nprocedure<\/span> SetDragHighlights(<\/span>const<\/span> parent:<\/span> TFmxObject;<\/span> const<\/span> enabled:<\/span> Boolean<\/span>)<\/span>;<\/span> overload<\/span>;<\/span>
\nvar<\/span>
\n  iLoop,<\/span> iMax:<\/span> Integer<\/span>;<\/span>
\nbegin<\/span>
\n  \/\/ Do "parent" have this property?<\/span>
\n  if<\/span> IsPublishedProp(<\/span>parent,<\/span> 'EnableDragHighlight'<\/span>)<\/span> then<\/span>
\n  begin<\/span>
\n    SetPropValue(<\/span>parent,<\/span> 'EnableDragHighlight'<\/span>,<\/span> enabled)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\n
\n  \/\/ Do "parent"'s children have it?<\/span>
\n  iMax :<\/span>=<\/span> Pred<\/span>(<\/span>parent.<\/span>ChildrenCount<\/span>)<\/span>;<\/span>
\n  for<\/span> iLoop :<\/span>=<\/span> 0<\/span> to<\/span> iMax do<\/span>
\n  begin<\/span>
\n    SetDragHighlights(<\/span>parent.<\/span>Children<\/span>[<\/span>iLoop]<\/span>,<\/span> enabled)<\/span>;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nend<\/span>.<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

Je l’appelle \u00e0 la cr\u00e9ation d’une fen\u00eatre et lorsqu’un style est appliqu\u00e9 ainsi :
\n

SetDragHighlights(<\/span>Self<\/span>)<\/span>;<\/span><\/span><\/code><\/center><\/p>\n
\n \n <\/div>
\"ajax<\/div><\/div>","protected":false},"excerpt":{"rendered":"

Par d\u00e9faut, FireMonkey a une propri\u00e9t\u00e9 activ\u00e9e qui s’appelle EnableDragHighlight. Cette propri\u00e9t\u00e9 permet d’entourer par d\u00e9faut le composant o\u00f9 elle est activ\u00e9e par un carr\u00e9 bleu lorsqu’un \u00e9l\u00e9ment est glisser au-dessus de lui : Cela peut s’av\u00e9rer tr\u00e8s pratique… n\u00e9anmoins, par d\u00e9faut sur tous les composants, c’est rarement utile Afin d’\u00e9viter d’avoir \u00e0 modifier la propri\u00e9t\u00e9 […]<\/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],"tags":[27,154,146],"class_list":["post-4699","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-coloration-syntaxique","tag-delphi","tag-firemonkey"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/4699","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=4699"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/4699\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=4699"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=4699"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=4699"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}