chyba bp :
pri primary file, f3 atp... :
je-li uz neco napsano nahore, pak se to prepnutim tab na seznam souboru
nesmaze jmenem souboru, ale zustane; kdyz zmacknu enter, tak se
odentruje nikoliv jmeno souboru, ale maska; ===> musim dat sipku dolu
a zase nahoru, aby se pohybem v dialogu prepsala horni maska jmenem souboru

perlicka:
lukas: "... sice to bude strasne unuses unfriendly ..."

{lukasovo cteni z pameti - uplne spatne, viz. nova verze :}
  if Size=0 then begin
  {prazdny text}
    ted^.pocrad:=1;
    alokujtedradek(ted,ted^.pocrad,'');
    exit;
  end;
  while poc<Size do begin
    ret:='';
{take chyba, ale tu's osetril pocatecnim IFem}
    while (p^[poc]<>13)and(p^[poc+1]<>10)do begin
{tady byla chyba konce textu}
      ret:=ret+chr(p^[i2]);
      inc(i2);
    end;
    inc(ted^.pocrad);
    alokujtedradek(ted,ted^.pocrad,ret);
    inc(i2,2);
  end;
  {dec(PocRad)}

{stare lukasovo cteni z dfw :}
{bacha na to, ze soubor muze byt s kompresi i bez !!!!!
 to je zkurvena chyba DFW, ze to neumi poznat sam !!!!!}
  {if i1=0 then exit;} {blbost, to je pak spatny prazdny text}

{lukasovo urceni velikosti textu}
 {+ 50;  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! }
  { Myslim ze je tady chyba - chce to skontrolovat jesti alokuje spravne
   pamet }

{udelat kontrolu chyb, at se to nehrouti na RangCheck (napr. backspace
 na pozici [1,1] atp...)
 !!!!! dodealno, mozna to i funguje, !POZORNE! prozkouset}

{je to vyborne, nezhrouti se to ani pri malem rozmeru presne pro 1 znak,
 zhrouti se to pouze, kdyz mu dam tak malo prostoru, ze se tam nevleze nic,
 ale to je naprosto logicke, HURA !!!!!}

{zatim to tozi trochu blbne s tim kursorem na poslednim znaku, ale doopravdy
 uz za koncem povolene delky, protoze to roluje a nezobrazuji se na nem
 znaky, ale prazdny text, teprve kursor to odblika do O.K.
 uz je vse spraveno !!!!!}

{!!!!!!!!!!!!!!!!!!! je potreba neproporcionalni pismo, s proporcionalnim
 to jede taky, ale je to hnusny a nerucim za nasledky !!!!!!!!!!!!!!!!!

 co takhle nejak zobrazovat aktualni pozici v textu ????????????????
 nemam zatim cas, krom toho vyzaduje velkou upravu zdrojaku (i editor.pas)

 Ctrl-W mi tady udela scrollovani a ja za nej nemam nahradu !!!!!!!

 bloky a find/replace !!!!!}

  {tady take laboruji s novym fontem :}
  FreeMem(NewFont, NewFont^[0]*NewFont^[1]*138+140 );
  fonwidth:=font^[0];
  fonheigth:=font^[1];
{udelat proceduru nastav fonheigth podle heigthoffont a stejne tak i pro
 width, prip. tyto promenne uplne zrusit, nebo aspon odstranit odkazy na ne
 anebo udelat, ze 1 font je aktivni a tam budou ulozeny odkazy na nej a nebo
 udelat, ze se uzivatel nebude o promenne typu pfont vubec starat a graph256
 bude mit spojovy seznam fontu a odkazovat se na ne bude cislem a kazdy font
 bude mit vlastni fonheigth atp...
 ===> tolik fontu, kolik si jich treba na zacatku zaregistruju, tolik jich
 budu mit (jako v bp)}

{!!!!! udelat proceduru printtextpart !!!!!}

{prubezneorezavat + nesmipresahovat dela krpy end, kdyz je kursor na konci
 vsech mezer (na uplnem konci textu)}

{!!!!!!!!!!!!!!!! asi je rozdil v PrintText a PrintChar, protoze PrintText
 pri nenastavenem nic vypsal cele pismo cerne a PrintChar to naopak docela
 pekne vystinoval !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}

{dodelat : residentni kursor, bloky, find/replace, podpora textoveho editoru
  (spojovani radku pres BackSpace apod., vyuziti mysi}

{tento editor v dobre vire ocekava, ze nahranej font neobsahuje barvu 255
 (coz je ponechani pozadi), ale je kompletne "namalovan", protoze pred
 tiskem znaku se TED jeste nemaze pozadi

 !!!!! blbost, to uz neplati !!!!!}

{rutina pro osetreni HW kursoru v grafickem rezimu :
  Zavesi se na INT8 (55ms-18*za sekundu) a bude pocitat, dokud nedojde
  k nejakemu cislu (neprimo umerne rychlosti blikani kursoru). Pote provede
  jistou akci (zobrazeni nebo zmizeni kursoru).
  Vnitrni promenne :
    zapnuto/vypnuto - pokud se to vypne, zajisti se jeste smazani kursoru
    viditelnost kursoru - zde oznacuje, zda je prave kursor ve stavu bliknuti
      nebo ve stavu zmizeni
    pozice x a y    - uzivatel bude menit pouze jejich kopie, podle kterych
      se bude tato turina ridit, protoze jinak by kursor za sebou zanechaval
      stopu
    delka x a y     - jaky obdelnik ma kursor vytnout
  Akce rutiny pri odpocitani casoveho intervalu :
    - pokud kursor je ve stavu vypnuti, aktualizuji se souradnice podle
      uzivatelem zadanych cisel, GetImagne se podklad a ulozi se tam obdelnik
      a zmeni se viditelnost kursoru
    - pokud je kursor zapnut, PutImagne se podklad a rovnez se zmeni
      viditelnost kursoru
  Zmeny pro proceduru PutPixel a ji podobne procedury :
    - pokud je kursor vypnut nebo neni viditelny, nic se nedeje
    - pokud viditelny je, tak se nic nezobrazuje na obrazovku, ale naopak se
      aktualizuje podklad ulozeny v blikaci rutine
}





PRIKLAD POUZITI :

  alokujeditor(edpar);
  NastavEdOkno(edpar, {X,Y,Del}50,50,192,
                        {-2 pro okraje -10 pro posuvniky =180=6bodu*30znaku}
                      {Vyzva}'Ahoj',
                      {font nadpisu a textu}font,newfont, {okno}true);
  NastavEdBarvy(edpar,{bpopr:=}7,{bpoz:=}35,{bnadp:=}15,{bkurs:=}15,
                      {binv:=}48,{bokr:=}96,{bpos:=}15);
  NastavEdMezeCisel(-maxint,maxint);
  NastavEdProstredi(edpar, {posuvniky}true, zadnerolovani, musibytcislo,
                           {EscN:=}[#27],{EscR:=}[],
                           {EntN:=}[#13],{EntR:=}[]);
  NastavEdParametry(edpar, {pocinv}true,{urmez}true,{prubor}false,
                           {muzpres}false,{vracchyb}false,{format}false,
                           {delka}30,
                             {30 znaku, abych videl, zda to nebude rolovat}
                           StandardniPovZn,StandardniOddelovace);
  NastavEdObsah(edpar, {edtext}'Dobrý den !!!', {sour}1,{zacina}1);