procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color:=clRed;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color:=clGreen;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color:=clBlue;
end;
Разноцветный текст в TMemo
Здравствуйте!:D
Люди подскажите в компоненте Tmemo возможен разноцветный текст? Как в компиляторов определенное слово любой цвет???
Заранее Спасибо!
Люди подскажите в компоненте Tmemo возможен разноцветный текст? Как в компиляторов определенное слово любой цвет???
Заранее Спасибо!
А чем не устраивает TRichEdit?
Да в Memo помоему и нельзя сделать текст разноцветным. Для этого, как сказал выше mfender, есть RichEdit, в котором можно прекрасно реализовать все возможности того-же WordPad (Что-то похожее когда-то делал).
Для примера вот код:
Делаем новое приложение. Кидаем на него RichEdit, и 3 Буттона.
1 кнопка - красная, вторая зелёная, четвёртая синяя (в смысле подписаны так :) , но это, в общем, не важно)
Дальше в обработчике onClick для них пишем:
А ниже примерно то, что получается :)
Также, вместо цветовых констант clRed, clGreen, clBlue и т.д. можно написать любой цвет. Для этого (подбора произвольного цвета) можно, например, воспользоваться программой ColorImpact, в которой можно подобрать цвет как для Delphi, так и для HTML :)
Вот например $005FFF76 будет означать такой светло-насыщенно-зелёный цвет :)
Для примера вот код:
Делаем новое приложение. Кидаем на него RichEdit, и 3 Буттона.
1 кнопка - красная, вторая зелёная, четвёртая синяя (в смысле подписаны так :) , но это, в общем, не важно)
Дальше в обработчике onClick для них пишем:
Код:
А ниже примерно то, что получается :)
Также, вместо цветовых констант clRed, clGreen, clBlue и т.д. можно написать любой цвет. Для этого (подбора произвольного цвета) можно, например, воспользоваться программой ColorImpact, в которой можно подобрать цвет как для Delphi, так и для HTML :)
Вот например $005FFF76 будет означать такой светло-насыщенно-зелёный цвет :)