Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Вниз

RichEdit   Найти похожие ветки 

 
dm37   (2005-02-28 10:35) [0]

Подскажите, как в RichEdit добавлять текст с атрибутами (color,font_name,style), например:
RichEdit.Lines.Add("asdf"); // красный цвет символов
RichEdit.Lines.Add("ghjk"); // зеленый цвет символов
и т.д.
Нужно самому ставить теги или есть свойства объекта?


 
КаПиБаРа ©   (2005-02-28 10:39) [1]

F1 - TRichEdit.SelAttributes


 
Erik1 ©   (2005-02-28 12:30) [2]

А также:
procedure TAsp.AddText(const Text: WideString; Attrib: Attributs;
 tSize: Byte; const FontName: WideString);
Var MyStyle: TFontStyles; MyFont: String;
MySize: Byte;
MyAlignment: TParaAlignment;
begin
if Invisable = nil Then exit;

//  MyAlignment := MyAlignment - MyAlignment;
 if Attrib <> 0 Then begin
   if (stNormal and Attrib) = stNormal then
   begin
    MyStyle  := MyStyle - MyStyle;
MyFont := "Times New Roman"; MySize := 10;
       MyAlignment := paLeftJustify;
   end
   else begin
    With Invisable.RichEdit.DefAttributes do        begin
      MyStyle := Style;
      MyFont := Name;
      MySize := Size;
    end;
    MyAlignment := Invisable.RichEdit.Paragraph.Alignment;
   end;

  if (stBold and Attrib) = stBold Then MyStyle := MyStyle + [fsBold];
   if (stItalic and Attrib) = stItalic Then MyStyle := MyStyle + [fsItalic];
   if (stUnderline and Attrib) = stUnderline Then MyStyle := MyStyle + [fsUnderline];
   if tSize <> 0 Then MySize := tSize;
   if FontName <> "" Then MyFont := FontName;

 With Invisable.RichEdit  do begin
    WordAttributes.Style := MyStyle;
     WordAttributes.Name := MyFont;
  WordAttributes.Size := MySize;
     WordAttributes.Charset := 186; //BALTIC_CHARSET  Replase Cyrilic
    DefAttributes.Style := MyStyle;
     DefAttributes.Name := MyFont;
  DefAttributes.Size := MySize;
     DefAttributes.Charset := 186; //BALTIC_CHARSET  Replase Cyrilic
   end;

end;

 With Invisable.RichEdit.Paragraph do begin
  Case ((agCenter or agLeft or agRight) and Attrib) of
  agLeft: MyAlignment := {$IFDEF RxLib}paLeftJustify;{$ELSE}taLeftJustify;{$ENDIF}
     agCenter: MyAlignment := {$IFDEF RxLib}paCenter;{$ELSE}taCenter;{$ENDIF}
     agRight: MyAlignment := {$IFDEF RxLib}paRightJustify;{$ELSE}taRightJustify;{$ENDIF}
   end;
 Alignment := MyAlignment;
   if (pgBullet and Attrib) = pgBullet Then Numbering := nsBullet else Numbering := nsNone;
 end;

Invisable.RichEdit.Lines.Add(Text);
end;


 
dm37   (2005-02-28 13:40) [3]

Спасибо, все заработало



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.025 c
1-1109256935
jonni
2005-02-24 17:55
2005.03.13
deafult .... что же это значит??


1-1109370176
Packman
2005-02-26 01:22
2005.03.13
Работа с компонентом.


3-1107277551
UVV
2005-02-01 20:05
2005.03.13
DataSource.DataSet.IsEmpty


1-1109604767
xman
2005-02-28 18:32
2005.03.13
Диалог выбора каталога(директории)


3-1108451601
sos
2005-02-15 10:13
2005.03.13
Регистр





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский