Добавить цветную строку в TRichEditDelphi , Компоненты и Классы , TMemo и TRichEditДобавить цветную строку в TRichEdit
Оформил: DeeCo { To color text in a TRichEdit, follow this two steps: Um einen Text in einem TRichEdit einzufдrben, mьssen folgende 2 Schritte gemacht werden: 1) Select the text with the SelStart, SelLength properties. Markiere den Text mit SelStart, SelLength Eigenschaften. 2) Set the text attribtutes through the SelAttributes property. Die Textattribute mit SelAttributes setzen. } { 1. Example/ Beispiel: Add a colored line to a TRichEdit: Eine farbige Zeile zu einem TRichEdit hinzufьgen: } procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor); begin with ARichEdit do begin SelStart := Length(Text); SelAttributes.Color := AColor; SelAttributes.Size := 8; SelAttributes.Name := 'MS Sans Serif'; Lines.Add(AText); end; end; procedure TForm1.Button1Click(Sender: TObject); begin AddColoredLine(RichEdit1, 'Hallo', clRed); AddColoredLine(RichEdit1, 'Hallo', clGreen); end; { 2. Example/ Beispiel: To color the 5 characters. Die ersten 5 Zeichen im Richedit blau einfдrben. } procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.SelStart := 0; RichEdit1.SelLength := 5; RichEdit1.SelAttributes.Color := clBlue; end; { 3. Example/ Beispiel: ( by www.delphimania.de) To color a specified line with a color So kann eine beliebige Zeile mit einer Farbe gefдrbt werden: } procedure RE_ColorLine(ARichEdit: TRichEdit; ARow: Integer; AColor: TColor); begin with ARichEdit do begin SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0); SelLength := Length(Lines[ARow - 1]); SelAttributes.Color := AColor; SelLength := 0; end; end; procedure TForm1.Button1Click(Sender: TObject); begin ZeileFaerben(RichEdit1, 4, clGreen); end; Статья Добавить цветную строку в TRichEdit раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TMemo и TRichEdit ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |