Extended RichEdit

6 отговора 170 прегледа
#1

Extended RichEdit

Hi! Nyakoi da e popadal na gramoten RichEdit komponent (free, sample source, etc.) s vyzmozhnost za manipulirane na mezhduredieto i above/below paragraph?
Gledah po neta kvo vyrvi, ama vsichki primeri byrnikat napravo v riched20.dll (prez perform() na standartniya RichEdit komponent v Delphi). A pyk ne shta da polzvam WinAPI, shtoto programata shte vyrvi na razni platformi i me myrzi da se syobrazyavam sys specifikite na vsyaka ot tyah...
Imam edin gotin OCX, ama pyk toi mnogo tutkav :-(((

Животът е гаден и после човек умира...

Редактирано от bass на

Отговор
в отговор на bass #2

Re: Extended RichEdit

Съжалявам - но това което съм виждал не е безплатно - не съм сигурен 4е има възможностите които търсиш но все пак погледни на [линк]

---
Е т'ва е живот!
Отговор
в отговор на PhantomAS #3

Re: Extended RichEdit

Ne, nyama tova, koeto mi tryabva, no 10x za usilieto i zhelanieto :-)
Mi shte dyalam s API-to, pyk kato grymne nyakyde, sha mu mislya...
Chudya se samo shto borland ne sa slozhili interfeis kym takiva polezni funkcii na riched20.dll kato zoom, povechko niva na undo, spomenatite po-gore spacings i t.n., ami pak tryabva da opiram do MS...

Животът е гаден и после човек умира...
Отговор
в отговор на bass #4

Kakto se opasyavah...

Napravih ParagrafBelow i vsichko beshe super... dokato ne pusnah programata na Win98 i NT - tam ne rabotii :-(((
A v XP i 2K e OK!
Pomislih, che e zaradi stara versiya na Riched20.dll i ya smenih, ama pak ne shte. Eto source, ako nyakoi se seti...


procedure TRichEditExt.SetParaSpacing(nSpaceBelow: integer);
var
pfParagraph : TParaFormat2;

begin
SelectAll();

FillChar(pfParagraph, SizeOf(TParaFormat2), 0);
pfParagraph.cbSize := SizeOf(TParaFormat2);

with pfParagraph do
begin
dwMask := PFM_SPACEAFTER;
dySpaceAfter := Round(nSpaceBelow*20);
end;

Perform(EM_SETPARAFORMAT, 0, LPARAM(@pfParagraph));

SelStart := 0;
end;

Животът е гаден и после човек умира...

Редактирано от bass на

Отговор
в отговор на bass #5

Re: Kakto se opasyavah...

Zdr az vednuj imah podobni problemi. Izpolzvah highlighting i pod 9x/NT ne bachkashe. Vidqh, che tazi funkciq e vuvedena v RichEdit v3.0 Vse pak probvai dali problema ne e vuv versiqta. Eto ti updater ot MS za richedit control-a:
[линк]

by Waz Gaa
[email protected]
Отговор
в отговор на Waz Gaa #6

Re: Kakto se opasyavah...

I az pak imam podozreniya, che prichinata e vyv versiyata - PARAFORMAT2 (strukturata s parametri na paragraf v Richedit20) se pylni s gluposti, a starata versiya (PARAFORMAT za versiya 1) si se formira korektno...
Sega tocha updatera i posle shte se obadya kakvo stava. Ama mykaaaaa... klient sym na Orbitel i ot Techno-link tocha na 0.2K (pri okolo 14 normalno :-((( )

Животът е гаден и после човек умира...
Отговор
в отговор на Waz Gaa #7

Имаме участник, познал верния отговор!

Да, тръгна! Много благодаря за updater-а - цял ден вися из MS-нюсгрупите и там разни дават акъли, ама никой кретен не се сети да ми каже, че има ъпдейт. А търсенето в [линк] на riched20.dll 98 NT връща идиотии...
Само не разбрах що MS твърдят, че 2.0 поддържа тия екстри (за шрифта и параграфите) и що в хелпа към Delphi6 (enterprise trial), не се споменава и дума за TParaFormat2, като има дефиниция в юнита RichEdit...

Пак 10x!

Животът е гаден и после човек умира...

Редактирано от bass на

Отговор