cadre richEdit presse-papierRésolu

Question

Bonjour,
J'ai un richEdit où du texte apparait et je souhaite le mettre dans le presse-papier, pour cela j'utilise ce code:
  richedit1.SelectAll;
  richedit1.CopyToClipboard

Cependant j'aimerais que lorsque je colle mon texte dans word, ce même texte soit à l'intérieur d'un cadre. Donc est il possible de créer un cadre dans le richEdit, puis le copier dans le presse-papier avec le texte pour le coller ensuite dans word?

Merci, ;) 
YB

YB28 · Accepted Answer

En fin de compte, j'ai créé plusieurs cellule de cette facon : 
richedit2.text:=richedit2.text+'{tf'
+'	rowd	rgaph70\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx2265\pard\intbl '
+ L0 +'\cellow'
+'	rowd	rgaph70\clbrdrl\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx2265\pard\intbl '
+ L1 +'\cellow'
+'	rowd	rgaph70\clbrdrl\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx2265\pard\intbl '
+ L2 +'\cellow'
+'	rowd	rgaph70\clbrdrb\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrr\brdrw15\brdrs\cellx2265\pard\intbl '
+ L3 +'\cellow'
+'} ';

YB28 · Answer

J'utilise ceci :
richedit1.text:=richedit1.text+'{tf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\froman\fprq2\fcharset0 Arial;}{\f1\fmodern\fprq1\fcharset0 Lucida Console;}{\f2\fswiss\fprq2\fcharset0 Calibri;}{\f3\fswiss\fcharset0 Arial;}}'
+'{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1	rowd	rgaph70	rleft-70	rrh829	rbrdrl\brdrs\brdrw10 	rbrdrt\brdrs\brdrw10 	rbrdrr\brdrs\brdrw10 	rbrdrb\brdrs\brdrw10 	rpaddl70	rpaddr70	rpaddfl3	rpaddfr3'
+'\clbrdrl\brdrw10\brdrs\clbrdrt\brdrw10\brdrs\clbrdrr\brdrw10\brdrs\clbrdrb\brdrw10\brdrs \cellx3119\pard\intbl\f1\fs24 Menu Principal    <>\par'
+'1= Programmation    \par'
+'2= Entrées Sorties  \par'
+'3= Historique       \cellow\pard\sa200\sl276\slmult1\f0\fs22\par'
+'\pard\f3\fs20\par'
+'}';

cependant je perds des caractères le '1' le '2' et le '3'
Et je voudrais qu'il me fasse un retour à la ligne au niveau du '\par' ce qu'il ne fait pas.
 Merci ;)

cs_yanb · Answer

Salut,
retour à la ligne ...
+'1= Programmation    \par'#13#10
+'2= Entrées Sorties  \par'#13#10
...
@+

Cirec · Answer

Salut,

regarde ceci c'est pas du Delphi mais c'est très simple à comprendre et l'essentiel est en RTF .. et c'est ce qui t'intéresses le plus  


[hr]@+Cirec
[hr]

YB28 · Answer

salut, 
+'1= Programmation    \par'#13#10
+'2= Entrées Sorties  \par'#13#10
 ne fonctionne pas. Je n'obtient pas les retours à la ligne.


  richedit2.text:=richedit2.text+'{tf1\ansi\deff0'
+'{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}}'
+'{\*\generator Msftedit 5.41.15.1515;}'
+'\viewkind4\uc1\pard	rowd	rgaph70'
+'\clbrdrb\brdrw15\brdrs\clbrdrt\brdrw15\brdrs\clbrdrl\brdrw15\brdrs\clbrdrr\brdrw15\brdrs'
+'\cellx2165\pard\intbl'
+'\b\fs16\f0'
+ L0 +'\par '
+ L1 +'\par '
+ L2 +'\par '
+ L3 +'\cell'
+'{ow}'
+'}';
les \par ne fonctionne pas  et si j'enlève l'espace après \par je perd un caractère du mot suivant.

Cadre richEdit presse-papier

5 réponses

Votre réponse

Discussions similaires