Q&A

  • 리치에디터에서 특정글자에 대한 폰트컬러값 되요?
리치에디터에서 콜럼값과 라인값을 리턴받아 그에 해당하는 문자의 폰트 색깔을 바꾸고 싶은데요.

두사람이 머리를 맞대도 잘않되네요.

혹 아시는분 연락좀 주세요.

2  COMMENTS
  • Profile
    김영대 1999.06.26 20:16
    이한나(소라동생) 께서 말씀하시기를...

    > 리치에디터에서 콜럼값과 라인값을 리턴받아 그에 해당하는 문자의 폰트 색깔을 바꾸고 싶은데요.

    > 두사람이 머리를 맞대도 잘않되네요.

    > 혹 아시는분 연락좀 주세요.



    안녕하세요 김영대입니다

    아래 예제를 참고하세요



    // 아래 예제는 2행의 5글자의 크기를 16으로 바꾼다



    unit Unit1;



    interface



    uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    StdCtrls, Spin, ComCtrls;



    type

    TForm1 = class(TForm)

    RichEdit1: TRichEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;



    var

    Form1: TForm1;



    implementation

    {$R *.DFM}



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    with RichEdit1 do

    begin

    SelStart := Perform(em_LineIndex, 2, 0);

    SelLength := 5;

    SetFocus;



    // TTextAttributes 의 프로퍼티

    // CharSet

    // Color

    // ConsistentAttributes

    // Height

    // Name

    // Pitch

    // Protected

    // Size

    // Style

    SelAttributes.Size := 16;

    end;

    end;



    end.



  • Profile
    이한나(소라동생) 1999.06.27 12:08
    김영대 께서 말씀하시기를...

    > 이한나(소라동생) 께서 말씀하시기를...

    > > 리치에디터에서 콜럼값과 라인값을 리턴받아 그에 해당하는 문자의 폰트 색깔을 바꾸고 싶은데요.

    > > 두사람이 머리를 맞대도 잘않되네요.

    > > 혹 아시는분 연락좀 주세요.

    >

    > 안녕하세요 김영대입니다

    > 아래 예제를 참고하세요

    >

    > // 아래 예제는 2행의 5글자의 크기를 16으로 바꾼다

    >

    > unit Unit1;

    >

    > interface

    >

    > uses

    > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    > StdCtrls, Spin, ComCtrls;

    >

    > type

    > TForm1 = class(TForm)

    > RichEdit1: TRichEdit;

    > Button1: TButton;

    > procedure Button1Click(Sender: TObject);

    > private

    > { Private declarations }

    > public

    > { Public declarations }

    > end;

    >

    > var

    > Form1: TForm1;

    >

    > implementation

    > {$R *.DFM}

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > with RichEdit1 do

    > begin

    > SelStart := Perform(em_LineIndex, 2, 0);

    > SelLength := 5;

    > SetFocus;

    >

    > // TTextAttributes 의 프로퍼티

    > // CharSet

    > // Color

    > // ConsistentAttributes

    > // Height

    > // Name

    > // Pitch

    > // Protected

    > // Size

    > // Style

    > SelAttributes.Size := 16;

    > end;

    > end;

    >

    > end.

    >

    고맙습니다 김영대님..눈물이 앞을 가려서 잠을 이룰수가 없내요.

    리치에디터에서 가능해서 썼습니다.

    그런데 메모장에서는 selattributes 가 없어서 않되는데 어떻게 해야 되지요?

    물어서 물어서 서울까지 온것 같은데요.왜냐면 메모에서는 클립보드가 지원이 되는지라 쓰고 싶군요.

    아님 리치에디터에서 클립보드를 사용할수 있나요.