تغيير رنگ فونت [بایگانی]

Good Looking

شنبه 01 تیر 1387, 19:54 عصر

procedur Tform1.colorClick(Sender:TObjec

begin
colorDialog1.color:=memo1.color;
if colorDialoge1.Execut then
memo1.color:=colorDialoge1.color;
end;

با سلام به دوستان گرامي
مي خواستم بپرسم كه به جاي قطعه كد بالا چه كدي بايد نوشته بشود تا اينكه رنگ فونت تغيير پيدا كند نه رنگ memo ؟

Hsimple11

شنبه 01 تیر 1387, 20:06 عصر

MyMemo.Font.Color := MyColorDialog.Color;

موفق باشید...

hentjanson

شنبه 01 تیر 1387, 23:01 عصر

procedur Tform1.colorClick(Sender:TObjecbegin
colorDialog1.color:=memo1.color;
if colorDialoge1.Execut then
memo1.color:=colorDialoge1.color;
MyMemo.Font.Color := MyColorDialog.Color;

اصغر (پآچ)

یک شنبه 02 تیر 1387, 13:27 عصر

procedur Tform1.colorClick(Sender:TObjecbegin
colorDialog1.color:=memo1.color;
if colorDialoge1.Execut then
memo1.color:=colorDialoge1.color;
MyMemo.Font.Color := MyColorDialog.Color;

سلام دوست من
در این کدی که بالا گذاشتی اون خطی که قرمز شده اضافه است چون باعث میشه هم رنگ خود Memo و هم رنگ فونتش یک رنگ بشه و دیگه چیزی دیده نمیشه

موفق و موید باشی