دخول

cargem · 26-09-2011, 04:01 PM

i :=Pos(s,RichEdit1.Text)-1 ;

[صورة: picture0001x.png]

كود :
procedure TForm1.GetTextColor(FRichEdit: TRichEdit; SearchTxt: string;
  Fgetcolor: Tcolor);
var
  i, j, t, Len: integer;
  StrFind, TempStr: string;
  StrBuffer: TStringList;
begin
  StrFind := SearchTxt;
  Len := 0;
  j := 0;
  StrBuffer := TStringList.Create();
  try
    StrBuffer.CommaText := FRichEdit.Text;
    for i := 0 to FRichEdit.Lines.Count - 1 do
    begin
      StrBuffer.CommaText := FRichEdit.Lines.Strings[i];
      for t := 0 to length(FRichEdit.Lines.Strings[i]) - 1 do
      begin
        j := FRichEdit.FindText(SearchTxt,Len ,
          length(FRichEdit.Lines.Strings[i]), [stMatchCase]);
        // pos(SearchTxt, TempStr);
        if j > -1 then
        Begin
          FRichEdit.SelStart := j;
          FRichEdit.SelLength := length(SearchTxt);
          FRichEdit.SelAttributes.Color := Fgetcolor;
          FRichEdit.SelAttributes.Style := [fsBold];
             Len :=   j+1   ;
        End;
      end;
    end;
  finally
    StrBuffer.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetTextColor(RichEdit1, Edit1.Text, ColorBox1.Selected);
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة