کد Bold - Italic - چپ چین - وسط چین و راست چین رو میخوام

در برنامم یه کنترل RichEdit دارم

نقل قول:

---

نوشته شده توسط Arash_XL7710i_207 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

در برنامم یه کنترل RichEdit دارم

---

سلام
هنوز ياد نگرفتيد چطور سوال بپرسيد!

کد:

---

type
  TTextAttributes = record
    Font: TFont;
    BackColor: TColor;
  end;
  {..}

procedure SetTextColor(oRichEdit: TRichEdit; sText: string; rAttributes:
  TTextAttributes);
var
  iPos: Integer;
  iLen: Integer;

  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  Format.cbSize := SizeOf(Format);
  Format.dwMask := CFM_BACKCOLOR;
  Format.crBackColor := rAttributes.BackColor;

  iPos := 0;
  iLen := Length(oRichEdit.Lines.Text);
  iPos := oRichEdit.FindText(sText, iPos, iLen, []);

  while iPos <> -1 do
  begin
    oRichEdit.SelStart := iPos;
    oRichEdit.SelLength := Length(sText);
    oRichEdit.SelAttributes.Color := rAttributes.Font.Color;
    oRichEdit.SelAttributes.Size := rAttributes.Font.Size;
    oRichEdit.SelAttributes.Style := rAttributes.Font.Style;
    oRichEdit.SelAttributes.Name := rAttributes.Font.Name;

    oRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));

    iPos := oRichEdit.FindText(sText, iPos + Length(sText), iLen, []);
  end;
end;

Example:

var
  rAttrib: TTextAttributes;
begin
  rAttrib.Font := TFont.Create;
  rAttrib.Font.Color := clWhite;
  rAttrib.Font.Size := 16;
  rAttrib.Font.Style := [fsBold];
  rAttrib.BackColor := clRed;

  SetTextColor(RichEdit1, 'Delphi', rAttrib);

  //Change another word attributes.
  rAttrib.Font.Color := clYellow;
  rAttrib.Font.Size := 10;
  rAttrib.Font.Style := [fsBold, fsItalic];
  rAttrib.BackColor := clBlue;

  SetTextColor(RichEdit1, 'Is greate', rAttrib);

  rAttrib.Font.Free; //Now free the font.
end;

---

به نقل از Delphi Knowledge Base

نقل قول:

---

نوشته شده توسط NoneForce [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
هنوز ياد نگرفتيد چطور سوال بپرسيد!

کد:

---

type
  TTextAttributes = record
    Font: TFont;
    BackColor: TColor;
  end;
  {..}
 
procedure SetTextColor(oRichEdit: TRichEdit; sText: string; rAttributes:
  TTextAttributes);
var
  iPos: Integer;
  iLen: Integer;
 
  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  Format.cbSize := SizeOf(Format);
  Format.dwMask := CFM_BACKCOLOR;
  Format.crBackColor := rAttributes.BackColor;
 
  iPos := 0;
  iLen := Length(oRichEdit.Lines.Text);
  iPos := oRichEdit.FindText(sText, iPos, iLen, []);
 
  while iPos <> -1 do
  begin
    oRichEdit.SelStart := iPos;
    oRichEdit.SelLength := Length(sText);
    oRichEdit.SelAttributes.Color := rAttributes.Font.Color;
    oRichEdit.SelAttributes.Size := rAttributes.Font.Size;
    oRichEdit.SelAttributes.Style := rAttributes.Font.Style;
    oRichEdit.SelAttributes.Name := rAttributes.Font.Name;
 
    oRichEdit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
 
    iPos := oRichEdit.FindText(sText, iPos + Length(sText), iLen, []);
  end;
end;
 
Example:
 
var
  rAttrib: TTextAttributes;
begin
  rAttrib.Font := TFont.Create;
  rAttrib.Font.Color := clWhite;
  rAttrib.Font.Size := 16;
  rAttrib.Font.Style := [fsBold];
  rAttrib.BackColor := clRed;
 
  SetTextColor(RichEdit1, 'Delphi', rAttrib);
 
  //Change another word attributes.
  rAttrib.Font.Color := clYellow;
  rAttrib.Font.Size := 10;
  rAttrib.Font.Style := [fsBold, fsItalic];
  rAttrib.BackColor := clBlue;
 
  SetTextColor(RichEdit1, 'Is greate', rAttrib);
 
  rAttrib.Font.Free; //Now free the font.
end;

---

به نقل از Delphi Knowledge Base

---

ممنون عزیز

یادمه یک سال پیش در این باره توضیح داده بودم...

و کد ها رو گذاشته بودم. اگر سرچ کنی پیداش میکنی

موفق باشی