چسباندن متن در RichEdit به همان صورت اولیه

[Felony]

:لبخندساده:سلام

دوستان من یه متن که رنگی هست رو تو ClipBoard کپی میکنم و میام به وسیله ی کلید ترکیبی Ctrl+v تو RichEdit برنامم Paste میکنمش هیچ مشکلی نداره و رنگها همه درستن و نمایش داده میشن ، ولی وقتی برای paste کردن به جای کلید ترکیبی از کد زیر استفاده میکنم متن سیاه میشه و همه ی سایزهای متن اصلی یکسان میشه !



RC_Code.Lines.Text:=ClipBoard.AsText;


چی کار کنم که متنم به همون صورت اصلی وارد RichEdit شه ؟

متنم هم اینطوری هست :



Run("<Embedded>\project1.exe","TOP")

*****

ScriptTimer("Endtask","1500")

*****

empty$=''

LoadText("EditBox1","empty$")

[vcldeveloper]

علتش اینه که متن موجود در RichEdit بصورت فرمت بندی شده هست، ولی شما متن فرمت بندی شده را بصورت Text در کلیپ برد ذخیره می کنید، نتیجه اش هم این میشه که متن فرمت بندی شده تبدیل میشه به Plain Text و فرمت خودش را از دست میده.
خود RichEdit متدهای Copy\Cut\Paste برای ذخیره متن فرمت بندی شده به کلیپ برد و چسباندن متن فرمت بندی شده از کلیپ برد را ارائه میکنه.