ورود

View Full Version : تغییر مشخصات هر خط در memo


ssmehizadeh
پنج شنبه 26 خرداد 1384, 08:15 صبح
با سلام

من می خواستم در memo هر خطی رو با یک رنگ یا فونت خواص نشون بدم ....

اصلا نمیدونم توی memo میشه این کارو کرد ...
Delphi Skyline
پنج شنبه 26 خرداد 1384, 09:51 صبح
نمیشه . باید از richedit استفاده کنید.
Touska
پنج شنبه 26 خرداد 1384, 10:17 صبح
میشه این کار رو کرد ولی خیلی دردسر داره. با استفاده از SendMessage ها میشه. :flower:
ssmehizadeh
پنج شنبه 26 خرداد 1384, 11:29 صبح
حالا اگه با richedit یا همون memo با استفاده از sendmessage توضیح بدید ممنون می شم :flower:
ssmehizadeh
جمعه 27 خرداد 1384, 08:37 صبح
کسی نبود ...........
vcldeveloper
یک شنبه 29 خرداد 1384, 04:06 صبح
uses StrUtils;

var
ReturnPos : integer;
begin
ReturnPos := PosEx(#13#10,RichEdit1.Text);
repeat
RichEdit1.SelStart := ReturnPos + 1;
Application.ProcessMessages;
ReturnPos := PosEx(#13#10,RichEdit1.Text,
ReturnPos + 1);
RichEdit1.SelLength := ReturnPos + RichEdit1.SelStart;
RichEdit1.SelAttributes.Color := TColor(Random($7FFFFFFF));
until (ReturnPos = 0);
end;

بجای TColor(Random($7FFFFFFF)) هر رنگی دوستداری بزار. در ضمن این کد وجود کاراکترهای #13 و #10 رو چک میکنه، پس برای متن های WordWrap شده ممکنه درست کار نکنه.
ssmehizadeh
یک شنبه 29 خرداد 1384, 07:33 صبح
ممنون :flower: