سؤال في تغير الفونت

اختي العزيز Lola

بشري عن برنامج المحادثة معاك ؟ هل نجح :)

نتمى لك التوفيق

على العموم

بالنسبة لطلبك فهو يحتاج شوي حركات

وهي ان تقومي بارسال بيانات الخط مع الرسالة المرسلة من الشخص في المحادثه الى الطرف الثاني

ومن ثم يتم قراءة بيانات الخط من قبل الطرف الثاني وادراج النص على حسب الاعدادات

اعرف اني ضعيتك :) بس ماعليش

على العموم اذا كنت تستخدمين اداة Edit لكتابة النص المراد ارسالة

فستخدمي هذا الأمر في الزر المرسل

ClientSocket1.Socket.SendText('NameFont:'+Edit1.Font.Name+','+'SizeFont:'+inttostr(Edit1.Font.Size)+','+'ColorFont:'+inttostr(Integer(Edit1.Font.Color))+','+'Message:'+Edit1.Text);

هذا بالنسبة للأرسال بيانات الخط

اما بالنسبة لأستقبالها ومعالجتها فقومي بوضع هذا الكود في الكائن ServerSocket1 في حدث OnClientRead

 
var
NameFont,Mes,s,re:string;
SizeFont:Integer;
ColorFont:TColor;
begin
re:=Socket.ReceiveText;
NameFont:=Copy(re,10,pos(',',re)-10);
s:=Copy(re,pos('SizeFont:',re)+9,max_path);
SizeFont:=strtoint(Copy(re,pos('SizeFont:',re)+9,pos(',',s)-1));
s:=Copy(re,pos('ColorFont:',re)+10,Max_Path);
ColorFont:=TColor(Copy(re,pos('ColorFont:',re)+10,Pos(',',s)-1));
Mes:=Copy(re,pos('Message:',re)+8,Max_Path);
Edit1.Font.Name:=NameFont;
Edit1.Font.Size:=SizeFont;
Edit1.Font.Color:=ColorFont;
Edit1.Text:=mes;

هذه هي الفكرة

طبعاً اذا حصلت لك مشكلة مع الكود

فيمكنك استخدام هذا المثال الذي قمت بعملة

http://www.8op.com/sum/lola.zip

وتقبلوا اطيب تحياتي اخوكم SUM

الاخ SUM

اشكرك جدااااا على المساعده وما قصرت انت والاخوان في المنتدى الله يعطيكم العافيه

بالنسبه للبرنامج الحمد لله الشات يشتغل ,, باقي اشياء قليله وان شاء الله انتهي منه واقدمه في افضل صورة