PDA

View Full Version : تغییر رنگ کلمات در richedit یا memo


masoode
پنج شنبه 26 خرداد 1384, 11:22 صبح
سلام
من می خواهم برنامه ای بنویسم که در اون لازمه با تشخیص برنامه رنگ و فونت حروف یک متن تغییر کنه. در richedit اگر یک حرف select شده باشه راحت می شه این کار رو کرد ولی نمی دونم چطوری میشه به یک حرف دسترسی پیدا کرد شبیه موقعی که select می شه
یا اگر راه دیگری برای این کار (یعنی تعییر رنگ حروف) وجود داره به من بگید
ممنون
vcldeveloper
جمعه 27 خرداد 1384, 03:05 صبح
با استفاده از خاصیت SelStart از TRichEdit مکان اولین کاراکتر متنی که باید رنگش تغییر کنه رو مشخص کن.
با استفاده از خاصیت SelLength طول متن رو مشخص کن.
با استفاده از خاصیت SelAttributes.Color رنگ متن رو مشخص کن.
shining_eye
سه شنبه 15 تیر 1389, 13:47 عصر
این موارد رو تو کجا می شه نوشت؟ SelStart وSelLength وSelAttributes.Color فقبلش نیاز به تعریف چیز خاصی نیست؟
tdkhakpur
سه شنبه 15 تیر 1389, 14:05 عصر
تغییر رنگ خطوط richedit (http://barnamenevis.org/forum/showthread.php?t=232211)
stahad1
شنبه 11 دی 1389, 22:14 عصر
سلام من می خوام dbgridرا یک در میان رنگی کنم و وقتی روی مشخصات فیلدی که کلیک می کنم رنگ آن هم متفاوت باشد
iman_Delphi
چهارشنبه 15 دی 1389, 19:54 عصر
سلام
دوست من اينم كدش : <<>>>>>>>>>>>>>>>>>>





procedure TForm.DBGrid3DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
{ If Field.FieldName <> '' Then
(Sender As TDBGrid).Canvas.Font.Color := clRed ;
(Sender As TDBGrid).Canvas.TextRect(rect, Rect.Left + 2 , Rect.Top + 2 , Field.AsString );}

end;
stahad1
پنج شنبه 16 دی 1389, 11:33 صبح
سلام
دوست من اينم كدش : <<>>>>>>>>>>>>>>>>>>





procedure TForm.DBGrid3DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
{ If Field.FieldName <> '' Then
(Sender As TDBGrid).Canvas.Font.Color := clRed ;
(Sender As TDBGrid).Canvas.TextRect(rect, Rect.Left + 2 , Rect.Top + 2 , Field.AsString );}

end;

سلام دوست عزیز دستتوت درد نکنه راهشو پیدا کردم ولی من با تنظیمات گرید ویو این کار را کردم ممنون که جواب دادی شاید این کد بیشتر به درد من بخوره
Delphi 2010
دوشنبه 11 مهر 1390, 20:39 عصر
آقای کشاورز اگر بخواهیم یک تکه نوشته Url باشه چیکار باید کرد
Delphi 2010
سه شنبه 26 مهر 1390, 15:26 عصر
توی نمونه های خود دلفی موجود هستش