RichEdit FIt to Text

RudyBestyj
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 103
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]

madmike
  • Rejestracja: dni
  • Ostatnio: dni
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?

RudyBestyj
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 103
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 :-)

madmike
  • Rejestracja: dni
  • Ostatnio: dni
0

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

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

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.