+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تلوين كلمة في مكون Memo في دلفي ؟ (/showthread.php?tid=10346)
كيف تلوين كلمة في مكون Memo في دلفي ؟ - بوزيان - 30-07-2019
السلام عليكم
كيف جعل الكلمة الأولى أو الثانية بلون معين وذلك في السطر الأول والثاني في مكون Memo في دلفي
richedit - بوزيان - 31-07-2019
كيف يمكن تطبيق هذا الكود
&&&&&&&&&
PHP كود :
procedure RE_ColorerMots(RE: TRichEdit; Mot: ShortString; AColor: TColor; var Count: integer);
// 3 secondes 37 secondes 721 ms pour 4784 mots dans Zola992K.txt de 992 Ko
label Recomm;
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
Count := 0;
with RE do
begin
// Commence la recherche après la sélection en cours s'il y en a une sinon, commence au début du texte
if SelLength <> 0
then StartPos := SelStart + SelLength
else StartPos := 0;
Recomm:
ToEnd := Length(Text) - StartPos; // ToEnd indique la longueur entre StartPos et la fin du texte du RichEdit
FoundAt := FindText(Mot, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
inc(Count);
SetFocus;
SelStart := FoundAt;
SelLength := Length(Mot);
SelAttributes.Color := AColor;
StartPos := FoundAt + Length(Mot);
if StartPos < length(Text) then goto Recomm;
end;
SelLength := 0;
end;
end;
RE: كيف تلوين كلمة في مكون Memo في دلفي ؟ - محمد عبد العزيز - 31-07-2019
http://delphi4arab.net/forum/showthread.php?tid=2001
http://delphi4arab.net/forum/showthread.php?tid=8746
RE: كيف تلوين كلمة في مكون Memo في دلفي ؟ - بوزيان - 01-08-2019
شكرا لكن كيف يمكن تطبيق الكود السابق
RE: كيف تلوين كلمة في مكون Memo في دلفي ؟ - محمد عبد العزيز - 01-08-2019
كود :
var Count: integer;
begin
RE_ColorerMots(Form1.RichEdit1,'delphi',ClBlue,Count);
end;RE: كيف تلوين كلمة في مكون Memo في دلفي ؟ - بوزيان - 01-08-2019
بارك الله فيك أخي قد نفعتني كثيرا
RE: كيف تلوين كلمة في مكون Memo في دلفي ؟ - بوزيان - 11-08-2019
(01-08-2019, 09:08 AM)B.M.AbdelAziZ كتب :وجدت مشكل آخر آلا وهو أن المؤشر يذهب للكلمة التي أبحث عنها حتى وإن لم أكمل الكتابة ، والسبب أني أريد وضع الكود ( [size=small]RE_ColorerMots(Form1.RichEdit1,'delphi',ClBlue,Count); ) [/size]في Edit1Changeكود :var Count: integer; begin RE_ColorerMots(Form1.RichEdit1,'delphi',ClBlue,Count); end;