home *** CD-ROM | disk | FTP | other *** search
-
- O PROGRAMOV┴N═ DANIELSOFT EDITORU
- ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
- Nedß mi to a musφm vßm pov∞d∞t P°φb∞h O StraÜlivΘ
- V∞ci JmΘnem RichEdit:
- Pokud nevφte, co RichEdit je, pak v∞zte, ₧e se na
- n∞j (pokud tento soubor prohlφ₧φte v DanielSoft Editoru)
- prßv∞ dφvßte. Je to onen bφl² box, do kterΘho se v tomto
- editoru zapisuje a ze kterΘho se Φte text. RichEdit
- jsem neprogramoval jß, je zabudovan² ve Windows a m∙j
- editor se p°i nφzko·rov≥ov²ch operacφch musφ spolΘhat
- na jeho slu₧by.
- Dlouhou dobu jsem byl mφsto n∞ho nucen pou₧φvat jeho
- "mladÜφho brßÜku" Memo, kterΘ se vyznaΦovalo hlavn∞
- nφzkou kapacitou. Maximßlnφ velikost souboru, kter²
- bylo Memo schopnΘ naΦφst bylo n∞co kolem 63k (skuteΦn∞
- 63k a ne on∞ch v DOSu notoricky znßm²ch 64k)
- a to jsem jeÜt∞ m∞l dojem, ₧e soubory blφ₧φcφ se tΘto
- magickΘ hranici se nenaΦtou celΘ. Samoz°ejm∞ celou dobu
- mluvφm (a taky mluvit budu) o 32bitov²ch Windows.
- V 16bitov²ch to bylo jeÜt∞ horÜφ (32k).
- RichEdit _takΘ_ v∞tÜφ soubory odmφtal, avÜak tvrdil o
- sob∞, ₧e je v po°ßdku naΦφtß. Soubory od 100k v²Üe
- byly naΦteny v jakΘmsi podivnΘm "read only" m≤du, kdy
- do nich Ülo zapisovat pouze kdy₧ jsem n∞co smazal
- p°es schrßnku (???). Znovu opakuji, ₧e celou dobu jde
- o v∞ci do Windows vestav∞nΘ, kterΘ jsem nemohl
- sßm nijak p°eprogramovat, jen se spolehnout na jejich
- "skv∞lΘ" slu₧by. Nakonec jsem z hlubin Internetu vytßhl,
- ₧e kdy₧ snφ₧φm (??) maximßlnφ velikost akceptovatelnΘho
- souboru RichEditem tak, aby byl nejvyÜÜφ byte nulov²,
- divnΘ chovßnφ p°estane. P°itom tv∙rce tΘto rady napsal,
- ₧e sßm nevφ proΦ to tak je. Prost∞ Φernß magie
- nejmenovanΘ monopolnφ softwarovΘ firmy.
- Kdy₧ jsem tedy mohl RichEdit koneΦn∞ mφsto Mema pou₧φt,
- radostn∞ jsem je zam∞nil a zdßlo se, ₧e kapacita se
- zv²Üφ a vÜechno bude "chodit" jako d°φve. To byla
- verze 4.1 editoru. Bohu₧el n∞kterΘ v∞ci, kterΘ
- se u Mema programovaly jednφm zp∙sobem se u RichEditu
- (ve stejnΘm OS od stejnΘ firmy) programovaly nynφ
- ·pln∞ jinak. A to jeÜt∞ nemluvφm o tom, ₧e pomocnß
- skrytß Mema, kterß pomßhala tomu hlavnφmu zpracovat
- text, jsem musel zm∞nit na pomocnΘ RichEdity, proto₧e
- milostpßn RichEdit se se sv²mi chud²mi p°φbuzn²mi
- nehodlal bavit. Dφky t∞mto problΘm∙m byla verze 4.1
- chybovß a musel jsem jφ urychlen∞ opravit na 4.2 a
- upgradovat to na webu.
- N∞kte°φ programßto°i, kte°φ Φtou tento text by mohli
- namφtnout "a proΦ jste musel n∞co u RichEditu Φi
- Mema *programovat*, kdy₧ on poskytuje nφzko·rov≥ovΘ
- slu₧by, jak jste °φkal. ProΦ jste tyto slu₧by pouze
- *nevolal* ?". Hmmm ... tito programßto°i z°ejm∞ mßlo
- programovali ve Windows (to jim nevyt²kßm, pouze to
- konstatuji).
- N∞kterΘ -podle m∞ bazßlnφ- slu₧by se musely po
- Memu/RichEditu ₧ßdat vskutku krkolom∞. Posu∩te sami
- - pro zjiÜt∞nφ, na kterΘm °ßdku je kurzor, se
- musφ provΘst n∞co takto neintuitivnφho a
- p°ekombinovanΘho:
-
- function GetTextPosLine(var rich:TRichEdit):longint;
- var c:TCharRange;{co je to proboha za datov² typ???}
- begin
- rich.Perform(EM_GETSEL,0,integer(addr(c)));
- Result:=rich.Perform(EM_EXLINEFROMCHAR, 0 , c.CpMin);
- end;
-
- u Mema se to d∞lalo ·pln∞ jinak, taktΘ₧ krkolom∞.
- Bohu₧el si to u₧ nepamatuju. Pokud jsem ten "memov²"
- postup pou₧il na RichEdit, VRACELO TO VÄDY NULU, tak₧e
- poka₧dΘ kdy₧ jsem se zeptal na kterΘm jsem °ßdku
- odpov∞d∞lo to ₧e na nultΘm - tj. prvnφm! Tφm vznikaly
- (zpoΦßtku t∞₧ko odhalitelnΘ) chyby.
-
- A nastavenφ °ßdku jsem si taky musel napsat sßm:
-
- procedure SetTextPosLine(rich:TRichEdit;pozice:longint);
- var pocet,i:integer;
- begin
- pocet:=0;
- for i:=0 to pozice-1 do
- inc(pocet,length(rich.lines[i])+2);
- {to +2 jsou z°ejm∞ znaky CR LF, ale kdo vφ...}
- rich.selStart:=pocet;
- rich.selLength:=0;
- end;
-
- VÜimn∞te si, ₧e ani pro zm∞nu pozice poΦφtanΘ ve znacφch
- neexistuje funkce a musφ se celkem hloup∞ "vybrat"
- nulovΘ mno₧stvφ znaku do Selection (pomocφ SelStart
- a SelEnd).
- TakΘ jsou tu nep°φjemnosti, jako ₧e nap°φklad RichEdit
- p°epne poka₧dΘ p°i svΘm spuÜt∞nφ klßvesnici na "Cz" a
- p°epne ji tak takΘ poka₧dΘ, co u₧ jednou "vejdu" do ji₧
- napsanΘho textu. Jako programßtor vÜak Φasto pot°ebuju
- hranatΘ zßvorky, m°φ₧ku, zavinßΦ, ampersand apod.,
- tak₧e bych nutn∞ pot°eboval mφt nastavenφ *anglickΘ*,
- jakΘ mßm jinak v cel²ch Window$, ale RichEdit to
- prost∞ nebere. ╪eÜenφm je oznaΦit cel² dokument a
- p°epnout na "En".
-
- Nynφ se mi ji₧ KONE╚N╠ povedlo toto p°ekonat, avÜak
- jeÜt∞ jsem se musel pot²kat s tφm, ₧e pokud jsem
- klßvesnici p°epnul na En, najednou p°estaly "chodit"
- ΦeskΘ znaky, co₧ se mi nakonec naÜt∞stφ poda°ilo
- obejφt. Znovu je vÜak p°ed p°epnutφm nutno oznaΦit
- cel² text, dφky Φemu₧ nem∙₧e u₧ivatel p°epnout normßln∞
- alt+shift, ale musφ pou₧φt polo₧ku z menu ╚eÜtina, kterß
- oznaΦφ text, p°epne a zase ho odznaΦφ. Jinak by toti₧
- neoznaΦenΘ Φßsti textu, pokud by k nim Φlov∞k doÜel
- kurzorem, znovu "samy p°epnuly" do p∙vodnφ klßvesnice,
- b∙h vφ proΦ. Uff.
-
- A to jeÜt∞ nemluvφm o tom, ₧e n∞kolikrßt text p°i
- naΦtenφ prost∞
- zmizφ a musφ se zm∞nit rozm∞ry RichEditu aby se
- zase objevil... Stane se to t°eba p°i posouvßnφ textu
- pomocφ Ctrl+Alt+ -> hodn∞ doleva, nevφm proΦ.
-
-