Mam problem. Chciałem zrobić coś takiego, żeby w RichEdit był indeks górny. Ten temat był już coprawda poruszany (znalazłem kilka postów na ten temat), ale żaden z nich nie wyjaśnił sprawy... Kod w jednym z tych postów wyrzucił mi ze 20 błędów.
P.S. Że Delphi 3 posiadam tylko, podkreślić chciałbym tutaj. :) !
JediVCL zadziała i na D3, w razie czego jest frevare personal versja, też zadzaiła. co do indexu górnego:
RichEdit.CurrText.SubscriptStyle := ssSuperscript; //czy jakoś tak
Jest problem... Wywala mi błąd w miejscu CurrText...
Czy to JediVCL to jest biblioteka? [wstyd] Jeżeli tak, to skąd ją ściągnąć?
Czy to JediVCL to jest biblioteka? [wstyd] Jeżeli tak, to skąd ją ściągnąć?
paleta komponentow (ponad 300 chyba), http://google.pl
dokladnego adresu nie pamietam
Jak nie chcesz wchodzić w Jedi (ja cyły czas się zastanawiamm ale jeszcze się nie zdecydowałem) to na razie to powinno wystarczyć.
http://www.swissdelphicenter.ch/torry/showcode.php?id=1331
Kris
Jak nie chcesz wchodzić w Jedi (ja cyły czas się zastanawiamm ale jeszcze się nie zdecydowałem) to na razie to powinno wystarczyć.
http://www.swissdelphicenter.ch/torry/showcode.php?id=1331
Kris
Fajnie... jest jeden problem... TO NIE DZIAŁA !!!
procedure RE_SetCharFormat(RichEdit: TRichEdit; CharacterFormat: TCharacterFormat);
var
// The CHARFORMAT structure contains information about
// character formatting in a rich edit control.
Format: TCharFormat; //
to w końcu ściągnij sobie JediVCL i będie gut
<font color="green">Fajnie... jest jeden problem... TO NIE DZIAŁA </span>
Aż sprawdziłem, napisałem na szybko poniższy kodzik, procedurka w obiekcie powstałym z RichEdit
procedure TAdvRichEdit.IndexGorny;
var f: TCharFormat;
begin
f.cbSize:=SizeOf(f);
f.dwMask:=CFM_OFFSET;
f.yOffset:=60;
Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@f));
end;
i działa bez problemu,
Ale chyba wiem o co chodzi, daj dzieś na początku taki kod
SendMessageA(Handle,EM_SETTYPOGRAPHYOPTIONS, 1, 1);
i gdzieś
const
WM_USER = $400;
EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202);
ściągnąłem to z torry,
Jak nadal nie chodzi to pewnie dlatego, że tego w personal NIE MA bo ja mam Enterprise.
Kris
A co to jest to TAdvRichEdit???
P.S. Jakiej biblioteki używasz, w której jest TCharFormat zdefiniowane?
type
TAdvRichEdit = class(TRichEdit)
a TCharFormat jest w moduke RichEdit.
Kris
Wielkie Thx za wszystkie odpowiedzi... Już działa!! [hurra]