RichEdit FIt to Text

0

Nie bardzo sobie umiem z tym poradzić.
Mam Richedita na formie i potrzebuje by dopasowywał on swoją wysokość do ilośći tekstu.
Dodam że w tekście są różnej wielkości fonty oraz tabele.

Na razie robię to na na pałe;-P czyli:
przy zmianie tekstu zwiększam rozmiar Richedita, ustawiam karetkę na końcu i sprawdzam pozycę w pikselach a potem zmieniam rozmiar na odpowiedni.

Domyślam się że to nie najlepszy sposób[wstyd]

0

Zapewne o tym pomyślałeś, ale... tak na wszelki wypadek: gdybym miał taki problem, poszukałbym w google w jaki sposób to rozwiązują w przypadku kiedy trzeba "zamienić" richedit na bitmapę, ew. poszukać jak rozwiązują drukowanie czy printpreview wydruku richedit - muszą przecież wtedy poznać "wymiar"...

BTW: bo nie wiem, a chciałbym wiedzieć - w jaki sposób robisz tabele w richedit?

0

Dzięki. Ale problem rozwiązali mi na pl.comp.lang.delphi.
Zapomniałem tylko rozwiązania tu wstawić. Sorry. ;-P

Ustawiam RichEdita na:
HideScrollBars := true;
ScrollBars := ssVertical;

A w: OnChange:

daję
GetScrollRange(handle, SB_VERT, min_val, max_val);
height := max_val + 10;

I jest cacy [green]

A tabelki tworzę dynamicznie RTF'em

Wygląda to mniej więcej tak:

http://img115.imageshack.us/img115/4838/apprz3.jpg

to na razie szkic jakby, więc wygląd się jeszcze zmieini :-)

0

GetScrollRange
prostych rzeczy człowiek uczy się całe życie...

A tabelki tworzę dynamicznie RTF'em
skorzystam...

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