RichEdit

0

Jak w Rich Edit:

  • ustawić numerowanie punktów, Help podaje tylko None albo Bullet, jak się wstawi na siłę dalsze numerki to można uzyskać cyfry lub litery, ale nie wiem jak sterować innymi parametrami, jak np. zmienić numer.
  • ustawić tekst justowany
  • coś własnego dorysować np. wziąć tekst w obramowanie

W Source jest jakiś nagłówek RichEdit.pas z m.in. dodatkowymi paramtrami Paragraph, ale nie wiem jak to wykorzystać.

Pozdrawiam

0

Cześć!

Oto kawałek pewnego ciekawego artykułu na temat RichEdit :

"Pole RichEdit pozwala na storzenie całkiem ciekawego edytora tekstu. Oto opis podstawowych operacji na tekście możliwych dzięki niemu.

RichEdit.Paragraph ( atrybuty aktualnego paragrafu ) :

Numbering - tworzy wypunktowanie. Możliwe wartości to: nsBullet ( czarna kropka ), nsNone ( brak wypunktowania).
LeftIndent - Lewy margines. Wartość podaje się w Integer.
RightIndent - To samo co na górze tyle że, z prawej strony.
First Indent - Akapit. Wartość w Integer.

RichEdit.SelAttributes ( atrybuty zaznaczonego tekstu ):

Charset - sposub wyświetlania czcionki ( np. cyrylica, europa zachodnia, znaki japońskie ).
Color - kolor czcionki :)
Name - Rodzaj czcionki. ( np. TimesNewRoman ).
Size - Rozmiar. Liczba Integer interpretowana identycznie jak w Wordzie.
Style - Styl czcionki. Możliwe wartości to:fsBold, fsItalic, fsUnderline, fsStrikeout

RichEdit.DefAttributes - możliwości są podobne co w SelAttributes, jednak odnosi się do wartości domyślnych

Postanowiłem umiścić tu jeszcze jedną funkcję która może się przydać, mianowicie pobranie listy czcionek:
Screen.Fonts - podaje listę dostępnych czcionek."

0

W borlandowym RichEdit to nierealne, niestety... :-(

0

W borlandowym RichEdit to nierealne, niestety...

Niby z helpa wynika nierealne, ale jak się wstawi w Numbering na siłę 2
Numbering:=TNumberingStyle(2)
to numerki są tylko, że od 0.

Poza tym, jak zapiszesz tekst z punktowanie w Word i go otworzysz w Rich to jest.

Pozdrawiam

0

No to w koncu to rozpracowałem :-D

Trzeba wykorzystać nowy typ TParaFormat2.
Np. aby wyjustować tekst wystarczy:
pf.dwMask := PFM_ALIGNMENT;
pf.wAlignment := PFA_JUSTIFY;
SendMessage(Editor.Handle, EM_SETPARAFORMAT, 0, lparam(@PF));
jak sie już to wie, to punktowanie numerkami to pikuś, przetestuję jeszcze inne możliwości.

Aha, testuje to na Delphi7 i nie wiem czy działa na wcześniejszych wersjach.

Kris

1 użytkowników online, w tym zalogowanych: 0, gości: 1