home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 December / PCWorld_2002-12_cd.bin / Software / Komercni / Baltik / katA.exe / katA / FAKTURY / FAKTURY.SGP < prev    next >
Text File  |  2002-09-20  |  115KB  |  3,613 lines
  1. SGPC   5.05 034#000000665 25.07.1996 10:41:51                                    StructNo 4   4
  2. # include <sgpbalt.h>
  3. string Banka,Nasta,Schem, //ⁿet╪zcové prom╪nné pro nastavení
  4.        Faktura;           //²et╪zcová prom╪nná pro jméno Editované faktury
  5. int    Uziv,              //ƒíselná prom╪nná pro uchování ƒísla uºivatele
  6.        HodinyVisible,     //pron╪ná, která "zapíná"/"vypíná" hodiny
  7.        Err;               //prom╪nná pro konec programu
  8. -o1-Globals ----------------------------------------------------------------
  9. -c1-Globals ---- (? lze pouºít jako náhrada pouze pro /,*,+) -----------------
  10. ===Globals ------------------------------------------------------------------
  11. /*-hf(*/
  12. /*-hf-*/
  13. //Funkce pro p²eƒtení nastavení ze souboru
  14. void NastavINI( void )
  15. /*-hf-*/;
  16. //Funkce zapíτe do souboru nastavení
  17. void ZapisINI( void )
  18. /*-hf-*/;
  19. //Funkce nakreslí hlavní menu
  20. void MainMenu( void )
  21. /*-hf-*/;
  22. //Funkce vykreslí plochu (pracovní prostor)
  23. void Plocha( void )
  24. /*-hf-*/;
  25. //Funkce pro práci s fakturami
  26. void Faktury( void )
  27. /*-hf-*/;
  28. //Funkce pro p²eƒtení jména faktury, která se bude editovat
  29. void _FakturyPJ( void )
  30. /*-hf-*/;
  31. //Funkce pro odoznaƒení gr. tlaƒítek
  32. void _FakturyOT( void )
  33. /*-hf-*/;
  34. //Funkce utvo²í v∞pis jiº napsan∞ch faktur
  35. void Vypis( void )
  36. /*-hf-*/;
  37. //Smazání uloºen∞ch faktur
  38. void Smazat( void )
  39. /*-hf-*/;
  40. //Funkce pro editaci poloºek z adresá²e
  41. void Adresar( void )
  42. /*-hf-*/;
  43. //Funkce pro editaci uºivatelovy hlaviƒky
  44. void Hlavicka( void )
  45. /*-hf-*/;
  46. //Funkce pro nastavení jazyka
  47. void Jazyk( void )
  48. /*-hf-*/;
  49. //Funkce pro nastavení schéma, podle kterého se bude tisknout
  50. void Schema( void )
  51. /*-hf-*/;
  52. //Zobrazení okna pro nastavení barev
  53. void Barvy( void )
  54. /*-hf-*/;
  55. //Funkce pro prohlíºení nápov╪dy
  56. void Napoveda( void )
  57. /*-hf-*/;
  58. //Funkce, která zobrazuje text o vzniku programu
  59. void Oprogramu( void )
  60. /*-hf-*/;
  61. //Zobrazení informaƒního okna
  62. void Informace( void )
  63. /*-hf-*/;
  64. // funkce ovládá menu programu a základní funkce
  65. void main( void )
  66. /*-hf)*/;
  67. ;-h---------------------------------------------------------------------------
  68. //Funkce pro p²eƒtení nastavení ze souboru
  69. void NastavINI( void )
  70. -s--NastavINI                                                                   ■   4  -2 -28   3
  71. NastavINI
  72.   NI!
  73. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  74. NI //Nastav INI
  75.    //deklarace prom╪nn∞ch
  76.    string Atribut;
  77.    int Barvy[49];
  78.    //existuje *\faktury.ini?
  79.    if(SouborExistuje("*\\faktury.ini"))
  80.    //Pokud ano, jaké má atributy?
  81.      {
  82.      unsigned Atributy= SouborAtributy("*\\faktury.ini");
  83.      if (Atributy & SouborAtributArchivní   ) Atribut="A";
  84.      if (Atributy & SouborAtributPouze¼tení ) Atribut+="R";
  85.      if (Atributy & SouborAtributSystémov∞  ) Atribut+="S";
  86.      if (Atributy & SouborAtributSkryt∞     ) Atribut+="H";
  87.      }
  88.    //existuje *\faktury.ini s atributem pro archivaci?
  89.    if((SouborExistuje("*\\faktury.ini")) && (Atribut=="A"))
  90.      {
  91.    //pokud ano, nastav tuto cestu jako správnou a naƒti z ni nastavení
  92.      Nasta="*\\";
  93.      goto NactiINI;
  94.      }
  95.    else
  96.      {
  97.    //kdyº takov∞ soubor neexistuje, zkusme ho vytvo²it
  98.      TypSoubor Set= SouborOtev²i("*\\faktury.ini",SouborP²ístupZápis|SouborP²ístup¼tení|SouborP²ístupTextov∞);
  99.    //jestliºe se soubor úsp╪τn╪ otev²el, vpiτme do n╪ho základní nastavení
  100.      if( Set != 0 )
  101.        {
  102.        SouborZav²i(Set);
  103.        Nasta="*\\";
  104.        goto VytvorINI;
  105.        }
  106.      else
  107.        {
  108.    //kdyº soubor nelze vytvo²it otestujme existenci a atributy c:\faktury.ini
  109.        if(SouborExistuje("c:\\faktury.ini"))
  110.          {
  111.          unsigned Atributy= SouborAtributy("*\\faktury.ini");
  112.          if( Atributy & SouborAtributArchivní   ) Atribut ="A";
  113.          if( Atributy & SouborAtributPouze¼tení ) Atribut+="R";
  114.          if( Atributy & SouborAtributSystémov∞  ) Atribut+="S";
  115.          if( Atributy & SouborAtributSkryt∞     ) Atribut+="H";
  116.          }
  117.        if(SouborExistuje("c:\\faktury.ini") && (Atribut=="A"))
  118.          {
  119.    //kdyº soubor existuje a má atribut A, p²eƒt╪me z n╪ho nastavení
  120.          Nasta="c:\\";
  121.          goto NactiINI;
  122.          }
  123.        else
  124.    //kdyº soubor neexistuje, nebo má jiné atributy zkusme ho vytvo²it
  125.          {
  126.          TypSoubor Set= SouborOtev²i("c:\\faktury.ini",SouborP²ístupZápis|SouborP²ístup¼tení|SouborP²ístupTextov∞);
  127.    //jestliºe se soubor úsp╪τn╪ otev²el, vpiτme do n╪ho základní nastavení
  128.          if( Set != 0 )
  129.            {
  130.            SouborZav²i(Set);
  131.            Nasta="c:\\";
  132.            goto VytvorINI;
  133.            }
  134.    //kdyº soubor nelze vytvo²it, zkusme to na disketu
  135.          else
  136.            {
  137.            GrKresliP²edm╪ty(31,1,144,225,9,1);
  138.            ¼ekejNaKlávesu();
  139.            if(SouborExistuje("a:\\faktury.ini"))
  140.              {
  141.              unsigned Atributy= SouborAtributy("*\\faktury.ini");
  142.              if( Atributy & SouborAtributArchivní   ) Atribut ="A";
  143.              if( Atributy & SouborAtributPouze¼tení ) Atribut+="R";
  144.              if( Atributy & SouborAtributSystémov∞  ) Atribut+="S";
  145.              if( Atributy & SouborAtributSkryt∞     ) Atribut+="H";
  146.              }
  147.            if(SouborExistuje("a:\\faktury.ini") && (Atribut=="A"))
  148.    //jestliºe existuje a:\faktury.ini, p²eƒti z n╪ho nastavení
  149.              {
  150.              Nasta="a:\\";
  151.              goto NactiINI;
  152.              }
  153.    //kdyº soubor neexistuje, zkusme ho vytvo²it
  154.            else
  155.              {
  156.              TypSoubor Set= SouborOtev²i("a:\\faktury.ini",SouborP²ístupZápis|SouborP²ístup¼tení|SouborP²ístupTextov∞);
  157.    //jestliºe se soubor úsp╪τn╪ otev²el, vpiτme do n╪ho základní nastavení
  158.              if( Set != 0 )
  159.                {
  160.                SouborZav²i(Set);
  161.                Nasta="a:\\";
  162.                goto VytvorINI;
  163.                }
  164.    //pokud ne, vypiτme hláτení a skonƒeme program
  165.              else
  166.                {
  167.                GrKresliP²edm╪ty(46,1,144,225,9,1);
  168.                ¼ekejNaKlávesu();
  169.                Err=1;
  170.                goto Error;
  171.                }
  172.              }
  173.            }
  174.          }
  175.        }
  176.      }
  177.    VytvorINI:
  178.    //vytvo²ení INI
  179.    //vypíτeme informaƒní hláτení
  180.    GrKresliP²edm╪ty(16,1,144,225,9,1);
  181.    //vytvo²íme soubor se základním nastavením
  182.    TypSoubor Set= SouborOtev²i(Nasta+"faktury.ini",SouborP²ístupZápis|SouborP²ístupTextov∞);
  183.    SouborPiτⁿet╪zec(Set,"cz");
  184.    SouborPiτNov∞ⁿádek(Set);
  185.    SouborPiτL¼íslo(Set,0,-1);
  186.    SouborPiτNov∞ⁿádek(Set);
  187.    SouborPiτL¼íslo(Set,0,-1);
  188.    SouborPiτNov∞ⁿádek(Set);
  189.    SouborPiτL¼íslo(Set,0,-1);
  190.    SouborPiτNov∞ⁿádek(Set);
  191.    SouborPiτL¼íslo(Set,0,-1);
  192.    SouborPiτNov∞ⁿádek(Set);
  193.    SouborPiτL¼íslo(Set,44,-1);
  194.    SouborPiτNov∞ⁿádek(Set);
  195.    SouborPiτL¼íslo(Set,63,-1);
  196.    SouborPiτNov∞ⁿádek(Set);
  197.    SouborPiτL¼íslo(Set,0,-1);
  198.    SouborPiτNov∞ⁿádek(Set);
  199.    SouborPiτL¼íslo(Set,0,-1);
  200.    SouborPiτNov∞ⁿádek(Set);
  201.    SouborPiτL¼íslo(Set,42,-1);
  202.    SouborPiτNov∞ⁿádek(Set);
  203.    SouborPiτL¼íslo(Set,0,-1);
  204.    SouborPiτNov∞ⁿádek(Set);
  205.    SouborPiτL¼íslo(Set,54,-1);
  206.    SouborPiτNov∞ⁿádek(Set);
  207.    SouborPiτL¼íslo(Set,63,-1);
  208.    SouborPiτNov∞ⁿádek(Set);
  209.    SouborPiτL¼íslo(Set,42,-1);
  210.    SouborPiτNov∞ⁿádek(Set);
  211.    SouborPiτL¼íslo(Set,0,-1);
  212.    SouborPiτNov∞ⁿádek(Set);
  213.    SouborPiτL¼íslo(Set,21,-1);
  214.    SouborPiτNov∞ⁿádek(Set);
  215.    SouborPiτL¼íslo(Set,42,-1);
  216.    SouborPiτNov∞ⁿádek(Set);
  217.    SouborPiτL¼íslo(Set,0,-1);
  218.    SouborPiτNov∞ⁿádek(Set);
  219.    SouborPiτL¼íslo(Set,0,-1);
  220.    SouborPiτNov∞ⁿádek(Set);
  221.    SouborPiτL¼íslo(Set,42,-1);
  222.    SouborPiτNov∞ⁿádek(Set);
  223.    SouborPiτL¼íslo(Set,42,-1);
  224.    SouborPiτNov∞ⁿádek(Set);
  225.    SouborPiτL¼íslo(Set,21,-1);
  226.    SouborPiτNov∞ⁿádek(Set);
  227.    SouborPiτL¼íslo(Set,42,-1);
  228.    SouborPiτNov∞ⁿádek(Set);
  229.    SouborPiτL¼íslo(Set,42,-1);
  230.    SouborPiτNov∞ⁿádek(Set);
  231.    SouborPiτL¼íslo(Set,42,-1);
  232.    SouborPiτNov∞ⁿádek(Set);
  233.    SouborPiτL¼íslo(Set,21,-1);
  234.    SouborPiτNov∞ⁿádek(Set);
  235.    SouborPiτL¼íslo(Set,21,-1);
  236.    SouborPiτNov∞ⁿádek(Set);
  237.    SouborPiτL¼íslo(Set,21,-1);
  238.    SouborPiτNov∞ⁿádek(Set);
  239.    SouborPiτL¼íslo(Set,0,-1);
  240.    SouborPiτNov∞ⁿádek(Set);
  241.    SouborPiτL¼íslo(Set,63,-1);
  242.    SouborPiτNov∞ⁿádek(Set);
  243.    SouborPiτL¼íslo(Set,0,-1);
  244.    SouborPiτNov∞ⁿádek(Set);
  245.    SouborPiτL¼íslo(Set,0,-1);
  246.    SouborPiτNov∞ⁿádek(Set);
  247.    SouborPiτL¼íslo(Set,63,-1);
  248.    SouborPiτNov∞ⁿádek(Set);
  249.    SouborPiτL¼íslo(Set,63,-1);
  250.    SouborPiτNov∞ⁿádek(Set);
  251.    SouborPiτL¼íslo(Set,63,-1);
  252.    SouborPiτNov∞ⁿádek(Set);
  253.    SouborPiτL¼íslo(Set,63,-1);
  254.    SouborPiτNov∞ⁿádek(Set);
  255.    SouborPiτL¼íslo(Set,0,-1);
  256.    SouborPiτNov∞ⁿádek(Set);
  257.    SouborPiτL¼íslo(Set,63,-1);
  258.    SouborPiτNov∞ⁿádek(Set);
  259.    SouborPiτL¼íslo(Set,21,-1);
  260.    SouborPiτNov∞ⁿádek(Set);
  261.    SouborPiτL¼íslo(Set,21,-1);
  262.    SouborPiτNov∞ⁿádek(Set);
  263.    SouborPiτL¼íslo(Set,63,-1);
  264.    SouborPiτNov∞ⁿádek(Set);
  265.    SouborPiτL¼íslo(Set,42,-1);
  266.    SouborPiτNov∞ⁿádek(Set);
  267.    SouborPiτL¼íslo(Set,0,-1);
  268.    SouborPiτNov∞ⁿádek(Set);
  269.    SouborPiτL¼íslo(Set,63,-1);
  270.    SouborPiτNov∞ⁿádek(Set);
  271.    SouborPiτL¼íslo(Set,0,-1);
  272.    SouborPiτNov∞ⁿádek(Set);
  273.    SouborPiτL¼íslo(Set,0,-1);
  274.    SouborPiτNov∞ⁿádek(Set);
  275.    SouborPiτL¼íslo(Set,63,-1);
  276.    SouborPiτNov∞ⁿádek(Set);
  277.    SouborPiτL¼íslo(Set,63,-1);
  278.    SouborPiτNov∞ⁿádek(Set);
  279.    SouborPiτL¼íslo(Set,63,-1);
  280.    SouborPiτNov∞ⁿádek(Set);
  281.    SouborPiτL¼íslo(Set,0,-1);
  282.    SouborPiτNov∞ⁿádek(Set);
  283.    SouborPiτⁿet╪zec(Set,"NormalCZ");
  284.    SouborZav²i(Set);
  285.    NactiINI:
  286.    //naƒtení INI
  287.    //vypíτeme informaƒní hláτení
  288.    GrKresliP²edm╪ty(1,1,144,225,9,1);
  289.    //naƒteme data ze souboru
  290.    Set= SouborOtev²i(Nasta+"faktury.ini",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  291.    Soubor¼tiSⁿet╪zec(Set,Banka);
  292.    {
  293.    int B;
  294.    B= 1;
  295.    do
  296.     {
  297.     Soubor¼tiI¼íslo(Set,Barvy[B]);
  298.     B++;
  299.     }
  300.    while (B != 49);
  301.    }
  302.    Soubor¼tiI¼íslo(Set,Uziv);
  303.    Soubor¼tiNov∞ⁿádek(Set);
  304.    Soubor¼tiSⁿet╪zec(Set,Schem);
  305.    SouborZav²i(Set);
  306.    //nyní nastavíme barvy a jazyk
  307.    StrNastavVelikost(Banka,StrDélka(Banka)-1);
  308.    NastavJménoBankyP²edm╪tà("*\\FAKTURYG\\"+Banka);
  309.    {
  310.    int B;
  311.    B= 0;
  312.    do
  313.     {
  314.     GrNastavBarvuPalety((B/3),Barvy[B+1],Barvy[B+2],Barvy[B+3]);
  315.     B=B+3;
  316.     }
  317.    while (B != 48);
  318.    }
  319.    Error:
  320. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  321. =SP---------------------------------------------------------------------------
  322.  
  323. ;-h---------------------------------------------------------------------------
  324. //Funkce zapíτe do souboru nastavení
  325. void ZapisINI( void )
  326. -s--ZapisINI                                                                    ■   4  -2 -27   3
  327. ZapisINI
  328.  ZI!
  329. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  330. ZI //Zapis INI - zapíτeme aktuální nastavení do souboru
  331.    //deklarace prom╪nn∞ch
  332.    int Barvy[49];
  333.    //naƒtení RGB kódu barev do prom╪nn∞ch
  334.    {
  335.    int B;
  336.    B= 0;
  337.    do
  338.     {
  339.     GrBarvaPalety((B/3),Barvy[B+1],Barvy[B+2],Barvy[B+3]);
  340.     B=B+3;
  341.     }
  342.    while (B != 48);
  343.    }
  344.    //otev²ení souboru a zapsání dat
  345.    TypSoubor Set= SouborOtev²i(Nasta+"faktury.ini",SouborP²ístupZápis|SouborP²ístupTextov∞);
  346.    SouborU²ízni(Set);
  347.    SouborPiτⁿet╪zec(Set,Banka);
  348.    SouborPiτNov∞ⁿádek(Set);
  349.    {
  350.    int B;
  351.    B= 1;
  352.    do
  353.     {
  354.     SouborPiτL¼íslo(Set,Barvy[B],-1);
  355.     SouborPiτNov∞ⁿádek(Set);
  356.     B++;
  357.     }
  358.     while (B != 49);
  359.    }
  360.    SouborPiτL¼íslo(Set,Uziv,-1);
  361.    SouborPiτNov∞ⁿádek(Set);
  362.    SouborPiτⁿet╪zec(Set,Schem);
  363.    SouborZav²i(Set);
  364. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  365. =SP---------------------------------------------------------------------------
  366.  
  367. ;-h---------------------------------------------------------------------------
  368. //Funkce nakreslí hlavní menu
  369. void MainMenu( void )
  370. -s--MainMenu                                                                    ■   4  -2 -27   3
  371. MainMenu
  372.  VM!
  373. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  374. VM //Vykresli Menu
  375.    //schováme a náslodovn╪ zobrazíme kurzor, aby po n╪m nezbyl "stín"
  376.    MyτSchovejKurzor();
  377.    GrKresliP²edm╪ty(1,1,0,0,17,14);
  378.    GrKresliP²edm╪ty(1061,1,0,305,3,1);
  379.    GrKresliP²edm╪ty(1061,1,0,328,3,1);
  380.    GrKresliP²edm╪ty(1061,1,0,351,3,1);
  381.    GrKresliP²edm╪ty(1061,1,0,374,3,1);
  382.    GrKresliP²edm╪ty(1091,1,572,-2,2,1);
  383.    GrKresliP²edm╪ty(1121,1,0,305,3,1);
  384.    GrKresliP²edm╪ty(1136,1,0,328,3,1);
  385.    GrKresliP²edm╪ty(1139,1,0,351,3,1);
  386.    GrKresliP²edm╪ty(1142,1,0,374,3,1);
  387.    MyτZobrazKurzor();
  388. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  389. =SP---------------------------------------------------------------------------
  390.  
  391. ;-h---------------------------------------------------------------------------
  392. //Funkce vykreslí plochu (pracovní prostor)
  393. void Plocha( void )
  394. -s--Plocha                                                                      ■   4  -2 -28   3
  395. Plocha
  396. VP!
  397. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  398. VP //Vykresli Plochu
  399.    //schováme a náslodovn╪ zobrazíme kurzor, aby po n╪m nezbyl "stín"
  400.    MyτSchovejKurzor();
  401.    GrNastavBarvuPop²edí(15);
  402.    GrNastavBarvuPozadí(15);
  403.    GrKresliVypln╪n∞Obdélník(107,27,639,479);
  404.    GrKresliP²edm╪ty(2049,1,120,139,12,7);
  405.    MyτZobrazKurzor();
  406. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  407. =SP---------------------------------------------------------------------------
  408.  
  409. ;-h---------------------------------------------------------------------------
  410. //Funkce pro práci s fakturami
  411. void Faktury( void )
  412. -s--Faktury                                                                     ■  23   6 -26   3
  413.        Faktury
  414.     DPNPVF!UP
  415.    _______│_____
  416. Grafika      Θpravy
  417.  PO!           *SU
  418.  VD!   ______Dialog_____
  419.  VS! CtiMyτ Editace Tlaƒítka
  420.  DA! CM!     ED!     TL!
  421. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  422. DP //Deklarace Prom╪nn∞ch
  423.    int Konec,Stranka,Stav,StavTemp,TypFaktury,User;
  424.    string Sender,Objednavka,Poznamka,HlaDat[7],AdrDat[7],Datum[3],Text[15];
  425. NP //vyNulování Prom╪nn∞ch
  426.    TypFaktury=0;
  427.    User=Uziv;
  428.    Konec=0;
  429.    Stranka=0;
  430. VF //Vymazání Fronty událostí myτi
  431.    MyτVyprázdniFrontuUdálostí();
  432. PO //POkracuj
  433.    Pokracuj:
  434.    HodinyVisible=0;
  435. VD //Vykresli Dialog
  436.    MyτSchovejKurzor();
  437.    GrNastavBarvuPozadí(1);
  438.    GrSmaºOkno();
  439.    //základní obrazovka
  440.    GrNastavBarvuPop²edí(15);
  441.    GrKresliLinku(0,0,639,0);
  442.    GrKresliLinku(0,0,0,479);
  443.    GrKresliLinku(0,445,638,445);
  444.    GrNastavBarvuPop²edí(2);
  445.    GrKresliLinku(0,479,639,479);
  446.    GrKresliLinku(639,0,639,479);
  447.    GrKresliLinku(0,444,639,444);
  448.    GrKresliP²edm╪ty(3137,1,0,0,6,1);
  449.    GrKresliP²edm╪t(4030,1,3,448);
  450.    GrKresliP²edm╪t(4015,1,45,448);
  451.    GrKresliP²edm╪t(4045,1,87,448);
  452.    GrKresliP²edm╪t(4075,1,129,448);
  453.    GrKresliP²edm╪t(4060,1,171,448);
  454.    GrKresliP²edm╪t(4090,1,213,448);
  455.    GrKresliP²edm╪t(4105,1,255,448);
  456.    GrKresliP²edm╪ty(4121,1,297,448,7,1);
  457.    GrNastavPozici(454,457);
  458.    GrNastavBarvuPop²edí(0);
  459.    GrNastavBarvuPozadí(15);
  460.    GrPiτⁿet╪zec(Faktura);
  461.    MyτZobrazKurzor();
  462.    goto Open;
  463. VS //Vykreslení Stránek posouvacího formulá²e
  464.    Page:
  465.    MyτSchovejKurzor();
  466.    GrNastavBarvuPozadí(1);
  467.    GrKresliVypln╪n∞Obdélník(3,15,636,440);
  468.    if(Stranka==0)
  469.    {
  470.    GrKresliP²edm╪ty(7106,1,28,345,15,3);
  471.    GrKresliP²edm╪ty(4136,1,28,306,15,1);
  472.    GrKresliP²edm╪ty(4087,1,28,298,3,1);
  473.    GrKresliP²edm╪ty(4128,1,47,222,4,1);
  474.    GrKresliP²edm╪t(1133,1,193,224);
  475.    GrKresliP²edm╪t(1131,1,193,239);
  476.    GrKresliP²edm╪ty(6025,1,28,79,6,1);
  477.    GrKresliP²edm╪ty(6049,1,28,108,6,3);
  478.    GrKresliP²edm╪ty(6040,1,28,195,6,1);
  479.    GrKresliP²edm╪ty(4042,1,89,255,3,1);
  480.    GrKresliP²edm╪ty(1061,1,89,255,3,1);
  481.    GrKresliP²edm╪ty(4057,1,28,84,3,1);
  482.    GrKresliP²edm╪ty(4072,1,275,84,3,1);
  483.    GrKresliP²edm╪ty(7014,1,266,82,2,5);
  484.    GrKresliP²edm╪ty(6055,1,344,82,6,1);
  485.    GrKresliP²edm╪ty(7019,1,344,111,6,4);
  486.    GrKresliP²edm╪ty(2106,1,275,230,3,1);
  487.    GrKresliP²edm╪ty(4125,1,282,245,3,1);
  488.    GrKresliP²edm╪ty(4012,1,500,244,3,1);
  489.    GrKresliP²edm╪ty(1061,1,500,244,3,1);
  490.    GrKresliP²edm╪ty(4132,1,28,22,3,1);
  491.    GrKresliP²edm╪ty(5136,1,45,35,10,1);
  492.    GrKresliP²edm╪t(7089,1,37,37);
  493.    GrKresliP²edm╪t(7089,1,37,49);
  494.    GrNastavBarvuPop²edí(15);
  495.    GrKresliObdélník(25,18,617,70);
  496.    GrKresliObdélník(25,80,261,285);
  497.    GrKresliObdélník(272,80,617,285);
  498.    GrKresliObdélník(25,295,617,332);
  499.    GrKresliObdélník(25,342,617,435);
  500.    GrNastavBarvuPop²edí(2);
  501.    GrKresliObdélník(24,17,616,69);
  502.    GrKresliObdélník(24,79,260,284);
  503.    GrKresliObdélník(271,79,616,284);
  504.    GrKresliObdélník(24,294,616,331);
  505.    GrKresliObdélník(24,341,616,434);
  506.    }
  507.    if(Stranka==1)
  508.    {
  509.    GrKresliP²edm╪ty(4102,1,9,22,3,1);
  510.    GrKresliP²edm╪ty(8001,1,15,37,16,8);
  511.    GrKresliP²edm╪ty(4117,1,9,279,3,1);
  512.    GrKresliP²edm╪ty(8121,1,15,294,16,1);
  513.    GrKresliP²edm╪ty(1061,1,222,308,3,1);
  514.    GrKresliP²edm╪ty(4027,1,222,308,3,1);
  515.    GrKresliP²edm╪ty(1061,1,322,308,3,1);
  516.    GrKresliP²edm╪ty(5011,1,322,308,3,1);
  517.    GrNastavBarvuPop²edí(15);
  518.    GrKresliObdélník(6,18,634,265);
  519.    GrKresliObdélník(6,275,634,340);
  520.    GrNastavBarvuPop²edí(2);
  521.    GrKresliObdélník(5,17,633,264);
  522.    GrKresliObdélník(5,274,633,339);
  523.    }
  524.    MyτZobrazKurzor();
  525. TL //kdyº je stisknuto n╪jaké TLaƒítko
  526.    //1. stránka
  527.    if(Stranka==0)
  528.      {
  529.  
  530.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 506 ASouƒasn╪ gMyτUdálost.X < 602 ASouƒasn╪ gMyτUdálost.Y > 244 ASouƒasn╪ gMyτUdálost.Y < 262)
  531.        {
  532.        MyτSchovejKurzor();
  533.        GrKresliP²edm╪ty(1076,1,500,244,3,1);
  534.        MyτZobrazKurzor();
  535.        Adresar();
  536.        MyτSchovejKurzor();
  537.        GrKresliP²edm╪ty(1061,1,500,244,3,1);
  538.        MyτZobrazKurzor();
  539.        goto Page;
  540.        }
  541.  
  542.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 95 ASouƒasn╪ gMyτUdálost.X < 191 ASouƒasn╪ gMyτUdálost.Y > 260 ASouƒasn╪ gMyτUdálost.Y < 278)
  543.        {
  544.        MyτSchovejKurzor();
  545.        GrKresliP²edm╪ty(1076,1,89,255,3,1);
  546.        MyτZobrazKurzor();
  547.        Hlavicka();
  548.        MyτSchovejKurzor();
  549.        GrKresliP²edm╪ty(1061,1,89,255,3,1);
  550.        MyτZobrazKurzor();
  551.        goto Page;
  552.        }
  553.      
  554.      }
  555.    //2. stránka
  556.    if(Stranka==1)
  557.      {
  558.      
  559.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 227 ASouƒasn╪ gMyτUdálost.X < 323 ASouƒasn╪ gMyτUdálost.Y > 314 ASouƒasn╪ gMyτUdálost.Y < 332)
  560.        {
  561.        MyτSchovejKurzor();
  562.        GrKresliP²edm╪ty(1076,1,222,308,3,1);
  563.        MyτZobrazKurzor();
  564.        if(SouborExistuje("*\\FakturyD\\Pozn\\N"+StrL¼íslo(User,-1)+".dat"))
  565.          {
  566.          TypSoubor Note = SouborOtev²i("*\\FakturyD\\Pozn\\N"+StrL¼íslo(User,-1)+".dat",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  567.          Soubor¼tiSⁿet╪zec(Note,Poznamka);
  568.          StrNastavVelikost(Poznamka,strlen(Poznamka)-1);
  569.          SouborZav²i(Note);
  570.          }
  571.        MyτSchovejKurzor();
  572.        GrKresliP²edm╪ty(1061,1,222,308,3,1);
  573.        MyτZobrazKurzor();
  574.        goto Data;
  575.        }
  576.      
  577.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 327 ASouƒasn╪ gMyτUdálost.X < 423 ASouƒasn╪ gMyτUdálost.Y > 314 ASouƒasn╪ gMyτUdálost.Y < 332)
  578.        {
  579.        MyτSchovejKurzor();
  580.        GrKresliP²edm╪ty(1076,1,322,308,3,1);
  581.        MyτZobrazKurzor();
  582.        TypSoubor Note = SouborOtev²i("*\\FakturyD\\Pozn\\N"+StrL¼íslo(User,-1)+".dat",SouborP²ístupZápis|SouborP²ístupTextov∞);
  583.        SouborU²ízni(Note);
  584.        SouborPiτⁿet╪zec(Note,Poznamka);
  585.        SouborPiτNov∞ⁿádek(Note);
  586.        SouborZav²i(Note);
  587.        MyτSchovejKurzor();
  588.        GrKresliP²edm╪ty(1061,1,322,308,3,1);
  589.        MyτZobrazKurzor();
  590.        }
  591.      }
  592.    //grafická tlaƒítka v menu
  593.  
  594.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 3 ASouƒasn╪ gMyτUdálost.X < 42)
  595.      {
  596.      Stav=1;
  597.      if(StavTemp!=Stav)
  598.        {
  599.        _FakturyOT();
  600.        MyτSchovejKurzor();
  601.        GrKresliP²edm╪t(4120,1,3,448);
  602.        MyτZobrazKurzor();
  603.        StavTemp=Stav;
  604.        }
  605.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  606.        {
  607.        MyτSchovejKurzor();
  608.        GrKresliP²edm╪t(3143,1,3,448);
  609.        MyτZobrazKurzor();
  610.        GrNastavPozici(454,457);
  611.        MyτVyprázdniFrontuUdálostí();
  612.        Grⁿádkov∞Editor(Faktura,8,-1,0,-1,0xf0);
  613.        Open:
  614.        if(SouborExistuje("*\\FakturyD\\Fakt\\"+Faktura+".fkt"))
  615.          {
  616.          TypSoubor FaktData = SouborOtev²i("*\\FakturyD\\Fakt\\"+Faktura+".fkt",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  617.          Soubor¼tiI¼íslo(FaktData,TypFaktury);
  618.          Soubor¼tiNov∞ⁿádek(FaktData);
  619.          Soubor¼tiI¼íslo(FaktData,User);
  620.          Soubor¼tiNov∞ⁿádek(FaktData);
  621.          {
  622.          int R;
  623.          R= 0;
  624.          do
  625.           {
  626.           Soubor¼tiSⁿet╪zec(FaktData,AdrDat[R]);
  627.           StrNastavVelikost(AdrDat[R],strlen(AdrDat[R])-1);
  628.           R++;
  629.           }
  630.           while (R != 7);
  631.          }
  632.          {
  633.          int R;
  634.          R= 0;
  635.          do
  636.           {
  637.           Soubor¼tiSⁿet╪zec(FaktData,Datum[R]);
  638.           StrNastavVelikost(Datum[R],strlen(Datum[R])-1);
  639.           R++;
  640.           }
  641.           while (R != 3);
  642.          }
  643.          Soubor¼tiSⁿet╪zec(FaktData,Objednavka);
  644.          StrNastavVelikost(Objednavka,strlen(Objednavka)-1);
  645.          {
  646.          int R;
  647.          R= 0;
  648.          do
  649.           {
  650.           Soubor¼tiSⁿet╪zec(FaktData,Text[R]);
  651.           StrNastavVelikost(Text[R],strlen(Text[R])-1);
  652.           R++;
  653.           }
  654.           while (R != 15);
  655.          }
  656.          Soubor¼tiSⁿet╪zec(FaktData,Poznamka);
  657.          StrNastavVelikost(Poznamka,strlen(Poznamka)-1);
  658.          SouborZav²i(FaktData);
  659.          }
  660.        MyτSchovejKurzor();
  661.        GrKresliP²edm╪t(4120,1,3,448);
  662.        MyτZobrazKurzor();
  663.        goto Page;
  664.        }
  665.      goto KoObTl;
  666.      }
  667.    else{Stav=0;}
  668.  
  669.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 45 ASouƒasn╪ gMyτUdálost.X < 84)
  670.      {
  671.      Stav=2;
  672.      if(StavTemp!=Stav)
  673.        {
  674.        _FakturyOT();
  675.        MyτSchovejKurzor();
  676.        GrKresliP²edm╪t(4120,1,45,448);
  677.        MyτZobrazKurzor();
  678.        StavTemp=Stav;
  679.        }
  680.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  681.        {
  682.        MyτSchovejKurzor();
  683.        GrKresliP²edm╪t(3143,1,45,448);
  684.        MyτZobrazKurzor();
  685.        GrNastavPozici(454,457);
  686.        MyτVyprázdniFrontuUdálostí();
  687.        Grⁿádkov∞Editor(Faktura,8,-1,0,-1,0xf0);
  688.        TypSoubor FaktData = SouborOtev²i("*\\FakturyD\\Fakt\\"+Faktura+".fkt",SouborP²ístupZápis|SouborP²ístupTextov∞);
  689.        SouborPiτL¼íslo(FaktData,TypFaktury,-1);
  690.        SouborPiτNov∞ⁿádek(FaktData);
  691.        SouborPiτL¼íslo(FaktData,User,-1);
  692.        SouborPiτNov∞ⁿádek(FaktData);
  693.        {
  694.        int R;
  695.        R= 0;
  696.        do
  697.         {
  698.         SouborPiτⁿet╪zec(FaktData,AdrDat[R]);
  699.         SouborPiτNov∞ⁿádek(FaktData);
  700.         R++;
  701.         }
  702.        while (R != 7);
  703.        }
  704.        {
  705.        int R;
  706.        R= 0;
  707.        do
  708.         {
  709.         SouborPiτⁿet╪zec(FaktData,Datum[R]);
  710.         SouborPiτNov∞ⁿádek(FaktData);
  711.         R++;
  712.         }
  713.        while (R != 3);
  714.        }
  715.        SouborPiτⁿet╪zec(FaktData,Objednavka);
  716.        SouborPiτNov∞ⁿádek(FaktData);
  717.        {
  718.        int R;
  719.        R= 0;
  720.        do
  721.         {
  722.         SouborPiτⁿet╪zec(FaktData,Text[R]);
  723.         SouborPiτNov∞ⁿádek(FaktData);
  724.         R++;
  725.         }
  726.        while (R != 15);
  727.        }
  728.        SouborPiτⁿet╪zec(FaktData,Poznamka);
  729.        SouborPiτNov∞ⁿádek(FaktData);
  730.        SouborZav²i(FaktData);
  731.        MyτSchovejKurzor();
  732.        GrKresliP²edm╪t(4120,1,45,448);
  733.        MyτZobrazKurzor();
  734.        }
  735.      goto KoObTl;
  736.      }
  737.    else{Stav=0;}
  738.  
  739.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 87 ASouƒasn╪ gMyτUdálost.X < 126)
  740.      {
  741.      Stav=3;
  742.      if(StavTemp!=Stav)
  743.        {
  744.        _FakturyOT();
  745.        MyτSchovejKurzor();
  746.        GrKresliP²edm╪t(4120,1,87,448);
  747.        MyτZobrazKurzor();
  748.        StavTemp=Stav;
  749.        }
  750.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  751.        {
  752.        MyτSchovejKurzor();
  753.        GrKresliP²edm╪t(3143,1,87,448);
  754.        MyτZobrazKurzor();
  755.        GrNastavPozici(454,457);
  756.        MyτVyprázdniFrontuUdálostí();
  757.        Grⁿádkov∞Editor(Faktura,8,-1,0,-1,0xf0);
  758.        if(SouborExistuje("*\\FakturyD\\Sche\\"+Schem+".sch") ASouƒasn╪ SouborExistuje("*\\FakturyD\\Fakt\\"+Faktura+".fkt"))
  759.          {
  760.    //Tisk
  761.          int TF,CH;
  762.          string TTF,H[7],A[7],D[3],ON,T[15],PO;
  763.          TypSoubor Schema = SouborOtev²i("*\\FakturyD\\Sche\\"+Schem+".sch",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  764.          TypSoubor Zdroj  = SouborOtev²i("*\\FakturyD\\Fakt\\"+Faktura+".fkt",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  765.          TypSoubor Tisk  = SouborOtev²i("LPT1",SouborP²ístupZápis|SouborP²ístupBinární);
  766.    //Typ faktury
  767.          Soubor¼tiI¼íslo(Zdroj,TF);
  768.          Soubor¼tiNov∞ⁿádek(Zdroj);
  769.          if(TF==0){Soubor¼tiSⁿet╪zec(Schema,TTF);Soubor¼tiNov∞ⁿádek(Schema);}
  770.          if(TF==1){Soubor¼tiNov∞ⁿádek(Schema);Soubor¼tiSⁿet╪zec(Schema,TTF);}
  771.          SouborPiτⁿet╪zec(Tisk,TTF);
  772.          Soubor¼tiI¼íslo(Zdroj,CH);
  773.          Soubor¼tiNov∞ⁿádek(Zdroj);
  774.    //Naƒteme data ze zdroje
  775.          TypSoubor Head=SouborOtev²i("*\\fakturyd\\hlav\\"+StrL¼íslo(User,-1)+".hlv",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  776.          int R;
  777.          R= 0;
  778.          do
  779.           {
  780.           Soubor¼tiSⁿet╪zec(Head,H[R]);
  781.           StrNastavVelikost(H[R],strlen(H[R])-1);
  782.           if(strlen(H[R])!=26)
  783.             {
  784.             do
  785.              {
  786.              H[R]=H[R]+" ";
  787.              }
  788.             while (strlen(H[R]) != 26);
  789.             }
  790.           R++;
  791.           }
  792.          while (R !=7);
  793.          SouborZav²i(Head);
  794.          R= 0;
  795.          do
  796.           {
  797.           Soubor¼tiSⁿet╪zec(Zdroj,A[R]);
  798.           StrNastavVelikost(A[R],strlen(A[R])-1);
  799.           if(strlen(A[R])!=26)
  800.             {
  801.             do
  802.              {
  803.              A[R]=A[R]+" ";
  804.              }
  805.             while (strlen(A[R]) != 26);
  806.             }
  807.           R++;
  808.           }
  809.          while (R !=7);
  810.          R= 0;
  811.          do
  812.           {
  813.           Soubor¼tiSⁿet╪zec(Zdroj,D[R]);
  814.           StrNastavVelikost(D[R],strlen(D[R])-1);
  815.           if(strlen(D[R])!=20)
  816.             {
  817.             do
  818.              {
  819.              D[R]=D[R]+" ";
  820.              }
  821.             while (strlen(D[R]) != 20);
  822.             }
  823.           R++;
  824.           }
  825.          while (R !=3);
  826.          Soubor¼tiSⁿet╪zec(Zdroj,ON);
  827.          StrNastavVelikost(ON,strlen(ON)-1);
  828.          if(strlen(ON)!=50)
  829.            {
  830.            do
  831.             {
  832.             ON=ON+" ";
  833.             }
  834.            while (strlen(ON) != 50);
  835.            }
  836.          R= 0;
  837.          do
  838.           {
  839.           Soubor¼tiSⁿet╪zec(Zdroj,T[R]);
  840.           StrNastavVelikost(T[R],strlen(T[R])-1);
  841.           if(strlen(T[R])!=74)
  842.             {
  843.             do
  844.              {
  845.              T[R]=T[R]+" ";
  846.              }
  847.             while (strlen(T[R]) != 74);
  848.             }
  849.           R++;
  850.           }
  851.          while (R !=15);
  852.          Soubor¼tiSⁿet╪zec(Zdroj,PO);
  853.          StrNastavVelikost(PO,strlen(PO)-1);
  854.    //Tisk
  855.          string Data;
  856.          do
  857.          {
  858.          Soubor¼tiSⁿet╪zec(Schema,Data);
  859.          StrNastavVelikost(Data,strlen(Data)-1);
  860.          if(Data=="CF"){SouborPiτⁿet╪zec(Tisk,Faktura);goto RamOut;}
  861.          if(Data=="H0"){SouborPiτⁿet╪zec(Tisk,H[0]);goto RamOut;}
  862.          if(Data=="H1"){SouborPiτⁿet╪zec(Tisk,H[1]);goto RamOut;}
  863.          if(Data=="H2"){SouborPiτⁿet╪zec(Tisk,H[2]);goto RamOut;}
  864.          if(Data=="H3"){SouborPiτⁿet╪zec(Tisk,H[3]);goto RamOut;}
  865.          if(Data=="H4"){SouborPiτⁿet╪zec(Tisk,H[4]);goto RamOut;}
  866.          if(Data=="H5"){SouborPiτⁿet╪zec(Tisk,H[5]);goto RamOut;}
  867.          if(Data=="H6"){SouborPiτⁿet╪zec(Tisk,H[6]);goto RamOut;}
  868.          if(Data=="A0"){SouborPiτⁿet╪zec(Tisk,A[0]);goto RamOut;}
  869.          if(Data=="A1"){SouborPiτⁿet╪zec(Tisk,A[1]);goto RamOut;}
  870.          if(Data=="A2"){SouborPiτⁿet╪zec(Tisk,A[2]);goto RamOut;}
  871.          if(Data=="A3"){SouborPiτⁿet╪zec(Tisk,A[3]);goto RamOut;}
  872.          if(Data=="A4"){SouborPiτⁿet╪zec(Tisk,A[4]);goto RamOut;}
  873.          if(Data=="A5"){SouborPiτⁿet╪zec(Tisk,A[5]);goto RamOut;}
  874.          if(Data=="A6"){SouborPiτⁿet╪zec(Tisk,A[6]);goto RamOut;}
  875.          if(Data=="D0"){SouborPiτⁿet╪zec(Tisk,D[0]);goto RamOut;}
  876.          if(Data=="D1"){SouborPiτⁿet╪zec(Tisk,D[0]);goto RamOut;}
  877.          if(Data=="D2"){SouborPiτⁿet╪zec(Tisk,D[1]);goto RamOut;}
  878.          if(Data=="D3"){SouborPiτⁿet╪zec(Tisk,D[2]);goto RamOut;}
  879.          if(Data=="OC"){SouborPiτⁿet╪zec(Tisk,ON);goto RamOut;}
  880.          if(Data=="T0"){SouborPiτⁿet╪zec(Tisk,T[0]);goto RamOut;}
  881.          if(Data=="T1"){SouborPiτⁿet╪zec(Tisk,T[1]);goto RamOut;}
  882.          if(Data=="T2"){SouborPiτⁿet╪zec(Tisk,T[2]);goto RamOut;}
  883.          if(Data=="T3"){SouborPiτⁿet╪zec(Tisk,T[3]);goto RamOut;}
  884.          if(Data=="T4"){SouborPiτⁿet╪zec(Tisk,T[4]);goto RamOut;}
  885.          if(Data=="T5"){SouborPiτⁿet╪zec(Tisk,T[5]);goto RamOut;}
  886.          if(Data=="T6"){SouborPiτⁿet╪zec(Tisk,T[6]);goto RamOut;}
  887.          if(Data=="T7"){SouborPiτⁿet╪zec(Tisk,T[7]);goto RamOut;}
  888.          if(Data=="T8"){SouborPiτⁿet╪zec(Tisk,T[8]);goto RamOut;}
  889.          if(Data=="T9"){SouborPiτⁿet╪zec(Tisk,T[9]);goto RamOut;}
  890.          if(Data=="Ta"){SouborPiτⁿet╪zec(Tisk,T[10]);goto RamOut;}
  891.          if(Data=="Tb"){SouborPiτⁿet╪zec(Tisk,T[11]);goto RamOut;}
  892.          if(Data=="Tc"){SouborPiτⁿet╪zec(Tisk,T[12]);goto RamOut;}
  893.          if(Data=="Td"){SouborPiτⁿet╪zec(Tisk,T[13]);goto RamOut;}
  894.          if(Data=="Te"){SouborPiτⁿet╪zec(Tisk,T[14]);goto RamOut;}
  895.          if(Data=="PO"){SouborPiτⁿet╪zec(Tisk,PO);goto RamOut;}
  896.          if(Data=="NR"){SouborPiτⁿet╪zec(Tisk,"\n");goto RamOut;}
  897.          if(Data=="PR"){SouborPiτⁿet╪zec(Tisk,"\x0c");goto RamOut;}
  898.          SouborPiτⁿet╪zec(Tisk,Data);
  899.          RamOut:
  900.          }
  901.          while(SouborDataPlatná(Schema));
  902.          SouborZav²i(Tisk);
  903.          SouborZav²i(Zdroj);
  904.          SouborZav²i(Schema);
  905.          }
  906.        else
  907.          {
  908.          Tón(2000);
  909.          ¼ekej(100);
  910.          VypniTón();
  911.          }
  912.        MyτSchovejKurzor();
  913.        GrKresliP²edm╪t(4120,1,87,448);
  914.        MyτZobrazKurzor();
  915.        }
  916.      goto KoObTl;
  917.      }
  918.    else{Stav=0;}
  919.  
  920.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 129 ASouƒasn╪ gMyτUdálost.X < 168)
  921.      {
  922.      Stav=4;
  923.      if(StavTemp!=Stav)
  924.        {
  925.        _FakturyOT();
  926.        MyτSchovejKurzor();
  927.        GrKresliP²edm╪t(4120,1,129,448);
  928.        MyτZobrazKurzor();
  929.        StavTemp=Stav;
  930.        }
  931.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  932.        {
  933.        MyτSchovejKurzor();
  934.        GrKresliP²edm╪t(3143,1,129,448);
  935.        MyτZobrazKurzor();
  936.        Vypis();
  937.        MyτSchovejKurzor();
  938.        GrKresliP²edm╪t(4120,1,129,448);
  939.        MyτZobrazKurzor();
  940.        goto Page;
  941.        }
  942.      goto KoObTl;
  943.      }
  944.    else{Stav=0;}
  945.  
  946.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 171 ASouƒasn╪ gMyτUdálost.X < 210)
  947.      {
  948.      Stav=5;
  949.      if(StavTemp!=Stav)
  950.        {
  951.        _FakturyOT();
  952.        MyτSchovejKurzor();
  953.        GrKresliP²edm╪t(4120,1,171,448);
  954.        MyτZobrazKurzor();
  955.        StavTemp=Stav;
  956.        }
  957.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  958.        {
  959.        MyτSchovejKurzor();
  960.        GrKresliP²edm╪t(3143,1,171,448);
  961.        MyτZobrazKurzor();
  962.        Smazat();
  963.        MyτSchovejKurzor();
  964.        GrKresliP²edm╪t(4120,1,171,448);
  965.        MyτZobrazKurzor();
  966.        goto Page;
  967.        }
  968.      goto KoObTl;
  969.      }
  970.    else{Stav=0;}
  971.  
  972.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 213 ASouƒasn╪ gMyτUdálost.X < 252)
  973.      {
  974.      Stav=6;
  975.      if(StavTemp!=Stav)
  976.        {
  977.        _FakturyOT();
  978.        MyτSchovejKurzor();
  979.        GrKresliP²edm╪t(4120,1,213,448);
  980.        MyτZobrazKurzor();
  981.        StavTemp=Stav;
  982.        }
  983.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  984.        {
  985.        MyτSchovejKurzor();
  986.        GrKresliP²edm╪t(3143,1,213,448);
  987.        if(Stranka==0){Stranka=1;}else{Stranka=0;}
  988.        GrKresliP²edm╪t(4120,1,213,448);
  989.        MyτZobrazKurzor();
  990.        goto Page;
  991.        }
  992.      goto KoObTl;
  993.      }
  994.    else{Stav=0;}
  995.  
  996.    if(gMyτUdálost.Y > 448 ASouƒasn╪ gMyτUdálost.Y < 477 ASouƒasn╪ gMyτUdálost.X > 255 ASouƒasn╪ gMyτUdálost.X < 294)
  997.      {
  998.      Stav=7;
  999.      if(StavTemp!=Stav)
  1000.        {
  1001.        _FakturyOT();
  1002.        MyτSchovejKurzor();
  1003.        GrKresliP²edm╪t(4120,1,255,448);
  1004.        MyτZobrazKurzor();
  1005.        StavTemp=Stav;
  1006.        }
  1007.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà)
  1008.        {
  1009.        MyτSchovejKurzor();
  1010.        GrKresliP²edm╪t(3143,1,255,448);
  1011.        MyτZobrazKurzor();
  1012.        Konec=1;
  1013.        }
  1014.      goto KoObTl;
  1015.      }
  1016.    else{Stav=0;}
  1017.  
  1018.    if(Stav==0 ASouƒasn╪ StavTemp!=Stav)
  1019.      {
  1020.      _FakturyOT();
  1021.      StavTemp=Stav;
  1022.      }
  1023.  
  1024.    KoObTl:
  1025. CM //¼ti Myτ
  1026.    Myτ¼tiUdálost(gMyτUdálost);
  1027. ED //EDitace
  1028.    GrNastavBarvuPop²edí(0);
  1029.    GrNastavBarvuPozadí(15);
  1030.    if(Stranka==0)
  1031.      {
  1032.  
  1033.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 388 ASouƒasn╪ gMyτUdálost.X < 608 ASouƒasn╪ gMyτUdálost.Y > 367 ASouƒasn╪ gMyτUdálost.Y < 377)
  1034.        {
  1035.        GrNastavPozici(388,367);
  1036.        MyτVyprázdniFrontuUdálostí();
  1037.        Grⁿádkov∞Editor(Datum[0],20,-1,0,-1,0xf0);
  1038.        }
  1039.  
  1040.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 388 ASouƒasn╪ gMyτUdálost.X < 608 ASouƒasn╪ gMyτUdálost.Y > 384 ASouƒasn╪ gMyτUdálost.Y < 394)
  1041.        {
  1042.        GrNastavPozici(388,384);
  1043.        MyτVyprázdniFrontuUdálostí();
  1044.        Grⁿádkov∞Editor(Datum[1],20,-1,0,-1,0xf0);
  1045.        Datum[2]=Datum[1];
  1046.        }
  1047.  
  1048.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 388 ASouƒasn╪ gMyτUdálost.X < 608 ASouƒasn╪ gMyτUdálost.Y > 401 ASouƒasn╪ gMyτUdálost.Y < 411)
  1049.        {
  1050.        GrNastavPozici(388,401);
  1051.        MyτVyprázdniFrontuUdálostí();
  1052.        Grⁿádkov∞Editor(Datum[2],20,-1,0,-1,0xf0);
  1053.        }
  1054.  
  1055.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 40 ASouƒasn╪ gMyτUdálost.X < 610 ASouƒasn╪ gMyτUdálost.Y > 317 ASouƒasn╪ gMyτUdálost.Y < 327)
  1056.        {
  1057.        GrNastavPozici(40,315);
  1058.        MyτVyprázdniFrontuUdálostí();
  1059.        Grⁿádkov∞Editor(Objednavka,50,-1,0,-1,0xf0);
  1060.        }
  1061.  
  1062.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 103 ASouƒasn╪ gMyτUdálost.Y < 113)
  1063.        {
  1064.        GrNastavPozici(357,103);
  1065.        MyτVyprázdniFrontuUdálostí();
  1066.        Grⁿádkov∞Editor(AdrDat[0],26,-1,0,-1,0xf0);
  1067.        }
  1068.  
  1069.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 120 ASouƒasn╪ gMyτUdálost.Y < 130)
  1070.        {
  1071.        GrNastavPozici(357,120);
  1072.        MyτVyprázdniFrontuUdálostí();
  1073.        Grⁿádkov∞Editor(AdrDat[1],26,-1,0,-1,0xf0);
  1074.        }
  1075.  
  1076.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 137 ASouƒasn╪ gMyτUdálost.Y < 147)
  1077.        {
  1078.        GrNastavPozici(357,137);
  1079.        MyτVyprázdniFrontuUdálostí();
  1080.        Grⁿádkov∞Editor(AdrDat[2],26,-1,0,-1,0xf0);
  1081.        }
  1082.  
  1083.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 154 ASouƒasn╪ gMyτUdálost.Y < 164)
  1084.        {
  1085.        GrNastavPozici(357,154);
  1086.        MyτVyprázdniFrontuUdálostí();
  1087.        Grⁿádkov∞Editor(AdrDat[3],26,-1,0,-1,0xf0);
  1088.        }
  1089.  
  1090.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 171 ASouƒasn╪ gMyτUdálost.Y < 181)
  1091.        {
  1092.        GrNastavPozici(357,171);
  1093.        MyτVyprázdniFrontuUdálostí();
  1094.        Grⁿádkov∞Editor(AdrDat[4],26,-1,0,-1,0xf0);
  1095.        }
  1096.  
  1097.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 188 ASouƒasn╪ gMyτUdálost.Y < 198)
  1098.        {
  1099.        GrNastavPozici(357,188);
  1100.        MyτVyprázdniFrontuUdálostí();
  1101.        Grⁿádkov∞Editor(AdrDat[5],26,-1,0,-1,0xf0);
  1102.        }
  1103.  
  1104.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 353 ASouƒasn╪ gMyτUdálost.X < 575 ASouƒasn╪ gMyτUdálost.Y > 205 ASouƒasn╪ gMyτUdálost.Y < 215)
  1105.        {
  1106.        GrNastavPozici(357,205);
  1107.        MyτVyprázdniFrontuUdálostí();
  1108.        Grⁿádkov∞Editor(AdrDat[6],26,-1,0,-1,0xf0);
  1109.        }
  1110.  
  1111.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 283 ASouƒasn╪ gMyτUdálost.X < 347 ASouƒasn╪ gMyτUdálost.Y > 254 ASouƒasn╪ gMyτUdálost.Y < 264)
  1112.        {
  1113.        GrNastavPozici(283,254);
  1114.        Grⁿádkov∞Editor(Sender,8,-1,0,-1,0xf0);
  1115.        if(SouborExistuje("*\\FakturyD\\Adre\\"+Sender+".adr"))
  1116.          {
  1117.          TypSoubor AdrFile= SouborOtev²i("*\\FakturyD\\Adre\\"+Sender+".adr",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1118.          int Radek;
  1119.          Radek= 0;
  1120.          do
  1121.           {
  1122.           Soubor¼tiSⁿet╪zec(AdrFile,AdrDat[Radek]);
  1123.           StrNastavVelikost(AdrDat[Radek],strlen(AdrDat[Radek])-1);
  1124.           Radek++;
  1125.           }
  1126.          while (Radek != 7);
  1127.          goto Data;
  1128.          }
  1129.        }
  1130.  
  1131.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 37 ASouƒasn╪ gMyτUdálost.X < 48)
  1132.        {
  1133.        if(gMyτUdálost.Y > 37 ASouƒasn╪ gMyτUdálost.Y < 48)
  1134.          {
  1135.          MyτSchovejKurzor();
  1136.          GrKresliP²edm╪t(7090,1,37,37);
  1137.          GrKresliP²edm╪t(7089,1,37,49);
  1138.          MyτZobrazKurzor();
  1139.          TypFaktury=0;
  1140.          }
  1141.        if(gMyτUdálost.Y > 49 ASouƒasn╪ gMyτUdálost.Y < 60)
  1142.          {
  1143.          MyτSchovejKurzor();
  1144.          GrKresliP²edm╪t(7089,1,37,37);
  1145.          GrKresliP²edm╪t(7090,1,37,49);
  1146.          MyτZobrazKurzor();
  1147.          TypFaktury=1;
  1148.          }
  1149.        }
  1150.  
  1151.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 193 ASouƒasn╪ gMyτUdálost.X < 208)
  1152.        {
  1153.        if(gMyτUdálost.Y > 224 ASouƒasn╪ gMyτUdálost.Y < 239)
  1154.          {
  1155.          if(SouborExistuje("*\\fakturyd\\hlav\\"+StrL¼íslo(User+1,-1)+".hlv"))
  1156.            {
  1157.            User++;
  1158.            goto Data;
  1159.            }
  1160.          else{Tón(2000);¼ekej(100);VypniTón();}
  1161.          }
  1162.        if(gMyτUdálost.Y > 239 ASouƒasn╪ gMyτUdálost.Y < 254)
  1163.          {
  1164.          if(SouborExistuje("*\\fakturyd\\hlav\\"+StrL¼íslo(User-1,-1)+".hlv"))
  1165.            {
  1166.            User--;
  1167.            goto Data;
  1168.            }
  1169.          else{Tón(2000);¼ekej(100);VypniTón();}
  1170.          }
  1171.        }
  1172.  
  1173.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 136 ASouƒasn╪ gMyτUdálost.X < 187 ASouƒasn╪ gMyτUdálost.Y > 233 ASouƒasn╪ gMyτUdálost.Y < 243)
  1174.        {
  1175.        int Old;
  1176.        Old=User;
  1177.        GrNastavPozici(154,233);
  1178.        Gr¼tiI¼íslo("",User,4,1,0xf0);
  1179.        if(SouborExistuje("*\\fakturyd\\hlav\\"+StrL¼íslo(User,-1)+".hlv"))
  1180.          {
  1181.          goto Data;
  1182.          }
  1183.        else{User=Old;Tón(2000);¼ekej(100);VypniTón();}
  1184.        }
  1185.  
  1186.      }
  1187.    if(Stranka==1)
  1188.      {
  1189.  
  1190.      if(gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 16 ASouƒasn╪ gMyτUdálost.X < 632)
  1191.        {
  1192.  
  1193.        if(gMyτUdálost.Y > 38 ASouƒasn╪ gMyτUdálost.Y < 48)
  1194.          {
  1195.          GrNastavPozici(16,38);
  1196.          VyprázdniFrontuKláves();
  1197.          Grⁿádkov∞Editor(Text[0],74,-1,0,-1,0xf0);
  1198.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek1;}
  1199.          }
  1200.  
  1201.        if(gMyτUdálost.Y > 53 ASouƒasn╪ gMyτUdálost.Y < 63)
  1202.          {
  1203.          Radek1:
  1204.          GrNastavPozici(16,53);
  1205.          Grⁿádkov∞Editor(Text[1],74,-1,0,-1,0xf0);
  1206.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek2;}
  1207.          }
  1208.  
  1209.        if(gMyτUdálost.Y > 68 ASouƒasn╪ gMyτUdálost.Y < 78)
  1210.          {
  1211.          Radek2:
  1212.          GrNastavPozici(16,68);
  1213.          Grⁿádkov∞Editor(Text[2],74,-1,0,-1,0xf0);
  1214.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek3;}
  1215.          }
  1216.  
  1217.        if(gMyτUdálost.Y > 83 ASouƒasn╪ gMyτUdálost.Y < 93)
  1218.          {
  1219.          Radek3:
  1220.          GrNastavPozici(16,83);
  1221.          Grⁿádkov∞Editor(Text[3],74,-1,0,-1,0xf0);
  1222.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek4;}
  1223.          }
  1224.  
  1225.        if(gMyτUdálost.Y > 98 ASouƒasn╪ gMyτUdálost.Y < 108)
  1226.          {
  1227.          Radek4:
  1228.          GrNastavPozici(16,98);
  1229.          Grⁿádkov∞Editor(Text[4],74,-1,0,-1,0xf0);
  1230.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek5;}
  1231.          }
  1232.  
  1233.        if(gMyτUdálost.Y > 113 ASouƒasn╪ gMyτUdálost.Y < 123)
  1234.          {
  1235.          Radek5:
  1236.          GrNastavPozici(16,113);
  1237.          Grⁿádkov∞Editor(Text[5],74,-1,0,-1,0xf0);
  1238.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek6;}
  1239.          }
  1240.  
  1241.        if(gMyτUdálost.Y > 128 ASouƒasn╪ gMyτUdálost.Y < 138)
  1242.          {
  1243.          Radek6:
  1244.          GrNastavPozici(16,128);
  1245.          Grⁿádkov∞Editor(Text[6],74,-1,0,-1,0xf0);
  1246.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek7;}
  1247.          }
  1248.  
  1249.        if(gMyτUdálost.Y > 143 ASouƒasn╪ gMyτUdálost.Y < 153)
  1250.          {
  1251.          Radek7:
  1252.          GrNastavPozici(16,143);
  1253.          Grⁿádkov∞Editor(Text[7],74,-1,0,-1,0xf0);
  1254.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek8;}
  1255.          }
  1256.  
  1257.        if(gMyτUdálost.Y > 158 ASouƒasn╪ gMyτUdálost.Y < 168)
  1258.          {
  1259.          Radek8:
  1260.          GrNastavPozici(16,158);
  1261.          Grⁿádkov∞Editor(Text[8],74,-1,0,-1,0xf0);
  1262.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek9;}
  1263.          }
  1264.  
  1265.        if(gMyτUdálost.Y > 173 ASouƒasn╪ gMyτUdálost.Y < 183)
  1266.          {
  1267.          Radek9:
  1268.          GrNastavPozici(16,173);
  1269.          Grⁿádkov∞Editor(Text[9],74,-1,0,-1,0xf0);
  1270.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek10;}
  1271.          }
  1272.  
  1273.        if(gMyτUdálost.Y > 188 ASouƒasn╪ gMyτUdálost.Y < 198)
  1274.          {
  1275.          Radek10:
  1276.          GrNastavPozici(16,188);
  1277.          Grⁿádkov∞Editor(Text[10],74,-1,0,-1,0xf0);
  1278.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek11;}
  1279.          }
  1280.  
  1281.        if(gMyτUdálost.Y > 203 ASouƒasn╪ gMyτUdálost.Y < 213)
  1282.          {
  1283.          Radek11:
  1284.          GrNastavPozici(16,203);
  1285.          Grⁿádkov∞Editor(Text[11],74,-1,0,-1,0xf0);
  1286.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek12;}
  1287.          }
  1288.  
  1289.        if(gMyτUdálost.Y > 218 ASouƒasn╪ gMyτUdálost.Y < 228)
  1290.          {
  1291.          Radek12:
  1292.          GrNastavPozici(16,218);
  1293.          Grⁿádkov∞Editor(Text[12],74,-1,0,-1,0xf0);
  1294.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek13;}
  1295.          }
  1296.  
  1297.        if(gMyτUdálost.Y > 233 ASouƒasn╪ gMyτUdálost.Y < 243)
  1298.          {
  1299.          Radek13:
  1300.          GrNastavPozici(16,233);
  1301.          Grⁿádkov∞Editor(Text[13],74,-1,0,-1,0xf0);
  1302.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek14;}
  1303.          }
  1304.  
  1305.        if(gMyτUdálost.Y > 248 ASouƒasn╪ gMyτUdálost.Y < 258)
  1306.          {
  1307.          Radek14:
  1308.          GrNastavPozici(16,248);
  1309.          Grⁿádkov∞Editor(Text[14],74,-1,0,-1,0xf0);
  1310.          if(gKlávesa==KlEnter){VyprázdniFrontuKláves();goto Radek15;}
  1311.          }
  1312.  
  1313.        if(gMyτUdálost.Y > 295 ASouƒasn╪ gMyτUdálost.Y < 305)
  1314.          {
  1315.          Radek15:
  1316.          GrNastavPozici(16,295);
  1317.          Grⁿádkov∞Editor(Poznamka,74,-1,0,-1,0xf0);
  1318.          }
  1319.  
  1320.        }
  1321.      }
  1322.    VyprázdniFrontuKláves();
  1323. DA //vypiτ DAta
  1324.    Data:
  1325.    MyτSchovejKurzor();
  1326.    GrNastavBarvuPop²edí(0);
  1327.    GrNastavBarvuPozadí(15);
  1328.    if(Stranka==0)
  1329.      {
  1330.      if(TypFaktury==0){GrKresliP²edm╪t(7090,1,37,37);}
  1331.      if(TypFaktury==1){GrKresliP²edm╪t(7090,1,37,49);}
  1332.      GrNastavBarvuPop²edí(0);
  1333.      GrNastavBarvuPozadí(15);
  1334.      GrNastavPozici(154,233);
  1335.      GrPiτL¼íslo(User,4);
  1336.      {
  1337.      TypSoubor Head=SouborOtev²i("*\\fakturyd\\hlav\\"+StrL¼íslo(User,-1)+".hlv",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1338.      int Radek;
  1339.      Radek= 0;
  1340.      do
  1341.       {
  1342.       Soubor¼tiSⁿet╪zec(Head,HlaDat[Radek]);
  1343.       StrNastavVelikost(HlaDat[Radek],strlen(HlaDat[Radek])-1);
  1344.       Radek++;
  1345.       }
  1346.      while (Radek != 7);
  1347.      GrKresliP²edm╪ty(6025,1,28,79,6,1);
  1348.      GrKresliP²edm╪ty(6049,1,28,108,6,3);
  1349.      GrKresliP²edm╪ty(6040,1,28,195,6,1);
  1350.      GrNastavBarvuPop²edí(15);
  1351.      GrKresliObdélník(25,80,261,285);
  1352.      GrNastavBarvuPop²edí(2);
  1353.      GrKresliObdélník(24,79,260,284);
  1354.      GrNastavBarvuPop²edí(0);
  1355.      Radek= 0;
  1356.      do
  1357.       {
  1358.       GrNastavPozici(34,102+Radek*17);
  1359.       GrPiτⁿet╪zec(HlaDat[Radek]);
  1360.       Radek++;
  1361.       }
  1362.      while (Radek != 7);
  1363.      SouborZav²i(Head);
  1364.      Radek= 0;
  1365.      do
  1366.       {
  1367.       GrNastavPozici(357,103+Radek*17);
  1368.       GrPiτⁿet╪zec(AdrDat[Radek]);
  1369.       Radek++;
  1370.       }
  1371.      while (Radek != 7);
  1372.    }
  1373.    GrNastavBarvuPop²edí(0);
  1374.    GrNastavBarvuPozadí(15);
  1375.    GrNastavPozici(283,254);
  1376.    GrPiτⁿet╪zec(Sender);
  1377.    GrNastavPozici(388,367);
  1378.    GrPiτⁿet╪zec(Datum[0]);
  1379.    GrNastavPozici(388,384);
  1380.    GrPiτⁿet╪zec(Datum[1]);
  1381.    GrNastavPozici(388,401);
  1382.    GrPiτⁿet╪zec(Datum[2]);
  1383.    GrNastavPozici(40,315);
  1384.    GrPiτⁿet╪zec(Objednavka);
  1385.    }
  1386.    if(Stranka==1)
  1387.      {
  1388.      GrNastavPozici(16,38);
  1389.      GrPiτⁿet╪zec(Text[0]);
  1390.      GrNastavPozici(16,53);
  1391.      GrPiτⁿet╪zec(Text[1]);
  1392.      GrNastavPozici(16,68);
  1393.      GrPiτⁿet╪zec(Text[2]);
  1394.      GrNastavPozici(16,83);
  1395.      GrPiτⁿet╪zec(Text[3]);
  1396.      GrNastavPozici(16,98);
  1397.      GrPiτⁿet╪zec(Text[4]);
  1398.      GrNastavPozici(16,113);
  1399.      GrPiτⁿet╪zec(Text[5]);
  1400.      GrNastavPozici(16,128);
  1401.      GrPiτⁿet╪zec(Text[6]);
  1402.      GrNastavPozici(16,143);
  1403.      GrPiτⁿet╪zec(Text[7]);
  1404.      GrNastavPozici(16,158);
  1405.      GrPiτⁿet╪zec(Text[8]);
  1406.      GrNastavPozici(16,173);
  1407.      GrPiτⁿet╪zec(Text[9]);
  1408.      GrNastavPozici(16,188);
  1409.      GrPiτⁿet╪zec(Text[10]);
  1410.      GrNastavPozici(16,203);
  1411.      GrPiτⁿet╪zec(Text[11]);
  1412.      GrNastavPozici(16,218);
  1413.      GrPiτⁿet╪zec(Text[12]);
  1414.      GrNastavPozici(16,233);
  1415.      GrPiτⁿet╪zec(Text[13]);
  1416.      GrNastavPozici(16,248);
  1417.      GrPiτⁿet╪zec(Text[14]);
  1418.      GrNastavPozici(16,295);
  1419.      Grⁿádkov∞Editor(Poznamka,74,-1,0,-1,0xf0);
  1420.      }
  1421.    MyτZobrazKurzor();
  1422. UP //Ukli╘ po sob╪ Plochu
  1423.    HodinyVisible=1;
  1424.    MyτSchovejKurzor();
  1425.    GrNastavBarvuPozadí(15);
  1426.    GrSmaºOkno();
  1427.    MyτZobrazKurzor();
  1428.    MainMenu();
  1429.    Storno:
  1430.    Plocha();
  1431. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1432. *SU //Stisknuto Ukonƒovací tlaƒítko
  1433.     Konec==0
  1434. =SP---------------------------------------------------------------------------
  1435. ;-h---------------------------------------------------------------------------
  1436. //Funkce pro p²eƒtení jména faktury, která se bude editovat
  1437. void _FakturyPJ( void )
  1438. -s--_FakturyPJ                                                                  ■  19  -2 -16   3
  1439.     _______FakturyPJ_________
  1440.  P²íprava P²eƒtení_jména  Storno
  1441. DPVO!PJ         *        :Konec:
  1442.        _____Opakování____
  1443. Kontroluj_hodiny   P²eƒti_jméno
  1444.      NC!            ¼MED!ST
  1445.        /MN
  1446.  Obnovení_hodin
  1447.      OH!
  1448. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1449. DP //Deklarace Prom╪nn∞ch
  1450.    Typ¼as ¼as;
  1451.    int Minuta;
  1452. VO //Vykreslení Okna
  1453.    MyτSchovejKurzor();
  1454.    GrKresliP²edm╪ty(6106,1,195,196,9,3);
  1455.    GrKresliP²edm╪ty(1061,1,262,251,3,1);
  1456.    GrKresliP²edm╪ty(1061,1,358,251,3,1);
  1457.    GrNastavBarvuPop²edí(0);
  1458.    GrNastavBarvuPozadí(15);
  1459.    GrNastavPozici(262,238);
  1460.    GrPiτⁿet╪zec(Faktura);
  1461.    MyτZobrazKurzor();
  1462. PJ //po spuτt╪ní rovnou spus£ editaƒní ²ádek pro P²eƒtení Jména
  1463.    goto Name;
  1464. OH //Obnovení Hodin v pravém horním rohu
  1465.    Systémov∞¼as(¼as);
  1466.    GrNastavPozici(586,8);
  1467.    GrNastavBarvuPop²edí(0);
  1468.    GrNastavBarvuPozadí(1);
  1469.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  1470.    Minuta=¼as.Minuty;
  1471. ¼M //¼tení událostí Myτi
  1472.    Myτ¼tiUdálost(gMyτUdálost);
  1473. ED //EDitace
  1474.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 238 ASouƒasn╪ gMyτUdálost.Y < 250 ASouƒasn╪ gMyτUdálost.X > 262 ASouƒasn╪ gMyτUdálost.X < 326)
  1475.      {
  1476.      Name:
  1477.      GrNastavPozici(262,238);
  1478.      GrNastavBarvuPop²edí(0);
  1479.      GrNastavBarvuPozadí(15);
  1480.      MyτVyprázdniFrontuUdálostí();
  1481.      Grⁿádkov∞Editor(Faktura,8,0,0,0,0xf0);
  1482.      VyprázdniFrontuKláves();
  1483.      }
  1484. ST //jestliºe je Stisknuto n╪jaké Tlaƒítko
  1485.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 257 ASouƒasn╪ gMyτUdálost.Y < 275)
  1486.      {
  1487.  
  1488.      if(gMyτUdálost.X > 364 ASouƒasn╪ gMyτUdálost.X < 460)
  1489.        {
  1490.        MyτSchovejKurzor();
  1491.        GrKresliP²edm╪ty(1076,1,358,251,3,1);
  1492.        MyτZobrazKurzor();
  1493.        goto Konec;
  1494.        }
  1495.  
  1496.      if(gMyτUdálost.X > 268 ASouƒasn╪ gMyτUdálost.X < 364)
  1497.        if(strlen(Faktura)!=8)
  1498.          {
  1499.          Tón(200);
  1500.          ¼ekej(50);
  1501.          Tón(700);
  1502.          ¼ekej(50);
  1503.          Tón(2000);
  1504.          ¼ekej(50);
  1505.          VypniTón();
  1506.          goto Name;
  1507.          }
  1508.        else
  1509.          {
  1510.          MyτSchovejKurzor();
  1511.          GrKresliP²edm╪ty(1076,1,262,251,3,1);
  1512.          MyτZobrazKurzor();
  1513.          Faktury();
  1514.          goto Konec;
  1515.          }
  1516.      }
  1517. NC //Naƒtení Hodin
  1518.    Systémov∞¼as(¼as);
  1519. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1520. /MN //Minuta Nesouhlasí - touto operací kontrolující zda uº ub╪hla
  1521.     //minuta zajistíme, ºe text nebude blikat
  1522.     Minuta!=¼as.Minuty
  1523. =SP---------------------------------------------------------------------------
  1524.  
  1525. ;-h---------------------------------------------------------------------------
  1526. //Funkce pro odoznaƒení gr. tlaƒítek
  1527. void _FakturyOT( void )
  1528. -s--_FakturyOT                                                                  ■   4  -2 -27   3
  1529. FakturyOT
  1530.  OT!
  1531. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1532. OT //Odoznaƒ Tlaƒítka
  1533.    MyτSchovejKurzor();
  1534.    GrKresliP²edm╪t(4135,1,3,448);
  1535.    GrKresliP²edm╪t(4135,1,45,448);
  1536.    GrKresliP²edm╪t(4135,1,87,448);
  1537.    GrKresliP²edm╪t(4135,1,129,448);
  1538.    GrKresliP²edm╪t(4135,1,171,448);
  1539.    GrKresliP²edm╪t(4135,1,213,448);
  1540.    GrKresliP²edm╪t(4135,1,255,448);
  1541.    MyτZobrazKurzor();
  1542. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1543. =SP---------------------------------------------------------------------------
  1544.  
  1545. ;-h---------------------------------------------------------------------------
  1546. //Funkce utvo²í v∞pis jiº napsan∞ch faktur
  1547. void Vypis( void )
  1548. -s--Vypis                                                                       ■  18  -2 -11   3
  1549.                   Vypis
  1550.           DPNPVOVFVH!
  1551.                     *SK
  1552.         ________Opakování______
  1553. Zkontroluj_hodiny ______Ovládej_funkci
  1554.       ZH!         /MN              /
  1555.             Obnovení_hodin Ovládání_tlaƒítek
  1556.                 VH!            ¼MST!VO
  1557. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1558. DP //Deklarace Prom╪nn∞ch
  1559.    Typ¼as ¼as;
  1560.    TypPoloºkaAdresá²e Poloz;
  1561.    int Konec,Minuta,Odkud,Zmena,Poƒet,p,i,j;
  1562.    string Obsah[512];
  1563.    //"vynulování" prom╪nn∞ch
  1564.    Konec=0;
  1565.    Odkud=0;
  1566.    Poƒet=0;
  1567.    Zmena=1;
  1568. NP //Naƒtení Poloºek adresá²e
  1569.    PoloºkaAdresá²eNajdiPrvní("*\\FakturyD\\fakt\\*.*",0,Poloz);
  1570.    while(DOSChyba()==0)
  1571.     {
  1572.     if(Poƒet<512 )
  1573.       {
  1574.       Obsah[Poƒet++]= Poloz.Jméno;
  1575.       }
  1576.     PoloºkaAdresá²eNajdiDalτí(Poloz);
  1577.     }
  1578.    for(i= 0; i<Poƒet-1; ++i )
  1579.     {
  1580.     for(j= i+1; j<Poƒet; ++j )
  1581.      {
  1582.      if(Obsah[j] < Obsah[i] )
  1583.        {
  1584.        string text= Obsah[j];
  1585.        Obsah[j]= Obsah[i];
  1586.        Obsah[i]= text;
  1587.        }
  1588.      }
  1589.     }
  1590. VO //Vykreslení Okna a vypln╪ní poloºek
  1591.    if(Zmena==1)
  1592.      {
  1593.      MyτSchovejKurzor();
  1594.      GrKresliP²edm╪ty(5001,1,175,110,10,9);
  1595.      GrKresliP²edm╪t(3136,1,535,212);
  1596.      GrKresliP²edm╪t(2138,1,535,232);
  1597.      GrKresliP²edm╪t(2138,1,535,261);
  1598.      GrKresliP²edm╪t(3136,1,535,290);
  1599.      GrNastavBarvuPop²edí(0);
  1600.      GrNastavBarvuPozadí(1);
  1601.    //vypíτeme seznam do okna
  1602.      p=0;
  1603.      for( i= Odkud; i<Poƒet; ++i )
  1604.       {
  1605.       GrNastavBarvuPop²edí(0);
  1606.       if(p<21){GrNastavPozici(181,132+11*p);GrPiτⁿet╪zec(Obsah[i]);}
  1607.       if(p>=21 ASouƒasn╪ p<42){GrNastavPozici(291,132+(11*(p-21)));GrPiτⁿet╪zec(Obsah[i]);}
  1608.       if(p>=42 ASouƒasn╪ p<63){GrNastavPozici(401,132+(11*(p-42)));GrPiτⁿet╪zec(Obsah[i]);}
  1609.       p++;
  1610.       }
  1611.      MyτZobrazKurzor();
  1612.      Zmena=0;
  1613.      }
  1614. VH //V∞pis Hodin do pravého horního rohu
  1615.    Systémov∞¼as(¼as);
  1616.    GrNastavPozici(586,8);
  1617.    GrNastavBarvuPop²edí(0);
  1618.    GrNastavBarvuPozadí(1);
  1619.    if(HodinyVisible==1)
  1620.      {
  1621.      GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  1622.      }
  1623.    Minuta=¼as.Minuty;
  1624. VF //Vymazání Fronty událostí myτi
  1625.    MyτVyprázdniFrontuUdálostí();
  1626. ZH //Zkontrolování Hodin
  1627.    Systémov∞¼as(¼as);
  1628. ¼M //¼tení událostí Myτi
  1629.    Myτ¼tiUdálost(gMyτUdálost);
  1630. ST //jestliºe je Stisknuto n╪jaké Tlaƒítko, obsluº jeho funkci
  1631.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 535 ASouƒasn╪ gMyτUdálost.X < 557)
  1632.      {
  1633.  
  1634.    //byl-li stisknut "konec"
  1635.      if(gMyτUdálost.Y > 348 ASouƒasn╪ gMyτUdálost.Y < 365)
  1636.        {
  1637.        MyτSchovejKurzor();
  1638.        GrKresliP²edm╪t(2137,1,535,348);
  1639.        MyτZobrazKurzor();
  1640.        Konec=1;
  1641.        }
  1642.  
  1643.    //dalτí 4 podmínky obsluhují posuv seznamu
  1644.      if(gMyτUdálost.Y > 212 ASouƒasn╪ gMyτUdálost.Y < 229 ASouƒasn╪ Odkud!=0)
  1645.        {
  1646.        MyτSchovejKurzor();
  1647.        GrKresliP²edm╪t(2137,1,535,212);
  1648.        MyτZobrazKurzor();
  1649.        Odkud--;
  1650.        Zmena=1;
  1651.        }
  1652.  
  1653.      if(gMyτUdálost.Y > 232 ASouƒasn╪ gMyτUdálost.Y < 257 ASouƒasn╪ Odkud>63)
  1654.        {
  1655.        MyτSchovejKurzor();
  1656.        GrKresliP²edm╪t(2136,1,535,232);
  1657.        MyτZobrazKurzor();
  1658.        Odkud=Odkud-63;
  1659.        Zmena=1;
  1660.        }
  1661.  
  1662.      if(gMyτUdálost.Y > 261 ASouƒasn╪ gMyτUdálost.Y < 286 ASouƒasn╪ Odkud+63<512)
  1663.        {
  1664.        MyτSchovejKurzor();
  1665.        GrKresliP²edm╪t(2136,1,535,261);
  1666.        MyτZobrazKurzor();
  1667.        Odkud=Odkud+63;
  1668.        Zmena=1;
  1669.        }
  1670.  
  1671.      if(gMyτUdálost.Y > 290 ASouƒasn╪ gMyτUdálost.Y < 307 ASouƒasn╪ Odkud+1<512)
  1672.        {
  1673.        MyτSchovejKurzor();
  1674.        GrKresliP²edm╪t(2137,1,535,290);
  1675.        MyτZobrazKurzor();
  1676.        Odkud++;
  1677.        Zmena=1;
  1678.        }
  1679.      }
  1680. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1681. *SK //bylo Stisknuto Konec?
  1682.     Konec==0
  1683. /MN //Minuta Nesouhlasí - touto operací kontrolující zda uº ub╪hla minuta
  1684.     //zajistíme,ºe text nebude blikat
  1685.     Minuta!=¼as.Minuty
  1686. =SP---------------------------------------------------------------------------
  1687.  
  1688. ;-h---------------------------------------------------------------------------
  1689. //Smazání uloºen∞ch faktur
  1690. void Smazat( void )
  1691. -s--Smazat                                                                      ■  16  -2 -11   3
  1692.                   Smazat
  1693.             DPVOVFOH!
  1694.                     *SK
  1695.        _________Opakování_________
  1696. Kontroluj_hodiny      ____Obsluhuj_funkci
  1697.      NC!        Obnovení_hodin Obsluha_tlaƒítek
  1698.                     OH!           ¼MST!
  1699. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1700. DP //Deklarace Prom╪nn∞ch
  1701.    Typ¼as ¼as;
  1702.    int Konec,Minuta;
  1703.    Konec=0;
  1704. VO //Vykreslení Okna
  1705.    MyτSchovejKurzor();
  1706.    GrKresliP²edm╪ty(3069,1,233,182,7,4);
  1707.    GrKresliP²edm╪ty(1061,1,265,265,3,1);
  1708.    GrKresliP²edm╪ty(1061,1,365,265,3,1);
  1709.    GrNastavPozici(284,241);
  1710.    GrNastavBarvuPop²edí(0);
  1711.    GrNastavBarvuPozadí(15);
  1712.    GrPiτⁿet╪zec(Faktura);
  1713.    MyτZobrazKurzor();
  1714. VF //Vymazání Fronty událostí myτi
  1715.    MyτVyprázdniFrontuUdálostí();
  1716. OH //Obnovení Hodin v pravém horním rohu
  1717.    if(Minuta!=¼as.Minuty)
  1718.      {
  1719.      Systémov∞¼as(¼as);
  1720.      GrNastavPozici(586,8);
  1721.      GrNastavBarvuPop²edí(0);
  1722.      GrNastavBarvuPozadí(1);
  1723.      if(HodinyVisible==1)
  1724.        {
  1725.        GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  1726.        }
  1727.      Minuta=¼as.Minuty;
  1728.      }
  1729. ¼M //¼tení událostí Myτi
  1730.    Myτ¼tiUdálost(gMyτUdálost);
  1731. ST //jestliºe je Stisknuto n╪jaké Tlaƒítko
  1732.    if(Konec!=3)
  1733.      {
  1734.    //Editace
  1735.  
  1736.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 241 ASouƒasn╪ gMyτUdálost.Y < 252 ASouƒasn╪ gMyτUdálost.X > 284 ASouƒasn╪ gMyτUdálost.X < 444)
  1737.        {
  1738.        MyτSchovejKurzor();
  1739.        GrNastavPozici(284,241);
  1740.        GrNastavBarvuPop²edí(0);
  1741.        GrNastavBarvuPozadí(15);
  1742.        MyτVyprázdniFrontuUdálostí();
  1743.        MyτZobrazKurzor();
  1744.        Grⁿádkov∞Editor(Faktura,8,-1,0,-1,0xf0);
  1745.        }
  1746.  
  1747.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 271 ASouƒasn╪ gMyτUdálost.Y < 289)
  1748.        {
  1749.  
  1750.        if(gMyτUdálost.X > 270 ASouƒasn╪ gMyτUdálost.X < 366)
  1751.          {
  1752.          MyτSchovejKurzor();
  1753.          GrKresliP²edm╪ty(3129,1,233,240,7,2);
  1754.          GrKresliP²edm╪ty(1061,1,265,265,3,1);
  1755.          GrKresliP²edm╪ty(1061,1,365,265,3,1);
  1756.          GrNastavBarvuPop²edí(0);
  1757.          GrNastavText(GrTextBezPozadí);
  1758.          GrNastavPozici(50+((540-strlen(Faktura+".fkt"))/2),253);
  1759.          GrPiτⁿet╪zec(Faktura+".fkt");
  1760.          MyτZobrazKurzor();
  1761.          MyτVyprázdniFrontuUdálostí();
  1762.          Konec=3;
  1763.          }
  1764.  
  1765.        if(gMyτUdálost.X > 370 ASouƒasn╪ gMyτUdálost.X < 466)
  1766.          {
  1767.          MyτSchovejKurzor();
  1768.          GrKresliP²edm╪ty(1076,1,365,265,3,1);
  1769.          MyτZobrazKurzor();
  1770.          Konec=2;
  1771.          }
  1772.  
  1773.        }
  1774.      }
  1775.    //Ov╪²íme, zda se uºivatel nespletl
  1776.    if(Konec==3)
  1777.      {
  1778.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 271 ASouƒasn╪ gMyτUdálost.Y < 289)
  1779.        {
  1780.  
  1781.        if(gMyτUdálost.X > 270 ASouƒasn╪ gMyτUdálost.X < 366)
  1782.          {
  1783.          MyτSchovejKurzor();
  1784.          GrKresliP²edm╪ty(1076,1,265,265,3,1);
  1785.          MyτZobrazKurzor();
  1786.          SouborSmaº("*\\FakturyD\\Fakt\\"+Faktura+".fkt");
  1787.          Konec=2;
  1788.          }
  1789.  
  1790.        if(gMyτUdálost.X > 370 ASouƒasn╪ gMyτUdálost.X < 466)
  1791.          {
  1792.          MyτSchovejKurzor();
  1793.          GrKresliP²edm╪ty(1076,1,365,265,3,1);
  1794.          MyτZobrazKurzor();
  1795.          Konec=2;
  1796.          }
  1797.  
  1798.        }
  1799.      }
  1800.    VyprázdniFrontuKláves();
  1801. NC //Naƒtení Hodin
  1802.    Systémov∞¼as(¼as);
  1803. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1804. *SK //bylo Stisknuto "konec"
  1805.     Konec!=2
  1806. =SP---------------------------------------------------------------------------
  1807.  
  1808. ;-h---------------------------------------------------------------------------
  1809. //Funkce pro editaci poloºek z adresá²e
  1810. void Adresar( void )
  1811. -s--Adresar                                                                     ■   8  -2 -19   3
  1812.      Adresar
  1813. DPVOVFOH!
  1814.         *SK
  1815.     ¼mEdTlNcOH
  1816.     ¼MED!STNCOH
  1817. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1818. DP //Deklarace Prom╪nn∞ch
  1819.    Typ¼as ¼as;
  1820.    TypSoubor Adre;
  1821.    int Konec,Minuta;
  1822.    Konec=0;
  1823.    string Data[7];
  1824.    string Adresar;
  1825. VO //Vykreslení Okna
  1826.    MyτSchovejKurzor();
  1827.    GrKresliP²edm╪ty(7001,1,127,147,13,7);
  1828.    GrKresliP²edm╪ty(1061,1,494,172,3,1);
  1829.    GrKresliP²edm╪ty(1061,1,494,190,3,1);
  1830.    GrKresliP²edm╪ty(1061,1,494,208,3,1);
  1831.    GrKresliP²edm╪ty(1061,1,494,226,3,1);
  1832.    GrKresliP²edm╪ty(1061,1,494,244,3,1);
  1833.    MyτZobrazKurzor();
  1834. VF //Vymazání Fronty událostí myτi
  1835.    MyτVyprázdniFrontuUdálostí();
  1836. OH //Obnovení Hodin v pravém horním rohu
  1837.    if(Minuta!=¼as.Minuty)
  1838.      {
  1839.      Systémov∞¼as(¼as);
  1840.      GrNastavPozici(586,8);
  1841.      GrNastavText(GrTextSPozadím);
  1842.      GrNastavBarvuPop²edí(0);
  1843.      GrNastavBarvuPozadí(1);
  1844.      if(HodinyVisible==1)
  1845.        {
  1846.        GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  1847.        }
  1848.      Minuta=¼as.Minuty;
  1849.      }
  1850. ¼M //¼tení událostí Myτi
  1851.    Myτ¼tiUdálost(gMyτUdálost);
  1852. ST //jestliºe je Stisknuto n╪jaké Tlaƒítko
  1853.    //hlavní tlaƒítka
  1854.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 499 ASouƒasn╪ gMyτUdálost.X < 595)
  1855.      {
  1856.  
  1857.      if(gMyτUdálost.Y > 178 ASouƒasn╪ gMyτUdálost.Y < 196)
  1858.        {
  1859.        MyτSchovejKurzor();
  1860.        GrKresliP²edm╪ty(1076,1,494,172,3,1);
  1861.        MyτZobrazKurzor();
  1862.        GrNastavBarvuPop²edí(0);
  1863.        GrNastavBarvuPozadí(15);
  1864.        GrNastavPozici(289,307);
  1865.        MyτVyprázdniFrontuUdálostí();
  1866.        Grⁿádkov∞Editor(Adresar,26,-1,0,-1,0xf0);
  1867.        {
  1868.        int Radek;
  1869.        Radek= 0;
  1870.        do
  1871.         {
  1872.         Data[Radek]="";
  1873.         Radek++;
  1874.         }
  1875.        while (Radek != 7);
  1876.        }
  1877.        MyτSchovejKurzor();
  1878.        GrKresliP²edm╪ty(7004,1,244,147,6,5);
  1879.        GrKresliP²edm╪ty(1061,1,494,172,3,1);
  1880.        MyτZobrazKurzor();
  1881.        }
  1882.  
  1883.      if(gMyτUdálost.Y > 196 ASouƒasn╪ gMyτUdálost.Y < 214)
  1884.        {
  1885.        MyτSchovejKurzor();
  1886.        GrKresliP²edm╪ty(1076,1,494,190,3,1);
  1887.        MyτZobrazKurzor();
  1888.        Adre = SouborOtev²i("*\\FakturyD\\Adre\\"+Adresar+".adr",SouborP²ístupZápis|SouborP²ístupTextov∞);
  1889.        SouborU²ízni(Adre);
  1890.        {
  1891.        int Radek;
  1892.        Radek= 0;
  1893.        do
  1894.         {
  1895.         SouborPiτⁿet╪zec(Adre,Data[Radek]);
  1896.         SouborPiτNov∞ⁿádek(Adre);
  1897.         Radek++;
  1898.         }
  1899.        while (Radek != 7);
  1900.        }
  1901.        SouborZav²i(Adre);
  1902.        MyτSchovejKurzor();
  1903.        GrKresliP²edm╪ty(1061,1,494,190,3,1);
  1904.        MyτZobrazKurzor();
  1905.        }
  1906.  
  1907.      if(gMyτUdálost.Y > 214 ASouƒasn╪ gMyτUdálost.Y < 232)
  1908.        {
  1909.        MyτSchovejKurzor();
  1910.        GrKresliP²edm╪ty(1076,1,494,208,3,1);
  1911.        MyτZobrazKurzor();
  1912.        GrNastavBarvuPop²edí(0);
  1913.        GrNastavBarvuPozadí(15);
  1914.        GrNastavPozici(289,307);
  1915.        MyτVyprázdniFrontuUdálostí();
  1916.        Grⁿádkov∞Editor(Adresar,26,-1,0,-1,0xf0);
  1917.        if(SouborExistuje("*\\FakturyD\\Adre\\"+Adresar+".adr"))
  1918.          {
  1919.          Adre = SouborOtev²i("*\\FakturyD\\Adre\\"+Adresar+".adr",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  1920.          {
  1921.          int Radek;
  1922.          Radek= 0;
  1923.          do
  1924.           {
  1925.           Soubor¼tiSⁿet╪zec(Adre,Data[Radek]);
  1926.           StrNastavVelikost(Data[Radek],strlen(Data[Radek])-1);
  1927.           Radek++;
  1928.           }
  1929.          while (Radek != 7);
  1930.          }
  1931.          SouborZav²i(Adre);
  1932.          MyτSchovejKurzor();
  1933.          GrKresliP²edm╪ty(7004,1,244,147,6,5);
  1934.          MyτZobrazKurzor();
  1935.          GrNastavPozici(256,168);
  1936.          GrPiτⁿet╪zec(Data[0]);
  1937.          GrNastavPozici(256,185);
  1938.          GrPiτⁿet╪zec(Data[1]);
  1939.          GrNastavPozici(256,202);
  1940.          GrPiτⁿet╪zec(Data[2]);
  1941.          GrNastavPozici(256,219);
  1942.          GrPiτⁿet╪zec(Data[3]);
  1943.          GrNastavPozici(256,236);
  1944.          GrPiτⁿet╪zec(Data[4]);
  1945.          GrNastavPozici(256,253);
  1946.          GrPiτⁿet╪zec(Data[5]);
  1947.          GrNastavPozici(256,270);
  1948.          GrPiτⁿet╪zec(Data[6]);
  1949.          }
  1950.          MyτSchovejKurzor();
  1951.          GrKresliP²edm╪ty(1061,1,494,208,3,1);
  1952.          MyτZobrazKurzor();
  1953.          }
  1954.  
  1955.      if(gMyτUdálost.Y > 232 ASouƒasn╪ gMyτUdálost.Y < 250)
  1956.        {
  1957.        MyτSchovejKurzor();
  1958.        GrKresliP²edm╪ty(1076,1,494,226,3,1);
  1959.        MyτZobrazKurzor();
  1960.        GrNastavBarvuPop²edí(0);
  1961.        GrNastavBarvuPozadí(15);
  1962.        GrNastavPozici(289,307);
  1963.        MyτVyprázdniFrontuUdálostí();
  1964.        Grⁿádkov∞Editor(Adresar,26,-1,0,-1,0xf0);
  1965.        SouborSmaº("*\\FakturyD\\adre\\"+Adresar+".adr");
  1966.        {
  1967.        int Radek;
  1968.        Radek= 0;
  1969.        do
  1970.         {
  1971.         Data[Radek]="";
  1972.         Radek++;
  1973.         }
  1974.        while (Radek != 7);
  1975.        }
  1976.        MyτSchovejKurzor();
  1977.        GrKresliP²edm╪ty(7004,1,244,147,6,5);
  1978.        GrKresliP²edm╪ty(1061,1,494,226,3,1);
  1979.        MyτZobrazKurzor();
  1980.        }
  1981.  
  1982.      if(gMyτUdálost.Y > 250 ASouƒasn╪ gMyτUdálost.Y < 268)
  1983.        {
  1984.        MyτSchovejKurzor();
  1985.        GrKresliP²edm╪ty(1076,1,494,244,3,1);
  1986.        MyτZobrazKurzor();
  1987.        Konec=1;
  1988.        }
  1989.      }
  1990. ED //EDitace
  1991.    //data z adresá²e
  1992.    GrNastavBarvuPop²edí(0);
  1993.    GrNastavBarvuPozadí(15);
  1994.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 256 ASouƒasn╪ gMyτUdálost.X < 467)
  1995.      {
  1996.  
  1997.      if(gMyτUdálost.Y > 168 ASouƒasn╪ gMyτUdálost.Y < 180)
  1998.        {
  1999.        GrNastavPozici(256,168);
  2000.        Grⁿádkov∞Editor(Data[0],26,-1,0,-1,0xf0);
  2001.        }
  2002.  
  2003.      if(gMyτUdálost.Y > 185 ASouƒasn╪ gMyτUdálost.Y < 197)
  2004.        {
  2005.        GrNastavPozici(256,185);
  2006.        Grⁿádkov∞Editor(Data[1],26,-1,0,-1,0xf0);
  2007.        }
  2008.  
  2009.      if(gMyτUdálost.Y > 202 ASouƒasn╪ gMyτUdálost.Y < 214)
  2010.        {
  2011.        GrNastavPozici(256,202);
  2012.        Grⁿádkov∞Editor(Data[2],26,-1,0,-1,0xf0);
  2013.        }
  2014.  
  2015.      if(gMyτUdálost.Y > 219 ASouƒasn╪ gMyτUdálost.Y < 231)
  2016.        {
  2017.        GrNastavPozici(256,219);
  2018.        Grⁿádkov∞Editor(Data[3],26,-1,0,-1,0xf0);
  2019.        }
  2020.  
  2021.      if(gMyτUdálost.Y > 236 ASouƒasn╪ gMyτUdálost.Y < 248)
  2022.        {
  2023.        GrNastavPozici(256,236);
  2024.        Grⁿádkov∞Editor(Data[4],26,-1,0,-1,0xf0);
  2025.        }
  2026.  
  2027.      if(gMyτUdálost.Y > 253 ASouƒasn╪ gMyτUdálost.Y < 265)
  2028.        {
  2029.        GrNastavPozici(256,253);
  2030.        Grⁿádkov∞Editor(Data[5],26,-1,0,-1,0xf0);
  2031.        }
  2032.  
  2033.      if(gMyτUdálost.Y > 270 ASouƒasn╪ gMyτUdálost.Y < 282)
  2034.        {
  2035.        GrNastavPozici(256,270);
  2036.        Grⁿádkov∞Editor(Data[6],26,-1,0,-1,0xf0);
  2037.        }
  2038.  
  2039.      }
  2040.    VyprázdniFrontuKláves();
  2041. NC //Naƒtení Hodin
  2042.    Systémov∞¼as(¼as);
  2043. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  2044. *SK //bylo Stisknuto "konec"
  2045.     Konec==0
  2046. =SP---------------------------------------------------------------------------
  2047.  
  2048. ;-h---------------------------------------------------------------------------
  2049. //Funkce pro editaci uºivatelovy hlaviƒky
  2050. void Hlavicka( void )
  2051. -s--Hlavicka                                                                    ■   8  -2 -17   3
  2052.      Hlavicka
  2053. DPVOVFOH!
  2054.         *SK
  2055.     CmOtOeNcOhOu
  2056.    ¼MEDST!NCOHOU
  2057. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  2058. DP //Deklarace Prom╪nn∞ch
  2059.    Typ¼as ¼as;
  2060.    int Konec,Minuta,Uzivatel,Temp,Zmena;
  2061.    Konec=0;
  2062.    Zmena=1;
  2063.    Temp=NULL;
  2064.    Uzivatel=Uziv;
  2065.    string Data[7];
  2066. VO //Vykreslení Okna
  2067.    MyτSchovejKurzor();
  2068.    GrKresliP²edm╪ty(6001,1,195,138,9,7);
  2069.    GrKresliP²edm╪ty(1061,1,402,146,3,1);
  2070.    GrKresliP²edm╪ty(1061,1,402,164,3,1);
  2071.    GrKresliP²edm╪ty(1061,1,402,182,3,1);
  2072.    GrKresliP²edm╪t(1133,1,340,169);
  2073.    GrKresliP²edm╪t(1131,1,340,184);
  2074.    MyτZobrazKurzor();
  2075. VF //Vymazání Fronty událostí myτi
  2076.    MyτVyprázdniFrontuUdálostí();
  2077. OH //Obnovení Hodin v pravém horním rohu
  2078.    if(Minuta!=¼as.Minuty)
  2079.      {
  2080.      Systémov∞¼as(¼as);
  2081.      GrNastavPozici(586,8);
  2082.      GrNastavText(GrTextSPozadím);
  2083.      GrNastavBarvuPop²edí(0);
  2084.      GrNastavBarvuPozadí(1);
  2085.      if(HodinyVisible==1)
  2086.        {
  2087.        GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  2088.        }
  2089.      Minuta=¼as.Minuty;
  2090.      }
  2091. ¼M //¼tení událostí Myτi
  2092.    Myτ¼tiUdálost(gMyτUdálost);
  2093. ST //jestliºe je Stisknuto n╪jaké Tlaƒítko
  2094.    //hlavní tlaƒítka
  2095.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 407 ASouƒasn╪ gMyτUdálost.X < 503)
  2096.      {
  2097.      if(gMyτUdálost.Y > 152 ASouƒasn╪ gMyτUdálost.Y < 170)
  2098.        {
  2099.        MyτSchovejKurzor();
  2100.        GrKresliP²edm╪ty(1076,1,402,146,3,1);
  2101.        MyτZobrazKurzor();
  2102.        TypSoubor Head = SouborOtev²i("*\\FakturyD\\Hlav\\"+StrL¼íslo(Uzivatel,-1)+".hlv",SouborP²ístupZápis|SouborP²ístupTextov∞);
  2103.        if(Head!=0)
  2104.          {
  2105.          SouborU²ízni(Head);
  2106.          {
  2107.          int Radek;
  2108.          Radek= 0;
  2109.          do 
  2110.           {
  2111.           SouborPiτⁿet╪zec(Head,Data[Radek]);
  2112.           SouborPiτNov∞ⁿádek(Head);
  2113.           Radek++;
  2114.           }
  2115.           while (Radek != 7);
  2116.          }
  2117.          SouborZav²i(Head);
  2118.          MyτSchovejKurzor();
  2119.          GrKresliP²edm╪ty(1061,1,402,146,3,1);
  2120.          MyτZobrazKurzor();
  2121.          }
  2122.        }
  2123.      if(gMyτUdálost.Y > 170 ASouƒasn╪ gMyτUdálost.Y < 188)
  2124.        {
  2125.        GrNastavText(GrTextBezPozadí);
  2126.        GrNastavBarvuPop²edí(0);
  2127.        GrNastavPozici(12+(39-((8*strlen(StrL¼íslo(Uzivatel,-1)))/2)),58);
  2128.        MyτSchovejKurzor();
  2129.        GrKresliP²edm╪ty(1061,1,402,164,3,1);
  2130.        GrKresliP²edm╪ty(31,1,0,58,3,1);
  2131.        GrPiτL¼íslo(Uzivatel,-1);
  2132.        GrKresliP²edm╪t(1133,1,340,169);
  2133.        GrKresliP²edm╪t(1131,1,340,184);
  2134.        MyτZobrazKurzor();
  2135.        Uziv=Uzivatel;
  2136.        }
  2137.      if(gMyτUdálost.Y > 188 ASouƒasn╪ gMyτUdálost.Y < 206)
  2138.        {
  2139.        MyτSchovejKurzor();
  2140.        GrKresliP²edm╪ty(1076,1,402,182,3,1);
  2141.        MyτZobrazKurzor();
  2142.        Konec=1;
  2143.        }
  2144.      }
  2145.    //tlaƒítka pro selekci uºivatele
  2146.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 340 ASouƒasn╪ gMyτUdálost.X < 355)
  2147.      {
  2148.      if(gMyτUdálost.Y > 169 ASouƒasn╪ gMyτUdálost.Y < 184)
  2149.        {
  2150.        MyτSchovejKurzor();
  2151.        GrKresliP²edm╪t(1134,1,340,169);
  2152.        MyτZobrazKurzor();
  2153.        Uzivatel++;
  2154.        }
  2155.      if(gMyτUdálost.Y > 184 ASouƒasn╪ gMyτUdálost.Y < 199)
  2156.        {
  2157.        MyτSchovejKurzor();
  2158.        GrKresliP²edm╪t(1132,1,340,184);
  2159.        MyτZobrazKurzor();
  2160.        Uzivatel--;
  2161.        }
  2162.      }
  2163. ED //EDitace
  2164.    //ƒíslo uºivatele
  2165.  
  2166.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 178 ASouƒasn╪ gMyτUdálost.Y < 188 ASouƒasn╪ gMyτUdálost.X > 302 ASouƒasn╪ gMyτUdálost.X < 334)
  2167.      {
  2168.      MyτSchovejKurzor();
  2169.      GrNastavPozici(302,178);
  2170.      GrNastavBarvuPop²edí(0);
  2171.      GrNastavBarvuPozadí(15);
  2172.      MyτVyprázdniFrontuUdálostí();
  2173.      MyτZobrazKurzor();
  2174.      Gr¼tiI¼íslo("",Uzivatel,4,1,0xf0);
  2175.      }
  2176.  
  2177.    //uºivatelova data
  2178.    GrNastavBarvuPop²edí(0);
  2179.    GrNastavBarvuPozadí(15);
  2180.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 318 ASouƒasn╪ gMyτUdálost.X < 518)
  2181.      {
  2182.  
  2183.      if(gMyτUdálost.Y > 219 ASouƒasn╪ gMyτUdálost.Y < 231)
  2184.        {
  2185.        GrNastavPozici(318,219);
  2186.        Grⁿádkov∞Editor(Data[0],26,-1,0,-1,0xf0);
  2187.        }
  2188.  
  2189.      if(gMyτUdálost.Y > 236 ASouƒasn╪ gMyτUdálost.Y < 248)
  2190.        {
  2191.        GrNastavPozici(318,236);
  2192.        Grⁿádkov∞Editor(Data[1],26,-1,0,-1,0xf0);
  2193.        }
  2194.  
  2195.      if(gMyτUdálost.Y > 253 ASouƒasn╪ gMyτUdálost.Y < 265)
  2196.        {
  2197.        GrNastavPozici(318,253);
  2198.        Grⁿádkov∞Editor(Data[2],26,-1,0,-1,0xf0);
  2199.        }
  2200.  
  2201.      if(gMyτUdálost.Y > 270 ASouƒasn╪ gMyτUdálost.Y < 282)
  2202.        {
  2203.        GrNastavPozici(318,270);
  2204.        Grⁿádkov∞Editor(Data[3],26,-1,0,-1,0xf0);
  2205.        }
  2206.  
  2207.      if(gMyτUdálost.Y > 287 ASouƒasn╪ gMyτUdálost.Y < 299)
  2208.        {
  2209.        GrNastavPozici(318,287);
  2210.        Grⁿádkov∞Editor(Data[4],26,-1,0,-1,0xf0);
  2211.        }
  2212.  
  2213.      if(gMyτUdálost.Y > 304 ASouƒasn╪ gMyτUdálost.Y < 316)
  2214.        {
  2215.        GrNastavPozici(318,304);
  2216.        Grⁿádkov∞Editor(Data[5],26,-1,0,-1,0xf0);
  2217.        }
  2218.  
  2219.      if(gMyτUdálost.Y > 321 ASouƒasn╪ gMyτUdálost.Y < 333)
  2220.        {
  2221.        GrNastavPozici(318,321);
  2222.        Grⁿádkov∞Editor(Data[6],26,-1,0,-1,0xf0);
  2223.        }
  2224.  
  2225.      }
  2226.    VyprázdniFrontuKláves();
  2227. NC //Naƒtení Hodin
  2228.    Systémov∞¼as(¼as);
  2229. OU //Obnovení ƒísla Uºivatele
  2230.    if(Uzivatel!=Temp Nebo Zmena==1)
  2231.      {
  2232.      GrNastavText(GrTextSPozadím);
  2233.      GrNastavBarvuPop²edí(0);
  2234.      GrNastavBarvuPozadí(15);
  2235.      GrNastavPozici(302,178);
  2236.      MyτSchovejKurzor();
  2237.      GrPiτL¼íslo(Uzivatel,4);
  2238.      GrKresliP²edm╪t(1133,1,340,169);
  2239.      GrKresliP²edm╪t(1131,1,340,184);
  2240.      MyτZobrazKurzor();
  2241.      if(SouborExistuje("*\\FakturyD\\Hlav\\"+StrL¼íslo(Uzivatel,-1)+".hlv")!=0)
  2242.        {
  2243.        TypSoubor Head = SouborOtev²i("*\\FakturyD\\Hlav\\"+StrL¼íslo(Uzivatel,-1)+".hlv",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  2244.        {
  2245.        int Radek;
  2246.        Radek= 0;
  2247.        do
  2248.         {
  2249.         Soubor¼tiSⁿet╪zec(Head,Data[Radek]);
  2250.         StrNastavVelikost(Data[Radek],strlen(Data[Radek])-1);
  2251.         Radek++;
  2252.         }
  2253.        while (Radek != 7);
  2254.        }
  2255.        MyτSchovejKurzor();
  2256.        GrKresliP²edm╪ty(6010,1,312,196,6,1);
  2257.        GrKresliP²edm╪ty(6049,1,312,225,6,4);
  2258.        MyτZobrazKurzor();
  2259.        SouborZav²i(Head);
  2260.        GrNastavPozici(318,219);
  2261.        GrPiτⁿet╪zec(Data[0]);
  2262.        GrNastavPozici(318,236);
  2263.        GrPiτⁿet╪zec(Data[1]);
  2264.        GrNastavPozici(318,253);
  2265.        GrPiτⁿet╪zec(Data[2]);
  2266.        GrNastavPozici(318,270);
  2267.        GrPiτⁿet╪zec(Data[3]);
  2268.        GrNastavPozici(318,287);
  2269.        GrPiτⁿet╪zec(Data[4]);
  2270.        GrNastavPozici(318,304);
  2271.        GrPiτⁿet╪zec(Data[5]);
  2272.        GrNastavPozici(318,321);
  2273.        GrPiτⁿet╪zec(Data[6]);
  2274.        }
  2275.      else
  2276.       {
  2277.       MyτSchovejKurzor();
  2278.       GrKresliP²edm╪ty(6010,1,312,196,6,1);
  2279.       GrKresliP²edm╪ty(6049,1,312,225,6,4);
  2280.       MyτZobrazKurzor();
  2281.       {
  2282.       int Radek;
  2283.       Radek= 0;
  2284.       do
  2285.        {
  2286.        Data[Radek]="";
  2287.        Radek++;
  2288.        }
  2289.       while (Radek != 7);
  2290.       }
  2291.       }
  2292.      Temp=Uzivatel;
  2293.      Zmena=0;
  2294.      }
  2295. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  2296. *SK //bylo Stisknuto "konec"
  2297.     Konec==0
  2298. /MN //Minuta Nesouhlasí
  2299.     //touto operací kontrolující zda uº ub╪hla minuta zajistíme,
  2300.     //ºe text nebude blikat
  2301. =SP---------------------------------------------------------------------------
  2302.  
  2303. ;-h---------------------------------------------------------------------------
  2304. //Funkce pro nastavení jazyka
  2305. void Jazyk( void )
  2306. -s--Jazyk                                                                       ■   4  -2 -15   3
  2307.               Jazyk
  2308.         DPVOVFOH!NR
  2309.                 *SK
  2310.        _____Opakování_________
  2311. Kontroluj_hodiny  ____Obsluhuj_funkci
  2312.      NC!          /MN             /
  2313.             Obnovení_hodin Obsluha_tlaƒítek
  2314.                 OH!           ¼MST!
  2315. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  2316. DP //Deklarace Prom╪nn∞ch
  2317.    Typ¼as ¼as;
  2318.    int Konec,Minuta;
  2319.    Konec=0;
  2320.    string Original=Banka;
  2321. VO //Vykreslení Okna
  2322.    MyτSchovejKurzor();
  2323.    MyτNastavRozsah(196,201,544,256);
  2324.    MyτNastavPozici(196,201);
  2325.    GrKresliP²edm╪ty(3037,1,195,200,9,2);
  2326.    GrKresliP²edm╪ty(1061,1,422,202,3,1);
  2327.    GrKresliP²edm╪ty(1061,1,422,220,3,1);
  2328.    GrNastavBarvuPop²edí(0);
  2329.    GrNastavBarvuPozadí(15);
  2330.    GrNastavPozici(202,239);
  2331.    GrPiτⁿet╪zec(Banka);
  2332.    MyτZobrazKurzor();
  2333. VF //Vymazání Fronty událostí myτi
  2334.    MyτVyprázdniFrontuUdálostí();
  2335. OH //Obnovení Hodin v pravém horním rohu
  2336.    Systémov∞¼as(¼as);
  2337.    GrNastavPozici(586,8);
  2338.    GrNastavBarvuPop²edí(0);
  2339.    GrNastavBarvuPozadí(1);
  2340.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  2341.    Minuta=¼as.Minuty;
  2342. ¼M //¼tení událostí Myτi
  2343.    Myτ¼tiUdálost(gMyτUdálost);
  2344. ST //Editace
  2345.  
  2346.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 239 ASouƒasn╪ gMyτUdálost.Y < 251 ASouƒasn╪ gMyτUdálost.X > 202 ASouƒasn╪ gMyτUdálost.X < 366)
  2347.      {
  2348.      MyτSchovejKurzor();
  2349.      GrNastavPozici(202,239);
  2350.      GrNastavBarvuPop²edí(0);
  2351.      GrNastavBarvuPozadí(15);
  2352.      MyτVyprázdniFrontuUdálostí();
  2353.      MyτZobrazKurzor();
  2354.      Grⁿádkov∞Editor(Banka,20,-1,0,-1,0xf0);
  2355.      }
  2356.  
  2357.    //jestliºe je Stisknuto n╪jaké Tlaƒítko
  2358.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 428 ASouƒasn╪ gMyτUdálost.X < 524)
  2359.      {
  2360.  
  2361.      if(gMyτUdálost.Y > 208 ASouƒasn╪ gMyτUdálost.Y < 226)
  2362.        {
  2363.        Konec=1;
  2364.        }
  2365.  
  2366.      if(gMyτUdálost.Y > 226 ASouƒasn╪ gMyτUdálost.Y < 244)
  2367.        {
  2368.        Konec=2;
  2369.        }
  2370.  
  2371.      }
  2372.  
  2373.    if(Konec==1)
  2374.      {
  2375.      MyτSchovejKurzor();
  2376.      GrKresliP²edm╪ty(1076,1,422,202,3,1);
  2377.      MyτZobrazKurzor();
  2378.      }
  2379.  
  2380.    if(Konec==2)
  2381.      {
  2382.      MyτSchovejKurzor();
  2383.      GrKresliP²edm╪ty(1076,1,422,220,3,1);
  2384.      MyτZobrazKurzor();
  2385.      Banka=Original;
  2386.      }
  2387.  
  2388.    VyprázdniFrontuKláves();
  2389. NC //Naƒtení Hodin
  2390.    Systémov∞¼as(¼as);
  2391. NR //Nastavení Rozsahu myτi
  2392.    MyτSchovejKurzor();
  2393.    MyτNastavRozsah(0,0,639,479);
  2394.    MyτZobrazKurzor();
  2395. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  2396. *SK //bylo Stisknuto "konec"
  2397.     Konec==0
  2398. /MN //Minuta Nesouhlasí
  2399.     //touto operací kontrolující zda uº ub╪hla minuta zajistíme,
  2400.     //ºe text nebude blikat
  2401.     Minuta!=¼as.Minuty
  2402. =SP---------------------------------------------------------------------------
  2403.  
  2404. ;-h---------------------------------------------------------------------------
  2405. //Funkce pro nastavení schéma, podle kterého se bude tisknout
  2406. void Schema( void )
  2407. -s--Schema                                                                      ■   2  -2 -11   3
  2408.                   Schema
  2409.             DPVOVFVH!NR
  2410.                     *SK
  2411.            _____Opakování_________
  2412. Minutové_obnovení_hodin  Ovládání_tlaƒítek
  2413.          MH!              /MN        /
  2414.                      Obnovedí_dat Myτ_a_OK
  2415.                         VH!      ¼MST!
  2416. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  2417. DP //Deklarace Prom╪nn∞ch
  2418.    Typ¼as ¼as;
  2419.    int Konec,Minuta;
  2420.    Konec=0;
  2421.    string Original=Schem;
  2422. VO //Vykreslení Okna
  2423.    MyτSchovejKurzor();
  2424.    MyτNastavRozsah(196,201,544,256);
  2425.    MyτNastavPozici(196,201);
  2426.    GrKresliP²edm╪ty(3007,1,195,200,9,2);
  2427.    GrKresliP²edm╪ty(1061,1,422,202,3,1);
  2428.    GrKresliP²edm╪ty(1061,1,422,220,3,1);
  2429.    GrNastavBarvuPop²edí(0);
  2430.    GrNastavBarvuPozadí(15);
  2431.    GrNastavPozici(202,239);
  2432.    GrPiτⁿet╪zec(Schem);
  2433.    MyτZobrazKurzor();
  2434. VF //Vymazání Fronty událostí myτi
  2435.    MyτVyprázdniFrontuUdálostí();
  2436. VH //V∞pis Hodin
  2437.    {
  2438.    Systémov∞¼as(¼as);
  2439.    //Vypsání hodin do pravého horního rohu
  2440.    GrNastavPozici(586,8);
  2441.    GrNastavBarvuPop²edí(0);
  2442.    GrNastavBarvuPozadí(1);
  2443.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  2444.    Minuta=¼as.Minuty;
  2445.    }
  2446. MH //Minutové obnovení Hodin
  2447.    Systémov∞¼as(¼as);
  2448. ¼M //¼tení událostí Myτi
  2449.    Myτ¼tiUdálost(gMyτUdálost);
  2450. ST //Editace
  2451.  
  2452.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 239 ASouƒasn╪ gMyτUdálost.Y < 251 ASouƒasn╪ gMyτUdálost.X > 202 ASouƒasn╪ gMyτUdálost.X < 366)
  2453.      {
  2454.      MyτSchovejKurzor();
  2455.      GrNastavPozici(202,239);
  2456.      GrNastavBarvuPop²edí(0);
  2457.      GrNastavBarvuPozadí(15);
  2458.      MyτVyprázdniFrontuUdálostí();
  2459.      MyτZobrazKurzor();
  2460.      Grⁿádkov∞Editor(Schem,20,-1,0,-1,0xf0);
  2461.      }
  2462.  
  2463.    //jestliºe je Stisknuto Tlaƒítko
  2464.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 428 ASouƒasn╪ gMyτUdálost.X < 524)
  2465.      {
  2466.  
  2467.      if(gMyτUdálost.Y > 208 ASouƒasn╪ gMyτUdálost.Y < 226)
  2468.        {
  2469.        Konec=1;
  2470.        }
  2471.  
  2472.      if(gMyτUdálost.Y > 226 ASouƒasn╪ gMyτUdálost.Y < 244)
  2473.        {
  2474.        Konec=2;
  2475.        }
  2476.  
  2477.      }
  2478.  
  2479.    if(Konec==1)
  2480.      {
  2481.      //Jestliºe bylo stisknuto OK, skonƒi
  2482.      MyτSchovejKurzor();
  2483.      GrKresliP²edm╪ty(1076,1,422,202,3,1);
  2484.      GrKresliP²edm╪ty(46,1,0,87,3,1);
  2485.      GrNastavText(GrTextBezPozadí);
  2486.      GrNastavPozici(12+(39-((8*strlen(Schem))/2)),91);
  2487.      GrPiτⁿet╪zec(Schem);
  2488.      MyτZobrazKurzor();
  2489.      }
  2490.  
  2491.    if(Konec==2)
  2492.      {
  2493.      //Jestliºe bylo stisknuto Storno, nastav zp╪t hodnoty
  2494.      MyτSchovejKurzor();
  2495.      GrKresliP²edm╪ty(1076,1,422,220,3,1);
  2496.      Schem=Original;
  2497.      MyτZobrazKurzor();
  2498.      }
  2499.  
  2500.    VyprázdniFrontuKláves();
  2501. NR //Nastavení Rozsahu myτi
  2502.    MyτSchovejKurzor();
  2503.    MyτNastavRozsah(0,0,639,479);
  2504.    MyτZobrazKurzor();
  2505. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  2506. *SK //bylo Stisknuto "konec"
  2507.     Konec==0
  2508. /MN //Minuta Nesouhlasí
  2509.     //touto operací kontrolující zda uº ub╪hla minuta zajistíme,
  2510.     //ºe text nebude blikat
  2511.     Minuta!=¼as.Minuty
  2512. =SP---------------------------------------------------------------------------
  2513.  
  2514. ;-h---------------------------------------------------------------------------
  2515. //Zobrazení okna pro nastavení barev
  2516. void Barvy( void )
  2517. -s--Barvy                                                                       ■   4  -2  -8   3
  2518.                      Barvy
  2519.                DPVOVFVH!NR
  2520.                        *SK
  2521.            __________Opakuj__________
  2522. Minutové_obnovení_hodin ______Ovladej_funkci
  2523.          MO!            /MN              /
  2524.                   Obnovedí_hodin Ovládání_tlaƒítek
  2525.                       VH!            ¼MOT!
  2526. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  2527. DP //Deklarace Prom╪nn∞ch
  2528.    Typ¼as ¼as;
  2529.    int Konec,Minuta,Barva;
  2530.    int Barvy[49];
  2531.    Konec=0;
  2532.    //vytvo²íme si zálohu pàvodního nastavení
  2533.    {
  2534.    int B;
  2535.    B= 0;
  2536.    do
  2537.     {
  2538.     GrBarvaPalety((B/3),Barvy[B+1],Barvy[B+2],Barvy[B+3]);
  2539.     B=B+3;
  2540.     }
  2541.    while (B != 48);
  2542.    }
  2543. VO //Vykreslení Okna
  2544.    MyτSchovejKurzor();
  2545.    MyτNastavRozsah(191,201,496,286);
  2546.    MyτNastavPozici(191,201);
  2547.    GrKresliP²edm╪ty(2004,1,190,200,8,3);
  2548.    GrKresliP²edm╪ty(1061,1,384,206,3,1);
  2549.    GrKresliP²edm╪ty(1061,1,384,224,3,1);
  2550.    GrKresliP²edm╪t(1133,1,202,232);
  2551.    GrKresliP²edm╪t(1133,1,250,232);
  2552.    GrKresliP²edm╪t(1133,1,298,232);
  2553.    GrKresliP²edm╪t(1131,1,232,232);
  2554.    GrKresliP²edm╪t(1131,1,280,232);
  2555.    GrKresliP²edm╪t(1131,1,328,232);
  2556.    GrKresliP²edm╪t(2121,1,357,218);
  2557.    GrKresliP²edm╪t(2122,1,355,216);
  2558.    MyτZobrazKurzor();
  2559.    goto VyberNula;
  2560. VF //Vymazání Fronty událostí myτi
  2561.    MyτVyprázdniFrontuUdálostí();
  2562. VH //Vypsání hodin do pravého horního rohu
  2563.    Systémov∞¼as(¼as);
  2564.    GrNastavPozici(586,8);
  2565.    GrNastavBarvuPop²edí(0);
  2566.    GrNastavBarvuPozadí(1);
  2567.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  2568.    Minuta=¼as.Minuty;
  2569. MO //Minutové Obnovení
  2570.    Systémov∞¼as(¼as);
  2571. ¼M //¼tení událostí Myτi
  2572.    Myτ¼tiUdálost(gMyτUdálost);
  2573. OT //jestliºe je stisknuto OK, skonƒi
  2574.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 389 ASouƒasn╪ gMyτUdálost.X < 485)
  2575.      {
  2576.  
  2577.      if(gMyτUdálost.Y > 211 ASouƒasn╪ gMyτUdálost.Y < 229)
  2578.        {
  2579.        Konec=1;
  2580.        }
  2581.  
  2582.      if(gMyτUdálost.Y > 229 ASouƒasn╪ gMyτUdálost.Y < 247)
  2583.        {
  2584.        Konec=2;
  2585.        }
  2586.  
  2587.      }
  2588.  
  2589.    if(Konec==1)
  2590.      {
  2591.    //Jestliºe bylo stisknuto OK, skonƒi
  2592.      MyτSchovejKurzor();
  2593.      GrKresliP²edm╪ty(1076,1,384,206,3,1);
  2594.      MyτZobrazKurzor();
  2595.      }
  2596.  
  2597.    if(Konec==2)
  2598.      {
  2599.    //Jestliºe bylo stisknuto Storno, vra£ pàvodní barvy ze zálohy
  2600.      MyτSchovejKurzor();
  2601.      GrKresliP²edm╪ty(1076,1,384,224,3,1);
  2602.      {
  2603.      int B;
  2604.      B= 0;
  2605.      do
  2606.       {
  2607.       GrNastavBarvuPalety((B/3),Barvy[B+1],Barvy[B+2],Barvy[B+3]);
  2608.       B=B+3;
  2609.       }
  2610.      while (B != 48);
  2611.      }
  2612.      MyτZobrazKurzor();
  2613.      }
  2614.    //vyber barvu
  2615.  
  2616.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 261 ASouƒasn╪ gMyτUdálost.Y < 275)
  2617.      {
  2618.  
  2619.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 201 ASouƒasn╪ gMyτUdálost.X < 215)
  2620.        {
  2621.        VyberNula:
  2622.        MyτSchovejKurzor();
  2623.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2624.        Barva=0;
  2625.        GrKresliP²edm╪t(1135,1,201,261);
  2626.        GrNastavBarvuPop²edí(0);
  2627.        GrNastavBarvuPozadí(0);
  2628.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2629.        MyτZobrazKurzor();
  2630.        }
  2631.  
  2632.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 215 ASouƒasn╪ gMyτUdálost.X < 229)
  2633.        {
  2634.        MyτSchovejKurzor();
  2635.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2636.        Barva=1;
  2637.        GrKresliP²edm╪t(1135,1,215,261);
  2638.        GrNastavBarvuPop²edí(1);
  2639.        GrNastavBarvuPozadí(1);
  2640.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2641.        MyτZobrazKurzor();
  2642.        }
  2643.  
  2644.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 229 ASouƒasn╪ gMyτUdálost.X < 243)
  2645.        {
  2646.        MyτSchovejKurzor();
  2647.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2648.        Barva=2;
  2649.        GrKresliP²edm╪t(1135,1,229,261);
  2650.        GrNastavBarvuPop²edí(2);
  2651.        GrNastavBarvuPozadí(2);
  2652.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2653.        MyτZobrazKurzor();
  2654.        }
  2655.  
  2656.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 243 ASouƒasn╪ gMyτUdálost.X < 257)
  2657.        {
  2658.        MyτSchovejKurzor();
  2659.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2660.        Barva=3;
  2661.        GrKresliP²edm╪t(1135,1,243,261);
  2662.        GrNastavBarvuPop²edí(3);
  2663.        GrNastavBarvuPozadí(3);
  2664.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2665.        MyτZobrazKurzor();
  2666.        }
  2667.  
  2668.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 257 ASouƒasn╪ gMyτUdálost.X < 271)
  2669.        {
  2670.        MyτSchovejKurzor();
  2671.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2672.        Barva=4;
  2673.        GrKresliP²edm╪t(1135,1,257,261);
  2674.        GrNastavBarvuPop²edí(4);
  2675.        GrNastavBarvuPozadí(4);
  2676.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2677.        MyτZobrazKurzor();
  2678.        }
  2679.  
  2680.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 271 ASouƒasn╪ gMyτUdálost.X < 285)
  2681.        {
  2682.        MyτSchovejKurzor();
  2683.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2684.        Barva=5;
  2685.        GrKresliP²edm╪t(1135,1,271,261);
  2686.        GrNastavBarvuPop²edí(5);
  2687.        GrNastavBarvuPozadí(5);
  2688.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2689.        MyτZobrazKurzor();
  2690.        }
  2691.  
  2692.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 285 ASouƒasn╪ gMyτUdálost.X < 299)
  2693.        {
  2694.        MyτSchovejKurzor();
  2695.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2696.        Barva=6;
  2697.        GrKresliP²edm╪t(1135,1,285,261);
  2698.        GrNastavBarvuPop²edí(6);
  2699.        GrNastavBarvuPozadí(6);
  2700.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2701.        MyτZobrazKurzor();
  2702.        }
  2703.  
  2704.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 299 ASouƒasn╪ gMyτUdálost.X < 313)
  2705.        {
  2706.        MyτSchovejKurzor();
  2707.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2708.        Barva=7;
  2709.        GrKresliP²edm╪t(1135,1,299,261);
  2710.        GrNastavBarvuPop²edí(7);
  2711.        GrNastavBarvuPozadí(7);
  2712.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2713.        MyτZobrazKurzor();
  2714.        }
  2715.  
  2716.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 313 ASouƒasn╪ gMyτUdálost.X < 327)
  2717.        {
  2718.        MyτSchovejKurzor();
  2719.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2720.        Barva=8;
  2721.        GrKresliP²edm╪t(1135,1,313,261);
  2722.        GrNastavBarvuPop²edí(8);
  2723.        GrNastavBarvuPozadí(8);
  2724.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2725.        MyτZobrazKurzor();
  2726.        }
  2727.  
  2728.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 327 ASouƒasn╪ gMyτUdálost.X < 341)
  2729.        {
  2730.        MyτSchovejKurzor();
  2731.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2732.        Barva=9;
  2733.        GrKresliP²edm╪t(1135,1,327,261);
  2734.        GrNastavBarvuPop²edí(9);
  2735.        GrNastavBarvuPozadí(9);
  2736.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2737.        MyτZobrazKurzor();
  2738.        }
  2739.  
  2740.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 341 ASouƒasn╪ gMyτUdálost.X < 355)
  2741.        {
  2742.        MyτSchovejKurzor();
  2743.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2744.        Barva=10;
  2745.        GrKresliP²edm╪t(1135,1,341,261);
  2746.        GrNastavBarvuPop²edí(10);
  2747.        GrNastavBarvuPozadí(10);
  2748.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2749.        MyτZobrazKurzor();
  2750.        }
  2751.  
  2752.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 355 ASouƒasn╪ gMyτUdálost.X < 369)
  2753.        {
  2754.        MyτSchovejKurzor();
  2755.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2756.        Barva=11;
  2757.        GrKresliP²edm╪t(1135,1,355,261);
  2758.        GrNastavBarvuPop²edí(11);
  2759.        GrNastavBarvuPozadí(11);
  2760.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2761.        MyτZobrazKurzor();
  2762.        }
  2763.  
  2764.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 369 ASouƒasn╪ gMyτUdálost.X < 383)
  2765.        {
  2766.        MyτSchovejKurzor();
  2767.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2768.        Barva=12;
  2769.        GrKresliP²edm╪t(1135,1,369,261);
  2770.        GrNastavBarvuPop²edí(12);
  2771.        GrNastavBarvuPozadí(12);
  2772.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2773.        MyτZobrazKurzor();
  2774.        }
  2775.  
  2776.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 383 ASouƒasn╪ gMyτUdálost.X < 397)
  2777.        {
  2778.        MyτSchovejKurzor();
  2779.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2780.        Barva=13;
  2781.        GrKresliP²edm╪t(1135,1,383,261);
  2782.        GrNastavBarvuPop²edí(13);
  2783.        GrNastavBarvuPozadí(13);
  2784.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2785.        MyτZobrazKurzor();
  2786.        }
  2787.  
  2788.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 397 ASouƒasn╪ gMyτUdálost.X < 411)
  2789.        {
  2790.        MyτSchovejKurzor();
  2791.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2792.        Barva=14;
  2793.        GrKresliP²edm╪t(1135,1,397,261);
  2794.        GrNastavBarvuPop²edí(14);
  2795.        GrNastavBarvuPozadí(14);
  2796.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2797.        MyτZobrazKurzor();
  2798.        }
  2799.  
  2800.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 411 ASouƒasn╪ gMyτUdálost.X < 425)
  2801.        {
  2802.        MyτSchovejKurzor();
  2803.        GrKresliP²edm╪ty(2034,1,190,258,7,1);
  2804.        Barva=15;
  2805.        GrKresliP²edm╪t(1135,1,411,261);
  2806.        GrNastavBarvuPop²edí(15);
  2807.        GrNastavBarvuPozadí(15);
  2808.        GrKresliVypln╪n∞Obdélník(448,262,473,273);
  2809.        MyτZobrazKurzor();
  2810.        }
  2811.      }
  2812.  
  2813.    //ovládání tlaƒítek + a - RGB
  2814.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 232 ASouƒasn╪ gMyτUdálost.Y < 247)
  2815.      {
  2816.  
  2817.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 202 ASouƒasn╪ gMyτUdálost.X < 217)
  2818.        {
  2819.        MyτSchovejKurzor();
  2820.        GrKresliP²edm╪t(1134,1,202,232);
  2821.        int R,G,B;
  2822.        GrBarvaPalety(Barva,R,G,B);
  2823.        GrNastavBarvuPalety(Barva,R+1,G,B);
  2824.        GrKresliP²edm╪t(1133,1,202,232);
  2825.        MyτZobrazKurzor();
  2826.        }
  2827.  
  2828.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 250 ASouƒasn╪ gMyτUdálost.X < 265)
  2829.        {
  2830.        MyτSchovejKurzor();
  2831.        GrKresliP²edm╪t(1134,1,250,232);
  2832.        int R,G,B;
  2833.        GrBarvaPalety(Barva,R,G,B);
  2834.        GrNastavBarvuPalety(Barva,R,G+1,B);
  2835.        GrKresliP²edm╪t(1133,1,250,232);
  2836.        MyτZobrazKurzor();
  2837.        }
  2838.  
  2839.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 298 ASouƒasn╪ gMyτUdálost.X < 313)
  2840.        {
  2841.        MyτSchovejKurzor();
  2842.        GrKresliP²edm╪t(1134,1,298,232);
  2843.        int R,G,B;
  2844.        GrBarvaPalety(Barva,R,G,B);
  2845.        GrNastavBarvuPalety(Barva,R,G,B+1);
  2846.        GrKresliP²edm╪t(1133,1,298,232);
  2847.        MyτZobrazKurzor();
  2848.        }
  2849.  
  2850.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 232 ASouƒasn╪ gMyτUdálost.X < 247)
  2851.        {
  2852.        MyτSchovejKurzor();
  2853.        GrKresliP²edm╪t(1132,1,232,232);
  2854.        int R,G,B;
  2855.        GrBarvaPalety(Barva,R,G,B);
  2856.        GrNastavBarvuPalety(Barva,R-1,G,B);
  2857.        GrKresliP²edm╪t(1131,1,232,232);
  2858.        MyτZobrazKurzor();
  2859.        }
  2860.  
  2861.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 280 ASouƒasn╪ gMyτUdálost.X < 295)
  2862.        {
  2863.        MyτSchovejKurzor();
  2864.        GrKresliP²edm╪t(1132,1,280,232);
  2865.        int R,G,B;
  2866.        GrBarvaPalety(Barva,R,G,B);
  2867.        GrNastavBarvuPalety(Barva,R,G-1,B);
  2868.        GrKresliP²edm╪t(1131,1,280,232);
  2869.        MyτZobrazKurzor();
  2870.        }
  2871.  
  2872.      if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 328 ASouƒasn╪ gMyτUdálost.X < 343)
  2873.        {
  2874.        MyτSchovejKurzor();
  2875.        GrKresliP²edm╪t(1132,1,328,232);
  2876.        int R,G,B;
  2877.        GrBarvaPalety(Barva,R,G,B);
  2878.        GrNastavBarvuPalety(Barva,R,G,B-1);
  2879.        GrKresliP²edm╪t(1131,1,328,232);
  2880.        MyτZobrazKurzor();
  2881.        }
  2882.      }
  2883.    //Nastavení originálních barev
  2884.  
  2885.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.Y > 216 ASouƒasn╪ gMyτUdálost.Y < 243 ASouƒasn╪ gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 355 ASouƒasn╪ gMyτUdálost.X < 382)
  2886.      {
  2887.      MyτSchovejKurzor();
  2888.      GrKresliP²edm╪t(2123,1,355,216);
  2889.      GrNastavBarvuPalety(0,0,0,0);
  2890.      GrNastavBarvuPalety(1,0,44,63);
  2891.      GrNastavBarvuPalety(2,0,0,42);
  2892.      GrNastavBarvuPalety(3,0,54,63);
  2893.      GrNastavBarvuPalety(4,42,0,21);
  2894.      GrNastavBarvuPalety(5,42,0,0);
  2895.      GrNastavBarvuPalety(6,42,42,21);
  2896.      GrNastavBarvuPalety(7,42,42,42);
  2897.      GrNastavBarvuPalety(8,21,21,21);
  2898.      GrNastavBarvuPalety(9,0,63,0);
  2899.      GrNastavBarvuPalety(10,0,63,63);
  2900.      GrNastavBarvuPalety(11,63,63,0);
  2901.      GrNastavBarvuPalety(12,63,21,21);
  2902.      GrNastavBarvuPalety(13,63,42,0);
  2903.      GrNastavBarvuPalety(14,63,0,0);
  2904.      GrNastavBarvuPalety(15,63,63,63);
  2905.      GrKresliP²edm╪t(2122,1,355,216);
  2906.      MyτZobrazKurzor();
  2907.      }
  2908.  
  2909. NR //Nastavení Rozsahu myτi
  2910.    MyτSchovejKurzor();
  2911.    MyτNastavRozsah(0,0,639,479);
  2912.    MyτZobrazKurzor();
  2913. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  2914. *SK //bylo Stisknuto Konec
  2915.     Konec==0
  2916. /MN //Minuta Nesouhlasí
  2917.     //touto operací kontrolující zda uº ub╪hla minuta zajistíme,
  2918.     //ºe text nebude blikat
  2919.     Minuta!=¼as.Minuty
  2920. =SP---------------------------------------------------------------------------
  2921.  
  2922. ;-h---------------------------------------------------------------------------
  2923. //Funkce pro prohlíºení nápov╪dy
  2924. void Napoveda( void )
  2925. -s--Napoveda                                                                    ■   4  -2 -11   3
  2926.                  Napoveda
  2927.             DPVOVFVH!NR
  2928.                     *SK
  2929.            _______Opakuj__________
  2930. Minutové_obnovení_hodin   _Posouvej_text
  2931.          MR!              /MN        /
  2932.                      Obnovedí_dat Myτ_a_OK
  2933.                         VH!    ¼MOKPT!
  2934. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  2935. DP //Deklarace Prom╪nn∞ch
  2936.    Typ¼as ¼as;
  2937.    int Konec,Minuta,Zmena,Radek;
  2938.    string Text;
  2939.    Konec=0;
  2940.    Radek=0;
  2941.    Zmena=1;
  2942. VO //Vykreslení Okna
  2943.    MyτSchovejKurzor();
  2944.    MyτNastavRozsah(157,125,585,356);
  2945.    MyτNastavPozici(157,125);
  2946.    GrKresliP²edm╪ty(4001,1,156,124,11,8);
  2947.    GrNastavBarvuPop²edí(0);
  2948.    GrNastavBarvuPozadí(15);
  2949.    MyτZobrazKurzor();
  2950. VF //Vymazání Fronty událostí myτi
  2951.    MyτVyprázdniFrontuUdálostí();
  2952. VH //Vypsání hodin do pravého horního rohu
  2953.    Systémov∞¼as(¼as);
  2954.    GrNastavPozici(586,8);
  2955.    GrNastavBarvuPop²edí(0);
  2956.    GrNastavBarvuPozadí(1);
  2957.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  2958.    Minuta=¼as.Minuty;
  2959. MR //Minutov∞ Refresh hodin
  2960.    Systémov∞¼as(¼as);
  2961. ¼M //¼tení událostí Myτi
  2962.    Myτ¼tiUdálost(gMyτUdálost);
  2963. OK //jestliºe je stisknuto n╪jaké tlaƒítko obsluº ho
  2964.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 555 ASouƒasn╪ gMyτUdálost.X < 577)
  2965.      {
  2966.  
  2967.      if(gMyτUdálost.Y > 333 ASouƒasn╪ gMyτUdálost.Y < 350)
  2968.        {
  2969.        GrKresliP²edm╪t(2137,1,555,333);
  2970.        Konec=1;
  2971.        }
  2972.  
  2973.      if(gMyτUdálost.Y > 197 ASouƒasn╪ gMyτUdálost.Y < 214 ASouƒasn╪ Radek!=0)
  2974.        {
  2975.        Radek--;
  2976.        MyτSchovejKurzor();
  2977.        GrKresliP²edm╪t(2137,1,555,197);
  2978.        MyτZobrazKurzor();
  2979.        Zmena=1;
  2980.        }
  2981.  
  2982.      if(gMyτUdálost.Y > 217 ASouƒasn╪ gMyτUdálost.Y < 243 ASouƒasn╪ Radek>18)
  2983.        {
  2984.        Radek=Radek-18;
  2985.        MyτSchovejKurzor();
  2986.        GrKresliP²edm╪t(2136,1,555,217);
  2987.        MyτZobrazKurzor();
  2988.        Zmena=1;
  2989.        }
  2990.  
  2991.      if(gMyτUdálost.Y > 246 ASouƒasn╪ gMyτUdálost.Y < 272)
  2992.        {
  2993.        long Velikost;
  2994.        TypSoubor Vel = SouborOtev²i("*\\FakturyG\\"+Banka+".hlp",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  2995.        Velikost=SouborVelikost(Vel);
  2996.        SouborZav²i(Vel);
  2997.        if(((Radek+36)*47)<Velikost)
  2998.          {
  2999.          Radek=Radek+18;
  3000.          MyτSchovejKurzor();
  3001.          GrKresliP²edm╪t(2136,1,555,246);
  3002.          MyτZobrazKurzor();
  3003.          Zmena=1;
  3004.          }
  3005.        }
  3006.  
  3007.      if(gMyτUdálost.Y > 275 ASouƒasn╪ gMyτUdálost.Y < 292)
  3008.        {
  3009.        long Velikost;
  3010.        TypSoubor Vel = SouborOtev²i("*\\FakturyG\\"+Banka+".hlp",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  3011.        Velikost=SouborVelikost(Vel);
  3012.        SouborZav²i(Vel);
  3013.        if(((Radek+19)*47)<Velikost)
  3014.          {
  3015.          Radek++;
  3016.          MyτSchovejKurzor();
  3017.          GrKresliP²edm╪t(2137,1,555,275);
  3018.          MyτZobrazKurzor();
  3019.          Zmena=1;
  3020.          }
  3021.        }
  3022.      }
  3023. PT //Posun Textu
  3024.    if(Zmena==1)
  3025.      {
  3026.      TypSoubor Help= SouborOtev²i("*\\FakturyG\\"+Banka+".hlp",SouborP²ístup¼tení|SouborP²ístupTextov∞);
  3027.      {
  3028.      int B;
  3029.      SouborNastavPozici(Help,47*Radek,SouborPoziceOdZaƒátku);
  3030.      B= 0;
  3031.      do
  3032.       {
  3033.       Soubor¼tiSⁿet╪zec(Help,Text);
  3034.       StrNastavVelikost(Text,strlen(Text)-1);
  3035.       GrNastavPozici(162,142+(B*11));
  3036.       GrPiτⁿet╪zec(Text);
  3037.       B++;
  3038.       }
  3039.      while (B != 19);
  3040.      }
  3041.      SouborZav²i(Help);
  3042.      MyτSchovejKurzor();
  3043.      GrKresliP²edm╪t(3136,1,555,197);
  3044.      GrKresliP²edm╪t(2138,1,555,217);
  3045.      GrKresliP²edm╪t(2138,1,555,246);
  3046.      GrKresliP²edm╪t(3136,1,555,275);
  3047.      MyτZobrazKurzor();
  3048.      Zmena=0;
  3049.      }
  3050. NR //Nastav pàvodní Rozsah myτi
  3051.    MyτSchovejKurzor();
  3052.    MyτNastavRozsah(0,0,639,479);
  3053.    MyτZobrazKurzor();
  3054. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  3055. *SK //bylo stisknuto Konec
  3056.     Konec==0
  3057. /MN //Minuta Nesouhlasí
  3058.     //touto operací kontrolující zda uº ub╪hla minuta zajistíme,
  3059.     //ºe text nebude blikat
  3060.     Minuta!=¼as.Minuty
  3061. =SP---------------------------------------------------------------------------
  3062.  
  3063. ;-h---------------------------------------------------------------------------
  3064. //Funkce, která zobrazuje text o vzniku programu
  3065. void Oprogramu( void )
  3066. -s--Oprogramu                                                                   ■   2  -2 -11   3
  3067.                 Oprogramu
  3068.             DPVOVFVH!NR
  3069.                     *OK
  3070.            _____Opakování_________
  3071. Minutové_obnovení_hodin   _Ovladej_funkci
  3072.          MR!              /MN        /
  3073.                      Obnovedí_dat Myτ_a_OK
  3074.                         VH!      ¼MOK!
  3075. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  3076. DP //Deklarace Prom╪nn∞ch
  3077.    Typ¼as ¼as;
  3078.    int Konec,Minuta;
  3079.    Konec=0;
  3080. VO //Vykreslení Okna
  3081.    MyτSchovejKurzor();
  3082.    GrKresliP²edm╪ty(3061,1,175,200,8,5);
  3083.    GrKresliP²edm╪ty(1091,1,287,302,2,1);
  3084.    MyτNastavRozsah(177,202,482,333);
  3085.    MyτNastavPozici(177,202);
  3086.    MyτZobrazKurzor();
  3087. VF //Vymazání Fronty událostí myτi
  3088.    MyτVyprázdniFrontuUdálostí();
  3089. VH //V∞pis Hodin
  3090.    {
  3091.    Systémov∞¼as(¼as);
  3092.    //Vypsání hodin do pravého horního rohu
  3093.    GrNastavPozici(586,8);
  3094.    GrNastavBarvuPop²edí(0);
  3095.    GrNastavBarvuPozadí(1);
  3096.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  3097.    Minuta=¼as.Minuty;
  3098.    }
  3099. MR //Minutov∞ Refresh hodin
  3100.    Systémov∞¼as(¼as);
  3101. ¼M //¼tení událostí Myτi
  3102.    Myτ¼tiUdálost(gMyτUdálost);
  3103. OK //jestliºe je stisknuto OK, skonƒi
  3104.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 292 ASouƒasn╪ gMyτUdálost.X < 348 ASouƒasn╪ gMyτUdálost.Y > 308 ASouƒasn╪ gMyτUdálost.Y < 326)
  3105.    {
  3106.    Konec=1;
  3107.    //Schováme a náslodovn╪ zobrazíme kurzor, aby po n╪m nezbyl "stín"
  3108.    MyτSchovejKurzor();
  3109.    GrKresliP²edm╪ty(1106,1,287,302,2,1);
  3110.    MyτZobrazKurzor();
  3111.    }
  3112. NR //Nastavení rozsahu
  3113.    MyτSchovejKurzor();
  3114.    MyτNastavRozsah(0,0,639,479);
  3115.    MyτZobrazKurzor();
  3116. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  3117. *OK //bylo stisknuto OK
  3118.     Konec!=1
  3119. /MN //Minuta Nesouhlasí
  3120.     //touto operací kontrolující zda uº ub╪hla minuta zajistíme,
  3121.     //ºe text nebude blikat
  3122.     Minuta!=¼as.Minuty
  3123.  
  3124. =SP---------------------------------------------------------------------------
  3125.  
  3126. ;-h---------------------------------------------------------------------------
  3127. //Zobrazení informaƒního okna
  3128. void Informace( void )
  3129. -s--Informace                                                                   ■   4  -2 -14   3
  3130.              Informace
  3131.          VONPVFDP!VT
  3132.            VHVDVM!
  3133.                  *OK
  3134.         ____Obnovuj_data_____
  3135. Vte²ivové_Obnovení Vykresluj_informace
  3136.       VR!            /VN        /
  3137.                 Obnovedí_dat Myτ_a_OK
  3138.                VHVDVM!      ¼MOK!
  3139. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  3140. VO //Vykreslení Okna
  3141.    MyτSchovejKurzor();
  3142.    GrKresliP²edm╪ty(1106,1,572,-2,2,1);
  3143.    GrKresliP²edm╪ty(1064,1,250,200,7,5);
  3144.    GrKresliP²edm╪ty(1091,1,265,292,2,1);
  3145.    MyτZobrazKurzor();
  3146. NP //Nastavení Parametrà
  3147.    MyτSchovejKurzor();
  3148.    MyτNastavRozsah(251,201,494,333);
  3149.    MyτNastavPozici(252,202);
  3150.    MyτZobrazKurzor();
  3151.    GrNastavText(GrTextSPozadím);
  3152.    GrNastavBarvuPop²edí(0);
  3153.    GrNastavBarvuPozadí(1);
  3154. VH //V∞pis Hodin
  3155.    Systémov∞¼as(¼as);
  3156.    GrNastavPozici(360,233);
  3157.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2)+":"+StrL¼íslo(¼as.Sekundy,2));
  3158.    //Vypsání hodin do pravého horního rohu
  3159.    GrNastavPozici(586,8);
  3160.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  3161.    Vterina=¼as.Sekundy;
  3162. VD //V∞pis Data
  3163.    {
  3164.    TypDatum Datum;
  3165.    SystémovéDatum(Datum);
  3166.    GrNastavPozici(360,260);
  3167.    GrPiτⁿet╪zec(StrL¼íslo(Datum.Den,2)+"."+StrL¼íslo(Datum.M╪síc,2)+"."+StrL¼íslo(Datum.Rok,4));
  3168.    }
  3169. VM //V∞pis volného Místa
  3170.    {
  3171.    GrNastavPozici(360,287);
  3172.    GrPiτⁿet╪zec(StrL¼íslo((DiskVolnéMísto('C'-'A'+1))/1048576,-1)+"MB");
  3173.    }
  3174. ¼M //¼tení událostí Myτi
  3175.    Myτ¼tiUdálost(gMyτUdálost);
  3176. VF //Vymazání Fronty událostí myτi
  3177.    MyτVyprázdniFrontuUdálostí();
  3178. DP //Deklarace Prom╪nn∞ch
  3179.    Typ¼as ¼as;
  3180.    int Konec,Vterina;
  3181.    Konec=0;
  3182. OK //jestliºe je stisknuto OK, skonƒi
  3183.    if(gMyτUdálost.Typ == MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X > 270 ASouƒasn╪ gMyτUdálost.X < 327 ASouƒasn╪ gMyτUdálost.Y > 298 ASouƒasn╪ gMyτUdálost.Y < 315)
  3184.      {
  3185.      Konec=1;
  3186.      MyτSchovejKurzor();
  3187.      GrKresliP²edm╪ty(1106,1,265,292,2,1);
  3188.      MyτZobrazKurzor();
  3189.      }
  3190. VR //Vte²ivov∞ Refresh
  3191.    Systémov∞¼as(¼as);
  3192. VT //Vra£ tlaƒítko
  3193.    MyτSchovejKurzor();
  3194.    MyτNastavRozsah(0,0,639,479);
  3195.    MyτZobrazKurzor();
  3196.    GrKresliP²edm╪ty(1091,1,572,-2,2,1);
  3197. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  3198. *OK //bylo stisknuto OK
  3199.     Konec!=1
  3200. /VN //Vterina Nesouhlasí
  3201.     //touto operací kontrolující zda uº ub╪hla sekunda zajistíme,
  3202.     //ºe text nebude blikat
  3203.     Vterina!=¼as.Sekundy
  3204. =SP---------------------------------------------------------------------------
  3205.  
  3206. ;-h---------------------------------------------------------------------------
  3207. // funkce ovládá menu programu a základní funkce
  3208. void main( void )
  3209. -s--Program                                                                     ■  23  -2 -12   3
  3210.    ____________Program____________
  3211. Zaƒátek       Prost²edek       Konec
  3212.  DP!VG          VM!              !KO
  3213.               Opakování
  3214.                   *SK
  3215.               ¼tení_Myτi
  3216.                 CM!
  3217.               _Podmínky
  3218.               /MN    /LT
  3219.             Hodiny  Menu
  3220.             HO!    OT!
  3221. -o2----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  3222. DP //Deklarace Prom╪nn∞ch
  3223.    int Konec,Menu,Minuta;
  3224.    Konec=0;
  3225.    Typ¼as ¼as;
  3226.    HodinyVisible=1;
  3227. VG //Vytvo² Grafiku
  3228.    //Nastav parametry
  3229.    GrNastavMód(GrMódVGA);
  3230.    GrNastavV∞stup(2);
  3231.    GrNastavText(GrTextBezPozadí);
  3232.    //Nastav barvy a slovník
  3233.    Err=0;
  3234.    NastavINI();
  3235.    if(Err==1)
  3236.      {
  3237.      goto ErrEnd;
  3238.      }
  3239.    //Zobraz myτ
  3240.    MyτZaƒátekObsluhy();
  3241.    MyτNastavGrKurzor(1093);
  3242.    MyτZobrazKurzor();
  3243.    //Jestliºe je argumentem jméno n╪které faktury, otev²i ji
  3244.    {
  3245.    TypDatum Datum;
  3246.    SystémovéDatum(Datum);
  3247.    Faktura="-"+StrL¼íslo(Datum.Rok,-1);
  3248.    }
  3249.    {
  3250.    string Cesta,Jmeno,Pripona;
  3251.    SouborRozd╪lCestu(DOSArgument(1),Cesta,Jmeno,Pripona);
  3252.    if(SouborExistuje("*\\FakturyD\\Fakt\\"+Jmeno+".fkt"))
  3253.      {
  3254.      Faktura=Jmeno;
  3255.      Faktury();
  3256.      }
  3257.    }
  3258.    //Vykresli p²edm╪ty
  3259.    MyτSchovejKurzor();
  3260.    GrNastavBarvuPozadí(15);
  3261.    GrSmaºOkno();
  3262.    MyτZobrazKurzor();
  3263.    MainMenu();
  3264.    Plocha();
  3265.    MyτSchovejKurzor();
  3266.    GrKresliP²edm╪ty(1074,1,13,164,2,4);
  3267.    GrNastavBarvuPop²edí(0);
  3268.    GrNastavPozici(12+(39-((8*strlen(StrL¼íslo(Uziv,-1)))/2)),58);
  3269.    GrPiτL¼íslo(Uziv,-1);
  3270.    GrNastavPozici(12+(39-((8*strlen(Schem))/2)),91);
  3271.    GrPiτⁿet╪zec(Schem);
  3272.    MyτZobrazKurzor();
  3273. VM //Vyprázdni frontu Myτi
  3274.    MyτVyprázdniFrontuUdálostí();
  3275. CM Myτ¼tiUdálost(gMyτUdálost);
  3276.    Systémov∞¼as(¼as);
  3277. HO //vypsání hodin do pravého horního rohu
  3278.    Systémov∞¼as(¼as);
  3279.    GrNastavText(GrTextSPozadím);
  3280.    GrNastavBarvuPop²edí(0);
  3281.    GrNastavBarvuPozadí(1);
  3282.    GrNastavPozici(586,8);
  3283.    GrPiτⁿet╪zec(StrL¼íslo(¼as.Hodiny,2)+":"+StrL¼íslo(¼as.Minuty,2));
  3284.    Minuta=¼as.Minuty;
  3285. OT //Oznaƒ Tlaƒítka a zapni jejich funkce
  3286.    //jestliºe bylo kliknuto v hlavním menu, "stiskni" tlaƒítko a rozbal menu
  3287.    if(Menu!=4)
  3288.      {
  3289.  
  3290.      if(gMyτUdálost.X>5 ASouƒasn╪ gMyτUdálost.X<101)
  3291.        {
  3292.    //vymaºeme plochu menu
  3293.        MyτSchovejKurzor();
  3294.        GrKresliP²edm╪ty(1061,1,0,305,3,1);
  3295.        GrKresliP²edm╪ty(1061,1,0,328,3,1);
  3296.        GrKresliP²edm╪ty(1061,1,0,351,3,1);
  3297.        GrKresliP²edm╪ty(1091,1,572,-2,2,1);
  3298.        GrNastavBarvuPop²edí(15);
  3299.        GrNastavBarvuPozadí(15);
  3300.        GrKresliVypln╪n∞Obdélník(107,305,203,465);
  3301.        MyτZobrazKurzor();
  3302.  
  3303.    //jestliºe bylo kliknuto na menu faktury
  3304.        if(gMyτUdálost.Y>311 ASouƒasn╪ gMyτUdálost.Y<329)
  3305.          {
  3306.          VykresliFaktury:
  3307.          MyτSchovejKurzor();
  3308.          GrKresliP²edm╪ty(1076,1,0,305,3,1);
  3309.          GrKresliP²edm╪ty(1071,1,102,305,3,1);
  3310.          GrKresliP²edm╪ty(1071,1,102,323,3,1);
  3311.          GrKresliP²edm╪ty(1071,1,102,341,3,1);
  3312.          GrKresliP²edm╪ty(1071,1,102,359,3,1);
  3313.          GrKresliP²edm╪ty(1071,1,102,377,3,1);
  3314.          GrKresliP²edm╪ty(1071,1,102,395,3,1);
  3315.          GrKresliP²edm╪ty(1071,1,102,413,3,1);
  3316.          GrKresliP²edm╪ty(1061,1,102,305,3,1);
  3317.          GrKresliP²edm╪ty(1061,1,102,323,3,1);
  3318.          GrKresliP²edm╪ty(1061,1,102,341,3,1);
  3319.          GrKresliP²edm╪ty(1061,1,102,359,3,1);
  3320.          GrKresliP²edm╪ty(1061,1,102,377,3,1);
  3321.          GrKresliP²edm╪ty(1061,1,102,395,3,1);
  3322.          GrKresliP²edm╪ty(1061,1,102,413,3,1);
  3323.          GrKresliP²edm╪ty(2001,1,102,305,3,1);
  3324.          GrKresliP²edm╪ty(2016,1,102,323,3,1);
  3325.          GrKresliP²edm╪ty(2031,1,102,341,3,1);
  3326.          GrKresliP²edm╪ty(2046,1,102,359,3,1);
  3327.          GrKresliP²edm╪ty(2061,1,102,377,3,1);
  3328.          GrKresliP²edm╪ty(2076,1,102,395,3,1);
  3329.          GrKresliP²edm╪ty(2091,1,102,413,3,1);
  3330.          GrKresliP²edm╪ty(76,1,0,145,3,5);
  3331.          GrKresliP²edm╪ty(3001,1,13,164,2,4);
  3332.          MyτZobrazKurzor();
  3333.          Menu=1;
  3334.          }
  3335.  
  3336.    //jestliºe bylo kliknuto na menu nastavení
  3337.        if(gMyτUdálost.Y>334 ASouƒasn╪ gMyτUdálost.Y<352)
  3338.          {
  3339.          VykresliNastavení:
  3340.          MyτSchovejKurzor();
  3341.          GrKresliP²edm╪ty(1076,1,0,328,3,1);
  3342.          GrKresliP²edm╪ty(1071,1,102,328,3,1);
  3343.          GrKresliP²edm╪ty(1071,1,102,346,3,1);
  3344.          GrKresliP²edm╪ty(1071,1,102,364,3,1);
  3345.          GrKresliP²edm╪ty(1061,1,102,328,3,1);
  3346.          GrKresliP²edm╪ty(1061,1,102,346,3,1);
  3347.          GrKresliP²edm╪ty(1061,1,102,364,3,1);
  3348.          GrKresliP²edm╪ty(1086,1,102,328,3,1);
  3349.          GrKresliP²edm╪ty(1101,1,102,346,3,1);
  3350.          GrKresliP²edm╪ty(1116,1,102,364,3,1);
  3351.          GrKresliP²edm╪ty(76,1,0,145,3,5);
  3352.          GrKresliP²edm╪ty(3003,1,13,164,2,4);
  3353.          MyτZobrazKurzor();
  3354.          Menu=2;
  3355.          }
  3356.  
  3357.    //jestliºe bylo kliknuto na menu nápov╪da
  3358.        if(gMyτUdálost.Y>357 ASouƒasn╪ gMyτUdálost.Y<375)
  3359.          {
  3360.          VykresliNápov╪da:
  3361.          MyτSchovejKurzor();
  3362.          GrKresliP²edm╪ty(1076,1,0,351,3,1);
  3363.          GrKresliP²edm╪ty(1071,1,102,351,3,1);
  3364.          GrKresliP²edm╪ty(1071,1,102,369,3,1);
  3365.          GrKresliP²edm╪ty(1061,1,102,351,3,1);
  3366.          GrKresliP²edm╪ty(1061,1,102,369,3,1);
  3367.          GrKresliP²edm╪ty(1145,1,102,351,3,1);
  3368.          GrKresliP²edm╪ty(1148,1,102,369,3,1);
  3369.          GrKresliP²edm╪ty(76,1,0,145,3,5);
  3370.          GrKresliP²edm╪ty(3005,1,13,164,2,4);
  3371.          MyτZobrazKurzor();
  3372.          Menu=3;
  3373.          }
  3374.  
  3375.    //jestliºe bylo kliknuto na konec
  3376.        if(gMyτUdálost.Y>380 ASouƒasn╪ gMyτUdálost.Y<398)
  3377.          {
  3378.          MyτSchovejKurzor();
  3379.          MyτNastavRozsah(293,199,447,284);
  3380.          MyτNastavPozici(293,199);
  3381.          GrKresliP²edm╪ty(1076,1,0,374,3,1);
  3382.          GrKresliP²edm╪ty(2012,1,292,197,4,3);
  3383.          GrKresliP²edm╪ty(1091,1,295,251,2,1);
  3384.          GrKresliP²edm╪ty(1091,1,372,251,2,1);
  3385.          MyτZobrazKurzor();
  3386.          Menu=4;
  3387.          }
  3388.        }
  3389.      }
  3390.  
  3391.    //Potvrzení/Zruτení Konec
  3392.    if(Menu==4 ASouƒasn╪ gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X>300 ASouƒasn╪ gMyτUdálost.X<356 ASouƒasn╪ gMyτUdálost.Y>257 ASouƒasn╪ gMyτUdálost.Y<275)
  3393.      {
  3394.      MyτSchovejKurzor();
  3395.      GrKresliP²edm╪ty(1091,1,295,251,2,1);
  3396.      MyτZobrazKurzor();
  3397.      Konec=1;
  3398.      }
  3399.  
  3400.    if(Menu==4 ASouƒasn╪ gMyτUdálost.Typ==MyτUdálostLevéTlDolà ASouƒasn╪ gMyτUdálost.X>377 ASouƒasn╪ gMyτUdálost.X<433 ASouƒasn╪ gMyτUdálost.Y>257 ASouƒasn╪ gMyτUdálost.Y<275)
  3401.      {
  3402.      MyτSchovejKurzor();
  3403.      MyτNastavRozsah(0,0,639,479);
  3404.      GrKresliP²edm╪ty(1091,1,372,251,2,1);
  3405.      GrKresliP²edm╪ty(1061,1,0,374,3,1);
  3406.      MyτZobrazKurzor();
  3407.      Plocha();
  3408.      Menu=0;
  3409.      }
  3410.    //jestliºe bylo kliknuto ve vedlejτím menu
  3411.    if(gMyτUdálost.X>106 ASouƒasn╪ gMyτUdálost.X<202)
  3412.      {
  3413.    //odoznaƒ poloºky od minule
  3414.    //jestliºe otev²ené menu je menu faktury
  3415.  
  3416.      if(Menu==1)
  3417.        {
  3418.        MyτSchovejKurzor();
  3419.        GrKresliP²edm╪ty(1061,1,102,305,3,1);
  3420.        GrKresliP²edm╪ty(1061,1,102,323,3,1);
  3421.        GrKresliP²edm╪ty(1061,1,102,341,3,1);
  3422.        GrKresliP²edm╪ty(1061,1,102,359,3,1);
  3423.        GrKresliP²edm╪ty(1061,1,102,377,3,1);
  3424.        GrKresliP²edm╪ty(1061,1,102,395,3,1);
  3425.        GrKresliP²edm╪ty(1061,1,102,413,3,1);
  3426.        MyτZobrazKurzor();
  3427.        }
  3428.  
  3429.    //jestliºe otev²ené menu je menu nastavení
  3430.      if(Menu==2)
  3431.        {
  3432.        MyτSchovejKurzor();
  3433.        GrKresliP²edm╪ty(1061,1,102,328,3,1);
  3434.        GrKresliP²edm╪ty(1061,1,102,346,3,1);
  3435.        GrKresliP²edm╪ty(1061,1,102,364,3,1);
  3436.        MyτZobrazKurzor();
  3437.        }
  3438.  
  3439.    //jestliºe otev²ené menu je menu nápov╪da
  3440.      if(Menu==3)
  3441.        {
  3442.        MyτSchovejKurzor();
  3443.        GrKresliP²edm╪ty(1061,1,102,351,3,1);
  3444.        GrKresliP²edm╪ty(1061,1,102,369,3,1);
  3445.        MyτZobrazKurzor();
  3446.        }
  3447.  
  3448.    //obslouºíme poloºky z menu faktury
  3449.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>311 ASouƒasn╪ gMyτUdálost.Y<329)
  3450.        {
  3451.        MyτSchovejKurzor();
  3452.        GrKresliP²edm╪ty(1076,1,102,305,3,1);
  3453.        MyτZobrazKurzor();
  3454.        goto Upravit;
  3455.        }
  3456.  
  3457.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>329 ASouƒasn╪ gMyτUdálost.Y<347)
  3458.        {
  3459.        MyτSchovejKurzor();
  3460.        GrKresliP²edm╪ty(1076,1,102,323,3,1);
  3461.        MyτZobrazKurzor();
  3462.        Upravit:
  3463.        _FakturyPJ();
  3464.        MyτSchovejKurzor();
  3465.        Minuta--;
  3466.        GrNastavText(GrTextBezPozadí);
  3467.        GrNastavBarvuPop²edí(0);
  3468.        GrNastavPozici(12+(39-((8*strlen(StrL¼íslo(Uziv,-1)))/2)),58);
  3469.        GrPiτL¼íslo(Uziv,-1);
  3470.        GrNastavPozici(12+(39-((8*strlen(Schem))/2)),91);
  3471.        GrPiτⁿet╪zec(Schem);
  3472.        MyτZobrazKurzor();
  3473.        Plocha();
  3474.        goto VykresliFaktury;
  3475.        }
  3476.  
  3477.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>347 ASouƒasn╪ gMyτUdálost.Y<365)
  3478.        {
  3479.        MyτSchovejKurzor();
  3480.        GrKresliP²edm╪ty(1076,1,102,341,3,1);
  3481.        MyτZobrazKurzor();
  3482.        goto Upravit;
  3483.        }
  3484.  
  3485.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>365 ASouƒasn╪ gMyτUdálost.Y<383)
  3486.        {
  3487.        MyτSchovejKurzor();
  3488.        GrKresliP²edm╪ty(1076,1,102,359,3,1);
  3489.        MyτZobrazKurzor();
  3490.        Vypis();
  3491.        Plocha();
  3492.        goto VykresliFaktury;
  3493.        }
  3494.  
  3495.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>383 ASouƒasn╪ gMyτUdálost.Y<401)
  3496.        {
  3497.        MyτSchovejKurzor();
  3498.        GrKresliP²edm╪ty(1076,1,102,377,3,1);
  3499.        MyτZobrazKurzor();
  3500.        Smazat();
  3501.        Plocha();
  3502.        goto VykresliFaktury;
  3503.        }
  3504.  
  3505.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>401 ASouƒasn╪ gMyτUdálost.Y<419)
  3506.        {
  3507.        MyτSchovejKurzor();
  3508.        GrKresliP²edm╪ty(1076,1,102,395,3,1);
  3509.        MyτZobrazKurzor();
  3510.        Adresar();
  3511.        Plocha();
  3512.        goto VykresliFaktury;
  3513.        }
  3514.  
  3515.      if(Menu==1 ASouƒasn╪ gMyτUdálost.Y>419 ASouƒasn╪ gMyτUdálost.Y<437)
  3516.        {
  3517.        MyτSchovejKurzor();
  3518.        GrKresliP²edm╪ty(1076,1,102,413,3,1);
  3519.        MyτZobrazKurzor();
  3520.        Hlavicka();
  3521.        Plocha();
  3522.        goto VykresliFaktury;
  3523.        }
  3524.  
  3525.    //obslouºíme poloºky z menu nastavení
  3526.      if(Menu==2 ASouƒasn╪ gMyτUdálost.Y>334 ASouƒasn╪ gMyτUdálost.Y<352)
  3527.        {
  3528.        MyτSchovejKurzor();
  3529.        GrKresliP²edm╪ty(1076,1,102,328,3,1);
  3530.        MyτZobrazKurzor();
  3531.        Jazyk();
  3532.        Plocha();
  3533.        goto VykresliNastavení;
  3534.        }
  3535.  
  3536.      if(Menu==2 ASouƒasn╪ gMyτUdálost.Y>352 ASouƒasn╪ gMyτUdálost.Y<370)
  3537.        {
  3538.        MyτSchovejKurzor();
  3539.        GrKresliP²edm╪ty(1076,1,102,346,3,1);
  3540.        MyτZobrazKurzor();
  3541.        Schema();
  3542.        Plocha();
  3543.        goto VykresliNastavení;
  3544.        }
  3545.  
  3546.      if(Menu==2 ASouƒasn╪ gMyτUdálost.Y>370 ASouƒasn╪ gMyτUdálost.Y<388)
  3547.        {
  3548.        MyτSchovejKurzor();
  3549.        GrKresliP²edm╪ty(1076,1,102,364,3,1);
  3550.        MyτZobrazKurzor();
  3551.        Barvy();
  3552.        Plocha();
  3553.        goto VykresliNastavení;
  3554.        }
  3555.  
  3556.    //obslouºíme poloºky z menu nápov╪da
  3557.      if(Menu==3 ASouƒasn╪ gMyτUdálost.Y>357 ASouƒasn╪ gMyτUdálost.Y<375)
  3558.        {
  3559.        MyτSchovejKurzor();
  3560.        GrKresliP²edm╪ty(1076,1,102,351,3,1);
  3561.        MyτZobrazKurzor();
  3562.        Napoveda();
  3563.        Plocha();
  3564.        goto VykresliNápov╪da;
  3565.        }
  3566.  
  3567.      if(Menu==3 ASouƒasn╪ gMyτUdálost.Y>375 ASouƒasn╪ gMyτUdálost.Y<393)
  3568.        {
  3569.        MyτSchovejKurzor();
  3570.        GrKresliP²edm╪ty(1076,1,102,369,3,1);
  3571.        MyτZobrazKurzor();
  3572.        Oprogramu();
  3573.        Plocha();
  3574.        goto VykresliNápov╪da;
  3575.        }
  3576.  
  3577.      }
  3578.    //jestliºe bylo kliknuto na hodiny, zobraz informace
  3579.    if(gMyτUdálost.X>577 ASouƒasn╪ gMyτUdálost.X<634 ASouƒasn╪ gMyτUdálost.Y>3 ASouƒasn╪ gMyτUdálost.Y<21)
  3580.      {
  3581.      Menu=0;
  3582.      //vymaºeme plochu menu
  3583.      MyτSchovejKurzor();
  3584.      GrKresliP²edm╪ty(1061,1,0,305,3,1);
  3585.      GrKresliP²edm╪ty(1061,1,0,328,3,1);
  3586.      GrKresliP²edm╪ty(1061,1,0,351,3,1);
  3587.      GrKresliP²edm╪ty(76,1,0,145,3,5);
  3588.      GrKresliP²edm╪ty(1074,1,13,164,2,4);
  3589.      GrNastavBarvuPop²edí(15);
  3590.      GrNastavBarvuPozadí(15);
  3591.      GrKresliVypln╪n∞Obdélník(107,305,203,465);
  3592.      MyτZobrazKurzor();
  3593.      Informace();
  3594.      Plocha();
  3595.      }
  3596. KO //KOnec
  3597.    ErrEnd:
  3598.    ZapisINI();
  3599.    MyτSchovejKurzor();
  3600.    MyτKonecObsluhy();
  3601. -c2----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  3602. *SK //Stisknuto "Konec"
  3603.     Konec==0
  3604. /LT //Levé Tlaƒítko dole
  3605.     gMyτUdálost.Typ == MyτUdálostLevéTlDolà
  3606. /MN //Minuta N
  3607.     Minuta!=¼as.Minuty
  3608. =SP---------------------------------------------------------------------------
  3609.  
  3610. //
  3611. // Konec souboru
  3612. //////////////////
  3613.