{"id":1795,"date":"2010-11-24T13:15:30","date_gmt":"2010-11-24T12:15:30","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=1795"},"modified":"2012-03-03T04:16:16","modified_gmt":"2012-03-03T03:16:16","slug":"citations-skype","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2010\/11\/24\/citations-skype\/","title":{"rendered":"Citations Skype"},"content":{"rendered":"

Depuis quelques versions, Skype a ajout\u00e9 une nouvelle pr\u00e9sentation lorsque vous copiez\/collez du texte des pr\u00e9c\u00e9dents messages, par exemple :
\n

\"Citation<\/a>

Citation Skype<\/p><\/div><\/center><\/p>\n

Si vous \u00eates habitu\u00e9(e) \u00e0 coller votre presse-papier avec le raccourci clavier, Ctrl V<\/em>, mais que vous aimez pouvoir modifier ce que vous collez pour ne pas citer mais apporter une modification au texte, vous pouvez utiliser, soit le raccourci, Maj Ctrl V, soit avec le menu contextuel du champ de saisi des messages.<\/p>\n

Ou alors \"8-)\" <\/p>\n

Vous pouvez utiliser une petite application (sans pr\u00e9tention) que j’ai cod\u00e9e pour ne plus avoir \u00e0 y penser syst\u00e9matiquement… wSkypeNoQuote<\/a> !
\n
\nConcr\u00e8tement, j’ai simplement voulu jouer avec les presses-papiers de Windows, ses diff\u00e9rents formats et sa surveillance…<\/p>\n\n\n
\"Du<\/a>

Du texte
dans le presse-papier<\/p><\/div><\/td>\n<\/tr>\n<\/table>\n

Pour la surveillance, il suffit simplement d’ajouter deux m\u00e9thodes \u00e0 sa fen\u00eatre :<\/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
40
41
42
43
44
45
<\/div><\/td>
uses<\/span> Windows,<\/span> ...;<\/span>
\n
\n[<\/span>...<\/span>]<\/span>
\n
\nvar<\/span>
\n    hNextInChain    :<\/span> THandle<\/span>;<\/span>
\n
\n[<\/span>...<\/span>]<\/span>
\n
\nprocedure<\/span> TfrmDisabler.<\/span>WMChangeCBChain<\/span>(<\/span>var<\/span> Msg:<\/span> TMessage)<\/span>;<\/span>
\nvar<\/span>
\n  hRemove,<\/span> hNext:<\/span> THandle<\/span>;<\/span>
\nbegin<\/span>
\n  hRemove :<\/span>=<\/span> Msg.<\/span>WParam<\/span>;<\/span>
\n  hNext     :<\/span>=<\/span> Msg.<\/span>LParam<\/span>;<\/span>
\n  with<\/span> Msg do<\/span>
\n  begin<\/span>
\n    if<\/span> (<\/span>hNextInChain =<\/span> hRemove)<\/span> then<\/span>
\n    begin<\/span>
\n      hNextInChain :<\/span>=<\/span> hNext;<\/span>
\n    end<\/span>
\n    else<\/span> if<\/span> (<\/span>hNextInChain <> 0<\/span>)<\/span> then<\/span>
\n    begin<\/span>
\n      SendMessage(<\/span>hNextInChain,<\/span> WM_ChangeCBChain,<\/span> hRemove,<\/span> hNext)<\/span>;<\/span>
\n    end<\/span>;<\/span>
\n  end<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nprocedure<\/span> TfrmDisabler.<\/span>WMDrawClipboard<\/span>(<\/span>var<\/span> Msg:<\/span> TMessage)<\/span>;<\/span>
\nbegin<\/span>
\n  ManageQuote;<\/span> \/\/ Ma m\u00e9thode applicative o\u00f9 je fais ce que j'ai \u00e0 faire lorsque le presse-papier change<\/span>
\n  \/\/ Fait suivre le message \u00e0 la fen\u00eatre suivante<\/span>
\n  if<\/span> (<\/span>hNextInChain <> 0<\/span>)<\/span> then<\/span>
\n    SendMessage(<\/span>hNextInChain,<\/span> WM_DrawClipboard,<\/span> 0<\/span>,<\/span> 0<\/span>)<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nprocedure<\/span> TfrmDisabler.<\/span>FormCreate<\/span>(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\nbegin<\/span>
\n  hNextInChain :<\/span>=<\/span> SetClipboardViewer(<\/span>Handle)<\/span>;<\/span>
\nend<\/span>;<\/span>
\n
\nprocedure<\/span> TfrmDisabler.<\/span>FormDestroy<\/span>(<\/span>Sender:<\/span> TObject<\/span>)<\/span>;<\/span>
\nbegin<\/span>
\n  ChangeClipboardChain(<\/span>Handle,<\/span> hNextInChain)<\/span>;<\/span>
\nend<\/span>;<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n

Si vous avez des questions, des suggestions, n’h\u00e9sitez pas \u00e0 laisser un commentaire \";)\" <\/p>\n

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

Depuis quelques versions, Skype a ajout\u00e9 une nouvelle pr\u00e9sentation lorsque vous copiez\/collez du texte des pr\u00e9c\u00e9dents messages… Vous pouvez utiliser une petite application que j’ai cod\u00e9e pour ne plus avoir \u00e0 y penser syst\u00e9matiquement…<\/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,149],"class_list":["post-1795","post","type-post","status-publish","format-standard","hentry","category-delphi","category-dev","tag-coloration-syntaxique","tag-delphi","tag-freeware","tag-skype"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/1795","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=1795"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/1795\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=1795"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=1795"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=1795"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}