yosefyosef
شنبه 26 دی 1388, 13:20 عصر
رنگی کردن عبارتی مثلا علی که در Richedit1 هست که در edit1 نوشته شده است
در دلفی 2009
من سابقا در دلفی 7 از این دستور استفاده می کردم وجواب می داد اما در دلفی 2009 جواب نداد
اگر دوستان روش دیگری دارند بیان کنند با تشکر
دستور
var i1,j1,firstsearch:Integer;
begin
i1:=1;
firstsearch:=posEx(Edit1.text,RichEdit2.Text,i1+1) ;
while i1>0 do
begin
i1:=posEx(Edit1.text,RichEdit2.Text,i1+1);
j1:=length(Edit1.text);
RichEdit2.SelStart:=i1-1;
RichEdit2.SelLength:=j1;
RichEdit2.SelAttributes.Color:=clBlue;
end;
RichEdit2.SelStart:= firstsearch;
SendMessage(RichEdit2.Handle, EM_SCROLLCARET, 0, 0);
در دلفی 2009
من سابقا در دلفی 7 از این دستور استفاده می کردم وجواب می داد اما در دلفی 2009 جواب نداد
اگر دوستان روش دیگری دارند بیان کنند با تشکر
دستور
var i1,j1,firstsearch:Integer;
begin
i1:=1;
firstsearch:=posEx(Edit1.text,RichEdit2.Text,i1+1) ;
while i1>0 do
begin
i1:=posEx(Edit1.text,RichEdit2.Text,i1+1);
j1:=length(Edit1.text);
RichEdit2.SelStart:=i1-1;
RichEdit2.SelLength:=j1;
RichEdit2.SelAttributes.Color:=clBlue;
end;
RichEdit2.SelStart:= firstsearch;
SendMessage(RichEdit2.Handle, EM_SCROLLCARET, 0, 0);