تلوين البحث و التغيير Search And Replace

[kachwahed]

للتذكير فقط، TRichEdit يملك تابع للبحث FindText مباشرة:

PHP كود :

aPos := RichEdit1.FindText('SearchStr', StartPos, Length, [stMatchCase, stWholeWord]); 


ويرجع موضع النص محل البحث...

هناك مشكلة في background color

جرب:

PHP كود :

Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format)); 


المصدر:

كود :

http://www.delphipages.com/forum/showthread.php?tid=203456