간단하게 해 보았습니다. fsItalic 대신 fsBold를 넣으시면 가능할 것이라고 보여집니다.
미약하나마 보탬이 되었으면 좋겠습니다.
procedure TForm1.Button2Click(Sender: TObject);
var
FoundAt : Integer;
begin
with RichEdit1 do
begin
FoundAt := FindText('love', 0, 100, [stMatchCase] );
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length('love');
SelAttributes.Style := [fsItalic];
end;
end;
end;
간단하게 해 보았습니다. fsItalic 대신 fsBold를 넣으시면 가능할 것이라고 보여집니다.
미약하나마 보탬이 되었으면 좋겠습니다.
procedure TForm1.Button2Click(Sender: TObject);
var
FoundAt : Integer;
begin
with RichEdit1 do
begin
FoundAt := FindText('love', 0, 100, [stMatchCase] );
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length('love');
SelAttributes.Style := [fsItalic];
end;
end;
end;