diff --git a/Design/bizi.ico b/Design/Ikonok/BIZI.ICO similarity index 100% rename from Design/bizi.ico rename to Design/Ikonok/BIZI.ICO diff --git a/Design/Ikonok/NAGYMO2.ICO b/Design/Ikonok/NAGYMO2.ICO new file mode 100644 index 0000000..c3b1bc7 Binary files /dev/null and b/Design/Ikonok/NAGYMO2.ICO differ diff --git a/Design/Ikonok/NMO64.BMP b/Design/Ikonok/NMO64.BMP new file mode 100644 index 0000000..543818a Binary files /dev/null and b/Design/Ikonok/NMO64.BMP differ diff --git a/Design/Ikonok/NMO_48.BMP b/Design/Ikonok/NMO_48.BMP new file mode 100644 index 0000000..9821006 Binary files /dev/null and b/Design/Ikonok/NMO_48.BMP differ diff --git a/Design/Ikonok/NMO_48.PNG b/Design/Ikonok/NMO_48.PNG new file mode 100644 index 0000000..c149002 Binary files /dev/null and b/Design/Ikonok/NMO_48.PNG differ diff --git a/Design/Ikonok/VT2.PNG b/Design/Ikonok/VT2.PNG new file mode 100644 index 0000000..c274873 Binary files /dev/null and b/Design/Ikonok/VT2.PNG differ diff --git a/Design/Ikonok/VT2_16.BMP b/Design/Ikonok/VT2_16.BMP new file mode 100644 index 0000000..270e8b3 Binary files /dev/null and b/Design/Ikonok/VT2_16.BMP differ diff --git a/Design/Ikonok/VT2_64_Z.ICO b/Design/Ikonok/VT2_64_Z.ICO new file mode 100644 index 0000000..2ad7370 Binary files /dev/null and b/Design/Ikonok/VT2_64_Z.ICO differ diff --git a/Design/Ikonok/VT2_K.ICO b/Design/Ikonok/VT2_K.ICO new file mode 100644 index 0000000..26ae8c8 Binary files /dev/null and b/Design/Ikonok/VT2_K.ICO differ diff --git a/Design/Ikonok/VT2_Z.ICO b/Design/Ikonok/VT2_Z.ICO new file mode 100644 index 0000000..ce22fd7 Binary files /dev/null and b/Design/Ikonok/VT2_Z.ICO differ diff --git a/Design/nagymo.ico b/Design/Ikonok/nagymo.ico similarity index 100% rename from Design/nagymo.ico rename to Design/Ikonok/nagymo.ico diff --git a/Design/LOGO2.JPG b/Design/LOGO2.JPG new file mode 100644 index 0000000..14c0f89 Binary files /dev/null and b/Design/LOGO2.JPG differ diff --git a/Design/LOGO2.PNG b/Design/LOGO2.PNG new file mode 100644 index 0000000..1312cd1 Binary files /dev/null and b/Design/LOGO2.PNG differ diff --git a/Design/NMO.PNG b/Design/NMO.PNG new file mode 100644 index 0000000..27756c1 Binary files /dev/null and b/Design/NMO.PNG differ diff --git a/Design/vakterkep.jpg b/Design/vakterkep.jpg index 4e70599..962e3f4 100644 Binary files a/Design/vakterkep.jpg and b/Design/vakterkep.jpg differ diff --git a/Help/szerkeszto/PAGE/BILL.HTM b/Help/szerkeszto/PAGE/BILL.HTM index c8186ec..9a7a54c 100644 --- a/Help/szerkeszto/PAGE/BILL.HTM +++ b/Help/szerkeszto/PAGE/BILL.HTM @@ -1,14 +1,12 @@ - Vaktérkép Szerkesztő funkcióbillentyűi + Vaktérkép Szerkesztő funkcióbillentyűi és egérműveletei -

Vaktérkép Szerkesztő funkcióbillenytűi

+

Vaktérkép Szerkesztő funkcióbillenytűi és egérmúveletei

- - @@ -31,11 +29,29 @@ + + + + + + - + - + + + + + + + + + + + + +

Billentyűparancsok

Események

[CTRL] + [U] Új, üres Térkép projekt létrehozása
[F1] Vaktérkép Szerkesztő Súgója
[<] vagy [ ^ ]Előző elem kijelölése szerkesztésre
[>] vagy [ ˇ ]Következő elem kijelölése szerkesztésre
[ESC]Kilépés a szerkesztő szövegmezőből és tartalmának elvetése
Kijelölt projektelem jelölésének megszüntetése és a projekt megjelölése aktív objektumként.
[ENTER]Szövegdoboz tartalmának nyugtatázása szerkesztés közben
Kijelölt objektum tulajdonságainak előhívása
[DEL]Kijelölt elem törlése megerősítés után
Dupla kattintás egy objektumraAz objetum tulajdonságainak előhívása
[SHIFT] + elemre kattintásAz elem mozgatása fogd és vidd módszerrel.
Jobb klikk egy objektumraAz objektum szerkesztési menüjének előhívása
diff --git a/Help/szerkeszto/PAGE/ELEM.HTM b/Help/szerkeszto/PAGE/ELEM.HTM index 002381d..4b4ed6f 100644 --- a/Help/szerkeszto/PAGE/ELEM.HTM +++ b/Help/szerkeszto/PAGE/ELEM.HTM @@ -9,47 +9,26 @@

Elem felvétele

    -
  1. Válasszuk ki az a még üres helyet a projektünkkön +

  2. Válasszuk ki az a még üres helyet a projektünkkön ahova el szeretnénk helyezni az új elemet. Álljunk a terület fölé az egérrel.

  3. Kattintsuk az égér jobb gombjával a kiválasztott helyre. - Ekkor egy lebegőmenü jön elő. Az Új pont menüpontra állva kinyílik - egy másik menü, ahol kiválaszthatjuk hogy Várost vagy Területet - szeretnénk megjelölni. Kattintsunk a kívánt menüpontra.

  4. - -
  5. Megjelenik egy elem a projektünkön és mellette egy szövegdoboz, amiben - az új elem neve van. Írjuk a szövegmezőbe az elem nevét, és [ENTER]-rel - nyugtázhtajuk, vagy [ESC]-kel vagy a projektterület más helyre való - kattintásával elvethetjük.

  6. + Ekkor egy lebegőmenü jön elő, ahol válaszzuk az Új elem menüpontot

-

Elem átnevezése

-
    -
  1. Kattintsunk jobb gombbal az átnevezni kívánt elemre, majd a felbukkanó - lebegőmenüben válasszuk az Átnevez menüpontot.

  2. - -
  3. Írjuk a szövegmezőbe az elem új nevét, és [ENTER]-rel - nyugtázhtajuk, vagy [ESC]-kel vagy a projektterület más helyre való - kattintásával elvethetjük.

  4. - - -
-

Az elemek átnevezésére egy másik alternatívája, hogy a Tulajdonságok ablakban -írjuk át a nevét.

Elem áthelyezése

-

Kattintson bal gombbal a mozgatni kívánt elemre, tartsa lenyomva és húzza át a kívánt helyre.

- +

A [Shift] gomb kattintsunk bal gombbal a mozgatni kívánt elemre, tartsa lenyomva és húzza át a kívánt helyre.

Elem törlése

  1. Kattintsunk jobb gombbal a törölni kívánt elemre, majd a felbukkanó - lebegőmenüben válasszuk a Töröl menüpontot.

  2. + lebegőmenüben válasszuk a Töröl menüpontot. Vagy jelöljük ki a törölni kívánt elemet és üssük le + a [DEL] gombot.

    -
  3. A program megerősítést kér a törléshez. Kattintsunk az Igenre és a - pontunknak már nyoma sincs.

  4. +
  5. A program megerősítést kér a törléshez. Kattintsunk az Igenre.

@@ -57,39 +36,59 @@

Elem Tulajdonságai

  1. Kattintsunk jobb gombbal a kívánt elemre, majd a felbukkanó - lebegőmenüben válasszuk a Tulajdonságok menüpontot.

  2. + lebegőmenüben válasszuk a Tulajdonságok menüpontot, vagy a kiválasztott elemen állva üssünk [ENTER]-t + esetleg kattintsunk kétszer az elemre.

    + +
  3. Egy tulajdonságok alapján csoportosított a ablak jelenik meg. +

    Általános fül
    +
- + + + + +
  • Elem részeinek precíz elhelyezésére is
    +
  • A beállítások alkalmazásához kattintsunk az OK-ra, az elvetésükhöz diff --git a/Help/szerkeszto/PAGE/FORRAS.HTM b/Help/szerkeszto/PAGE/FORRAS.HTM deleted file mode 100644 index 06f94f9..0000000 --- a/Help/szerkeszto/PAGE/FORRAS.HTM +++ /dev/null @@ -1,19 +0,0 @@ - - - Vaktérkép és Vaktérkép Szerkesztő forráskódja - - - -

    Vaktérkép és Vaktérkép Szerkesztő forráskódja

    -

    A Vaktérkép és Vaktérkép Szerkesztő Microsoft Visual Basic 6 alatt készült. A forráskód -kizárólagos tulajdonosa Muráti Ákos, tehát Én. A közzététel annak köszönhető, hogy -készül a Vaktérkép II, ami teljesen más alapokat fog használni és így már nem is -érdekes rejtegetni a régit. A progiban minden az én agyszüleményem és nem szeretném -viszontlátni más nevű, hasonló programokban a nevem feltüntetése nélkül.
    -Tehát szabad ötletet venni, kiollózni részeket, de csak ha előtte megkérdeztek és a nevem -feltüntetitek. Megértéseteket előre is köszönöm...
    -Muráti Ákos -

    -Vaktérkép 1.4.3 forrásának letöltése - - \ No newline at end of file diff --git a/Help/szerkeszto/PAGE/KEPEK/KILEP.GIF b/Help/szerkeszto/PAGE/KEPEK/KILEP.GIF index 42f53d2..c65ef72 100644 Binary files a/Help/szerkeszto/PAGE/KEPEK/KILEP.GIF and b/Help/szerkeszto/PAGE/KEPEK/KILEP.GIF differ diff --git a/Help/szerkeszto/PAGE/KEPEK/MEGNYIT.GIF b/Help/szerkeszto/PAGE/KEPEK/MEGNYIT.GIF index f75f998..078f9f6 100644 Binary files a/Help/szerkeszto/PAGE/KEPEK/MEGNYIT.GIF and b/Help/szerkeszto/PAGE/KEPEK/MEGNYIT.GIF differ diff --git a/Help/szerkeszto/PAGE/KEPEK/MENT.GIF b/Help/szerkeszto/PAGE/KEPEK/MENT.GIF index 1eb9674..0876079 100644 Binary files a/Help/szerkeszto/PAGE/KEPEK/MENT.GIF and b/Help/szerkeszto/PAGE/KEPEK/MENT.GIF differ diff --git a/Help/szerkeszto/PAGE/KEPEK/TUL.GIF b/Help/szerkeszto/PAGE/KEPEK/TUL.GIF index 81881eb..78c0d93 100644 Binary files a/Help/szerkeszto/PAGE/KEPEK/TUL.GIF and b/Help/szerkeszto/PAGE/KEPEK/TUL.GIF differ diff --git a/Help/szerkeszto/PAGE/KEPEK/UJ.GIF b/Help/szerkeszto/PAGE/KEPEK/UJ.GIF index 0ef76ad..130a9b6 100644 Binary files a/Help/szerkeszto/PAGE/KEPEK/UJ.GIF and b/Help/szerkeszto/PAGE/KEPEK/UJ.GIF differ diff --git a/Help/szerkeszto/PAGE/KEZDO.HTM b/Help/szerkeszto/PAGE/KEZDO.HTM index 079e464..f42d736 100644 --- a/Help/szerkeszto/PAGE/KEZDO.HTM +++ b/Help/szerkeszto/PAGE/KEZDO.HTM @@ -1,46 +1,48 @@ - Üdvözlöm a Vaktérkép Szerkesztő Súgójában + Üdvözlöm a Vaktérkép Szerkesztő 2.0 Súgójában -

    Üdvözlöm a Vaktérkép Szerkesztő Súgójában

    -

    A Vaktérkép Szerkesztő része a Vaktérkép csomagnak.Segítségével vaktérkép projekteket -készíthetünk a Vaktérképhez.

    +

    Üdvözlöm a Vaktérkép Szerkesztő 2.0 Súgójában

    Bevezetés

    -

    A Vaktérkép Szerkesztővel egyszerűen készíthetünk vaktérképeket. +

    A Vaktérkép Szerkesztő 2.0 gyors és hatékony fejlesztést biztosít Vaktérkép projektek számára. Így egy dolgozat +elkészítésére akár egy szünet is elég. Vagy töltsön be egy előre elkészített projektet és alakítsa át saját igényei +szerint...

    +

    Újdonság

    - -

    Minimális rendszerkövetelmények

    - +

    Rendszerkövetelmények

    -
    -

    Kapcsolat

    -Ha a programmal kapcsolatban van megjegyzése, kérdése, akkor kérem írjon. + + +

    Támogatás

    +

    A Vaktérkép 2.0 alkalmazás-csomag freeware, így a program fejlesztéséből Én nem jutok semmilyen anyagi haszonra. +Ha a program elnyerte tetszését és pénztárcája megengedi, akkor egy kis összeggel, kérem segítse a csomag fejlesztését, hogy még +jobbá, gyorsabbá és igényesebbé tehessem azt.

    + +
    Átutalási számlaszám: 10404247-95367304-01800000
    +Nemzetközi Átutalási szám: HU24 1040 4247 9536 7304 0180 0000
    + +

    Támogatásukat előre is köszönöm: Muráti Ákos

    diff --git a/Help/szerkeszto/PAGE/KEZI.HTM b/Help/szerkeszto/PAGE/KEZI.HTM deleted file mode 100644 index 1a0c95d..0000000 --- a/Help/szerkeszto/PAGE/KEZI.HTM +++ /dev/null @@ -1,501 +0,0 @@ - - - Vaktérkép projektek kézi szerkesztése - - - - -

    Vaktérkép projektek kézi szerkesztése

    -

    A vaktérképek fizikai felépítése igen egyszerű: Parancs=<érték> vagy parancs.

    - -

    A parancs meghatározott szöveg.Nem kell különbséget tenni a kis és nagybetűk között.(A nem azonosítható, elgépelt parancsokat -a Vaktérkép figyelmen kívül hagyja.)

    - -

    Az <érték> kis megkötésekkel tetszőleges lehet.(A helytelenül megadott -értékek(pl.: rossz szintaktika, más tulajdonság, túl sok paraméter) programhibát okozhat. Erre -A Vaktékép egy Hiba(<szám>) üzenetet ad és a töltés megszakad.

    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Vaktérkép projekt parancsai
    Vaktérkép beállításai:
    Beállítáások tárolásaEgyéni projektbeállítások
    PonthatárokBeállítások menüpont
    Kitöltő jelPontok
    Kérdések levonásaiKérdések engedélyezése/tiltása
    Gyorstippek engedélyezése/tiltása
    Térkép tulajdonságai:
    Projekt elnevezéseHáttérkép megadása
    Egyéni Ponthatárok megadása
    Elemek és tulajdonságaik:
    Elemek létrehozásaSegítő kérdések
    Dőlt elemszövegFélkövér elemszöveg
    Aláhúzott elemszövegBetűméret megadása
    Elem színének megadásaSzöveg balra csatolása
    GyorstippekLáthatalan jel
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - - \ No newline at end of file diff --git a/Help/szerkeszto/PAGE/KILEP.HTM b/Help/szerkeszto/PAGE/KILEP.HTM index 4f7ab74..46cac5f 100644 --- a/Help/szerkeszto/PAGE/KILEP.HTM +++ b/Help/szerkeszto/PAGE/KILEP.HTM @@ -6,7 +6,7 @@

    Kilépés a Vaktérkép Szerkesztőből

    -

    Kattintsunk a Fájl menü Kilépés menüpontra továbbá +

    Kattintsunk a Prokjekt menü Kilépés menüpontra továbbá használjuk a [CTRL] + [K] illetve az [ALT] + [F4] billentyűkombinációt a Vaktérkép Szerkesztő főablakából vagy kattintsunk a Vaktérkép Szerkesztő ablakának jobb felső sarkában lévő X-re. Kép mutatása/elrejtése

    diff --git a/Help/szerkeszto/PAGE/MEGNYIT.HTM b/Help/szerkeszto/PAGE/MEGNYIT.HTM index 673d92e..dd58905 100644 --- a/Help/szerkeszto/PAGE/MEGNYIT.HTM +++ b/Help/szerkeszto/PAGE/MEGNYIT.HTM @@ -7,7 +7,7 @@

    Vaktérkép projektek megnyitása

      -
    1. Kattintsunk a Fájl menü Térkép megnyitása menüpontra +

    2. Kattintsunk a Projekt menü Projekt megnyitása menüpontra vagy használjuk a [CTRL] + [M] billentyűkombinációt a Vaktérkép Szerkesztő főablakából. Kép mutatása/elrejtése

      diff --git a/Help/szerkeszto/PAGE/MENT.HTM b/Help/szerkeszto/PAGE/MENT.HTM index 7e3f2e0..ebb924b 100644 --- a/Help/szerkeszto/PAGE/MENT.HTM +++ b/Help/szerkeszto/PAGE/MENT.HTM @@ -7,7 +7,7 @@

      Vaktérkép projektek mentése

        -
      1. Kattintsunk a Fájl menü Térkép mentése menüpontra +

      2. Kattintsunk a Projekt menü Projekt mentése menüpontra vagy használjuk a [CTRL] + [S] billentyűkombinációt a Vaktérkép Szerkesztő főablakából. Kép mutatása/elrejtése

        @@ -17,8 +17,15 @@
      3. A megjelenő párbeszédablakban válassza ki a mentés mappáját, adjon egy fájlnevet és kattintson a Mentés gombra.

      4. +
      +

      Képek mentése

      +

      Ha a projektünk tartalmaz képeket, akkor a Vaktérkép Szerkesztő automatikusan felajánlja a képek csatolását +a projekthez. Ilyenkor a projekt 'fájlnév_elemei' néven létrehoz egy mappát amibe bemásolja az összes használt képet. +Ha ezt ön elutasítja, akkor a program megpróbál létrehozni egy relatív elérési utat, ami csak úgy lehetséges, hogy +a projekt szülőkönyvtárában vagy annak valamely mappájában van a kép. Ha ez nem sikerül, akkor a teljes elérési utat +tárolja el.

      \ No newline at end of file diff --git a/Help/szerkeszto/PAGE/PTUL.HTM b/Help/szerkeszto/PAGE/PTUL.HTM index e5438ac..bec063a 100644 --- a/Help/szerkeszto/PAGE/PTUL.HTM +++ b/Help/szerkeszto/PAGE/PTUL.HTM @@ -7,18 +7,28 @@

      Vaktérkép projekt tulajdonságai

        -
      1. A tulajdonságok előhívásához kattintsunk a Térkép menü - Tulajdonságok menüpontjára, vagy a projekt egy üres területére - jobb gombbal kattintsunk és a felbukkanó menüből válasszuk ki a - Tulajdonságok menüpontot, vagy használjuk a [CTRL] + [T] billentyűkombinációt - a VAktérkép Szerkesztő főablakából, vagy ha látszódnak a görgetősávok, akkor a jobb alsó sarokban lévő - T gombra kattintással is előhívhatjuk. - Kép mutatása/elrejtése

        -

        +

      2. A Projekt tulajdonságok előhívásának sok letősége van: +

          +
        • kattintsunk a Projekt menü projekt Tulajdonságai menüpontjára + Kép mutatása/elrejtése +

        • +
        • a projekt egy üres területére kattintsunk duplán
        • +
        • jobb gombbal kattintsunk a projekt egy üres területére és a felbukkanó menüből válasszuk ki a + Tulajdonságok menüpontot
        • +
        • használjuk a [CTRL] + [T] billentyűkombinációt a Vaktérkép Szerkesztő főablakából
        • +
        • ha látszódnak a görgetősávok, akkor a jobb alsó sarokban lévő T gombra kattintással is előhívhatjuk.
        • +

      3. -
      4. Értelemszerűen állítsuk be a kívánt tulajdonságokat.

      5. - +
      6. Adjuk meg a projektünk nevét.

      7. +
      8. Válasszunk egy képet a projektünk alapjául. Az elérési út szövegmezője nem szerkeszthető kézzel, így kattintsunk a + mellette levő [<] gombra. Keressük meg a kívánt fájlt és nyugtázzuk a Megnyitás gombbal.

      9. + +
      10. Ha a képünknek csak egy részletét szeretnénk használni, akkor jelöljük ki azt a területet, úgy, hogy a + mintaképen kattintsunk arra a pontra ahonnan szeretnénk kijelölni és tartsuk nyomva a + a gombot majd húzzuk a addig a területig, amíg akarjuk, és engedjük fel. Választásunkat szaggatott vonal jelzi.

      11. + +
      12. Ha újra az egész képet szeretnénk használni, akkor kattintsunk duplán a mintára.

      13. A beállítások alkalmazásához kattintsunk az OK-ra, az elvetésükhöz pedig a Mégse gombra.

      14. diff --git a/Help/szerkeszto/PAGE/SCRIPTEK.JS b/Help/szerkeszto/PAGE/SCRIPTEK.JS index 3edbdf8..f2b59c8 100644 --- a/Help/szerkeszto/PAGE/SCRIPTEK.JS +++ b/Help/szerkeszto/PAGE/SCRIPTEK.JS @@ -19,6 +19,6 @@ function latszat() { } function kapcsolat() { - document.write('

        Muráti Ákos
        e-mail: b0murako@gyakg.u-szeged.hu
        honlap: www.tar.hu/murako

        '); + document.write('

        Kapcsolatfelvétel

        Muráti Ákos
        e-mail: murako@index.hu
        Honlap: www.murako.ini.hu

        '); } \ No newline at end of file diff --git a/Help/szerkeszto/PAGE/SUGO.HTM b/Help/szerkeszto/PAGE/SUGO.HTM index 679f12c..b676774 100644 --- a/Help/szerkeszto/PAGE/SUGO.HTM +++ b/Help/szerkeszto/PAGE/SUGO.HTM @@ -5,7 +5,7 @@ -

        Vaktérkép Súgó menüje

        +

        Vaktérkép Szerkesztő Súgó menüje

        Súgó

        Kattintsunk a Súgó menü Súgó menüpontra továbbá használjuk a [F1] billentyűkombinációt a Vaktérkép Szerkesztő diff --git a/Help/szerkeszto/PAGE/SZERK.HTM b/Help/szerkeszto/PAGE/SZERK.HTM index 259be91..c7b8197 100644 --- a/Help/szerkeszto/PAGE/SZERK.HTM +++ b/Help/szerkeszto/PAGE/SZERK.HTM @@ -12,7 +12,7 @@ nyissunk meg egyet.

      15. Állítsuk be a projektunk tulajdonságait(adjunk neki nevet, rendeljünk hozzá - egy képet, ha szükséges adjunk meg neki egyedi ponthatárokat.)

      16. + egy képet, ha szükséges jelöljük ki a kép használni kívánt területét)

      17. Vegyük fel a megfelelő helyekre a elemeket állítsuk be a tulajdonságaikat belátásunk alapján. Ha lehet mindig készítsünk jelmagyarázatot a Vaktérkép felhasználók diff --git a/Help/szerkeszto/PAGE/UJ.HTM b/Help/szerkeszto/PAGE/UJ.HTM index 4d451f7..e862c5a 100644 --- a/Help/szerkeszto/PAGE/UJ.HTM +++ b/Help/szerkeszto/PAGE/UJ.HTM @@ -1,21 +1,21 @@ - Új Térkép + Új Projekt -

        Új Térkép létrehozása

        +

        Új Projekt létrehozása

          -
        1. Kattintsunk a Fájl menü Új Térkép menüpontra +

        2. Kattintsunk a Projekt menü Új projekt menüpontra vagy használjuk a [CTRL] + [U] billentyűkombinációt a Vaktérkép Szerkesztő főablakából. Kép mutatása/elrejtése

        3. -
        4. Ha esetleg szerkesztett és nem mentette el a régi térképet, akkor a - program felajánlja a mentés lehetőségét a régi törlése előtt.

        5. +
        6. Ha esetleg szerkesztett és nem mentette el az előző projektjét, akkor a + program felajánlja a mentés lehetőségét annak megsemmisítése előtt.

        \ No newline at end of file diff --git a/Help/szerkeszto/szerkeszto.chm b/Help/szerkeszto/szerkeszto.chm index 9bc847f..cb69d40 100644 Binary files a/Help/szerkeszto/szerkeszto.chm and b/Help/szerkeszto/szerkeszto.chm differ diff --git a/Help/szerkeszto/szerkeszto.hhc b/Help/szerkeszto/szerkeszto.hhc index 1ce1a01..7670085 100644 --- a/Help/szerkeszto/szerkeszto.hhc +++ b/Help/szerkeszto/szerkeszto.hhc @@ -18,16 +18,16 @@
        • - - + +
        • - - + +
        • - - + +
        • @@ -51,23 +51,23 @@
          • - +
            • - +
            • - +
            • - +
            • - +
            • @@ -77,13 +77,18 @@
            • - +
                +
              • + + + +
              • + + + +
              -
            • - - -
            • diff --git a/Help/szerkeszto/szerkeszto.hhk b/Help/szerkeszto/szerkeszto.hhk index e1e104f..51f49a9 100644 --- a/Help/szerkeszto/szerkeszto.hhk +++ b/Help/szerkeszto/szerkeszto.hhk @@ -47,6 +47,11 @@ +
            • + + + +
            • @@ -65,9 +70,21 @@
            • - - - + + + + + + +
            • + + + + +
            • + + +
            • @@ -85,31 +102,19 @@
            • - - - - -
            • - - - - -
            • - + + +
            • - + - -
            • - - @@ -117,35 +122,22 @@ - -
            • - -
            • - -
            • -
            • - - - - - -
            • @@ -157,8 +149,11 @@ - - + +
            • + + +
            • @@ -169,22 +164,22 @@
            • - - + +
            • - + + +
            • - + - -
            • @@ -196,13 +191,6 @@ -
            • - - - - - -
            • @@ -229,8 +217,11 @@ - - + +
            • + + +
            • @@ -247,12 +238,17 @@ +
            • + + + + + +
            • - -
            • diff --git a/Help/szerkeszto/szerkeszto.hhp b/Help/szerkeszto/szerkeszto.hhp index 911f524..faa02a0 100644 --- a/Help/szerkeszto/szerkeszto.hhp +++ b/Help/szerkeszto/szerkeszto.hhp @@ -15,7 +15,6 @@ Title=Vakt page\bill.htm page\elem.htm page\eula.htm -page\kezi.htm page\kilep.htm page\megnyit.htm page\ment.htm @@ -24,7 +23,6 @@ page\sugo.htm page\szerk.htm page\uj.htm page\kezdo.htm -page\forras.htm [INFOTYPES] diff --git a/Help/vakterkep/DESIGN/BEALL.BMP b/Help/vakterkep/DESIGN/BEALL.BMP deleted file mode 100644 index 0f23be0..0000000 Binary files a/Help/vakterkep/DESIGN/BEALL.BMP and /dev/null differ diff --git a/Help/vakterkep/DESIGN/ERT.BMP b/Help/vakterkep/DESIGN/ERT.BMP deleted file mode 100644 index 93df7d3..0000000 Binary files a/Help/vakterkep/DESIGN/ERT.BMP and /dev/null differ diff --git a/Help/vakterkep/DESIGN/JELM.BMP b/Help/vakterkep/DESIGN/JELM.BMP deleted file mode 100644 index 6e786a2..0000000 Binary files a/Help/vakterkep/DESIGN/JELM.BMP and /dev/null differ diff --git a/Help/vakterkep/DESIGN/KILEP.BMP b/Help/vakterkep/DESIGN/KILEP.BMP deleted file mode 100644 index fbdc072..0000000 Binary files a/Help/vakterkep/DESIGN/KILEP.BMP and /dev/null differ diff --git a/Help/vakterkep/DESIGN/MEGNYIT.BMP b/Help/vakterkep/DESIGN/MEGNYIT.BMP deleted file mode 100644 index c36d56d..0000000 Binary files a/Help/vakterkep/DESIGN/MEGNYIT.BMP and /dev/null differ diff --git a/Help/vakterkep/PAGE/BEALL.HTM b/Help/vakterkep/PAGE/BEALL.HTM index 7b8d706..9fa0c5a 100644 --- a/Help/vakterkep/PAGE/BEALL.HTM +++ b/Help/vakterkep/PAGE/BEALL.HTM @@ -12,7 +12,7 @@ enged
            • Kattintsuk az Eszközök menü Beállítások menüpontjára,vagy használjuk a [CTRL] + [B] billentyűkombinációt a Vaktérkép főablakából.
              - Ha ez a menüpont nem elérhetö, akkor parancssorból adjuk ki a 'vakterkep.exe /beall' parancsot és így + Ha ez a menüpont nem elérhetö, akkor parancssorból adjuk ki a 'vakterkep.exe -nobea' parancsot és így próbáljuk a fentebb leírtakat. Kép mutatása/elrejtése

              diff --git a/Help/vakterkep/PAGE/BILL.HTM b/Help/vakterkep/PAGE/BILL.HTM index 8cc9470..7929aed 100644 --- a/Help/vakterkep/PAGE/BILL.HTM +++ b/Help/vakterkep/PAGE/BILL.HTM @@ -6,9 +6,9 @@

              Vaktérkép funkcióbillenytűi

              + +

              Fókuszban lévő projekten kiadható billentyűparancsok

              - - @@ -30,9 +30,18 @@ - - + + + + + + + + +

              Billentyűparancsok

              Események

              [CTRL] + [M] Vaktérkép megnyitása
              [CTRL] + [B] Vaktérkép beállításai
              [F1]Vaktérkép Súgója
              [<] vagy [ ^ ]Előző elem kijelölése szerkesztésre
              [>] vagy [ ˇ ]Következő elem kijelölése szerkesztésre
              [ENTER]Kijelölt elem megnyitása szerkesztésre
              +

              Szerkesztésre megnyitott elemnél kiadható billentyűparancsok

              + diff --git a/Help/vakterkep/PAGE/ERT.HTM b/Help/vakterkep/PAGE/ERT.HTM index f1dc699..e567506 100644 --- a/Help/vakterkep/PAGE/ERT.HTM +++ b/Help/vakterkep/PAGE/ERT.HTM @@ -21,7 +21,6 @@ maximum ötször értékeltethetjük ki a munkánkat. A pontok meghatározásánál próbánkként 20% vesz teséget jelent. -

            • A hibás megnevezések pirosas színben, a helyes megnevezések zöld színben jelölődnek ki.

            • diff --git a/Help/vakterkep/PAGE/HASZNAL.HTM b/Help/vakterkep/PAGE/HASZNAL.HTM index ff721b3..647c7d9 100644 --- a/Help/vakterkep/PAGE/HASZNAL.HTM +++ b/Help/vakterkep/PAGE/HASZNAL.HTM @@ -7,20 +7,18 @@

              Vaktérkép használata

                -
              1. Meg kell megnyitni a használni - kíván térképet. Ha ez sikerült(nem kaptunk hibaüzenetet), akkor - látnunk kell egy térképet, amelyen pontok és mellettük alapértelmezésben'?'-ek +

              2. A Fájl menü Megnyitás menüpontjával töltsük be a használni + kíván projektet. Ha ez sikerült(nem kaptunk hibaüzenetet), akkor + látnunk kell egy képet, amelyen kijelölt pontok és mellettük alapértelmezésben'?'-ek vannak.

              3. -
              4. Kattinsunk rá valamelyik pontra, vagy kérdőjelre

              5. +
              6. Kattinsunk rá valamelyik elemre, vagy jelöljük ki nyilak segítségével és üssünk [ENTER]-t.

              7. Megjelenik egy szövegboboz, ide írjuk be a pontnak megfelelő nevet. Ügyeljünk a pontos gépelésre(kis és nagy betű nem számít)!

              8. -
              9. Ha segítségre van szükségünk és a megnyitott vaktérkép tartalmazza ezt, +

              10. Ha segítségre van szükségünk és a megnyitott projekt tartalmaz, akkor használjunk jelmagyarázatot.

              11. Beírás után [ENTER]-rel nyugtázhatjuk, [ESC]-kel vagy máshova kattintással elvethetjük a változtatást.

              12. Ha befejeztük a pontok elnevezését, akkor értékeltessük le a munkánkat

              13. - -
              \ No newline at end of file diff --git a/Help/vakterkep/PAGE/HIBA.HTM b/Help/vakterkep/PAGE/HIBA.HTM index 2429b19..491b34d 100644 --- a/Help/vakterkep/PAGE/HIBA.HTM +++ b/Help/vakterkep/PAGE/HIBA.HTM @@ -7,7 +7,10 @@ -

              Hibaüzenetek

              +

              Hibajelentések

              +

              Ha a Vaktérkép 2 az itt leírtaktól eltérően működik, akkor kérem írja meg részletesen a hiba előidézését, felbukkanását +és következményét. Az esetlegesen felbukkanó hibákkal kapcsolatban előre is elnézésüket kérem.

              +

              A projekt nem nyitható meg...

              Ezt a hibaüzenetet akkor kapjuk, ha a megnyitni kívánt fájl nem található a megadott helyen. diff --git a/Help/vakterkep/PAGE/JELM.HTM b/Help/vakterkep/PAGE/JELM.HTM index 72c140c..d52c66d 100644 --- a/Help/vakterkep/PAGE/JELM.HTM +++ b/Help/vakterkep/PAGE/JELM.HTM @@ -7,7 +7,7 @@

              Jelmagyarázat használata

              Csak akkor vehetjük igénybe ezt a szolgáltatást, ha a -vaktérkép tartalmaz jelmagyarázatot.

              +vaktérkép tartalmaz jelmagyarázatot. Ellenkező esetben ez a menüpont inaktív állapotban van.

              1. Kattintsuk az Eszközök menü Jelmagyarázat menüpontjára,vagy használjuk a [CTRL] + [J] billentyűkombinációt a Vaktérkép diff --git a/Help/vakterkep/PAGE/KEPEK/KILEP.GIF b/Help/vakterkep/PAGE/KEPEK/KILEP.GIF index c7f4063..2c0585a 100644 Binary files a/Help/vakterkep/PAGE/KEPEK/KILEP.GIF and b/Help/vakterkep/PAGE/KEPEK/KILEP.GIF differ diff --git a/Help/vakterkep/PAGE/KEPEK/MEGNYIT.GIF b/Help/vakterkep/PAGE/KEPEK/MEGNYIT.GIF index fa12d95..d35edf8 100644 Binary files a/Help/vakterkep/PAGE/KEPEK/MEGNYIT.GIF and b/Help/vakterkep/PAGE/KEPEK/MEGNYIT.GIF differ diff --git a/Help/vakterkep/PAGE/KEPEK/NYOMTAT.GIF b/Help/vakterkep/PAGE/KEPEK/NYOMTAT.GIF new file mode 100644 index 0000000..5d80f34 Binary files /dev/null and b/Help/vakterkep/PAGE/KEPEK/NYOMTAT.GIF differ diff --git a/Help/vakterkep/PAGE/KEPEK/UJ.GIF b/Help/vakterkep/PAGE/KEPEK/UJ.GIF index 7067b5c..4e083c8 100644 Binary files a/Help/vakterkep/PAGE/KEPEK/UJ.GIF and b/Help/vakterkep/PAGE/KEPEK/UJ.GIF differ diff --git a/Help/vakterkep/PAGE/KEZDO.HTM b/Help/vakterkep/PAGE/KEZDO.HTM index 18f82b7..7b6a4fd 100644 --- a/Help/vakterkep/PAGE/KEZDO.HTM +++ b/Help/vakterkep/PAGE/KEZDO.HTM @@ -1,44 +1,48 @@ - Üdvözlöm a Vaktérkép Súgójában + Üdvözlöm a Vaktérkép 2 Súgójában -

                Üdvözlöm a Vaktérkép Súgójában

                +

                Üdvözlöm a Vaktérkép 2 Súgójában

                Bevezetés

                -

                A Vaktérkép lehetővé teszi már előre elkészített vaktérképek használatát. +

                A Vaktérkép 2 új lehetőségeket teremt a modernizált oktatásban. Nincs szükség többé topográfiai dolgozatok kidolgozására, +nyomtatására, vagy javítására. Segítségével a felhasználó felmérheti és kiértékeltetheti tudását az aktuális tananyagból. Legyen az +földrajz, történelem vagy más kikérdezhető névanyaggal rendelkező tantárgy. +

                +

                Újdonságok

                  -
                • Egyszerűen kezelhető
                • -
                • Jelmagyarázat a kikérdezés segítéséhez -
                • Gyors, áttekinthető és konfigurálható értékelés
                • -
                • Látványos elemek
                • +
                • Még egyszerűbb, egér nélkül is kezelhető felület
                • +
                • Méretezhető testreszabható alakzatok +
                • Több kép elhelyezése a projekteken
                • +
                • Megjegyzések támogatása
                • +
                • Tetszőleges pozíciójú szövegelhelyezés
                • +
                • Elemenként 10 rávezető kérdés lehetősége
                • +
                • Pontos, gyors, áttekinthető és konfigurálható értékelési eljárás

                -

                Minimális rendszerkövetelmények

                - +

                Rendszerkövetelmények

                  -
                • Microsoft Windows 9x/NT/ME/XP
                • -
                • 4kB szükséges lemezterület.
                • +
                • 233 Mhz-es Processzor
                • 32 MB RAM
                • -
                • 133 Mhz- es Processzor
                • -
                • Visual Basic 6 runtime library(4 MB) -
                    -
                  • MSVBVM60.DLL
                  • -
                  • MSDERUN.DLL
                  • -
                  • MSCOMCTL.OCX
                  • -
                  • OLEPRO32.DLL
                  • -
                  • OLEAUT32.DLL
                  • -
                  • COMDLG32.OCX
                  • -
                  • COMCAT.DLL
                  • -
                  • ASYCFILT.DLL
                  • -
                • +
                • Minimum 1MB szabad lemezterület.
                • +
                • Microsoft Windows operációs rendszer
                • +
                • Microsoft Visual Basic 6 Runtime fájlok(lehetőleg Service Pack 5 patchel) +
                • Microsoft Commondialog32 ActiveX vezérlő(comdlg32.ocx)
                -
                -

                Kapcsolat

                -Ha a programmal kapcsolatban van megjegyzése, kérdése, akkor kérem írjon. + +

                Támogatás

                +

                A Vaktérkép 2.0 alkalmazás-csomag freeware, így a program fejlesztéséből Én nem jutok semmilyen anyagi haszonra. +Ha a program elnyerte tetszését és pénztárcája megengedi, akkor egy kis összeggel, kérem segítse a csomag fejlesztését, hogy még +jobbá, gyorsabbá és igényesebbé tehessem azt.

                + +
                Átutalási számlaszám: 10404247-95367304-01800000
                +Nemzetközi Átutalási szám: HU24 1040 4247 9536 7304 0180 0000
                + +

                Támogatásukat előre is köszönöm: Muráti Ákos

                diff --git a/Help/vakterkep/PAGE/KIEG.HTM b/Help/vakterkep/PAGE/KIEG.HTM index 49f3c6a..b248757 100644 --- a/Help/vakterkep/PAGE/KIEG.HTM +++ b/Help/vakterkep/PAGE/KIEG.HTM @@ -1,6 +1,6 @@ - Kiegészítők + Kiegészítő lehetőségek @@ -8,14 +8,19 @@

                Kiegészítő lehetőségek

                Segítő kérdések

                -

                Elemre szóló, előre beállított kérdéseket tehetünk fel a felhasználónak, ha elsőre nem tudja eltalálni -az elem nevét. Ha rákattintunk egy így megjelölt elemre, akkor kapunk egy beviteli ablakot, amin +

                Elemenként 10 kérdést tehetünk fel a felhasználónak, ha elsőre nem tudja eltalálni +az elem nevét. Ha rákattintunk vagy [ENTER]-t ütünk egy kijelölt elemre, akkor kapunk egy beviteli ablakot, amin szerepel a kérdés. A választ pontosan meg kell adni a helyes értékelés érdekében. Ha üresen -hagyjuk a bevitelimezőt és így nyugtázzuk, akkor ugyan azt érjük el mint ha a Mégsére kattintottunk volna. -A beviteliablak nyelve a rendszerünktől függ!. Az elem addig blokkolva van, amíg nem adunk helyes választ egy kérdésre.

                +hagyjuk a bevitelimezőt és így nyugtázzuk, akkor ugyan azt érjük el mint ha a Mégsére kattintottunk volna.Ilyenkor a következő +kérdést fogja feltenni, ha mégegyszer megnyitjuk.Az elem addig blokkolva van, amíg nem adunk helyes választ egy kérdésre, vagy el nem +fogynak a kérdések.Minden egyes helytelen válasz az értékelésben megadott elvek alapján pontveszteséggel jár.

                Gyorstippek

                Szintén elemre definiált szövegek. Akkor hívhatjuk elő, ha rámutatunk egy elemre és 1 másodpercig rajtatartjuk az egeret.

                + +

                Megjegyzések

                +

                A Szekesztőnek lehetősége van megjegyzések elhelyzésére a projekten. Ezek úgy jelennnek meg, mintha a Kép részei lennének.

                + \ No newline at end of file diff --git a/Help/vakterkep/PAGE/MEGNYIT.HTM b/Help/vakterkep/PAGE/MEGNYIT.HTM index 4cb6924..b0716f4 100644 --- a/Help/vakterkep/PAGE/MEGNYIT.HTM +++ b/Help/vakterkep/PAGE/MEGNYIT.HTM @@ -1,13 +1,13 @@ - Vaktérképek megnyitása + Projektek megnyitása -

                Vaktérképek megnyitása

                +

                Projektek megnyitása

                  -
                1. Kattintsunk a Fájl menü Térkép megnyitása menüpontra +

                2. Kattintsunk a Fájl menü Megnyitás menüpontra vagy használjuk a [CTRL] + [M] billentyűkombinációt a Vaktérkép főablakából. Kép mutatása/elrejtése

                  @@ -15,7 +15,7 @@

                3. A megjelenő párbeszédablakban válassza ki a megnyitni kívánt fájl - és kattintson a Megnyitás gombra, vagy kattintson kétszer a fájlra.

                  + és kattintson a Megnyitás gombra, vagy kétszer a fájlra.

                A Vaktérkép támogatja a Vaktérkép fájlok(*.vtk) hozzárendelését is. Ennek az opciónak az diff --git a/Help/vakterkep/PAGE/NYOMTAT.HTM b/Help/vakterkep/PAGE/NYOMTAT.HTM new file mode 100644 index 0000000..44204a0 --- /dev/null +++ b/Help/vakterkep/PAGE/NYOMTAT.HTM @@ -0,0 +1,23 @@ + + + Projektek nyomtatása + + + + +

                Projektek nyomtatása

                +

                A Vaktérkép biztosítja a projektek nyomtatását is, ami a digitális dolgozatok hagyományos papír formába történő konvertálását teszi lehetővé.

                +
                  +
                1. Kattintsuk az Fájl menü nyomtatás + menüpontjára. + Kép mutatása/elrejtése

                  +

                  +

                2. +
                3. A megjelenő ablakban láthatjuk a projektünk nyomtatásban megjelenő kicsinyített mását.

                4. +
                5. Állítsuk be a megfelelő nyomtatási paramétereket.

                6. +
                7. A nyomtatás megkezdéséhez kattintsunk a Nyomtat gombra.

                8. +
                9. A Nyomtatás ablak bezárásához kattintsunk a Bezár gombra.

                10. +
                + + + \ No newline at end of file diff --git a/Help/vakterkep/PAGE/SCRIPTEK.JS b/Help/vakterkep/PAGE/SCRIPTEK.JS index 3edbdf8..f2b59c8 100644 --- a/Help/vakterkep/PAGE/SCRIPTEK.JS +++ b/Help/vakterkep/PAGE/SCRIPTEK.JS @@ -19,6 +19,6 @@ function latszat() { } function kapcsolat() { - document.write('

                Muráti Ákos
                e-mail: b0murako@gyakg.u-szeged.hu
                honlap: www.tar.hu/murako

                '); + document.write('

                Kapcsolatfelvétel

                Muráti Ákos
                e-mail: murako@index.hu
                Honlap: www.murako.ini.hu

                '); } \ No newline at end of file diff --git a/Help/vakterkep/PAGE/SUGO.HTM b/Help/vakterkep/PAGE/SUGO.HTM index b65aa8d..b17b7a8 100644 --- a/Help/vakterkep/PAGE/SUGO.HTM +++ b/Help/vakterkep/PAGE/SUGO.HTM @@ -9,21 +9,23 @@

                Súgó

                Kattintsunk a Súgó menü Súgó menüpontra továbbá használjuk a [F1] billentyűkombinációt a Vaktérkép - főablakából + főablakából. Kép mutatása/elrejtése

                Névjegy

                +

                Itt lehetősége nyílik e-mail küldésére és felléphet a Vaktérkép 2 oldalára is az esetleges frissítések, javítások +vagy kész projektek letöltése érdekében.

                1. Kattintsunk a Súgó menü Névjegy menüpontra továbbá - használjuk a [CTRL] + [N] billentyűkombinációt a Vaktérkép + használjuk a [CTRL] + [N] billentyűkombinációt a Vaktérkép 2 főablakából Kép mutatása/elrejtése

                2. -
                3. A bezáráshoz kattintsunk a Vaktérkép logojára, vagy +

                4. A bezáráshoz kattintsunk a Vaktérkép 2 logojára, vagy egyszerűen kattintsunk az ablak jobb felső sarkában lévő X-re.

                diff --git a/Help/vakterkep/PAGE/UJ.HTM b/Help/vakterkep/PAGE/UJ.HTM index 9ae543a..4c70d7a 100644 --- a/Help/vakterkep/PAGE/UJ.HTM +++ b/Help/vakterkep/PAGE/UJ.HTM @@ -1,13 +1,13 @@ - Újra Kezd + Megnyitott projekt újra kezdése -

                Térkép újra kezdése

                -

                Újra kezdhetjük vele a megnyitott vaktérképet amélkül, hogy újra kellene -töltenünk a projektet. Törli az eddigi értékeléseket és beírásokat.

                +

                Megnyitott projekt újra kezdése

                +

                Újra kezdhetjük vele a megnyitott projektet anélkül, hogy újra be kellene töltenünk azt. +Minden addigi beírt szöveget, elért pontszámot töröl ez a menüpont.

                1. Kattintsunk a Fájl menü Újra Kezd menüpontra vagy használjuk a [CTRL] + [U] billentyűkombinációt a Vaktérkép főablakából. diff --git a/Help/vakterkep/vakterkep.chm b/Help/vakterkep/vakterkep.chm index 272d924..c8c036f 100644 Binary files a/Help/vakterkep/vakterkep.chm and b/Help/vakterkep/vakterkep.chm differ diff --git a/Help/vakterkep/vakterkep.hhc b/Help/vakterkep/vakterkep.hhc index 9bf6a35..b337d40 100644 --- a/Help/vakterkep/vakterkep.hhc +++ b/Help/vakterkep/vakterkep.hhc @@ -17,11 +17,11 @@

                  • - +
                  • - +
                  • @@ -48,6 +48,10 @@ +
                  • + + +
                  • @@ -72,9 +76,13 @@
                  • - + +
                  • + + +
                  • diff --git a/Help/vakterkep/vakterkep.hhk b/Help/vakterkep/vakterkep.hhk index 0725ced..d68f4dc 100644 --- a/Help/vakterkep/vakterkep.hhk +++ b/Help/vakterkep/vakterkep.hhk @@ -73,6 +73,16 @@ +
                  • + + + + +
                  • + + + +
                  • @@ -98,11 +108,6 @@ -
                  • - - - -
                  • @@ -185,7 +190,7 @@
                  • - + @@ -194,6 +199,11 @@ +
                  • + + + +
                  • @@ -214,6 +224,11 @@ +
                  • + + + +
                  • @@ -243,6 +258,11 @@ +
                  • + + + +
                  • diff --git a/Help/vakterkep/vakterkep.hhp b/Help/vakterkep/vakterkep.hhp index 17f3dff..60ce7fc 100644 --- a/Help/vakterkep/vakterkep.hhp +++ b/Help/vakterkep/vakterkep.hhp @@ -7,7 +7,7 @@ Display compile progress=Yes Full-text search=Yes Index file=vakterkep.hhk Language=0x40e magyar -Title=Vaktérkép Súgó +Title=Vaktérkép 2 Súgó [FILES] @@ -24,6 +24,7 @@ page\hiba.htm page\uj.htm page\kieg.htm page\kezdo.htm +page\nyomtat.htm [INFOTYPES] diff --git "a/Maps/Afganiszt\303\241n.vtk" "b/Maps/Afganiszt\303\241n.vtk" new file mode 100644 index 0000000..cdfd2f9 --- /dev/null +++ "b/Maps/Afganiszt\303\241n.vtk" @@ -0,0 +1,225 @@ +;Vaktérkép 2.0 által generált térképfájl +;Muráti Ákos 2003 - Minden jog fenntartva. + +cim=Afganisztán +kep=\Térképek\afganisztan.gif +kijelol=0;0;5265;5670 +nagyitas=1 + + + + + + + + + + + + + + + + + + + + + diff --git a/Maps/Azsia.vtk b/Maps/Azsia.vtk new file mode 100644 index 0000000..be7045c --- /dev/null +++ b/Maps/Azsia.vtk @@ -0,0 +1,335 @@ +;Vaktérkép 2.0 által generált térképfájl +;Muráti Ákos 2003 - Minden jog fenntartva. + +cim=Ázsia +kep=\Térképek\azsia.gif +kijelol=0;0;6540;6000 +nagyitas=1 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git "a/Maps/Eur\303\263pa.vtk" "b/Maps/Eur\303\263pa.vtk" index 001d9a0..28506b4 100644 --- "a/Maps/Eur\303\263pa.vtk" +++ "b/Maps/Eur\303\263pa.vtk" @@ -1,24 +1,85 @@ -cim=Európa -terkep=\zk_eu.gif -alahuzott -kover -meret=9,75 -szin=4227327 -elem=3,8618,8963,Budapest -alahuzott -kover -meret=9,75 -szin=4227327 -elem=3,4118,6908,London -alahuzott -kover -meret=9,75 -szin=4227327 -elem=3,6788,10838,Róma -szin=-2147483630 -elem=3,8888,9638,Szeged -alahuzott -kover -meret=9,75 -szin=4227327 -elem=7,3,0,Főváros +;Vaktérkép 2.0 által generált térképfájl +;Muráti Ákos 2003 - Minden jog fenntartva. + +cim=Névtelen projekt +kep=\Térképek\europa_z.gif +kijelol=0;0;18945;15240 +nagyitas=0,75 + + + + + + diff --git a/Maps/Jelek/ranger.gif b/Maps/Jelek/ranger.gif new file mode 100644 index 0000000..18ce254 Binary files /dev/null and b/Maps/Jelek/ranger.gif differ diff --git "a/Maps/Nagy Magyarorsz\303\241g.vtk" "b/Maps/Nagy Magyarorsz\303\241g.vtk" index 2bce4f3..3e626b0 100644 --- "a/Maps/Nagy Magyarorsz\303\241g.vtk" +++ "b/Maps/Nagy Magyarorsz\303\241g.vtk" @@ -1,86 +1,303 @@ +;Vaktérkép 2.0 által generált térképfájl +;Muráti Ákos 2003 - Minden jog fenntartva. + cim=Nagy Magyarország -terkep=\nmo.GIF -elem=3,2498,1823,Pozsony -kerdes=1,1,Régen gyakran voltak itt gyűlések\nSok sikert a többihez\n\nÜdv: Muráti Ákos -kerdes=2,2,Szlovákia fővárosa -kerdes=3,3,Írd má be hogy "POZSONY" -kerdes=4,4,Írd má be hogy "POZSONY" -kerdes=5,5,Írd má be hogy "POZSONY" -alahuzott -kover -szin=4227327 -elem=3,4013,2558,Buda -kerdes=1,első megoldás,Hozzácsatolták egy másik városhoz -kerdes=2,harmadik,NEM PEST! -kerdes=3,negyedik,Pszzt!!! BUDA!!! -kerdes=4,ötödik,Mondom!!!!\n\nBBBUUUDDDAAAA!\nNa. Hülyegyerek -tipp=Budapest lesz a neve később... -kover -szin=4210816 -elem=3,4868,4028,Szeged -alahuzott -kover -szin=33023 -elem=3,1823,1703,Bécs -tipp=Ausztria Fővárossa -elem=3,7583,3263,Kolozsvár -elem=3,5318,743,Lőcse -elem=3,5723,1118,Kassa -elem=3,5813,1868,Tokaj -elem=3,6038,2513,Várad -elem=3,3593,2888,Székesfehérvár -elem=3,3218,2213,Komárom -elem=3,4073,2213,Esztergom -elem=3,3308,2723,Pannonhalma -elem=3,5753,4628,Temesvár -elem=3,8363,3773,Segesvár -elem=3,5813,4043,Csanád -elem=3,6188,3923,Arad -elem=3,7238,4493,Lippa -alahuzott -kover -szin=4227327 -elem=3,3023,128,Prága -elem=3,4973,2333,Eger -kover -meret=17,25 -szin=32768 -elem=1,4373,6188,Török birodalom -kover -meret=17,25 -szin=32768 -balra -elem=1,9728,263,Lengyelország -alahuzott -kover -szin=4227327 -elem=7,3,0,Főváros -kover -meret=13,5 -szin=32768 -elem=7,1,0,Ország -kover -meret=12 -szin=255 -elem=1,473,5018,Dalmácia -kover -meret=12 -szin=255 -elem=1,7103,2513,Erdély -kover -meret=12 -szin=255 -elem=1,3668,968,Felvidék -kover -meret=12 -szin=255 -elem=1,2123,2918,Dunántúl -kover -meret=17,25 -szin=32768 -elem=1,98,1868,NRB -kover -meret=12 -szin=255 -elem=7,1,0,Magyar területek -elem=7,3,0,Városok +kep=\Térképek\nagy_mo.gif +kijelol=0;0;10245;6645 +nagyitas=1 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git "a/Maps/T\303\251rk\303\251pek/afganisztan.gif" "b/Maps/T\303\251rk\303\251pek/afganisztan.gif" new file mode 100644 index 0000000..7ddd1a5 Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/afganisztan.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/amerika_del.gif" "b/Maps/T\303\251rk\303\251pek/amerika_del.gif" new file mode 100644 index 0000000..7bf6ffc Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/amerika_del.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/amerika_kozep.gif" "b/Maps/T\303\251rk\303\251pek/amerika_kozep.gif" new file mode 100644 index 0000000..9331cc2 Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/amerika_kozep.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/azsia.gif" "b/Maps/T\303\251rk\303\251pek/azsia.gif" new file mode 100644 index 0000000..0ee2663 Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/azsia.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/brit_szigetek.gif" "b/Maps/T\303\251rk\303\251pek/brit_szigetek.gif" new file mode 100644 index 0000000..4de077a Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/brit_szigetek.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/europa.gif" "b/Maps/T\303\251rk\303\251pek/europa.gif" new file mode 100644 index 0000000..c64df4d Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/europa.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/europa_z.gif" "b/Maps/T\303\251rk\303\251pek/europa_z.gif" new file mode 100644 index 0000000..cd66595 Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/europa_z.gif" differ diff --git "a/Maps/T\303\251rk\303\251pek/fold.jpg" "b/Maps/T\303\251rk\303\251pek/fold.jpg" new file mode 100644 index 0000000..8fd6967 Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/fold.jpg" differ diff --git "a/Maps/T\303\251rk\303\251pek/nagy_mo.gif" "b/Maps/T\303\251rk\303\251pek/nagy_mo.gif" new file mode 100644 index 0000000..60bf139 Binary files /dev/null and "b/Maps/T\303\251rk\303\251pek/nagy_mo.gif" differ diff --git a/Setup/DIS.BMP b/Setup/DIS.BMP deleted file mode 100644 index 03eaa87..0000000 Binary files a/Setup/DIS.BMP and /dev/null differ diff --git a/Setup/EN.BMP b/Setup/EN.BMP deleted file mode 100644 index 5ad5f92..0000000 Binary files a/Setup/EN.BMP and /dev/null differ diff --git a/Setup/Files/LICENSE.TXT b/Setup/Files/LICENSE.TXT deleted file mode 100644 index 5b63949..0000000 --- a/Setup/Files/LICENSE.TXT +++ /dev/null @@ -1 +0,0 @@ -Licike \ No newline at end of file diff --git a/Setup/Files/VB6.NSI b/Setup/Files/VB6.NSI deleted file mode 100644 index 7514f5a..0000000 --- a/Setup/Files/VB6.NSI +++ /dev/null @@ -1,22 +0,0 @@ -;Visual Basic 6 Runtime Library Telepítő - -Name "VB6 Runtime Komponensek" -CAption "Visual Basic 6 Runtime komponensek telepítése" - - -Subcaption 0 " " -Subcaption 1 " " -Subcaption 2 " " -Subcaption 3 " " -Subcaption 4 " " - -MiscButtontext "" "Mégse" "Bezár" -Installbuttontext "Telepítés" - -Outfile "vb6r.exe" -Dirshow hide -Installdir $SYSDIR - -Licensetext "Kérem figyelmesen olvassa el az alábbi license feltételeket." -licensedata "license.txt" - diff --git a/Setup/ICON.ICO b/Setup/ICON.ICO deleted file mode 100644 index 231f449..0000000 Binary files a/Setup/ICON.ICO and /dev/null differ diff --git a/Setup/LICENSE.RTF b/Setup/LICENSE.RTF new file mode 100644 index 0000000..3635898 --- /dev/null +++ b/Setup/LICENSE.RTF @@ -0,0 +1,35 @@ +{\rtf1\ansi\ansicpg1250\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1038\deflangfe1038{\fonttbl{\f0\froman\fcharset238\fprq2{\*\panose 02020603050405020304}Times New Roman;} +{\f1\fswiss\fcharset238\fprq2{\*\panose 020b0604020202020204}Arial;}{\f38\froman\fcharset0\fprq2 Times New Roman;}{\f37\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f39\froman\fcharset161\fprq2 Times New Roman Greek;} +{\f40\froman\fcharset162\fprq2 Times New Roman Tur;}{\f41\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f42\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f43\froman\fcharset186\fprq2 Times New Roman Baltic;} +{\f44\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}{\f48\fswiss\fcharset0\fprq2 Arial;}{\f47\fswiss\fcharset204\fprq2 Arial Cyr;}{\f49\fswiss\fcharset161\fprq2 Arial Greek;}{\f50\fswiss\fcharset162\fprq2 Arial Tur;} +{\f51\fswiss\fcharset177\fprq2 Arial (Hebrew);}{\f52\fswiss\fcharset178\fprq2 Arial (Arabic);}{\f53\fswiss\fcharset186\fprq2 Arial Baltic;}{\f54\fswiss\fcharset163\fprq2 Arial (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255; +\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0; +\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\red102\green102\blue153;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1038\langfe1038\cgrid\langnp1038\langfenp1038 \snext0 +Normal;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\* +\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv +\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{\*\cs15 \additive \ul\cf2 \sbasedon10 \styrsid9051 Hyperlink;}}{\*\rsidtbl \rsid9051 +\rsid807686\rsid926866\rsid1067916\rsid2038547\rsid2377008\rsid2690678\rsid3683028\rsid3812753\rsid3813002\rsid7095528\rsid7294055\rsid8009372\rsid8716492\rsid9399381\rsid9634404\rsid9837582\rsid12418079\rsid14423366} +{\*\generator Microsoft Word 10.0.4219;}{\info{\title Vakt\'e9rk\'e9p 2}{\author Mur\'e1ti \'c1kos}{\operator Mur\'e1ti \'c1kos}{\creatim\yr2003\mo5\dy8\hr19\min40}{\revtim\yr2003\mo6\dy3\hr11\min39}{\version12}{\edmins37}{\nofpages1}{\nofwords92} +{\nofchars640}{\*\company Mur\'e1ti \'c1kos}{\nofcharsws731}{\vern16469}}\paperw11906\paperh16838\margl1417\margr1417\margt1417\margb1417 +\deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1417\dgvorigin1417\dghshow1\dgvshow1 +\jexpand\viewkind5\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct\asianbrkrule\rsidroot2038547 \fet0 +{\*\background {\shp{\*\shpinst\shpleft0\shptop0\shpright0\shpbottom0\shpfhdr0\shpbxmargin\shpbxignore\shpbymargin\shpbyignore\shpwr0\shpwrk0\shpfblwtxt1\shpz0\shplid1025{\sp{\sn shapeType}{\sv 1}}{\sp{\sn fFlipH}{\sv 0}}{\sp{\sn fFlipV}{\sv 0}} +{\sp{\sn fFilled}{\sv 1}}{\sp{\sn lineWidth}{\sv 0}}{\sp{\sn fLine}{\sv 0}}{\sp{\sn bWMode}{\sv 9}}{\sp{\sn fBackground}{\sv 1}}{\sp{\sn fLayoutInCell}{\sv 1}}{\sp{\sn fLayoutInCell}{\sv 1}}}}}\sectd +\linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang +{\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7 +\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain +\qc \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid9051 \fs24\lang1038\langfe1038\cgrid\langnp1038\langfenp1038 {\b\f1\fs36\cf17\insrsid9051\charrsid9051 Vakt\'e9rk\'e9p 2.0 licen}{\b\f1\fs36\cf17\insrsid9399381 c}{ +\b\f1\fs36\cf17\insrsid9051\charrsid9051 szerz\'f5d\'e9s}{\b\f1\fs36\cf17\insrsid2038547\charrsid9051 +\par }\pard \qc \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid1067916 {\b\f1\fs20\insrsid9051 FONTOS! K\'c9REM OLVASSA EL FIGYELMESEN! +\par }{\b\f1\fs20\insrsid1067916\charrsid9051 +\par }\pard \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid1067916 {\f1\fs18\insrsid3812753 A Vakt\'e9rk\'e9p 2.0 programcsomag }{\b\f1\fs18\insrsid3812753\charrsid1067916 ingyenes (freeware),}{\f1\fs18\insrsid3812753 teh +\'e1t }{\b\f1\fs18\insrsid3812753\charrsid1067916 szabadon m\'e1solhat\'f3, terjeszthet\'f5 \'e9s felhaszn\'e1lhat\'f3}{\f1\fs18\insrsid1067916 mindaddi}{\f1\fs18\insrsid3812753 g}{\f1\fs18\insrsid1067916 ,}{\f1\fs18\insrsid3812753 am\'edg az eredeti, +\'e1ltalam elk\'e9sz\'edtett form\'e1ban van. }{\f1\fs18\insrsid1067916 A programcsomag p\'e9nz\'e9rt val\'f3 terjeszt\'e9se tilos! }{\b\f1\fs18\insrsid3812753\charrsid1067916 A program m\'f3dos\'edt\'e1sa }{\b\f1\fs18\insrsid1067916 vagy visszafejtett r +\'e9szeinek haszn\'e1lata az \'c9n beleegyez\'e9sem n\'e9lk\'fcl szigor\'faan tilos}{\b\f1\fs18\insrsid3812753\charrsid1067916 !}{\f1\fs18\insrsid3812753 }{\f1\fs18\insrsid1067916 Az esetleges hib\'e1k\'e9rt, hi\'e1nyoss\'e1gok\'e9rt eln\'e9z\'e9s\'fc +ket k\'e9rem, de az \'e1ltaluk keletkezett k\'e1rok\'e9rt felel\'f5ss\'e9get nem tudok v\'e1llalni.}{\f1\fs18\insrsid3683028 +\par }{\f1\fs18\insrsid1067916 +\par }\pard \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid3683028 {\f1\fs18\insrsid3683028 Az \'fajabb verzi\'f3kat, m}{\f1\fs18\insrsid926866 \'f3dos\'edt\'e1sokat}{\f1\fs18\insrsid3683028 ,}{\f1\fs18\insrsid926866 jav\'ed +t\'e1sokat keresse a www.vakterkep.ini.hu c\'edmen. }{\f1\fs18\insrsid3683028 \'c9szrev\'e9teleiket, probl\'e9m\'e1ikat, megjegyz\'e9seiket v\'e1rom a murako@index.hu e-mail c\'edmre. +\par }\pard \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid1067916 {\f1\fs18\insrsid1067916 +\par }\pard \qc \li0\ri0\sb240\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid9837582 {\b\i\f1\fs20\insrsid9051\charrsid2377008 Mur\'e1ti \'c1kos 2003. Minden jog fenntartva.}{\b\i\f1\fs20\insrsid7294055\charrsid9837582 +\par }} \ No newline at end of file diff --git a/Setup/SOURCE/.vtk.reg b/Setup/SOURCE/.vtk.reg deleted file mode 100644 index 9264eb4..0000000 Binary files a/Setup/SOURCE/.vtk.reg and /dev/null differ diff --git a/Setup/VT2_MUI.NSI b/Setup/VT2_MUI.NSI new file mode 100644 index 0000000..98b1139 --- /dev/null +++ b/Setup/VT2_MUI.NSI @@ -0,0 +1,174 @@ +;Vaktérkép Moder telepítrőcsomag + +!define MUI_PRODUCT "Vaktérkép" ;Define your own software name here +!define MUI_VERSION "2.0" ;Define your own software version here +!define VT "${MUI_PRODUCT} ${MUI_VERSION}" +!define SZERK "${MUI_PRODUCT} Szerkesztő ${MUI_VERSION}" + +!include "MUI.nsh" + +;-------------------------------- +;Configuration + + OutFile "vts2.exe" + + ShowInstDetails show + + InstallDir "$PROGRAMFILES\${VT}" + + InstallDirRegKey HKCU "Software\${VT}" "" + +;-------------------------------- +;Modern UI Configuration + + ;!define USE_SUBSECTION + !define MUI_LICENSEPAGE + !define MUI_COMPONENTSPAGE + !define MUI_COMPONENTSPAGE_SMALLDESC + !define MUI_DIRECTORYPAGE + + !define MUI_ABORTWARNING + + !define MUI_UNINSTALLER + !define MUI_UNCONFIRMPAGE + + ;!define MUI_HEADERBITMAP "${NSISDIR}\Contrib\Icons\modern-header.bmp" + ;!define MUI_ICON "${NSISDIR}\Contrib\Icons\setup.ico" + ;!define MUI_UNICON "${NSISDIR}\Contrib\Icons\setup.ico" + +;-------------------------------- +;Languages + + !insertmacro MUI_LANGUAGE "Hungarian" + +;-------------------------------- +;Language Strings + + ;Description + LangString DESC_Vakterkep ${LANG_HUNGARIAN} "${VT} telepítése az ön számítógépére." + LangString DESC_Szerkeszto ${LANG_HUNGARIAN} "${SZERK} telepítése az ön számítógépére" + LangString DESC_Tarsitas ${LANG_HUNGARIAN} "${VT} Projekt fájlok (*.vtk) társítása az alkalmazásokhoz." + LangString DESC_VB6 ${LANG_HUNGARIAN} "A ${VT} futásához szükséges Visual Basic 6.0 (SP5) Runtime fájlok telepítése.(XP alatt nem szükséges)" + LangString DESC_Eltavolit ${LANG_HUNGARIAN} "${VT} eltávolító alkalmazás telepítése. (Uninstall)" + +;-------------------------------- +;Data + + LicenseData "license.rtf" + +;-------------------------------- +;Reserve Files + + ;Things that need to be extracted on first (keep these lines before any File command!) + ;Only useful for BZIP2 compression + + ;ReserveFile "${NSISDIR}\Contrib\Icons\modern-header.bmp" + +;-------------------------------- +;Installer Sections + +Section "${VT}" Vakterkep + SectionIn RO + WriteRegStr HKCU "Software\${VT}" "" $INSTDIR + + detailprint ">>> Microsoft Commondialog ActiveX vezérlő telepítése..." + setoutpath $SYSDIR + file "comdlg32.ocx" + execwait "regsvr32.exe /i /s $SYSDIR/comdlg32.ocx" + detailprint "" + + detailprint ">>> Microsoft Standard Data Formating Object DLL telepítése..." + file "msstdfmt.dll" + execwait "regsvr32.exe /i /s $SYSDIR/msstdfmt.dll" + detailprint "" + + detailprint ">>> ${VT} telepítése..." + SetOutPath "$INSTDIR" + File "vakterkep.exe" + CreateDirectory "$SMPROGRAMS\${VT}" + CreateShortCut "$SMPROGRAMS\${VT}\${VT}.lnk" "$INSTDIR\vakterkep.exe" + + writeregstr "HKCR" "Vakterkep" "" "Vaktérkép Projekt" + writeregstr "HKCR" "Vakterkep\DefaultIcon" "" "$INSTDIR\vakterkep.ico,0" + writeregstr "HKCR" "Vakterkep\shell" "" "Open" + writeregstr "HKCR" "vakterkep\shell\Open" "" "" + writeregstr "HKCR" "vakterkep\shell\open\command" "" "$INSTDIR\vakterkep.exe %1" + detailprint "" +SectionEnd + +Section "${SZERK}" Szerkeszto + detailprint ">>> ${SZERK} telepítése..." + file "vakterkep.ico" + CreateShortCut "$SMPROGRAMS\${VT}\${SZERK}.lnk" "$INSTDIR\vakterkep.exe" "-sz" "$INSTDIR\vakterkep.ico" 0 + + writeregstr "HKCR" "Vakterkep\shell\" "" "Open" + writeregstr "HKCR" "Vakterkep\shell\edit" "" "&Szerkesztés" + writeregstr "HKCR" "Vakterkep\shell\edit\command" "" "$INSTDIR\vakterkep.exe -sz=%1" + writeregstr "HKCR" "Vakterkep\shell\kezi" "" "&Kézi szerkesztés Jegyzettömbbel" + writeregstr "HKCR" "Vakterkep\shell\kezi\command" "" "notepad.exe %1" + detailprint "" +SectionEnd + + +SubSection "Súgó" + Section "${VT} Súgó" + detailprint ">>> ${VT} Súgó telepítése..." + File "vakterkep.chm" + CreateShortCut "$SMPROGRAMS\${VT}\${VT} Súgó.lnk" "$INSTDIR\vakterkep.chm" + detailprint "" + sectionend + + Section "${SZERK} Súgó" + detailprint ">>> ${SZERK} Súgó telepítése..." + file "szerkeszto.chm" + createShortCut "$SMPROGRAMS\${VT}\${SZERK} Súgó.lnk" "$INSTDIR\szerkeszto.chm" "" "$INSTDIR\szerkeszto.chm" 0 + detailprint "" + sectionend +Subsectionend + + +Section "Térkép Fájlok Társítása" Tarsitas + detailprint ">>> Fájlok társítása..." + writeregstr "HKCR" ".vtk" "" "Vakterkep" + detailprint "" +Sectionend + +section "Microsoft Visual Basic 6.0 Runtime (SP5)" VB6 + detailprint ">>> Microsoft Visual Basic 6.0 Runtime (SP5) telepítése..." + setoutpath $SYSDIR + file "vbrun.exe" + execwait "$SYSDIR\vbrun.exe /q" + detailprint "" +sectionend + +Section "Eltávolító alkalmazás" Eltavolit + detailprint ">>> Eltávoító alkalmazás telepítése..." + SetOutPath "$INSTDIR" + WriteUninstaller "$INSTDIR\eltavolit.exe" + CreateShortCut "$SMPROGRAMS\${VT}\Eltávolítás.lnk" "$INSTDIR\eltavolit.exe" +Sectionend + + +!insertmacro MUI_SECTIONS_FINISHHEADER + + +!insertmacro MUI_FUNCTIONS_DESCRIPTION_BEGIN + !insertmacro MUI_DESCRIPTION_TEXT ${Vakterkep} $(DESC_Vakterkep) + !insertmacro MUI_DESCRIPTION_TEXT ${Szerkeszto} $(DESC_Szerkeszto) + !insertmacro MUI_DESCRIPTION_TEXT ${Tarsitas} $(DESC_Tarsitas) + !insertmacro MUI_DESCRIPTION_TEXT ${VB6} $(DESC_VB6) + !insertmacro MUI_DESCRIPTION_TEXT ${Eltavolit} $(DESC_Eltavolit) +!insertmacro MUI_FUNCTIONS_DESCRIPTION_END + +;-------------------------------- +;Uninstaller Section + +Section "Uninstall" + deleteregkey "HKCR" ".vtk" "" + delete "$INSTDIR\*.*" + delete "$SMPROGRAMS\${VT}\*.*" + rmdir "$SMPROGRAMS\${VT}" + rmdir "$INSTDIR" + + !insertmacro MUI_UNFINISHHEADER +SectionEnd \ No newline at end of file diff --git a/Setup/szerkeszto.chm b/Setup/szerkeszto.chm index 9bc847f..cb69d40 100644 Binary files a/Setup/szerkeszto.chm and b/Setup/szerkeszto.chm differ diff --git a/Setup/vakterkep.chm b/Setup/vakterkep.chm index 272d924..c8c036f 100644 Binary files a/Setup/vakterkep.chm and b/Setup/vakterkep.chm differ diff --git a/Setup/vakterkep.ico b/Setup/vakterkep.ico new file mode 100644 index 0000000..2ad7370 Binary files /dev/null and b/Setup/vakterkep.ico differ diff --git a/Setup/vakterkep.ini b/Setup/vakterkep.ini deleted file mode 100644 index f42d449..0000000 --- a/Setup/vakterkep.ini +++ /dev/null @@ -1,7 +0,0 @@ -egyeni=0 -hatarok=52,61,75,91 -jel=? -pont=10 -minusz=20 -segito=1 -tippek=1 \ No newline at end of file diff --git a/Setup/vakterkep.nsi b/Setup/vakterkep.nsi deleted file mode 100644 index 24569e3..0000000 --- a/Setup/vakterkep.nsi +++ /dev/null @@ -1,87 +0,0 @@ -;Vaktérkép és VAktérkép szerkesztő alkalmazás -;MUráti Ákos 2002. márc. 25 - -;Telepítő tulajdonságai -NAme "Vaktérkép és Vaktérkép Szerkesztő" -Caption "Vaktérkép és Vaktérkép Szerkesztő telepítő" -CRCCheck off -;Icon nagymo.ico - - -Subcaption 1 " - Telepítendő komponensek" -Subcaption 2 " - Telepítés helye" -Subcaption 3 " - Fájlok másolása" -Subcaption 4 " - Telepítés vége" - -MiscButtonText "< Vissza" "Következő >" "Kilépés" "Bezár" -InstallButtonText "Telepítés" -SpaceTexts "Szükséges lemezterület: " "Rendelkezésre áll: " -Icon "icon.ico" -Enabledbitmap "en.bmp" -disabledbitmap "dis.bmp" -Autoclosewindow true - -Outfile "vti.exe" - -InstallDir $PROGRAMFILES\Vakterkep - -Componenttext "Ez a program telepíteni fogja a Vaktérképet és Vaktérkép Szerkesztőt." "" "Kérem válassza ki a telepítendő komponenseket" - -DirText "Válassza ki azt a helyet ahova telepíteni szeretné a Vaktérkép és Vaktérkép Szerkesztőt" "Telepítés helye:" "Tallóz..." -Completedtext "A Telepítés sikeresen befejeződött." -ShowInstdetails nevershow - - -;Választható komponensek -Section "Vaktérkép" - SetOutpath $INSTDIR - CreateDirectory "$SMPROGRAMS\Vaktérkép" - CreateShortcut "$SMPROGRAMS\Vaktérkép\Vaktérkép.lnk" "$INSTDIR\vakterkep.exe" "" "$INSTDIR\vakterkep.exe" 0 - File "vakterkep.exe" - File "vakterkep.chm" - File "vakterkep.ini" - CreateShortCut "$SMPROGRAMS\Vaktérkép\Vaktérkép Súgó.lnk" "$INSTDIR\vakterkep.chm" "" "$INSTDIR\vakterkep.chm" 0 -SectionEnd - -Section "Vaktérkép Szerkesztő" - CreateShortCut "$SMPROGRAMS\Vaktérkép\Vaktérkép Szerkesztő.lnk" "$INSTDIR\vakterkep.exe" "/szerk" "$INSTDIR\vakterkep.exe" 0 - file "szerkeszto.chm" - createShortCut "$SMPROGRAMS\Vaktérkép\Vaktérkép Szerkesztő Súgó.lnk" "$INSTDIR\szerkeszto.chm" "" "$INSTDIR\szerkeszto.chm" 0 -SectionEnd - -Section "Beállítások Engedélyezése" - writeinistr "$INSTDIR\vakterkep.ini" "Telepítő beállítások" "beallitas" "1" -SectionEnd - -Section "Társítás" - writeregstr "HKCR" ".vtk" "" "Vaktérkép fájlok" - writeregstr "HKCR" ".vtk\DefaultIcon" "" "$INSTDIR\vakterkep.exe,0" - writeregstr "HKCR" ".vtk\shell" "" "Open" - writeregstr "HKCR" ".vtk\shell\Open" "" "" - writeregstr "HKCR" ".vtk\shell\open\command" "" '$INSTDIR\vakterkep.exe "%1"' - -Sectionend - -Section "Eltávolító" - WriteUninstaller "eltavolit.exe" - CreateShortCut "$SMPROGRAMS\Vaktérkép\Vaktérkép eltávolítása.lnk" "$INSTDIR\eltavolit.exe" "" "$INSTDIR\eltavolit.exe" 0 -SectionEnd - -;ELtávolító -UninstallText "Ez az alkalmazás el fogja távolítani a Vaktérkép és Vaktérkép Szerkesztőt." "Helye:" -UninstallCaption "Vaktérkép és Vaktérkép Szerkesztő eltávololítása" -UninstallButtonText "Eltávolítás" -UninstallSUbCAption 0 " " -UninstallSUbCAption 1 " " -UninstallSUbCAption 2 " " -ShowUninstdetails nevershow - -SEction "Uninstall" - deleteregkey "HKCR" ".vtk" "" - delete "$INSTDIR\*.*" - delete "$SMPROGRAMS\Vaktérkép\*.*" - rmdir $SMPROGRAMS\Vaktérkép - rmdir $INSTDIR - -Sectionend - diff --git a/Source/BEHUZO.FRM b/Source/BEHUZO.FRM new file mode 100644 index 0000000..c965747 --- /dev/null +++ b/Source/BEHUZO.FRM @@ -0,0 +1,51 @@ +VERSION 5.00 +Begin VB.Form behuzo + AutoRedraw = -1 'True + BackColor = &H00FFFFFF& + Caption = "Behúzó" + ClientHeight = 0 + ClientLeft = 60 + ClientTop = 450 + ClientWidth = 540 + ClipControls = 0 'False + ControlBox = 0 'False + LinkTopic = "Form1" + ScaleHeight = 0 + ScaleWidth = 540 + StartUpPosition = 3 'Windows Default + Begin VB.Label szoveg + Appearance = 0 'Flat + AutoSize = -1 'True + BackColor = &H80000005& + BackStyle = 0 'Transparent + Caption = "Jel szöveg" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 238 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H80000008& + Height = 240 + Index = 0 + Left = -120 + TabIndex = 0 + Top = -195 + Visible = 0 'False + Width = 975 + End +End +Attribute VB_Name = "behuzo" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private Sub Form_KeyPress(KeyAscii As Integer) + If KeyAscii = 8 Then Me.Hide +End Sub +Private Sub szoveg_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) + szoveg(Index).Drag +End Sub diff --git a/Source/DEBUGER.FRM b/Source/DEBUGER.FRM new file mode 100644 index 0000000..b9faf4e --- /dev/null +++ b/Source/DEBUGER.FRM @@ -0,0 +1,76 @@ +VERSION 5.00 +Begin VB.Form debuger + Caption = "Rendszer ellenőrző" + ClientHeight = 3090 + ClientLeft = 60 + ClientTop = 450 + ClientWidth = 4680 + LinkTopic = "Form1" + ScaleHeight = 3090 + ScaleWidth = 4680 + StartUpPosition = 3 'Windows Default + Begin VB.TextBox egyeb + Height = 2055 + Left = 120 + TabIndex = 4 + Text = "Text3" + Top = 960 + Width = 4455 + End + Begin VB.TextBox szovegek + Height = 285 + Left = 1200 + TabIndex = 3 + Text = "Text2" + Top = 480 + Width = 2415 + End + Begin VB.TextBox jelek + Height = 285 + Left = 1080 + TabIndex = 2 + Text = "Text1" + Top = 120 + Width = 2535 + End + Begin VB.Timer Timer1 + Interval = 1000 + Left = 3960 + Top = 120 + End + Begin VB.Label Label2 + Caption = "jelek:" + Height = 375 + Index = 1 + Left = 120 + TabIndex = 1 + Top = 120 + Width = 615 + End + Begin VB.Label Label2 + Caption = "szövegegk::" + Height = 375 + Index = 0 + Left = 120 + TabIndex = 0 + Top = 480 + Width = 855 + End +End +Attribute VB_Name = "debuger" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private Sub Timer1_Timer() +Dim kitol As Object +If terkep.Visible = True Then + jelek.Text = terkep.jel.Count - 1 + terkep.megj.Count - 1 + szovegek.Text = terkep.jel_szoveg.Count - 1 + terkep.megj_szoveg.Count - 1 +Else + jelek.Text = szerkeszto.jel.Count - 1 + szovegek.Text = szerkeszto.jel_szoveg.Count - 1 +End If + + +End Sub diff --git a/Source/INDITO.BAS b/Source/INDITO.BAS new file mode 100644 index 0000000..29ae172 --- /dev/null +++ b/Source/INDITO.BAS @@ -0,0 +1,271 @@ +Attribute VB_Name = "kozos" +Option Explicit +Public Vakterkep As Program +Dim Szulo As Object +Dim szovegek(1 To 100) As String + +Type Program + Verzio As String + Konyvtar As String +End Type + +Public Type KerdesValasz + Kerdes As String + Valasz As String +End Type + +Public Type elem + Cime As String + tipp As String + Kovetkezo As Byte + kerdesek(1 To 256) As KerdesValasz + Bal As String + Felso As String + pont As Double + Kitalalta As Boolean +End Type + +Sub Main() +On Error GoTo Hiba + 'If True Then debuger.Show + Vakterkep.Verzio = App.Major & "." & App.Minor & " Build: " & App.Revision + If Len(App.Path) = 3 Then + Vakterkep.Konyvtar = App.Path + Else + Vakterkep.Konyvtar = App.Path & "\" + End If + Set Szulo = terkep + Szulo.jel(0).jel = 0 + + Select Case LCase(Utasitas(Command$)) + Case "-szerkeszto", "-sz", "-s" + Set Szulo = szerkeszto + szerkeszto.Show + If Ertek(Command$) <> "" Then + szerkeszto.megnyitas (Ertek(Command$)) + Else + 'tulajdonsagok.megse.Enabled = False + 'tulajdonsagok.Mutat (0) + End If + Case "-beallitas_nelkul", "-nobea", "-n" + 'Beállítások nélkül + Set Szulo = terkep + terkep.Show + 'Case "-megnyit", "-m" + ' terkep.megnyitas ("$vt\vakterkep.ini") + ' terkep.megnyitas (Ertek(Command$)) + ' terkep.Show + Case "" + Set Szulo = terkep + terkep.megnyitas ("$vt\vakterkep.ini") + terkep.Show + Case Else + Set Szulo = terkep + terkep.megnyitas ("$vt\vakterkep.ini") + terkep.Show + terkep.megnyitas (Command$) + Exit Sub + End Select + 'Szulo.Show +Exit Sub +Hiba: + Select Case Err.Number + Case 339 + MsgBox "Kibővített jel ActiveX vezérlő nincs telepítve a rendszerén. Kérem telepítse újra az alkalmazást.", vbCritical, "Hiányzó 'jelek.ocx' vezérlő!" + MsgBox Err.Description, vbCritical, "A hibáról bővebben(" & Err.Number & ")" + Megsemmisit + Case 374 + MsgBox "Egy olyan ActiveX vezérlő van telepítve, amely nem kompatibilis a program ezen verziójával. Kérem telepítse újra az alkalmazás.", vbCritical, "Inkompatibilis ActiveX vezérlő" + MsgBox Err.Description, vbCritical, "A hibáról bővebben(" & Err.Number & ")" + Megsemmisit + End Select +End Sub + +Public Function Konyvtara(Fajlnev As String) + Dim i As Integer, j As Integer + j = 0 + For i = 1 To Len(Fajlnev) + If Mid(Fajlnev, i, 1) = "\" Then j = i + Next i + Konyvtara = Mid(Fajlnev, 1, j) +End Function + +Public Function Atalakit(Adat As String, egyeb As Variant) + Dim i As Integer, uj As String + uj = "" + i = 1 + Do While i <= Len(Adat) + If Mid(Adat, i, 3) = "$vt" Then + uj = uj & Mid(Vakterkep.Konyvtar, 1, Len(Vakterkep.Konyvtar) - 1) + i = i + 3 + End If + + If Mid(Adat, i, 1) = "\" And i = 1 Then + uj = uj & egyeb + i = i + 1 + End If + + If Mid(Adat, i, 3) = "$sz" Then + uj = uj & egyeb + i = i + 3 + End If + + If Mid(Adat, i, 6) = "$jelsz" Then + uj = uj & terkep.jel(egyeb).Width + i = i + 6 + End If + + If Mid(Adat, i, 5) = "$jelm" Then + uj = uj & terkep.jel(egyeb).Height + i = i + 5 + End If + + If Mid(Adat, i, 6) = "$szovm" Then + uj = uj & terkep.jel_szoveg(egyeb).Height + i = i + 6 + End If + + If Mid(Adat, i, 7) = "$szovsz" Then + uj = uj & terkep.jel_szoveg(egyeb).Width + i = i + 7 + End If + + uj = uj & Mid(Adat, i, 1) + i = i + 1 + Loop + Atalakit = uj +End Function + +Public Function Nagyobb(Egyik As Single, Masik As Single) As Single + If Egyik > Masik Then + Nagyobb = Egyik + Else + Nagyobb = Masik + End If +End Function +Public Sub megjelol(Index As Integer) +Szulo.tabulalo = Index +On Error Resume Next + Dim i As Integer + For i = 1 To Szulo.jel_szoveg.Count - 1 + Szulo.jel_szoveg(i).BorderStyle = 0 + Next i + Szulo.jel_szoveg(Index).BorderStyle = 1 + If Szulo.Name = "szerkeszto" Then + szerkeszto.Passzint Index + End If +End Sub +Public Function V(Kifejezes As Integer) As Byte + V = Abs(Int(Kifejezes)) +End Function +Public Sub Megsemmisit() + Set Szulo = Nothing + Unload beallitasok + Unload jelmagyarazat + Unload nevjegy + Unload ertekeles + Unload nyomtatas + Unload szerkeszto + Unload terkep + Unload tulajdonsagok + End +End Sub +Public Function uzenet(Index As Integer, Beszurando As String) As String + If InStr(1, szovegek(Index), "$sz") Then + uzenet = Atalakit(szovegek(Index), Beszurando) + Else + uzenet = szovegek(Index) + End If +End Function +Public Sub magyar() + +End Sub +Public Function CsakANeve(Eleres As String) + CsakANeve = Mid(Eleres, Len(Konyvtara(Eleres)) + 1, Len(Eleres)) +End Function +Public Function aze() As Boolean +On Error GoTo nincsis + If TypeOf Szulo.obj Is jel Then + aze = True + Else + aze = False + End If +Exit Function +nincsis: + aze = False +End Function +Public Function RelativEleres(Mappa As String, FajlElerese As String) As String + If LCase(Mid(Konyvtara(FajlElerese), 1, Len(Mappa))) = LCase(Mappa) Then + RelativEleres = Mid(FajlElerese, Len(Mappa) + 1, Len(FajlElerese)) + Else + RelativEleres = "" + End If +End Function +Public Sub HHSugo(Melyiket As String) +On Error GoTo Hiba + If Szulo.Name = "terkep" Then + Melyiket = "vakterkep.chm::/page/" & Melyiket + Else + Melyiket = "szerkeszto.chm::/page/" & Melyiket + End If + Shell "hh.exe " & Vakterkep.Konyvtar & Melyiket, vbNormalFocus +Exit Sub +Hiba: + MsgBox "A témakörhöz tartozó súgót nem lehet megnyitni!", vbCritical, "Súgó hiba:" +End Sub +Public Sub Pozicional() +On Error Resume Next +Dim X As Single, Y As Single, pw As Single, ph As Single + +If Szulo.fl.Visible Then + pw = Szulo.fl.Width + Else + pw = 0 +End If + +If Szulo.jb.Visible Then + ph = Szulo.jb.Height + Else + ph = 0 +End If + + +X = (Szulo.ScaleWidth - Szulo.terulet.Width - pw) / 2 +Y = (Szulo.ScaleHeight - Szulo.terulet.Height - ph) / 2 + + +Szulo.fl.Move Szulo.ScaleWidth - Szulo.fl.Width, 0, Szulo.fl.Width, Szulo.ScaleHeight - Szulo.fl.Width +Szulo.jb.Move 0, Szulo.ScaleHeight - Szulo.jb.Height, Szulo.ScaleWidth - Szulo.jb.Height, Szulo.jb.Height +Szulo.terulet.Move X, Y + +If Szulo.ScaleWidth - Szulo.terulet.Width - pw < 0 Then + Szulo.jb.SmallChange = Int(Szulo.ScaleWidth - Szulo.terulet.Width / 100) + Szulo.jb.LargeChange = Int(Szulo.ScaleWidth - Szulo.terulet.Width / 10) + Szulo.jb.Max = Szulo.ScaleWidth - Szulo.terulet.Width - 2 * Szulo.fl.Width + Szulo.jb.Min = Szulo.fl.Width + Szulo.jb.Visible = True + Szulo.jb.Value = Szulo.terulet.Left + Else + Szulo.jb.Visible = False +End If + +If Szulo.ScaleHeight - Szulo.terulet.Height - ph < 0 Then + Szulo.fl.SmallChange = Int(Szulo.ScaleHeight - Szulo.terulet.Height / 100) + Szulo.fl.LargeChange = Int(Szulo.ScaleHeight - Szulo.terulet.Height / 10) + Szulo.fl.Max = Szulo.ScaleHeight - Szulo.terulet.Height - 2 * Szulo.jb.Height + Szulo.fl.Min = Szulo.jb.Height + Szulo.fl.Visible = True + Szulo.fl.Value = Szulo.terulet.Top + Else + Szulo.fl.Visible = False +End If + +If (Szulo.fl.Visible Or Szulo.jb.Visible) Then + Szulo.gomb.Move Szulo.fl.Left, Szulo.jb.Top + Szulo.gomb.Visible = True + If Szulo.Name = "terkep" Then Szulo.gomb.Enabled = Szulo.jelm_mnu.Enabled +Else + Szulo.gomb.Visible = False + +End If +End Sub diff --git a/Source/Jelek/JEL.CTL b/Source/Jelek/JEL.CTL new file mode 100644 index 0000000..abb5eb8 --- /dev/null +++ b/Source/Jelek/JEL.CTL @@ -0,0 +1,311 @@ +VERSION 5.00 +Begin VB.UserControl jel + AutoRedraw = -1 'True + BackStyle = 0 'Transparent + ClientHeight = 615 + ClientLeft = 0 + ClientTop = 0 + ClientWidth = 1725 + ControlContainer= -1 'True + PaletteMode = 4 'None + ScaleHeight = 615 + ScaleWidth = 1725 + ToolboxBitmap = "jel.ctx":0000 + Begin VB.Image jel_img + Appearance = 0 'Flat + BeginProperty DataFormat + Type = 2 + Format = "0%" + HaveTrueFalseNull= 0 + FirstDayOfWeek = 0 + FirstWeekOfYear = 0 + LCID = 1038 + SubFormatType = 9 + EndProperty + Height = 540 + Left = 840 + Stretch = -1 'True + Top = 0 + Visible = 0 'False + Width = 660 + End + Begin VB.Shape jel_shp + BackStyle = 1 'Opaque + FillColor = &H80000008& + Height = 495 + Left = 0 + Top = 0 + Width = 615 + End +End +Attribute VB_Name = "jel" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = True +Attribute VB_PredeclaredId = False +Attribute VB_Exposed = False +Option Explicit +Const egyseg = 8 +Const Alapmeret = 500 + +Enum Jelek + Negyszog + Negyzet + Ellipszis + Kor + KerekitettNegyszog + KerekitettNegyzet + kep + 'Szoveg +End Enum + +Enum Vonalak + Nincs + Teljes + Szaggatott + Pontozott + PontosanSzagatott + DuplaPontosanSzaggatott +End Enum + +Enum kitoltes + Teljes + hatter + VizszintesVonalak + FuggolegesVonalak + BalrolSregVonalak + JobbrolSregVonalak + Halos + SregHalos + 'Atlatszo +End Enum + + +Private sJel As Jelek 'belső jelek +Private sKepFajl As String ', sSzoveg As String 'Egyéb jelek adatai +Public Event Click() +Public Event Hiba(hibakod As Byte) +Public Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) +Public Event DblClick() +Public Event KeyPress(KeyAscii As Integer) + + +Private Sub jel_img_Click() + RaiseEvent Click +End Sub + +Private Sub jel_img_DblClick() + RaiseEvent DblClick +End Sub + +Private Sub jel_img_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + RaiseEvent MouseDown(Button, Shift, X, Y) +End Sub + +'Private Sub jel_lbl_Click() +' RaiseEvent Click +'End Sub + +Private Sub UserControl_Click() + RaiseEvent Click +End Sub + + + +Private Sub UserControl_DblClick() + RaiseEvent DblClick +End Sub + +Private Sub UserControl_Initialize() + jel_img.Move 0, 0, Alapmeret, Alapmeret + jel_shp.Move 0, 0, Alapmeret, Alapmeret + 'jel_lbl.Move 0, 0, Alapmeret, Alapmeret + UserControl.Width = Alapmeret + UserControl.Height = Alapmeret +End Sub + +'Jelek kezelése +Public Property Get jel() As Jelek + If jel_shp.Visible Then jel = jel_shp.Shape + If jel_img.Visible Then jel = kep + 'If jel_lbl.Visible Then Jel = Szoveg +End Property + +Public Property Let jel(ByVal UjJel As Jelek) +jel_shp.Visible = False +jel_img.Visible = False + Select Case UjJel + Case 0 To 5 + jel_shp.Visible = True + jel_shp.Shape = UjJel + Case 6 + jel_img.Visible = True + 'Case 7 + ' jel_lbl.Visible = True + ' jel_lbl.Caption = Szoveg + End Select + UserControl_Resize +End Property + +'Alakzatok kitoltése +Public Property Get KitoltesTipus() As kitoltes + 'If jel_shp.BackStyle = 0 Then + ' KitoltesTipus = Atlatszo + ' Else + KitoltesTipus = jel_shp.FillStyle + 'End If +End Property +Public Property Let KitoltesTipus(ByVal uj As kitoltes) + 'If uj = Atlatszo Then + ' jel_shp.BackStyle = 0 + ' Else + jel_shp.FillStyle = uj + 'jel_shp.BackStyle = 1 + 'End If +End Property + +'Kitoltés színe +Public Property Get KitoltesSzine() As ColorConstants + KitoltesSzine = jel_shp.FillColor +End Property +Public Property Let KitoltesSzine(ByVal uj As ColorConstants) + jel_shp.FillColor = uj +End Property + +'Kitöltés kezelése +Public Property Get Atlatszo() As Boolean + Atlatszo = Not CBool(jel_shp.BackStyle) +End Property +Public Property Let Atlatszo(uj As Boolean) + jel_shp.BackStyle = Abs(Not uj) + UserControl_Resize +End Property + + +'Keret típusa +Public Property Get KeretTipus() As Vonalak + KeretTipus = jel_shp.BorderStyle +End Property +Public Property Let KeretTipus(ByVal uj As Vonalak) + jel_shp.BorderStyle = uj +End Property + +'Keret színe +Public Property Get KeretSzine() As ColorConstants + KeretSzine = jel_shp.BorderColor +End Property +Public Property Let KeretSzine(ByVal uj As ColorConstants) + jel_shp.BorderColor = uj +End Property + +'Keret vasatgsága +Public Property Get KeretVastagsaga() As Integer + KeretVastagsaga = jel_shp.BorderWidth +End Property +Public Property Let KeretVastagsaga(ByVal uj As Integer) + If uj > 0 And uj < 101 Then + jel_shp.BorderWidth = uj + UserControl_Resize + End If +End Property + +'Háttér színe +Public Property Get HatterSzine() As ColorConstants + HatterSzine = jel_shp.BackColor +End Property +Public Property Let HatterSzine(ByVal uj As ColorConstants) + jel_shp.BackColor = uj +End Property + +'Kép nyújtása +Public Property Get KepNyujtasa() As Boolean + KepNyujtasa = jel_img.Stretch +End Property +Public Property Let KepNyujtasa(ByVal uj As Boolean) + jel_img.Stretch = uj + UserControl_Resize +End Property + +'Kép helye +Public Property Get KepElerese() As String + KepElerese = sKepFajl +End Property +Public Property Let KepElerese(ByVal uj As String) +On Error GoTo Toltesihiba + sKepFajl = uj + If uj <> "" Then + jel_img.Picture = LoadPicture(sKepFajl) + jel = kep + Else + jel_img.Picture = Nothing + End If + Exit Property +Toltesihiba: + jel_img.Picture = Nothing + RaiseEvent Hiba(1) +End Property + +' Kép magasság és szélesség értékei +Public Property Get KepMagassag() As Single + KepMagassag = jel_img.Height +End Property +Public Property Get KepSzelesseg() As Single + KepSzelesseg = jel_img.Width +End Property + + +Private Sub UserControl_KeyPress(KeyAscii As Integer) + RaiseEvent KeyPress(KeyAscii) +End Sub + +Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + RaiseEvent MouseDown(Button, Shift, X, Y) +End Sub + +Private Sub UserControl_ReadProperties(PropBag As PropertyBag) + With PropBag + KepElerese = .ReadProperty("KepElerese", "") + jel = .ReadProperty("Jel", Negyszog) + Bekapcsolva = .ReadProperty("Bekapcsolva", True) + Atlatszo = .ReadProperty("Atlatszo", False) + KitoltesTipus = .ReadProperty("KitoltesTipus", kitoltes.hatter) + KitoltesSzine = .ReadProperty("KitoltesSzine", vbWhite) + KeretTipus = .ReadProperty("KeretTipus", Vonalak.Teljes) + KeretSzine = .ReadProperty("KeretSzine", vbBlack) + KeretVastagsaga = .ReadProperty("KeretVastagsaga", 1) + HatterSzine = .ReadProperty("HatterSzine", vbWhite) + End With +End Sub + +Private Sub UserControl_Resize() +On Error Resume Next +jel_shp.Move jel_shp.BorderWidth * egyseg, jel_shp.BorderWidth * egyseg, UserControl.ScaleWidth - (jel_shp.BorderWidth * 2 * egyseg), UserControl.ScaleHeight - (jel_shp.BorderWidth * 2 * egyseg) +jel_img.Move 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight +End Sub + +Public Function BalKozep(Bal As Single) + BalKozep = Bal - UserControl.Width / 2 +End Function +Public Function FelsoKozep(Felso As Single) + FelsoKozep = Felso - UserControl.Height / 2 +End Function +Public Property Get Bekapcsolva() As Boolean + Bekapcsolva = UserControl.Enabled +End Property +Public Property Let Bekapcsolva(uj As Boolean) + UserControl.Enabled = uj +End Property + +Private Sub UserControl_WriteProperties(PropBag As PropertyBag) + With PropBag + .WriteProperty "KepElerese", KepElerese, "" + .WriteProperty "Jel", jel, Negyszog + .WriteProperty "Bekapcsolva", Bekapcsolva, True + .WriteProperty "Atlatszo", Atlatszo, False + .WriteProperty "KitoltesTipus", KitoltesTipus, kitoltes.hatter + .WriteProperty "KitoltesSzine", KitoltesSzine, vbWhite + .WriteProperty "KeretTipus", KeretTipus, Vonalak.Teljes + .WriteProperty "KeretSzine", KeretSzine, vbBlack + .WriteProperty "KeretVastagsaga", KeretVastagsaga, 1 + .WriteProperty "HatterSzine", HatterSzine, vbWhite + End With +End Sub diff --git a/Source/Jelek/JEL.CTX b/Source/Jelek/JEL.CTX new file mode 100644 index 0000000..ae34724 Binary files /dev/null and b/Source/Jelek/JEL.CTX differ diff --git a/Source/Jelek/JELEK.OCA b/Source/Jelek/JELEK.OCA new file mode 100644 index 0000000..e2d93d1 Binary files /dev/null and b/Source/Jelek/JELEK.OCA differ diff --git a/Source/Jelek/Vakterkep_II.vbp b/Source/Jelek/Vakterkep_II.vbp new file mode 100644 index 0000000..e9b6a4c --- /dev/null +++ b/Source/Jelek/Vakterkep_II.vbp @@ -0,0 +1,45 @@ +Type=Control +UserControl=jel.ctl +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation +Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#C:\WINDOWS\System32\MSSTDFMT.DLL#Microsoft Data Formatting Object Library +Startup="(None)" +HelpFile="" +Title="Vakterkep_II" +ExeName32="jelek.ocx" +Path32="..\..\..\..\..\Programok\Visual Basic\Vakterkep_II\Forras\Jelek" +Command32="" +Name="Vakterkep_II" +HelpContextID="0" +Description="Kibővített jel objektum" +CompatibleMode="1" +CompatibleEXE32="jelek.ocx" +MajorVer=1 +MinorVer=0 +RevisionVer=1 +AutoIncrementVer=0 +ServerSupportFiles=0 +VersionComments="Kibővített Jel objektum a Vaktérkép II-höz." +VersionCompanyName="Muráti Ákos" +VersionFileDescription="Alakzatok és Képek megjelenítésére alkalmas ActiveX vezérő" +VersionProductName="Kibővített Jel objektum" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=0 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=1 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 +ThreadingModel=1 +DebugStartupOption=1 +DebugStartupComponent=jel + +[MS Transaction Server] +AutoRefresh=1 diff --git a/Source/NYELVEK/angol.nyelv b/Source/NYELVEK/angol.nyelv new file mode 100644 index 0000000..85361a3 --- /dev/null +++ b/Source/NYELVEK/angol.nyelv @@ -0,0 +1,42 @@ +[Menü] +fajl=&File +fajl.ujra_kezd=Restart exercise +fajl.megnyit=Open a map +fajl.kilepes=Exit + +eszkozok=&Tools +eszkozok.jelmagyarazat=Markups +eszkozok.ertekeles=Assessment +eszkozok.beallitas=Options + +sugo=&Help +sugo.sugo=Contents +sugo.nevjegy=About + + +[Beallitasok] +beallitas=Options +gombok.sugo=Help +gombok.megse=&Cancel +gombok.ok=&Ok +gombok.mentes=&Save +gombok.nyomtat=&Print + +altalanos=General +altalanos.engedelyezes=Allow access to the Options menu +altalanos.egyeni= +altalanos.segito=Questions for marks +altalanos.tippek=Tooltips + +ertekeles.elegseges=2 +ertekeles.kozepes=3 +ertekeles.jo=4 +ertekeles.peldas=5 +ertekeles.pontok=Reachable points for each mark +ertekeles.levonas=minus + +nyelv.kapcsolo=Allow other languages + +[hiba] +53=Couldn't open file +1=Couldn't read image file \ No newline at end of file diff --git a/Source/NYELVEK/francia.nyelv b/Source/NYELVEK/francia.nyelv new file mode 100644 index 0000000..753a86d --- /dev/null +++ b/Source/NYELVEK/francia.nyelv @@ -0,0 +1,41 @@ +[Menü] +fajl=&File +fajl.ujra_kezd=Recommence excercise +fajl.megnyit=Ouvre une Map +fajl.kilepes=Sorti + +eszkozok=&Utility +eszkozok.jelmagyarazat=Signés +eszkozok.ertekeles=Assessment +eszkozok.beallitas=Options + +sugo=&Help +sugo.sugo=Contents +sugo.nevjegy=About + + +[Beallitasok] +beallitas=Options +gombok.sugo=Help +gombok.megse=&Cancel +gombok.ok=&Ok +gombok.mentes=&Save + +altalanos=General +altalanos.engedelyezes=Allow access to the Options menu +altalanos.egyeni= +altalanos.segito=Questions for marks +altalanos.tippek=Tooltips + +ertekeles.elegseges=2 +ertekeles.kozepes=3 +ertekeles.jo=4 +ertekeles.peldas=5 +ertekeles.pontok=Reachable points for each mark +ertekeles.levonas=minus + +nyelv.kapcsolo=Allow other languages + +[hiba] +53=Couldn't open file +1=Couldn't read image file \ No newline at end of file diff --git a/Source/NYELVEK/magyar.nyelv b/Source/NYELVEK/magyar.nyelv new file mode 100644 index 0000000..e69de29 diff --git a/Source/OLVASO.FRM b/Source/OLVASO.FRM new file mode 100644 index 0000000..d7a66a1 --- /dev/null +++ b/Source/OLVASO.FRM @@ -0,0 +1,976 @@ +VERSION 5.00 +Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" +Begin VB.Form terkep + BackColor = &H8000000C& + Caption = "Vaktérkép" + ClientHeight = 4485 + ClientLeft = 165 + ClientTop = 855 + ClientWidth = 5850 + Icon = "olvaso.frx":0000 + KeyPreview = -1 'True + LinkTopic = "Form1" + ScaleHeight = 4485 + ScaleWidth = 5850 + StartUpPosition = 3 'Windows Default + WindowState = 2 'Maximized + Begin VB.VScrollBar fl + Height = 4095 + Left = 5280 + TabIndex = 2 + Top = 0 + Width = 255 + End + Begin VB.HScrollBar jb + Height = 255 + Left = 0 + TabIndex = 1 + Top = 4080 + Width = 5295 + End + Begin VB.CommandButton gomb + Caption = "J" + Height = 255 + Left = 5280 + TabIndex = 0 + Top = 4080 + Visible = 0 'False + Width = 255 + End + Begin MSComDlg.CommonDialog pb + Left = 1800 + Top = 1440 + _ExtentX = 847 + _ExtentY = 847 + _Version = 393216 + CancelError = -1 'True + End + Begin VB.PictureBox terulet + Appearance = 0 'Flat + AutoRedraw = -1 'True + AutoSize = -1 'True + BackColor = &H80000005& + ForeColor = &H80000008& + Height = 3495 + Left = 120 + ScaleHeight = 3465 + ScaleWidth = 4785 + TabIndex = 3 + Top = 240 + Width = 4815 + Begin VB.TextBox szoveg + Appearance = 0 'Flat + Height = 285 + Left = 1920 + TabIndex = 5 + Text = "Bevitel" + Top = 2760 + Visible = 0 'False + Width = 1335 + End + Begin Vakterkep2.jel jel + Height = 135 + Index = 0 + Left = 480 + TabIndex = 4 + Top = 2520 + Visible = 0 'False + Width = 135 + _extentx = 873 + _extenty = 873 + kitoltesszine = -2147483640 + keretszine = -2147483640 + hatterszine = -2147483643 + End + Begin Vakterkep2.jel megj + Height = 135 + Index = 0 + Left = 2880 + TabIndex = 8 + Top = 2040 + Visible = 0 'False + Width = 135 + _extentx = 873 + _extenty = 873 + kitoltesszine = -2147483640 + keretszine = -2147483640 + hatterszine = -2147483643 + End + Begin VB.Label jel_szoveg + Appearance = 0 'Flat + AutoSize = -1 'True + BackColor = &H80000005& + BackStyle = 0 'Transparent + Caption = "Jel szöveg" + ForeColor = &H80000008& + Height = 195 + Index = 0 + Left = 840 + TabIndex = 7 + Top = 2520 + Visible = 0 'False + Width = 750 + End + Begin VB.Label megj_szoveg + Appearance = 0 'Flat + AutoSize = -1 'True + BackColor = &H80000005& + BackStyle = 0 'Transparent + Caption = "Jel szöveg" + ForeColor = &H80000008& + Height = 195 + Index = 0 + Left = 3000 + TabIndex = 6 + Top = 2160 + Visible = 0 'False + Width = 855 + End + End + Begin VB.Menu fajl_mnu + Caption = "&Fájl" + Begin VB.Menu ujra_mnu + Caption = "Újra kezd" + Enabled = 0 'False + Shortcut = ^U + End + Begin VB.Menu megnyit_mnu + Caption = "Megnyitás" + Shortcut = ^M + End + Begin VB.Menu nyomtat + Caption = "Nyomtatás..." + Shortcut = ^P + End + Begin VB.Menu v7 + Caption = "-" + End + Begin VB.Menu szerkesztes_mnu + Caption = "Szerkesztés..." + Enabled = 0 'False + Shortcut = ^S + End + Begin VB.Menu v1 + Caption = "-" + End + Begin VB.Menu kilep_mnu + Caption = "Kilépés" + Shortcut = ^K + End + End + Begin VB.Menu eszkozok_mnu + Caption = "&Eszközök" + Begin VB.Menu jelm_mnu + Caption = "Jelmagyarázat" + Enabled = 0 'False + Shortcut = ^J + End + Begin VB.Menu behuzo_mnu + Caption = "Behúzó" + Enabled = 0 'False + Shortcut = ^H + End + Begin VB.Menu v6 + Caption = "-" + End + Begin VB.Menu ertekel_mnu + Caption = "Értékelés" + Shortcut = ^E + End + Begin VB.Menu beall_mnu + Caption = "Beállítások..." + Shortcut = ^B + End + End + Begin VB.Menu sugo_mnu + Caption = "&Súgó" + Begin VB.Menu help_mnu + Caption = "Súgó" + Shortcut = {F1} + End + Begin VB.Menu v2 + Caption = "-" + End + Begin VB.Menu nevjegy_mnu + Caption = "Névjegy" + Shortcut = ^N + End + End +End +Attribute VB_Name = "terkep" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Public obj As Object, Cime As String, tabulalo As Integer +Dim elemek(1 To 1024) As elem +Dim ures As elem, proba As Byte +Public Megnyitva As String +Private Sub beall_mnu_Click() + beallitasok.Show vbModal +End Sub + +Private Sub behuzo_mnu_Click() + If behuzo.Visible Then + behuzo.Hide + Else + behuzo.Show , Me + Me.SetFocus + End If +End Sub + +Private Sub ertekel_mnu_Click() +Dim jo As Integer, i As Integer, osszeg As Double + +For i = 1 To (jel.Count - 1) + If elemek(i).pont = 0 Then + If Trim(LCase(elemek(i).Cime)) = Trim(LCase(jel_szoveg(i).Caption)) Then + jel_szoveg(i).BackStyle = 1 + jel_szoveg(i).BackColor = vbGreen + jel_szoveg(i).Enabled = False + jel(i).Bekapcsolva = False + + If proba = 1 Or beallitasok.kerdesek.Value = 0 Then + elemek(i).pont = beallitasok.pont.Text + Else + elemek(i).pont = beallitasok.pont.Text * ((100 - ((elemek(i).Kovetkezo) * beallitasok.levonas.Text)) / 100) + End If + jo = jo + 1 + Else + jel_szoveg(i).BackStyle = 1 + jel_szoveg(i).BackColor = &HC0C0FF + End If + Else + jo = jo + 1 + End If +Next i + +osszeg = 0 +For i = 1 To jel.Count - 1 + osszeg = osszeg + elemek(i).pont +Next i + + +ertekeles.helyes.Caption = jo +ertekeles.hibak.Caption = (jel.Count - 1) - jo +ertekeles.pontok.Caption = osszeg +ertekeles.maxpont.Caption = (jel.Count - 1) * beallitasok.pont.Text + +ertekeles.szazalek.Caption = Format(CDbl(ertekeles.pontok.Caption) / CDbl(ertekeles.maxpont.Caption) * 100, "##,##") +If ertekeles.szazalek.Caption = "" Then ertekeles.szazalek.Caption = 0 + +Select Case CByte(ertekeles.szazalek) + Case 0 To beallitasok.hatarok(1) - 1 + ertekeles.jegy = 1 + ertekeles.neve = "Elégtelen" + + Case beallitasok.hatarok(1) To beallitasok.hatarok(2) - 1 + ertekeles.jegy = 2 + ertekeles.neve = "Elégséges" + + Case beallitasok.hatarok(2) To beallitasok.hatarok(3) - 1 + ertekeles.jegy = 3 + ertekeles.neve = "Közepes" + + Case beallitasok.hatarok(3) To beallitasok.hatarok(4) - 1 + ertekeles.jegy = 4 + ertekeles.neve = "Jó" + + Case beallitasok.hatarok(4) To 100 + ertekeles.jegy = 5 + ertekeles.neve = "Példás" +End Select + +If proba = 5 Then + ertekel_mnu.Caption = "Végső eredmény" + ertekeles.Caption = "Végső eredmény" + Else + ertekel_mnu.Caption = proba + 1 & ". Értékelés" + ertekeles.Caption = proba & ". Értékelés" + proba = proba + 1 +End If +ertekeles.Show vbModal +End Sub + +Private Sub fl_Change() + terulet.Top = fl.Value +End Sub +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) +If jel.Count = 1 Then Exit Sub +If szoveg.Visible Then + Select Case KeyCode + Case 13 + jel_szoveg(tabulalo).Caption = szoveg.Text + szoveg.Visible = False + igazit (tabulalo) + terulet.SetFocus + Case 27 + szoveg.Visible = False + terulet.SetFocus + End Select +Else + If Not beallitasok.Visible Then terulet.SetFocus + Select Case KeyCode + Case 123 + Dim i As Integer + For i = 1 To jel.Count - 1 + jel_szoveg(i).Caption = elemek(i).Cime + Next i + Case 39, 40 + tabulalo = tabulalo + 1 + If tabulalo > jel.Count - 1 Then tabulalo = 1 + megjelol (tabulalo) + + Case 37, 38 + tabulalo = tabulalo - 1 + If tabulalo < 1 Then tabulalo = jel.Count - 1 + megjelol (tabulalo) + + Case 13 + If jel(tabulalo).Bekapcsolva Then + Beiras (tabulalo) + End If + End Select +End If +End Sub + + +Private Sub Form_Load() + torol +End Sub + +Private Sub Form_Resize() +Pozicional +End Sub + +Private Sub Form_Unload(Cancel As Integer) + Megsemmisit + End +End Sub + +Private Sub gomb_Click() + jelm_mnu_Click +End Sub + +Private Sub help_mnu_Click() + HHSugo ("kezdo.htm") +End Sub + +Private Sub jb_Change() + terulet.Left = jb.Value +End Sub + +Private Sub jel_Click(Index As Integer) + If Not szoveg.Visible Then + tabulalo = Index + Form_KeyDown 13, 0 + Else + Form_KeyDown 27, 0 + End If +End Sub + +Private Sub jel_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) + jel_szoveg_DragDrop Index, Source, X, Y +End Sub + +Private Sub jel_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) + jel_szoveg_DragOver Index, Source, X, Y, State +End Sub + +Private Sub jel_Hiba(Index As Integer, hibakod As Byte) + MsgBox "Az egyik szimbólum hibás vagy nem található!", vbInformation, "Hibás szimbólum" + obj.jel = 1 +End Sub + +Private Sub jel_szoveg_Click(Index As Integer) + jel_Click (Index) +End Sub + +Private Sub jel_szoveg_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) + jel_szoveg(Index).Caption = Source.Caption +End Sub + +Private Sub jel_szoveg_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) + megjelol (Index) +End Sub + +Private Sub jelm_mnu_Click() + If jelmagyarazat.Visible Then + jelmagyarazat.Hide + Else + jelmagyarazat.Show , Me + Me.SetFocus + End If +End Sub + +Private Sub kilep_mnu_Click() + Unload Me +End Sub + + + + + + +Private Sub megnyit_mnu_Click() +On Error GoTo megse + pb.CancelError = True + pb.DialogTitle = "Vaktérkép megnyitása ..." + pb.Filter = "Vaktérkép fájlok (*.vtk)|*.vtk" + pb.FileName = "*.vtk" + pb.ShowOpen + torol + megnyitas (pb.FileName) +megse: +End Sub +Public Sub megnyitas(Fajlnev As String) +Dim sor As String, i As Integer, j As Integer, ker As Integer, megvan As Boolean +Dim id As Integer, JID As Integer, KID As Integer, FID As Integer +Dim kulcsszo As String, parameter As String +Dim kep As String, X, Y, szel, mag +id = 0 +JID = 0 +KID = 0 +FID = 0 +Fajlnev = Atalakit(Fajlnev, "") +On Error GoTo Hiba + Open Fajlnev For Input As 1 + terulet.Visible = False + Do While Not EOF(1) + Line Input #1, sor + On Error GoTo Hiba + kulcsszo = "" + parameter = "" + If Mid(sor, 1, 1) = ";" Or Mid(sor, 1, 1) = "#" Or Mid(sor, 1, 1) = "/" Or Mid(sor, 1, 1) = "[" Or sor = "" Then GoTo kihagy + kulcsszo = LCase(Utasitas(sor)) + parameter = Ertek(sor) + + 'Parancs formázgatása + If kulcsszo = "" Then kulcsszo = sor + kulcsszo = Korulmetel(kulcsszo) + parameter = Korulmetel(parameter) + + 'MsgBox kulcsszo & " := " & parameter + + + Select Case kulcsszo +' ######################## Projektekkel összefüggő beállítások ################################# + Case "cim", "cime" + Cime = parameter + Me.Caption = parameter & " - " & "Vaktérkép " & Vakterkep.Verzio + Case "terkep", "kep" + On Error GoTo kephiba + parameter = Atalakit(parameter, Konyvtara(Fajlnev)) + kep = parameter + + terulet.Picture = LoadPicture(parameter) + nyomtat.Enabled = True + X = 0 + Y = 0 + szel = terulet.Width + mag = terulet.Height + + Form_Resize + Case "kijelol" + X = Kicsontoz(parameter, ";", 0) + Y = Kicsontoz(parameter, ";", 1) + szel = Kicsontoz(parameter, ";", 2) + mag = Kicsontoz(parameter, ";", 3) + + terulet.Width = szel + terulet.Height = mag + + terulet.Cls + terulet.PaintPicture LoadPicture(kep), 0, 0, terulet.Width, terulet.Height, X, Y, szel, mag + Form_Resize + + Case "nagyitas" + On Error Resume Next + terulet.Width = terulet.Width * parameter + terulet.Height = terulet.Height * parameter + terulet.Cls + terulet.PaintPicture LoadPicture(kep), 0, 0, terulet.Width, terulet.Height, X, Y, szel, mag + Form_Resize + Case "!>" + lezaras + ' ############# OBJEKTUMOK + + Case " "jelm" Then + obj.Left = CSng(Atalakit(Kicsontoz(parameter, ",", 0), "")) + obj.Top = CSng(Atalakit(Kicsontoz(parameter, ",", 1), "")) + End If + Case "meret", "meretek" + On Error Resume Next + If aze Then + obj.Width = CLng(Atalakit(Kicsontoz(parameter, ",", 0), "")) + obj.Height = CLng(Atalakit(Kicsontoz(parameter, ",", 1), "")) + End If + Case "tipp" + obj.ToolTipText = parameter + If obj.Name = "jel" Then + jel_szoveg(id).ToolTipText = parameter + End If + + Case "betu-tipus" + On Error Resume Next + Select Case obj.Name + Case "jel" + jel_szoveg(id).FontName = parameter + Case "megj" + megj_szoveg(FID).FontName = parameter + Case "jelm" + jelmagyarazat.jelm_szoveg(JID).FontName = parameter + End Select + + Case "betu-meret" + On Error Resume Next + parameter = CDbl(parameter) + Select Case obj.Name + Case "jel" + jel_szoveg(id).FontSize = parameter + Case "megj" + megj_szoveg(FID).FontSize = parameter + Case "jelm" + jelmagyarazat.jelm_szoveg(JID).FontSize = parameter + End Select + + Case "betu-szin" + On Error Resume Next + parameter = CLng(parameter) + Select Case obj.Name + Case "jel" + jel_szoveg(id).ForeColor = parameter + Case "megj" + megj_szoveg(FID).ForeColor = parameter + Case "jelm" + jelmagyarazat.jelm_szoveg(JID).ForeColor = parameter + End Select + + Case "betu-hatter" + On Error Resume Next + parameter = CLng(parameter) + Select Case obj.Name + 'Case "jel" + 'jel_szoveg(id).BackStyle = 1 + 'jel_szoveg(id).BackColor = parameter + Case "megj" + megj_szoveg(FID).BackStyle = 1 + megj_szoveg(FID).BackColor = parameter + Case "jelm" + jelmagyarazat.jelm_szoveg(JID).BackStyle = 1 + jelmagyarazat.jelm_szoveg(JID).BackColor = parameter + End Select + Case "formazas" + parameter = LCase(parameter) + Select Case obj.Name + Case "jel" + jel_szoveg(id).FontBold = VanEBenne(parameter, "f") + jel_szoveg(id).FontItalic = VanEBenne(parameter, "d") + jel_szoveg(id).FontUnderline = VanEBenne(parameter, "a") + jel_szoveg(id).FontStrikethru = VanEBenne(parameter, "k") + Case "megj" + megj_szoveg(FID).FontBold = VanEBenne(parameter, "f") + megj_szoveg(FID).FontItalic = VanEBenne(parameter, "d") + megj_szoveg(FID).FontUnderline = VanEBenne(parameter, "a") + megj_szoveg(FID).FontStrikethru = VanEBenne(parameter, "k") + Case "jelm" + jelmagyarazat.jelm_szoveg(JID).FontBold = VanEBenne(parameter, "f") + jelmagyarazat.jelm_szoveg(JID).FontItalic = VanEBenne(parameter, "d") + jelmagyarazat.jelm_szoveg(JID).FontUnderline = VanEBenne(parameter, "a") + jelmagyarazat.jelm_szoveg(JID).FontStrikethru = VanEBenne(parameter, "k") + End Select + + ' ########## ELEM EGYEDITULAJDONSÁGAI + Case "kerdes" + If obj.Name = "jel" And KID < 10 Then + KID = KID + 1 + elemek(id).kerdesek(KID).Kerdes = Kicsontoz(parameter, "|", 0) + elemek(id).kerdesek(KID).Valasz = Kicsontoz(parameter, "|", 1) + End If + Case "jel", "alakzat" + If aze Then + obj.jel = CByte(parameter) Mod 7 + End If + + Case "ikon", "jelkep", "szimbolum" + On Error Resume Next + If aze Then + obj.jel = 6 + obj.KepElerese = Atalakit(parameter, Konyvtara(Fajlnev)) + End If + + Case "szovegxy", "cimkexy", "cimke" + On Error Resume Next + Select Case obj.Name + Case "jel" + elemek(id).Bal = Kicsontoz(parameter, ",", 0) + elemek(id).Felso = Kicsontoz(parameter, ",", 1) + igazit (id) + Case "megj" + megj_szoveg(FID).Left = megj(FID).Left + Kicsontoz(parameter, ",", 0) + megj_szoveg(FID).Top = megj(FID).Top + Kicsontoz(parameter, ",", 1) + End Select + Case "hatter" + On Error Resume Next + If aze Then + obj.HatterSzine = parameter + End If + Case "atlatszo" + If aze Then + obj.Atlatszo = True + End If + Case "kitoltes-szin" + On Error Resume Next + If aze Then + obj.KitoltesSzine = parameter + End If + Case "kitoltes-tipus" + On Error Resume Next + If aze Then + obj.KitoltesTipus = parameter + End If + Case "keret-szin" + On Error Resume Next + If aze Then + obj.KeretSzine = parameter + End If + Case "keret-tipus" + On Error Resume Next + If aze Then + obj.KeretTipus = parameter + End If + Case "keret-vastagsag" + On Error Resume Next + If aze Then + obj.KeretVastagsaga = parameter + End If + Case "lathatatlan-jel" + 'If obj.Name <> "jelm" Then 'And megj_szoveg(FID).Visible Then + obj.Visible = False + 'End If + Case "lathatatlan-szoveg" + If obj.Name = "megj" Then megj_szoveg(FID).Visible = False +' ######################## Beállításokkal kapcsolatos értékek ################################### + Case "hatarok", "ponthatarok" + If beallitasok.egyeni.Value = 1 Or Fajlnev = Atalakit("$vt\vakterkep.ini", "") Then + For i = 1 To 4 + beallitasok.hatarok(i) = Kicsontoz(parameter, ",", i - 1) + Next i + End If + Case "beallitas", "beallitasok_engedelyezese" + beallitasok.enged.Value = parameter + beall_mnu.Visible = Abs(CInt(parameter)) + + Case "egyeni", "egyeni_beallitasok" + beallitasok.egyeni.Value = parameter + Case "jel", "helyettesito_szoveg" + beallitasok.jel = parameter + Case "pont" + beallitasok.pont = parameter + Case "segito", "kerdesek_engedelyezese" + beallitasok.kerdesek = parameter + Case "tippek", "tippek_engedelyezese" + beallitasok.tippek = parameter + Case "minusz", "levonasok" + beallitasok.levonas = parameter + Case "behuzasok_engedelyezese" + beallitasok.behuzas = parameter + Case "szerkesztes_engedelyezese" + beallitasok.szerkesztes = parameter + 'Case "nyelv" + ' If parameter <> "0" Then + ' beallitasok.nyelv_chk.Value = 1 + ' For i = 0 To beallitasok.nyelvek.ListCount - 1 + ' If parameter = beallitasok.nyelvek.List(i) Then + ' nyelv (parameter) + ' beallitasok.nyelvek.Selected(i) = True + ' End If + ' Next i + ' Else + ' beallitasok.nyelv_chk.Value = 0 + ' End If + + End Select +kihagy: + Loop + Close 1 + + If aze Then lezaras + + If jel.Count > 1 Then ertekel_mnu.Enabled = True + + If jelmagyarazat.jelm.Count > 1 Then + jelm_mnu.Enabled = True + jelmagyarazat.Height = (Nagyobb(jelmagyarazat.jelm(jelmagyarazat.jelm.Count - 1).Top + jelmagyarazat.jelm(jelmagyarazat.jelm.Count - 1).Height, jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Top + jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Height)) + 610 '* 1.5 '* (jelmagyarazat.Height / jelmagyarazat.ScaleHeight) + For i = 1 To JID + If jelmagyarazat.Width < (200 + jelmagyarazat.jelm_szoveg(i).Left + jelmagyarazat.jelm_szoveg(i).Width) Then '* (jelmagyarazat.ScaleWidth / jelmagyarazat.Width) Then + jelmagyarazat.Width = (200 + jelmagyarazat.jelm_szoveg(i).Left + jelmagyarazat.jelm_szoveg(i).Width) + 120 '* (jelmagyarazat.ScaleWidth / jelmagyarazat.Width) + End If + Next i + 'else + End If + + If jel.Count > 1 And beallitasok.behuzas.Value = 1 Then + behuzo_mnu.Enabled = True + Else + behuzo_mnu.Enabled = False + End If + + + terulet.Visible = True + If jel.Count > 1 Then ujra_mnu.Enabled = True + If Fajlnev <> Atalakit("$vt\vakterkep.ini", "") Then + For i = 1 To jel.Count - 1 Step 2 + Ujbehuzo (i) + Next i + + For i = 2 To jel.Count - 1 Step 2 + Ujbehuzo (i) + Next i + + For i = 1 To behuzo.szoveg.Count - 1 + If behuzo.szoveg(i).Width + 200 > behuzo.Width - 120 Then + behuzo.Width = (behuzo.szoveg(i).Width + 300) + 120 '* (behuzo.Width / behuzo.ScaleWidth) + End If + Next i + + behuzo.Height = (behuzo.szoveg(behuzo.szoveg.Count - 1).Top + behuzo.szoveg(behuzo.szoveg.Count - 1).Height + 610) '* 1.5 '(behuzo.Height / (behuzo.ScaleHeight)) + + Form_KeyDown 40, 0 + Megnyitva = Fajlnev + szerkesztes_mnu.Enabled = CBool(beallitasok.szerkesztes.Value) + End If +Exit Sub +Hiba: + Select Case Err.Number + Case 52 + MsgBox "A '" & Fajlnev & "' fájl nem tölthető be.", vbInformation, "Hábás fájl adott meg!" + 'Exit Sub + Case 53 + If Fajlnev <> Vakterkep.Konyvtar & "vakterkep.ini" Then + MsgBox "A megadott fájl nem található!", vbCritical, "A megadott fájl nem található!" + End If + 'Exit Sub + Case Else + MsgBox "A megadott projekt hibás bejegyzéseket tartalmaz, ami bizonytalanná teheti a program futását. A töltés e hiba miatt megszakad", vbCritical, "Ismeretlen hiba" + MsgBox "A hiba oka: " & Err.Description, vbInformation, "Hiba(" & Err.Number & ")" + End Select + + Close 1 + Exit Sub + +kephiba: + MsgBox "A megadott kép hibás, ismeretlen tömörítésű vagy nem található a megadott helyen." & vbCrLf & _ + "A projekt betöltése e hiba miatt megszakad.", vbCritical, "Képbetöltési hiba" + MsgBox Err.Description & " - " & Err.Number, vbCritical, kep + Close 1 + torol +End Sub + +Private Sub torol() + Dim i As Integer, j As Integer + ujra_mnu_Click + For i = 1 To jel.Count - 1 + Unload jel(i) + Unload jel_szoveg(i) + Unload behuzo.szoveg(i) + elemek(i) = ures + Next i + For i = 1 To megj.Count - 1 + Unload megj(i) + Unload megj_szoveg(i) + Next i + For i = 1 To jelmagyarazat.jelm.Count - 1 + Unload jelmagyarazat.jelm(i) + Unload jelmagyarazat.jelm_szoveg(i) + Next i + + jelm_mnu.Enabled = False + behuzo_mnu.Enabled = False + jelmagyarazat.Visible = False + behuzo.Visible = False + ertekel_mnu.Enabled = False + nyomtat.Enabled = False + Me.Caption = "Vaktérkép " & Vakterkep.Verzio + terulet.Picture = nevjegy.kep.Picture + terulet.Visible = True + + jelmagyarazat.Height = 510 + jelmagyarazat.Width = 1560 + Cime = "" + Megnyitva = "" + tabulalo = 0 +End Sub +Private Sub lezaras() +On Error Resume Next + obj.ZOrder 1 + Select Case obj.Name + Case "jel" + If jel_szoveg.Count > 1 Then + igazit (jel_szoveg.Count - 1) + jel_szoveg(jel_szoveg.Count - 1).Visible = True + jel_szoveg(jel_szoveg.Count - 1).ZOrder (0) + End If + Case "jelm" + If jelmagyarazat.jelm_szoveg.Count > 1 Then + 'obj.Visible = True + jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Visible = True + 'jelmagyarazat.Height = Nagyobb(jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Top + jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Height, jelmagyarazat.jelm(jelmagyarazat.jelm.Count - 1).Top + jelmagyarazat.jelm(jelmagyarazat.jelm.Count - 1).Height) + 200 * (jelmagyarazat.ScaleHeight / jelmagyarazat.Height) + ((jelmagyarazat.jelm.Count - 1) * 100) + jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Left = obj.Left + obj.Width + 100 + jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).Top = obj.Top + jelmagyarazat.jelm_szoveg(jelmagyarazat.jelm_szoveg.Count - 1).ZOrder (0) + End If + Case "megj" + If megj.Count > 1 Then + megj_szoveg(megj_szoveg.Count - 1).ZOrder (0) + End If + End Select + obj = Nothing +End Sub + + +Private Sub nevjegy_mnu_Click() + nevjegy.Show vbModal +End Sub + + +Private Sub Beiras(Index As Integer) + tabulalo = Index + megjelol (Index) + + If proba > 1 And beallitasok.kerdesek.Value = 1 And elemek(Index).kerdesek(elemek(Index).Kovetkezo).Kerdes <> "" And Not elemek(Index).Kitalalta Then + Dim ev As String + ev = InputBox(elemek(Index).kerdesek(elemek(Index).Kovetkezo).Kerdes, elemek(Index).Kovetkezo & ". kérdés", "") + If Trim(LCase(ev)) <> Trim(LCase(elemek(Index).kerdesek(elemek(Index).Kovetkezo).Valasz)) Then + If ev <> "" Then + elemek(Index).Kovetkezo = elemek(Index).Kovetkezo + 1 + End If + Exit Sub + Else + elemek(Index).Kitalalta = True + GoTo irhat + End If + Else +irhat: + szoveg.Visible = True + szoveg.Move jel_szoveg(Index).Left, jel_szoveg(Index).Top, szoveg.Width, jel_szoveg(Index).Height + szoveg.Text = jel_szoveg(Index).Caption + If szoveg.Text = beallitasok.jel.Text Then + szoveg.SelStart = 0 + szoveg.SelLength = Len(jel_szoveg(Index).Caption) + End If + szoveg.SetFocus + End If +End Sub + +Private Sub nyomtat_Click() + nyomtatas.Show vbModal + 'Printer.ScaleMode = 1 + 'terkep.Refresh + 'terkep.PrintForm +End Sub + +Private Sub szerkesztes_mnu_Click() + Shell Vakterkep.Konyvtar & App.EXEName & ".exe -sz=" & Megnyitva, vbNormalFocus + kilep_mnu_Click +End Sub + +Private Sub szoveg_Change() +On Error Resume Next + jel_szoveg(0).FontSize = szoveg.FontSize + jel_szoveg(0).Caption = szoveg.Text + szoveg.Width = jel_szoveg(0).Width + 200 + If szoveg.Width < 500 Then szoveg.Width = 500 +End Sub + +Private Sub terulet_Click() + Form_KeyDown 27, 0 +End Sub + +Private Sub ujra_mnu_Click() +Dim i As Integer + proba = 1 + Form_KeyDown 27, 0 + ertekel_mnu.Caption = "Értékelés" + For i = 1 To jel.Count - 1 + elemek(i).pont = 0 + elemek(i).Kovetkezo = 1 + elemek(i).Kitalalta = False + jel(i).Bekapcsolva = True + jel_szoveg(i).Enabled = True + jel_szoveg(i).BackStyle = 0 + jel_szoveg(i).Caption = beallitasok.jel.Text + igazit (i) + Next i +End Sub +Private Sub igazit(Index As Integer) +'On Error Resume Next + jel_szoveg(Index).Left = jel(Index).Left + Atalakit(elemek(Index).Bal, Index) + jel_szoveg(Index).Top = jel(Index).Top + Atalakit(elemek(Index).Felso, Index) +End Sub + +Private Sub Ujbehuzo(Elemhez As Integer) + With behuzo + Load .szoveg(.szoveg.Count) + .szoveg(.szoveg.Count - 1).Top = .szoveg(.szoveg.Count - 2).Top + .szoveg(.szoveg.Count - 2).Height + 100 + .szoveg(.szoveg.Count - 1).Left = 100 + .szoveg(.szoveg.Count - 1).Caption = elemek(Elemhez).Cime + .szoveg(.szoveg.Count - 1).Visible = True + End With +End Sub +Public Sub Ujratolt(Fajlt As String) + torol + megnyitas (Fajlt) +End Sub diff --git a/Source/OLVASO.FRX b/Source/OLVASO.FRX new file mode 100644 index 0000000..2735703 Binary files /dev/null and b/Source/OLVASO.FRX differ diff --git a/Source/SZOVEG.BAS b/Source/SZOVEG.BAS new file mode 100644 index 0000000..5eaf109 --- /dev/null +++ b/Source/SZOVEG.BAS @@ -0,0 +1,75 @@ +Attribute VB_Name = "szoveg" +Option Explicit +Public Function Utasitas(Adatsor As String) As String + Dim i As Integer, megvan As Boolean + i = 1 + megvan = False + Do While i <= Len(Adatsor) And Not megvan + If Mid(Adatsor, i, 1) = "=" Then + megvan = True + Utasitas = Mid(Adatsor, 1, i - 1) + End If + i = i + 1 + Loop + If Not megvan Then Utasitas = Adatsor +End Function +Public Function Ertek(Adatsor As String) As String + Dim i As Integer, megvan As Boolean + i = 1 + megvan = False + Do While i <= Len(Adatsor) And Not megvan + If Mid(Adatsor, i, 1) = "=" Then + megvan = True + Ertek = Mid(Adatsor, i + 1, Len(Adatsor) - i) + End If + i = i + 1 + Loop + If Not megvan Then Ertek = "" +End Function + +Public Function Kicsontoz(szoveg As String, Elvalaszto As String, Melyiket As Byte) As String + Dim i As Integer, j As Integer, ker As Integer + Dim cella(0 To 255) As String + i = 1 + j = 0 + + For ker = 1 To Len(szoveg) + If Mid(szoveg, ker, 1) = Elvalaszto Then + cella(j) = Mid(szoveg, i, ker - i) + i = ker + 1 + j = j + 1 + End If + Next + cella(j) = Mid(szoveg, i, Len(szoveg) + 1 - i) + Kicsontoz = cella(Melyiket) +End Function +Public Function Korulmetel(szoveg As String) As String + Dim i As Integer, megvan As Boolean + i = 1 + megvan = False + Do While i <= Len(szoveg) And Not megvan + If Mid(szoveg, i, 1) <> Chr(9) And Mid(szoveg, i, 1) <> " " Then + megvan = True + szoveg = Mid(szoveg, i, Len(szoveg) - i + 1) + End If + i = i + 1 + Loop + megvan = False + i = Len(szoveg) + Do While i >= 1 And Not megvan + If Mid(szoveg, i, 1) <> Chr(9) And Mid(szoveg, i, 1) <> " " Then + megvan = True + szoveg = Mid(szoveg, 1, i) + End If + i = i - 1 + Loop + Korulmetel = szoveg +End Function + +Public Function VanEBenne(Miben As String, Mi As String) As Boolean + If InStr(1, Miben, Mi) = 0 Then + VanEBenne = False + Else + VanEBenne = True + End If +End Function diff --git a/Source/Vakterkep.vbp b/Source/Vakterkep.vbp new file mode 100644 index 0000000..fe11f17 --- /dev/null +++ b/Source/Vakterkep.vbp @@ -0,0 +1,52 @@ +Type=Exe +Module=kozos; indito.bas +Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx +Form=olvaso.frm +Form=bealitasok.frm +Module=szoveg; szoveg.bas +Form=tulajdonsagok.frm +Form=jelmagyarazat.frm +Form=nevjegy.frm +Form=ertekeles.frm +Form=nyomtatas.frm +Form=szerk.frm +Reference=*\G{6B263850-900B-11D0-9484-00A0C91110ED}#1.0#0#C:\WINDOWS\System32\MSSTDFMT.DLL#Microsoft Data Formatting Object Library +UserControl=Jelek\jel.ctl +Form=behuzo.frm +IconForm="terkep" +Startup="Sub Main" +HelpFile="" +Title="Vakterkep" +ExeName32="Vakterkep.exe" +Command32="" +Name="Vakterkep2" +HelpContextID="0" +Description="Vaktérkép és Vaktérkép Szerkesztő" +CompatibleMode="0" +MajorVer=2 +MinorVer=0 +RevisionVer=72 +AutoIncrementVer=1 +ServerSupportFiles=0 +VersionComments="Vaktérkép és Vaktérkép Szerkesztő" +VersionCompanyName="Muráti Ákos" +VersionFileDescription="Vaktérkép és Vaktérkép Szerkesztő" +VersionLegalCopyright="Muráti Ákos, 2003" +CompilationType=0 +OptimizationType=0 +FavorPentiumPro(tm)=0 +CodeViewDebugInfo=0 +NoAliasing=0 +BoundsCheck=0 +OverflowCheck=0 +FlPointCheck=0 +FDIVCheck=0 +UnroundedFP=0 +StartMode=0 +Unattended=0 +Retained=0 +ThreadPerObject=0 +MaxNumberOfThreads=1 + +[MS Transaction Server] +AutoRefresh=1 diff --git "a/Source/Vakt\303\251rk\303\251p.PDM" "b/Source/Vakt\303\251rk\303\251p.PDM" deleted file mode 100644 index e33cdb3..0000000 --- "a/Source/Vakt\303\251rk\303\251p.PDM" +++ /dev/null @@ -1,90 +0,0 @@ -[Root] -Most Recent Package=Standard Setup Package 1 - - -[Package|Standard Setup Package 1|Root] -SubWizProgID=PDWizard.SetupPkgSubWiz -BuildFolder=D:\Programozás\VB\Vakterkep\Setup - -[Package|Standard Setup Package 1|Configure DAO ISAMs] -Applicable=No - -[Package|Standard Setup Package 1|Configure DAO ODBC] -JetWorkspace= -ODBCDirect= - -[Package|Standard Setup Package 1|Files Found] - -[Package|Standard Setup Package 1|Files Released] - -[Package|Standard Setup Package 1|Missing Dependency Information] - -[Package|Standard Setup Package 1|Out-of-Date Dependency Information] - -[Package|Standard Setup Package 1|Files Added] - -[Package|Standard Setup Package 1|Files Removed] - -[Package|Standard Setup Package 1|Files In Project] -D:\Programozás\VB\Vakterkep\vakterkep.exe=Yes -C:\WINDOWS\system32\msvbvm60.dll=Yes -C:\WINDOWS\system32\oleaut32.dll=Yes -C:\WINDOWS\system32\olepro32.dll=Yes -C:\WINDOWS\system32\asycfilt.dll=Yes -C:\WINDOWS\system32\stdole2.tlb=Yes -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes -C:\WINDOWS\system32\COMDLG32.OCX=Yes -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes -C:\WINDOWS\system32\VB6STKIT.DLL=Yes -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes - -[Package|Standard Setup Package 1|Configure Registry Files] -Applicable=No - -[Package|Standard Setup Package 1|Configure Remote Servers] -Applicable=No - -[Package|Standard Setup Package 1|Install Locations] -D:\Programozás\VB\Vakterkep\vakterkep.exe=$(AppPath) -C:\WINDOWS\system32\msvbvm60.dll=$(WinSysPathSysFile) -C:\WINDOWS\system32\oleaut32.dll=$(WinSysPathSysFile) -C:\WINDOWS\system32\olepro32.dll=$(WinSysPathSysFile) -C:\WINDOWS\system32\asycfilt.dll=$(WinSysPathSysFile) -C:\WINDOWS\system32\stdole2.tlb=$(WinSysPathSysFile) -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile) -C:\WINDOWS\system32\COMDLG32.OCX=$(WinSysPath) -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=$(AppPath) -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=$(WinPath) -C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile) -C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=$(WinPath) - -[Package|Standard Setup Package 1|Configure Shared Files] -Applicable=Yes -D:\Programozás\VB\Vakterkep\vakterkep.exe=No - -[Package|Standard Setup Package 1|Distribution] -Type=single -Size= -Title=Vaktérkép - -[Package|Standard Setup Package 1|IconGroups] -Group0=Vaktérkép -PrivateGroup0=True -Parent0=$(Programs) - -[Package|Standard Setup Package 1|Vaktérkép] -Icon1=vakterkep.exe -Title1=Vaktérkép -StartIn1=$(AppPath) -Key1=Icon1 - -[Package|Standard Setup Package 1|Package] -PackageFolder=D:\Programozás\VB\Vakterkep\Setup -ProjectFolder=D:\Programozás\VB\Vakterkep -ServerSideCab= -File1=D:\Programozás\VB\Vakterkep\Setup\setup.exe -File2=D:\Programozás\VB\Vakterkep\Setup\Setup.Lst -File3=D:\Programozás\VB\Vakterkep\Setup\vakterkep.CAB -Handler1=PDWizard.FolderDplySubWiz -Handler2=PDWizard.WebPostDplySubWiz diff --git "a/Source/Vakt\303\251rk\303\251p.vbp" "b/Source/Vakt\303\251rk\303\251p.vbp" deleted file mode 100644 index 0a7ec32..0000000 --- "a/Source/Vakt\303\251rk\303\251p.vbp" +++ /dev/null @@ -1,50 +0,0 @@ -Type=Exe -Form=terkep.frm -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\STDOLE2.TLB#OLE Automation -Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX -Form=ertekeles.frm -Module=input; input.bas -Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX -Form=szerk.frm -Form=tul.frm -Form=nevjegy.frm -Form=opciok.frm -Form=jelol.frm -IconForm="terkep" -Startup="Sub Main" -HelpFile="" -Title="Vaktérkép és Vaktérkép Szerkesztő" -ExeName32="vakterkep.exe" -Command32="" -Name="Vaktérkép" -HelpContextID="0" -CompatibleMode="0" -MajorVer=1 -MinorVer=6 -RevisionVer=1 -AutoIncrementVer=0 -ServerSupportFiles=0 -VersionComments="Vaktérkép és Vaktérkép Szerkesztő" -VersionCompanyName="Muráti Ákos" -VersionFileDescription="Vaktérkép és Vaktérkép Szerkesztő" -VersionLegalCopyright="Muráti Ákos" -VersionLegalTrademarks="Muráti Ákos" -VersionProductName="Vaktérkép és Vaktérkép Szerkesztő" -CompilationType=0 -OptimizationType=0 -FavorPentiumPro(tm)=0 -CodeViewDebugInfo=0 -NoAliasing=0 -BoundsCheck=0 -OverflowCheck=0 -FlPointCheck=0 -FDIVCheck=0 -UnroundedFP=0 -StartMode=0 -Unattended=0 -Retained=0 -ThreadPerObject=0 -MaxNumberOfThreads=1 - -[MS Transaction Server] -AutoRefresh=1 diff --git a/Source/bealitasok.frm b/Source/bealitasok.frm new file mode 100644 index 0000000..654fe51 --- /dev/null +++ b/Source/bealitasok.frm @@ -0,0 +1,466 @@ +VERSION 5.00 +Begin VB.Form beallitasok + Caption = "Beállítások" + ClientHeight = 3120 + ClientLeft = 60 + ClientTop = 450 + ClientWidth = 13680 + ControlBox = 0 'False + LinkTopic = "Form1" + ScaleHeight = 3120 + ScaleWidth = 13680 + ShowInTaskbar = 0 'False + StartUpPosition = 3 'Windows Default + Begin VB.Frame beall_frm + BorderStyle = 0 'None + Caption = "Értékelés" + Height = 2415 + Index = 2 + Left = 5040 + TabIndex = 33 + Top = 120 + Visible = 0 'False + Width = 3495 + Begin VB.CheckBox nyelv_chk + Caption = "Más nyelvek használata" + ForeColor = &H00808080& + Height = 255 + Left = 120 + TabIndex = 35 + Top = 120 + Width = 3015 + End + Begin VB.FileListBox nyelvek + Enabled = 0 'False + Height = 1845 + Left = 360 + Pattern = "*.nyelv" + TabIndex = 34 + Top = 480 + Width = 2895 + End + End + Begin VB.CommandButton sugo + Caption = "Súgó" + Height = 375 + Left = 120 + TabIndex = 32 + Top = 2640 + Width = 975 + End + Begin VB.PictureBox alap_frm + BackColor = &H00FFFFFF& + Height = 2415 + Left = 0 + ScaleHeight = 2355 + ScaleWidth = 1275 + TabIndex = 29 + Top = 0 + Width = 1335 + Begin VB.Label beall_mnu + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "Nyelv" + Height = 195 + Index = 2 + Left = 120 + TabIndex = 36 + Top = 600 + Visible = 0 'False + Width = 405 + End + Begin VB.Label beall_mnu + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "Értékelés" + Height = 195 + Index = 1 + Left = 120 + TabIndex = 31 + Top = 360 + Width = 660 + End + Begin VB.Label beall_mnu + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "Általános" + Height = 195 + Index = 0 + Left = 120 + TabIndex = 30 + Top = 120 + Width = 645 + End + End + Begin VB.Frame beall_frm + BorderStyle = 0 'None + Caption = "Értékelés" + Height = 2415 + Index = 1 + Left = 8760 + TabIndex = 11 + Top = 120 + Visible = 0 'False + Width = 3495 + Begin VB.TextBox levonas + Height = 285 + Left = 2640 + MaxLength = 2 + TabIndex = 17 + Text = "20" + Top = 1920 + Width = 375 + End + Begin VB.TextBox pont + Height = 285 + Left = 2640 + MaxLength = 2 + TabIndex = 16 + Text = "10" + Top = 1680 + Width = 375 + End + Begin VB.TextBox hatarok + Height = 285 + Index = 1 + Left = 2040 + MaxLength = 2 + TabIndex = 15 + Text = "52" + Top = 120 + Width = 375 + End + Begin VB.TextBox hatarok + Height = 285 + Index = 2 + Left = 2040 + MaxLength = 2 + TabIndex = 14 + Text = "60" + Top = 480 + Width = 375 + End + Begin VB.TextBox hatarok + Height = 285 + Index = 3 + Left = 2040 + MaxLength = 2 + TabIndex = 13 + Text = "75" + Top = 840 + Width = 375 + End + Begin VB.TextBox hatarok + Height = 285 + Index = 4 + Left = 2040 + MaxLength = 2 + TabIndex = 12 + Text = "91" + Top = 1200 + Width = 375 + End + Begin VB.Label cetli + Caption = "%" + Height = 255 + Index = 11 + Left = 3000 + TabIndex = 28 + Top = 1980 + Width = 255 + End + Begin VB.Label cetli + Caption = "Kérdésenként százalék levonás:" + Height = 255 + Index = 10 + Left = 240 + TabIndex = 27 + Top = 1920 + Width = 2295 + End + Begin VB.Label cetli + Caption = "%" + Height = 255 + Index = 9 + Left = 2400 + TabIndex = 26 + Top = 1260 + Width = 255 + End + Begin VB.Label cetli + Caption = "%" + Height = 255 + Index = 8 + Left = 2400 + TabIndex = 25 + Top = 900 + Width = 255 + End + Begin VB.Label cetli + Caption = "%" + Height = 255 + Index = 7 + Left = 2400 + TabIndex = 24 + Top = 540 + Width = 255 + End + Begin VB.Label cetli + Caption = "%" + Height = 255 + Index = 6 + Left = 2400 + TabIndex = 23 + Top = 180 + Width = 255 + End + Begin VB.Label cetli + Caption = "Egy feladatra adható pont:" + Height = 255 + Index = 4 + Left = 240 + TabIndex = 22 + Top = 1680 + Width = 1935 + End + Begin VB.Label cetli + Caption = "Elégséges alsó határa:" + Height = 255 + Index = 0 + Left = 240 + TabIndex = 21 + Top = 120 + Width = 1695 + End + Begin VB.Label cetli + Caption = "Közepes alsó határa:" + Height = 255 + Index = 1 + Left = 240 + TabIndex = 20 + Top = 480 + Width = 1695 + End + Begin VB.Label cetli + Caption = "Jó alsó határa:" + Height = 255 + Index = 2 + Left = 240 + TabIndex = 19 + Top = 840 + Width = 1695 + End + Begin VB.Label cetli + Caption = "Példás alsó határa:" + Height = 255 + Index = 3 + Left = 240 + TabIndex = 18 + Top = 1200 + Width = 1695 + End + End + Begin VB.Frame Frame1 + Height = 135 + Left = 0 + TabIndex = 10 + Top = 2400 + Width = 4815 + End + Begin VB.Frame beall_frm + BorderStyle = 0 'None + Caption = "Általános beállítások" + Height = 2415 + Index = 0 + Left = 1440 + TabIndex = 3 + Top = 0 + Width = 3375 + Begin VB.CheckBox szerkesztes + Caption = "Szerkesztés menü engedélyezése" + Height = 255 + Left = 120 + TabIndex = 38 + Top = 720 + Width = 2895 + End + Begin VB.CheckBox behuzas + Caption = "Behúzások engedélyezése" + Height = 255 + Left = 120 + TabIndex = 37 + Top = 1080 + Width = 2895 + End + Begin VB.CheckBox egyeni + Caption = "Projektfájlok egyéni beállításainak engedélyezése" + Height = 375 + Left = 120 + TabIndex = 8 + Top = 360 + Width = 2895 + End + Begin VB.CheckBox enged + Caption = "Beállítások menüpont engedélyezése" + Height = 255 + Left = 120 + TabIndex = 7 + Top = 120 + Value = 1 'Checked + Width = 3135 + End + Begin VB.TextBox jel + Height = 285 + Left = 1200 + TabIndex = 6 + Text = "?" + Top = 2040 + Width = 1935 + End + Begin VB.CheckBox kerdesek + Caption = "Segítő kérdések" + Height = 255 + Left = 120 + TabIndex = 5 + Top = 1320 + Width = 2895 + End + Begin VB.CheckBox tippek + Caption = "Gyorstippek" + Height = 255 + Left = 120 + TabIndex = 4 + Top = 1560 + Width = 2895 + End + Begin VB.Label cetli + Caption = "Pótlójel:" + Height = 255 + Index = 5 + Left = 120 + TabIndex = 9 + Top = 2040 + Width = 1095 + End + End + Begin VB.CommandButton megse + Caption = "&Mégse" + Default = -1 'True + Height = 375 + Left = 1320 + TabIndex = 2 + Top = 2640 + Width = 975 + End + Begin VB.CommandButton ok + Caption = "&Ok" + Height = 375 + Left = 2520 + TabIndex = 1 + Top = 2640 + Width = 975 + End + Begin VB.CommandButton alkalmaz + Caption = "Menté&s" + Height = 375 + Left = 3720 + TabIndex = 0 + Top = 2640 + Width = 975 + End +End +Attribute VB_Name = "beallitasok" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Private Sub alap_frm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) + beall_mnu_MouseMove beall_mnu.Count + 1, Button, Shift, X, Y +End Sub + +Private Sub alkalmaz_Click() +Dim seged + Open Atalakit("$vt\vakterkep.ini", "") For Output As 2 + Print #2, "[Vaktérkép " & Vakterkep.Verzio & "]" + Print #2, "" + Print #2, "Beallitasok_Engedelyezese=" & enged.Value + Print #2, "Egyeni_Beallitasok=" & egyeni.Value + Print #2, "Ponthatarok=" & hatarok(1).Text & ","; hatarok(2).Text & ","; hatarok(3).Text & ","; hatarok(4).Text + Print #2, "Helyettesito_Szoveg=" & jel.Text + Print #2, "Pont=" & pont.Text + Print #2, "Levonasok=" & levonas.Text + Print #2, "Tippek_Engedelyezese=" & tippek.Value + Print #2, "Kerdesek_Engedelyezese=" & kerdesek.Value + Print #2, "Behuzasok_Engedelyezese=" & behuzas.Value + Print #2, "Szerkesztes_engedelyezese=" & szerkesztes.Value + 'If CBool(nyelv_chk.Value) Then + ' seged = nyelvek.List(nyelvek.ListIndex) + ' Else + ' seged = "0" + 'End If + 'Print #2, "Nyelv=" & seged + Close 2 + terkep.megnyitas ("$vt\vakterkep.ini") +End Sub + +Private Sub beall_mnu_Click(Index As Integer) + Dim i As Integer + On Error Resume Next + For i = 0 To beall_frm.Count - 1 + beall_frm(i).Visible = False + beall_mnu(i).FontBold = False + Next i + beall_frm(Index).Visible = True + beall_mnu(Index).FontBold = True +End Sub + +Private Sub beall_mnu_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) + Dim i As Integer + On Error Resume Next + For i = 0 To beall_mnu.Count - 1 + beall_mnu(i).ForeColor = vbBlack + Next i + beall_mnu(Index).ForeColor = vbBlue +End Sub + +Private Sub Form_Load() +Dim i As Integer +On Error Resume Next + 'nyelvek.Path = Vakterkep.Konyvtar & "nyelvek" + 'If nyelvek.ListCount = 0 Then nyelv_chk.Enabled = False Else nyelv_chk.Enabled = True + Me.Width = 4965 + Me.Height = 3630 + For i = 0 To beall_frm.Count - 1 + beall_frm(i).Move 1440, 0 + Next i + +End Sub + +Private Sub megse_Click() + terkep.megnyitas ("$vt\vakterkep.ini") + 'terkep.Ujratolt + ok_Click +End Sub + +Private Sub nyelv_chk_Click() +' nyelvek.Enabled = CBool(nyelv_chk.Value) +' If nyelv_chk.Value = 1 Then +' nyelv_chk.ForeColor = vbBlack +' Else +' nyelv_chk.ForeColor = &H808080 +' End If +End Sub + +Private Sub ok_Click() + 'If nyelv_chk.Value = 1 Then nyelv (nyelvek.List(nyelvek.ListIndex)) + If terkep.Megnyitva <> "" Then + 'Call MsgBox("Az új beállítások érvénybelépéséhez újratöltöm a megnyitott projektet.", vbInformation, "Új beállítások érvényesítése...") + terkep.Ujratolt (terkep.Megnyitva) + End If + Me.Hide +End Sub + +Private Sub sugo_Click() + HHSugo ("beall.htm") +End Sub diff --git a/Source/ertekeles.frm b/Source/ertekeles.frm index 23f4935..ec6f15b 100644 --- a/Source/ertekeles.frm +++ b/Source/ertekeles.frm @@ -1,5 +1,5 @@ VERSION 5.00 -Begin VB.Form bizi +Begin VB.Form ertekeles BorderStyle = 3 'Fixed Dialog Caption = "Értékelés" ClientHeight = 3285 @@ -8,6 +8,7 @@ Begin VB.Form bizi ClientWidth = 2970 ControlBox = 0 'False Icon = "ertekeles.frx":0000 + KeyPreview = -1 'True LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False @@ -207,15 +208,19 @@ Begin VB.Form bizi Width = 1335 End End -Attribute VB_Name = "bizi" +Attribute VB_Name = "ertekeles" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False -Private Sub javitas_Click() + +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) + If KeyCode = 112 Then HHSugo ("ert.htm") End Sub + + Private Sub ok_Click() Me.Hide End Sub diff --git a/Source/input.bas b/Source/input.bas deleted file mode 100644 index 4dd2c11..0000000 --- a/Source/input.bas +++ /dev/null @@ -1,68 +0,0 @@ -Attribute VB_Name = "input" -Public i As Integer, j As Double, eleres As String, k As String -Sub Main() -Dim parancs As String, ertek As String -parancs = Trim(Command$) -If Len(App.Path) = 3 Then eleres = Mid(App.Path, 1, 2) Else eleres = App.Path -Select Case UCase(parancs) - Case "/SZERK" - szerk.Show - Exit Sub - - Case "/BEALL" - terkep.sett.Visible = True - - Case Else - If parancs <> "" Then - If Mid(parancs, 1, 1) = Chr(34) Then - parancs = Mid(parancs, 2, Len(parancs) - 2) - End If - - Call terkep.tolt(parancs) - - End If -End Select -Call terkep.tolt(eleres & "\vakterkep.ini") -terkep.Show -End Sub - -Public Sub totalki() - Unload jelol - Unload bizi - Unload szerk - Unload terkep - Unload tul - End -End Sub - -Public Function perenbol(szoveg As String) -Dim l As String, ker As Integer - l = "" - ker = 1 - Do While ker <= Len(szoveg) - If Mid(szoveg, ker, 2) = "\n" Then - l = l & vbCrLf - ker = ker + 2 - Else - l = l & Mid(szoveg, ker, 1) - ker = ker + 1 - End If - Loop - perenbol = l -End Function - -Public Function perenbe(szoveg As String) -Dim l As String, ker As Integer - l = "" - ker = 1 - Do While ker <= Len(szoveg) - If Mid(szoveg, ker, 1) = Chr(13) Then - l = l & "\n" - ker = ker + 2 - Else - l = l & Mid(szoveg, ker, 1) - ker = ker + 1 - End If - Loop - perenbe = l -End Function diff --git a/Source/jelmagyarazat.frm b/Source/jelmagyarazat.frm new file mode 100644 index 0000000..844200a --- /dev/null +++ b/Source/jelmagyarazat.frm @@ -0,0 +1,52 @@ +VERSION 5.00 +Begin VB.Form jelmagyarazat + AutoRedraw = -1 'True + BackColor = &H80000018& + Caption = "Jelmagyarázat" + ClientHeight = 0 + ClientLeft = 60 + ClientTop = 450 + ClientWidth = 540 + ControlBox = 0 'False + KeyPreview = -1 'True + LinkTopic = "Form1" + ScaleHeight = 0 + ScaleWidth = 540 + ShowInTaskbar = 0 'False + StartUpPosition = 3 'Windows Default + Begin Vakterkep2.jel jelm + Height = 255 + Index = 0 + Left = 120 + TabIndex = 1 + Top = -255 + Visible = 0 'False + Width = 255 + _ExtentX = 873 + _ExtentY = 873 + KitoltesSzine = -2147483640 + KeretSzine = -2147483640 + HatterSzine = -2147483643 + End + Begin VB.Label jelm_szoveg + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "Jel szöveg" + Height = 195 + Index = 0 + Left = 480 + TabIndex = 0 + Top = -250 + Visible = 0 'False + Width = 750 + End +End +Attribute VB_Name = "jelmagyarazat" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False + +Private Sub Form_KeyPress(KeyAscii As Integer) + If KeyAscii = 10 Then Me.Hide +End Sub diff --git a/Source/jelol.frm b/Source/jelol.frm deleted file mode 100644 index 5ee6097..0000000 --- a/Source/jelol.frm +++ /dev/null @@ -1,52 +0,0 @@ -VERSION 5.00 -Begin VB.Form jelol - Caption = "Jelmagyarázat" - ClientHeight = 855 - ClientLeft = 60 - ClientTop = 345 - ClientWidth = 3120 - ControlBox = 0 'False - KeyPreview = -1 'True - LinkTopic = "Form1" - MaxButton = 0 'False - MinButton = 0 'False - ScaleHeight = 855 - ScaleWidth = 3120 - ShowInTaskbar = 0 'False - StartUpPosition = 3 'Windows Default - Begin VB.Shape pont - BorderColor = &H00000000& - FillStyle = 0 'Solid - Height = 135 - Index = 0 - Left = 120 - Shape = 3 'Circle - Top = -160 - Visible = 0 'False - Width = 135 - End - Begin VB.Label cimke - AutoSize = -1 'True - BackStyle = 0 'Transparent - Caption = "Címke" - Height = 195 - Index = 0 - Left = 360 - MousePointer = 1 'Arrow - TabIndex = 0 - Top = -160 - Visible = 0 'False - Width = 450 - End -End -Attribute VB_Name = "jelol" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Private Sub Form_KeyPress(KeyAscii As Integer) -If KeyAscii = 10 Then - terkep.jelm_Click -End If -End Sub - diff --git a/Source/nevjegy.frm b/Source/nevjegy.frm index aa10532..92e74fc 100644 --- a/Source/nevjegy.frm +++ b/Source/nevjegy.frm @@ -1,72 +1,84 @@ VERSION 5.00 -Begin VB.Form frmAbout - BorderStyle = 3 'Fixed Dialog - Caption = "Vaktérkép és Vaktérkép Szerkesztő Névjegye" - ClientHeight = 4170 +Begin VB.Form nevjegy + AutoRedraw = -1 'True + BackColor = &H00FFFFFF& + BorderStyle = 1 'Fixed Single + Caption = "Vaktérkép névjegye - Muráti Ákos" + ClientHeight = 3615 ClientLeft = 2340 ClientTop = 1935 - ClientWidth = 4875 + ClientWidth = 4515 ClipControls = 0 'False Icon = "nevjegy.frx":0000 LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False - ScaleHeight = 2878.208 + ScaleHeight = 2495.137 ScaleMode = 0 'User - ScaleWidth = 4577.877 + ScaleWidth = 4239.818 ShowInTaskbar = 0 'False - Begin VB.PictureBox kep - Appearance = 0 'Flat - AutoRedraw = -1 'True - AutoSize = -1 'True - BackColor = &H80000005& - ForeColor = &H80000008& - Height = 3330 - Left = 202 - Picture = "nevjegy.frx":8EDA - ScaleHeight = 3300 - ScaleWidth = 4500 - TabIndex = 1 - ToolTipText = "A kilépéshez kattints ide..." - Top = 120 - Width = 4530 + Begin VB.Image kep + Height = 3000 + Left = 0 + Picture = "nevjegy.frx":000C + Stretch = -1 'True + Top = 0 + Width = 4500 End Begin VB.Label url AutoSize = -1 'True BackStyle = 0 'Transparent - Caption = "Vaktérkép honlapja - http://www.tar.hu/vakterkep2002" + Caption = "Vaktérkép 2.0 Weboldalának megtekintése" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 238 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty Height = 195 Index = 1 Left = 480 - MousePointer = 10 'Up Arrow - TabIndex = 2 - Top = 3480 - Width = 3945 + TabIndex = 1 + Top = 3120 + Width = 3675 End Begin VB.Label url AutoSize = -1 'True BackStyle = 0 'Transparent - Caption = "E-mail: b0murako@gyakg.u-szeged.hu" + Caption = "E-mail küldése" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 238 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty Height = 195 Index = 0 - Left = 840 - MousePointer = 10 'Up Arrow + Left = 1560 TabIndex = 0 - Top = 3840 - Width = 2775 + Top = 3360 + Width = 1245 End End -Attribute VB_Name = "frmAbout" +Attribute VB_Name = "nevjegy" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False - +Option Explicit Private Sub Form_Load() - Me.Caption = App.Title & " névjegye" + Me.Caption = "Vaktérkép névjegye - Muráti Ákos" + Me.Icon = terkep.Icon End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) +Dim i As Integer For i = 0 To url.Count - 1 url(i).FontUnderline = False url(i).ForeColor = vbBlack @@ -80,13 +92,15 @@ End Sub Private Sub url_Click(Index As Integer) Select Case Index Case 0 - Shell "explorer mailto:b0murako@gyakg.u-szeged.hu", vbHide + Shell "explorer mailto:b0murako@gyakg.u-szeged.hu", vbMinimizedNoFocus + 'Shell "outlook -c IPM.Note /m murako@index.hu", vbNormalFocus Case 1 Shell "explorer http://www.tar.hu/vakterkep2002" End Select End Sub Private Sub url_Mousemove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) +Dim i As Integer For i = 0 To url.Count - 1 url(i).FontUnderline = False url(i).ForeColor = vbBlack diff --git a/Source/nevjegy.frx b/Source/nevjegy.frx index aaf54b0..0643a7d 100644 Binary files a/Source/nevjegy.frx and b/Source/nevjegy.frx differ diff --git a/Source/nyomtatas.frm b/Source/nyomtatas.frm new file mode 100644 index 0000000..fb08429 --- /dev/null +++ b/Source/nyomtatas.frm @@ -0,0 +1,222 @@ +VERSION 5.00 +Begin VB.Form nyomtatas + BorderStyle = 1 'Fixed Single + Caption = "Vaktérkép nyomtatása" + ClientHeight = 5145 + ClientLeft = 45 + ClientTop = 435 + ClientWidth = 6540 + ControlBox = 0 'False + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 5145 + ScaleWidth = 6540 + StartUpPosition = 3 'Windows Default + Begin VB.Frame meret + BorderStyle = 0 'None + Height = 615 + Left = 960 + TabIndex = 4 + Top = 4440 + Width = 2175 + Begin VB.TextBox szelesseg + Height = 285 + Left = 960 + TabIndex = 6 + Text = "Text1" + Top = 0 + Width = 855 + End + Begin VB.TextBox magassag + Height = 285 + Left = 960 + TabIndex = 5 + Text = "Text1" + Top = 360 + Width = 855 + End + Begin VB.Label cimke + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "Magasság:" + Height = 195 + Index = 2 + Left = 0 + TabIndex = 9 + Top = 360 + Width = 780 + End + Begin VB.Label cimke + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "Szélesség:" + Height = 195 + Index = 1 + Left = 0 + TabIndex = 8 + Top = 0 + Width = 765 + End + Begin VB.Label cimke + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "mm" + Height = 195 + Index = 0 + Left = 1920 + TabIndex = 7 + Top = 240 + Width = 240 + End + End + Begin VB.CommandButton megse + Caption = "&Bezár" + Default = -1 'True + Height = 375 + Left = 4440 + TabIndex = 3 + Top = 4560 + Width = 855 + End + Begin VB.CommandButton ok + Caption = "&Nyomtat" + Height = 375 + Left = 5520 + TabIndex = 2 + Top = 4560 + Width = 855 + End + Begin VB.CommandButton sugo + Caption = "Súgó" + Height = 375 + Left = 120 + TabIndex = 1 + Top = 4560 + Width = 735 + End + Begin VB.PictureBox nyomtatando + AutoRedraw = -1 'True + Height = 4215 + Left = 120 + ScaleHeight = 4155 + ScaleWidth = 6195 + TabIndex = 0 + Top = 120 + Width = 6255 + End +End +Attribute VB_Name = "nyomtatas" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Dim arany As Double 'Az eredti képméret és a minta közötti arány +Const nyomtatoarany = 0.01789 'nyomtató képpontjai és a Twipek közötti arány + + +Private Sub Form_Load() +On Error Resume Next + Me.Caption = terkep.Cime & " nyomtása" + If terkep.terulet.Width > terkep.terulet.Height Then + arany = terkep.terulet.Width / nyomtatando.Width + nyomtatando.Height = terkep.terulet.Height / arany + Else + arany = terkep.terulet.Height / nyomtatando.Height + nyomtatando.Width = terkep.terulet.Width / arany + End If + + Vazol ("kepre") + + ok.Move nyomtatando.Left + nyomtatando.Width - ok.Width, nyomtatando.Top + nyomtatando.Height + 200 + megse.Move ok.Left - 200 - megse.Width, ok.Top + sugo.Move nyomtatando.Left, ok.Top + + Me.Height = ok.Top + ok.Height + nyomtatando.Top + 610 + Me.Width = 2 * nyomtatando.Left + nyomtatando.Width + 120 + + meret.Move sugo.Left + sugo.Width + 100, sugo.Top - ((meret.Height - sugo.Height) / 2) + szelesseg.Text = nyomtatando.ScaleWidth * nyomtatoarany +End Sub + +Private Sub magassag_Change() +On Error Resume Next + szelesseg.Text = (((magassag.Text / nyomtatoarany) / nyomtatando.ScaleHeight) * nyomtatando.ScaleWidth) * nyomtatoarany +End Sub + +Private Sub megse_Click() + Unload Me +End Sub + +Private Sub ok_Click() + Vazol ("nyomtatora") +End Sub +Private Sub Vazol(mire As String) + Dim i As Integer, j As Integer + Dim hova As Object, nagyit As Double, db As Integer + On Error Resume Next + + With terkep + If mire = "kepre" Then + Set hova = Me.nyomtatando + nagyit = 1 + Else + Set hova = Printer + nagyit = (CDbl(szelesseg.Text) / nyomtatoarany) / nyomtatando.ScaleWidth + End If + + 'Kép megalkotása: + db = 0 + hova.PaintPicture .terulet.Picture, 0, 0, nyomtatando.Width * nagyit, nyomtatando.Height * nagyit + + For i = 1 To .jel.Count - 1 + db = db + 1 + + For j = 1 To Int(.jel(i).Width / (2.5 * arany) * nagyit) + hova.Circle ((.jel(i).Left + .jel(i).Width / 2) / arany * nagyit, (.jel(i).Top + .jel(i).Height / 2) / arany * nagyit), j, vbBlack + Next j + + 'Kikérdezendő elem sorszáma + hova.CurrentX = (.jel_szoveg(i).Left + .jel_szoveg(i).Width / 2) / arany * nagyit + hova.CurrentY = (.jel_szoveg(i).Top + .jel_szoveg(i).Height / 2) / arany * nagyit + hova.FontSize = .jel_szoveg(i).FontSize / arany * nagyit + hova.FontBold = True + hova.Print db + Next i + + For i = 1 To .megj.Count - 1 + 'Megjegyzések szövegeinek kirajzolása + If .megj_szoveg(i).Visible Then + hova.ForeColor = .megj_szoveg(i).ForeColor + hova.CurrentX = .megj_szoveg(i).Left / arany * nagyit + hova.CurrentY = .megj_szoveg(i).Top / arany * nagyit + hova.FontName = .megj_szoveg(i).FontName + hova.FontSize = .megj_szoveg(i).FontSize / arany * nagyit + hova.FontBold = .megj_szoveg(i).FontBold + hova.FontItalic = .megj_szoveg(i).FontItalic + hova.FontUnderline = .megj_szoveg(i).FontUnderline + hova.FontStrikethru = .megj_szoveg(i).FontStrikethru + hova.Print .megj_szoveg(i).Caption + End If + + 'megjegyzés kirajolása + If .megj(i).Visible Then + For j = 1 To Int(.megj(i).Width / (2.5 * arany) * nagyit) + hova.Circle ((.megj(i).Left + .megj(i).Width / 2) / arany * nagyit, (.megj(i).Top + .megj(i).Height / 2) / arany * nagyit), j, .megj_szoveg(i).ForeColor + Next j + End If + Next i + End With + + If mire = "nyomtatora" Then Printer.EndDoc 'Ha nyomtatóra küldtük, akkor lezárni a csatornát +End Sub + +Private Sub sugo_Click() + HHSugo ("nyomtat.htm") +End Sub + +Private Sub szelesseg_Change() +On Error Resume Next + magassag = (((szelesseg.Text / nyomtatoarany) / nyomtatando.ScaleWidth) * nyomtatando.ScaleHeight) * nyomtatoarany +End Sub diff --git a/Source/opciok.frm b/Source/opciok.frm deleted file mode 100644 index 37e3359..0000000 --- a/Source/opciok.frm +++ /dev/null @@ -1,418 +0,0 @@ -VERSION 5.00 -Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" -Begin VB.Form opciok - BorderStyle = 3 'Fixed Dialog - Caption = "Vaktérkép beállításai" - ClientHeight = 3360 - ClientLeft = 2565 - ClientTop = 1500 - ClientWidth = 5460 - ControlBox = 0 'False - Icon = "opciok.frx":0000 - KeyPreview = -1 'True - LinkTopic = "Form1" - MaxButton = 0 'False - MinButton = 0 'False - ScaleHeight = 3360 - ScaleWidth = 5460 - ShowInTaskbar = 0 'False - StartUpPosition = 2 'CenterScreen - Begin VB.CommandButton sugo - Caption = "Sú&gó" - Height = 375 - Left = 120 - TabIndex = 33 - Top = 2880 - Width = 1095 - End - Begin VB.Frame alt - Caption = "Általános beállítások:" - Height = 2775 - Left = 1920 - TabIndex = 20 - Top = 0 - Width = 3495 - Begin VB.CheckBox tippek - Caption = "Gyorstippek" - Height = 255 - Left = 120 - TabIndex = 25 - Top = 1440 - Width = 2895 - End - Begin VB.CheckBox segito - Caption = "Segítő kérdések" - Height = 255 - Left = 120 - TabIndex = 24 - Top = 1200 - Width = 2895 - End - Begin VB.TextBox jel - Height = 285 - Left = 1200 - TabIndex = 4 - Text = "?" - Top = 2040 - Width = 1935 - End - Begin VB.CheckBox beeng - Caption = "Beállítások menüpont engedélyezése" - Height = 255 - Left = 120 - TabIndex = 2 - Top = 480 - Width = 3135 - End - Begin VB.CheckBox beall - Caption = "Projektfájlok egyéni beállításainak engedélyezése" - Height = 375 - Left = 120 - TabIndex = 3 - Top = 720 - Width = 2895 - End - Begin VB.Label cetli - Caption = "Pótlójel:" - Height = 255 - Index = 5 - Left = 120 - TabIndex = 23 - Top = 2040 - Width = 1095 - End - End - Begin VB.CommandButton megse - Caption = "&Mégse" - Height = 375 - Left = 1440 - TabIndex = 5 - Top = 2880 - Width = 1095 - End - Begin VB.CommandButton OK - Caption = "&OK" - Default = -1 'True - Height = 375 - Left = 2880 - TabIndex = 6 - Top = 2880 - Width = 1095 - End - Begin VB.CommandButton Alk - Caption = "Menté&s" - Height = 375 - Left = 4320 - TabIndex = 7 - Top = 2880 - Width = 1095 - End - Begin VB.Frame hat - Caption = "Értékelés:" - Height = 2775 - Left = 1920 - TabIndex = 15 - Top = 0 - Visible = 0 'False - Width = 3495 - Begin VB.TextBox szazal - Height = 285 - Left = 2760 - MaxLength = 2 - TabIndex = 31 - Text = "20" - Top = 2160 - Width = 375 - End - Begin VB.TextBox pont - Height = 285 - Left = 2760 - MaxLength = 2 - TabIndex = 22 - Text = "10" - Top = 1920 - Width = 375 - End - Begin VB.TextBox hatarok - Height = 285 - Index = 1 - Left = 2280 - MaxLength = 2 - TabIndex = 8 - Text = "52" - Top = 240 - Width = 375 - End - Begin VB.TextBox hatarok - Height = 285 - Index = 2 - Left = 2280 - MaxLength = 2 - TabIndex = 9 - Text = "60" - Top = 600 - Width = 375 - End - Begin VB.TextBox hatarok - Height = 285 - Index = 3 - Left = 2280 - MaxLength = 2 - TabIndex = 10 - Text = "75" - Top = 960 - Width = 375 - End - Begin VB.TextBox hatarok - Height = 285 - Index = 4 - Left = 2280 - MaxLength = 2 - TabIndex = 11 - Text = "91" - Top = 1320 - Width = 375 - End - Begin VB.Label cetli - Caption = "%" - Height = 255 - Index = 11 - Left = 3120 - TabIndex = 32 - Top = 2220 - Width = 255 - End - Begin VB.Label cetli - Caption = "Kérdésenként százalék levonás:" - Height = 255 - Index = 10 - Left = 360 - TabIndex = 30 - Top = 2160 - Width = 2295 - End - Begin VB.Label cetli - Caption = "%" - Height = 255 - Index = 9 - Left = 2640 - TabIndex = 29 - Top = 1380 - Width = 255 - End - Begin VB.Label cetli - Caption = "%" - Height = 255 - Index = 8 - Left = 2640 - TabIndex = 28 - Top = 1020 - Width = 255 - End - Begin VB.Label cetli - Caption = "%" - Height = 255 - Index = 7 - Left = 2640 - TabIndex = 27 - Top = 660 - Width = 255 - End - Begin VB.Label cetli - Caption = "%" - Height = 255 - Index = 6 - Left = 2640 - TabIndex = 26 - Top = 300 - Width = 255 - End - Begin VB.Label cetli - Caption = "Egy feladatra adható pont:" - Height = 255 - Index = 4 - Left = 360 - TabIndex = 21 - Top = 1920 - Width = 1935 - End - Begin VB.Label cetli - Caption = "Elégséges alsó határa:" - Height = 255 - Index = 0 - Left = 480 - TabIndex = 19 - Top = 240 - Width = 1695 - End - Begin VB.Label cetli - Caption = "Közepes alsó határa:" - Height = 255 - Index = 1 - Left = 480 - TabIndex = 18 - Top = 600 - Width = 1695 - End - Begin VB.Label cetli - Caption = "Jó alsó határa:" - Height = 255 - Index = 2 - Left = 480 - TabIndex = 17 - Top = 960 - Width = 1695 - End - Begin VB.Label cetli - Caption = "Példás alsó határa:" - Height = 255 - Index = 3 - Left = 480 - TabIndex = 16 - Top = 1320 - Width = 1695 - End - End - Begin MSComctlLib.TreeView fa - Height = 2775 - Left = 0 - TabIndex = 1 - Top = 0 - Width = 1815 - _ExtentX = 3201 - _ExtentY = 4895 - _Version = 393217 - LineStyle = 1 - Style = 6 - Appearance = 1 - End - Begin VB.PictureBox picOptions - BorderStyle = 0 'None - Height = 3780 - Index = 2 - Left = -20000 - ScaleHeight = 3780 - ScaleWidth = 5685 - TabIndex = 12 - TabStop = 0 'False - Top = 480 - Width = 5685 - Begin VB.Frame fraSample3 - Caption = "Sample 3" - Height = 1785 - Left = 1545 - TabIndex = 14 - Top = 675 - Width = 2055 - End - End - Begin VB.PictureBox picOptions - BorderStyle = 0 'None - Height = 3780 - Index = 1 - Left = -20000 - ScaleHeight = 3780 - ScaleWidth = 5685 - TabIndex = 0 - TabStop = 0 'False - Top = 480 - Width = 5685 - Begin VB.Frame fraSample2 - Caption = "Sample 2" - Height = 1785 - Left = 645 - TabIndex = 13 - Top = 300 - Width = 2055 - End - End -End -Attribute VB_Name = "opciok" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False - - -Private Sub Alk_Click() -Open eleres & "\vakterkep.ini" For Output As 3 - Print #3, "egyeni=" & beall.Value - Print #3, "hatarok=" & hatarok(1) & "," & hatarok(2) & "," & hatarok(3) & "," & hatarok(4) - Print #3, "beallitas=" & beeng.Value - Print #3, "jel=" & opciok.jel - Print #3, "pont=" & opciok.pont - Print #3, "minusz=" & opciok.szazal - Print #3, "segito=" & opciok.segito - Print #3, "tippek=" & opciok.tippek -Close 3 -End Sub - -Private Sub fa_NodeClick(ByVal Node As MSComctlLib.Node) -alt.Visible = False -hat.Visible = False -Select Case Node.Key - Case "alt" - alt.Visible = True - Case "szazal" - hat.Visible = True - -End Select -End Sub - - -Private Sub Form_Load() -fa.Nodes.Add , , "alt", "Általános" -fa.Nodes.Add , , "szazal", "Értékelés" - -End Sub - -Private Sub hatarok_LostFocus(Index As Integer) -On Error Resume Next - For i = 1 To 3 - If IsNumeric(hatarok(i)) = False Or hatarok(i) < 0 Then - MsgBox "Ide csak pozitív egész számot adhat meg!", vbInformation, i + 1 & "-s alsó határa:" - hatarok(i) = hatarok(i) = hatarok(i + 1) - 1 - Exit Sub - End If - - If hatarok(i) > hatarok(i + 1) Then - MsgBox "A megadott százaléknak kisebbnek kell lennie a az utána következőnél!", vbInformation, i + 1 & "-s alsó határa" - hatarok(i) = hatarok(i + 1) - 1 - End If - Next i -End Sub - -Private Sub megse_Click() -Call terkep.tolt(eleres & "\vakterkep.ini") -Me.Hide -End Sub - -Private Sub ok_Click() -Me.Hide -End Sub - - -Private Sub pont_LostFocus() -On Error Resume Next -If IsNumeric(pont.Text) = False Then - MsgBox "Ide csak szám kerülhet!", vbInformation, "Pontok:" - pont.Text = 10 -End If -End Sub - -Private Sub sugo_Click() -On Error GoTo hiba -Shell "hh.exe " & eleres & "\vakterkep.chm::/page/beall.htm", vbNormalFocus -Exit Sub -hiba: - MsgBox "Az ön Windowsa nem képes kezelni a HTML Help fájlokat.", vbInformation, "Súgó nem tölthető be" - -End Sub - -Private Sub szazal_LostFocus() -On Error Resume Next -If IsNumeric(szazal.Text) = False Or szazal.Text < 1 Or szazal.Text > 20 Then - MsgBox "Ide csak 1 és 20 közé eső egész szám kerülhet.", vbInformation, "Kérdésenkénti levonás:" - szazal.Text = 20 -End If -End Sub diff --git a/Source/opciok.frx b/Source/opciok.frx deleted file mode 100644 index b20c2b6..0000000 Binary files a/Source/opciok.frx and /dev/null differ diff --git a/Source/sysmon.frm b/Source/sysmon.frm deleted file mode 100644 index 99d26fb..0000000 --- a/Source/sysmon.frm +++ /dev/null @@ -1,51 +0,0 @@ -VERSION 5.00 -Begin VB.Form sysmon - BorderStyle = 4 'Fixed ToolWindow - Caption = "Rendszer monitor" - ClientHeight = 2310 - ClientLeft = 45 - ClientTop = 315 - ClientWidth = 5820 - LinkTopic = "Form1" - MaxButton = 0 'False - MinButton = 0 'False - ScaleHeight = 2310 - ScaleWidth = 5820 - ShowInTaskbar = 0 'False - StartUpPosition = 3 'Windows Default - Visible = 0 'False - Begin VB.TextBox monitor - Height = 2295 - Left = 0 - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 0 - Text = "sysmon.frx":0000 - Top = 0 - Width = 5775 - End - Begin VB.PictureBox kep - Appearance = 0 'Flat - AutoRedraw = -1 'True - AutoSize = -1 'True - BackColor = &H80000005& - ForeColor = &H80000008& - Height = 3330 - Left = 480 - Picture = "sysmon.frx":0020 - ScaleHeight = 3300 - ScaleWidth = 4500 - TabIndex = 1 - Top = 240 - Visible = 0 'False - Width = 4530 - End -End -Attribute VB_Name = "sysmon" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Private Sub Form_Unload(Cancel As Integer) -terkep.kuldo.Enabled = False -End Sub diff --git a/Source/sysmon.frx b/Source/sysmon.frx deleted file mode 100644 index b73df20..0000000 Binary files a/Source/sysmon.frx and /dev/null differ diff --git a/Source/szerk.frm b/Source/szerk.frm index b6803e9..478348f 100644 --- a/Source/szerk.frm +++ b/Source/szerk.frm @@ -1,72 +1,45 @@ VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" -Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" -Begin VB.Form szerk +Begin VB.Form szerkeszto BackColor = &H8000000C& Caption = "Vaktérkép Szerkesztő" - ClientHeight = 5130 + ClientHeight = 5070 ClientLeft = 165 ClientTop = 855 - ClientWidth = 6600 + ClientWidth = 6540 Icon = "szerk.frx":0000 KeyPreview = -1 'True LinkTopic = "Form1" - ScaleHeight = 5130 - ScaleWidth = 6600 + ScaleHeight = 5070 + ScaleWidth = 6540 StartUpPosition = 3 'Windows Default WindowState = 2 'Maximized + Begin MSComDlg.CommonDialog pb + Left = 240 + Top = 4080 + _ExtentX = 847 + _ExtentY = 847 + _Version = 393216 + End Begin VB.CommandButton gomb Caption = "T" Height = 255 Left = 5760 - TabIndex = 7 + TabIndex = 2 Top = 4320 - Visible = 0 'False Width = 255 End - Begin MSComctlLib.StatusBar sb - Align = 2 'Align Bottom - Height = 255 - Left = 0 - TabIndex = 6 - Top = 4875 - Width = 6600 - _ExtentX = 11642 - _ExtentY = 450 - _Version = 393216 - BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} - NumPanels = 2 - BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} - AutoSize = 1 - Object.Width = 5786 - MinWidth = 1235 - EndProperty - BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} - AutoSize = 1 - Object.Width = 5257 - MinWidth = 706 - EndProperty - EndProperty - End - Begin MSComDlg.CommonDialog pb - Left = 120 - Top = 3360 - _ExtentX = 847 - _ExtentY = 847 - _Version = 393216 - CancelError = -1 'True - End Begin VB.HScrollBar jb Height = 255 Left = 720 - TabIndex = 4 + TabIndex = 1 Top = 4320 Width = 5055 End Begin VB.VScrollBar fl Height = 3855 Left = 5760 - TabIndex = 3 + TabIndex = 0 Top = 480 Width = 255 End @@ -78,861 +51,1194 @@ Begin VB.Form szerk ForeColor = &H80000008& Height = 3855 Left = 720 - MousePointer = 2 'Cross ScaleHeight = 3825 ScaleWidth = 5025 - TabIndex = 1 + TabIndex = 3 Top = 480 Width = 5055 - Begin VB.TextBox szoveg + Begin VB.PictureBox ba Appearance = 0 'Flat - Height = 285 - Left = 1080 - MousePointer = 3 'I-Beam - TabIndex = 0 - Top = 720 + BackColor = &H00FFFFFF& + ForeColor = &H80000008& + Height = 90 + Left = 0 + ScaleHeight = 60 + ScaleWidth = 60 + TabIndex = 9 + Top = 240 Visible = 0 'False - Width = 255 + Width = 90 End - Begin VB.Label fedo - BackStyle = 0 'Transparent - Height = 255 + Begin VB.PictureBox bf + Appearance = 0 'Flat + BackColor = &H00FFFFFF& + ForeColor = &H80000008& + Height = 90 + Left = 0 + ScaleHeight = 60 + ScaleWidth = 60 + TabIndex = 8 + Top = 0 + Visible = 0 'False + Width = 90 + End + Begin VB.PictureBox jf + Appearance = 0 'Flat + BackColor = &H00FFFFFF& + ForeColor = &H80000008& + Height = 90 + Left = 840 + ScaleHeight = 60 + ScaleWidth = 60 + TabIndex = 7 + Top = 0 + Visible = 0 'False + Width = 90 + End + Begin VB.PictureBox ja + Appearance = 0 'Flat + BackColor = &H00FFFFFF& + ForeColor = &H80000008& + Height = 90 + Left = 840 + ScaleHeight = 60 + ScaleWidth = 60 + TabIndex = 6 + Top = 240 + Visible = 0 'False + Width = 90 + End + Begin Vakterkep2.jel jel + Height = 200 Index = 0 - Left = 1680 - MousePointer = 1 'Arrow + Left = 600 TabIndex = 5 - Top = 3360 + Top = 2520 Visible = 0 'False - Width = 255 + Width = 200 + _ExtentX = 344 + _ExtentY = 344 + KitoltesSzine = -2147483640 + KeretSzine = -2147483640 + HatterSzine = -2147483643 End - Begin VB.Label cimke + Begin VB.Shape keret + Height = 375 + Left = 0 + Top = 0 + Visible = 0 'False + Width = 975 + End + Begin VB.Label jel_szoveg Appearance = 0 'Flat AutoSize = -1 'True - BackColor = &H80000005& BackStyle = 0 'Transparent - Caption = "Címke" + Caption = "Jel szöveg" ForeColor = &H80000008& Height = 195 Index = 0 - Left = 2280 - MousePointer = 1 'Arrow - TabIndex = 2 - Top = 3360 + Left = 840 + TabIndex = 4 + Top = 2520 Visible = 0 'False - Width = 450 - End - Begin VB.Shape pont - BorderColor = &H00000000& - BorderStyle = 0 'Transparent - FillStyle = 0 'Solid - Height = 135 - Index = 0 - Left = 2040 - Shape = 3 'Circle - Top = 3360 - Visible = 0 'False - Width = 135 + Width = 750 End End Begin VB.Menu file - Caption = "&Térképek" - Begin VB.Menu new - Caption = "&Új térkép" + Caption = "&Projekt" + Begin VB.Menu uj_mnu + Caption = "&Új projekt" Shortcut = ^U End - Begin VB.Menu v5 - Caption = "-" - End - Begin VB.Menu open - Caption = "Térkép megnyitása" + Begin VB.Menu megnyit_mnu + Caption = "Megnyitása" Shortcut = ^M End - Begin VB.Menu save - Caption = "Térkép mentése" + Begin VB.Menu v0 + Caption = "-" + End + Begin VB.Menu ment_mnu + Caption = "Mentése" Shortcut = ^S End - Begin VB.Menu v4 + Begin VB.Menu ment_mint_mnu + Caption = "Mentés másként" + Shortcut = ^A + End + Begin VB.Menu v1 Caption = "-" End - Begin VB.Menu tuls - Caption = "Tulajdonságok" + Begin VB.Menu olda_mnu + Caption = "Projekt tulajdonságai" Shortcut = ^T End - Begin VB.Menu v1 + Begin VB.Menu megtekint_mnu + Caption = "Megtekintés..." + Enabled = 0 'False + End + Begin VB.Menu v2 Caption = "-" End - Begin VB.Menu exit + Begin VB.Menu kilepes_mnu Caption = "Kilépés" Shortcut = ^K End End - Begin VB.Menu edit + Begin VB.Menu szerkesztes_mnu Caption = "Szerkesztés" Visible = 0 'False - Begin VB.Menu uj - Caption = "Új pont" - Begin VB.Menu elem - Caption = "Város" - Index = 1 - End - Begin VB.Menu elem - Caption = "Terület" - Index = 2 - End + Begin VB.Menu nev_mnu + Caption = "Névtelen" + Enabled = 0 'False + Visible = 0 'False End - Begin VB.Menu rename - Caption = "Átnevez" + Begin VB.Menu v6 + Caption = "-" + Visible = 0 'False End - Begin VB.Menu del - Caption = "Töröl" + Begin VB.Menu uj_elem_mnu + Caption = "Új elem" End Begin VB.Menu v3 Caption = "-" End - Begin VB.Menu props + Begin VB.Menu torles_mnu + Caption = "Töröl" + End + Begin VB.Menu v4 + Caption = "-" + End + Begin VB.Menu igazitas_mnu + Caption = "Szöveg igazítás" + Begin VB.Menu szoveg_igazit + Caption = "Alá" + Index = 0 + End + Begin VB.Menu szoveg_igazit + Caption = "Fölé" + Index = 1 + End + Begin VB.Menu szoveg_igazit + Caption = "Középre" + Index = 2 + End + Begin VB.Menu szoveg_igazit + Caption = "Jobbra" + Index = 3 + End + Begin VB.Menu szoveg_igazit + Caption = "Balra" + Index = 4 + End + End + Begin VB.Menu meretez_mnu + Caption = "Jel méretezése" + End + Begin VB.Menu tulajdonsag_mnu Caption = "Tulajdonságok" End End - Begin VB.Menu sugo + Begin VB.Menu sugo_mnu Caption = "&Súgó" - Begin VB.Menu help + Begin VB.Menu sugo_mnup Caption = "Súgó" Shortcut = {F1} End - Begin VB.Menu v2 + Begin VB.Menu v5 Caption = "-" End - Begin VB.Menu nevjegy + Begin VB.Menu nevjegy_mnu Caption = "Névjegy" Shortcut = ^N End End End -Attribute VB_Name = "szerk" +Attribute VB_Name = "szerkeszto" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False +'Globális konstansként nem definiált Egyéni tulajdonság - jelm: &H80000018 Option Explicit -Public aktualis As Integer, teljes As Integer, athelyez As Boolean -Dim px As Integer, py As Integer, segitseg(1 To 256, 1 To 5) As String, megoldas(1 To 256, 1 To 5) As String -Dim mozgatott As Integer -Public kepneve As String, terkepneve As String -Public szerkesztett As Boolean, koppint As Boolean +Public Cime As String, Kephelye As String, obj As Object, tabulalo As Integer, mentett As Boolean +Public x1 As Double, y1 As Double, szel As Double, mag As Double, nagyitas As Double +Dim elemek(1 To 1024) As elem +Dim ures As elem, ux As Single, uy As Single +Dim mentettFajl As String, meretez As Boolean -Private Sub cimke_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) - fedo_Mousedown Index, Button, Shift, X, Y -End Sub - -Private Sub exit_Click() -If szerkesztett Then - i = MsgBox("Kilépés előtt szeretné elmenteni a változtatásokat?", vbQuestion + vbYesNoCancel, "Kilépés és mentés megerősítése") - Select Case i - Case vbYes - save_Click - Case vbCancel - Exit Sub - End Select -End If -Unload Me +Private Sub fl_Change() + terulet.Top = fl.Value End Sub -Private Sub fedo_Mousedown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) -Select Case Button - Case 1 - jobbklikk (Index) - Case 2 - aktualis = Index - elemmenu -End Select +Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer) + jel(tabulalo).Visible = True + jel_szoveg(tabulalo).Visible = True End Sub - -Private Sub fl_Change() -terulet.Top = fl.Value -End Sub - -Private Sub Form_KeyPress(KeyAscii As Integer) -Dim ful As String - Select Case KeyAscii - Case 13 And szoveg.Visible - cimke(aktualis).Caption = szoveg.Text - 'cimke(aktualis).Width = (Len(szoveg.Text)) * 100 + 200 - szoveg.Visible = False - aktualis = 0 - Case 27 - If koppint Then - jobbklikk (aktualis) - Else - If szoveg.Visible Then - szoveg.Visible = False - aktualis = 0 - End If - End If +Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) + 'MsgBox KeyCode + terulet.SetFocus + Select Case Shift + Case 0 + Select Case KeyCode + Case 39, 40 + If jel.Count = 1 Then + tabulalo = 0 + Exit Sub + End If + tabulalo = tabulalo + 1 + If tabulalo > jel.Count - 1 Then tabulalo = 1 + megjelol (tabulalo) + + Case 37, 38 + If jel.Count = 1 Then + tabulalo = 0 + Exit Sub + End If + tabulalo = tabulalo - 1 + If tabulalo < 1 Then tabulalo = jel.Count - 1 + megjelol (tabulalo) + + Case 13 + If meretez Then + meretez = False + megjelol (tabulalo) + Else + jel_DblClick (tabulalo) + End If + Case 46 + torles_mnu_Click + Case 27 + If meretez Then + meretez = False + megjelol (tabulalo) + Else + tabulalo = 0 + megjelol (tabulalo) + End If + End Select + Case 1 + End Select + End Sub + Private Sub Form_Load() -On Error Resume Next -terulet.Move terulet.Left, terulet.Top, 6000, 5000 -Me.Caption = "Vaktérkép Szerkesztő " & App.Major & "." & App.Minor -szerkesztett = False + torol + tulajdonsagok.Hide End Sub -Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) -sb.Panels(1).Text = "Ez nem" -sb.Panels(2).Text = "rajzterület" +Public Sub Form_Resize() +Pozicional End Sub -Private Sub Form_Resize() -On Error Resume Next -Dim X As Integer, Y As Integer -X = (szerk.ScaleWidth - terulet.Width) / 2 -Y = (szerk.ScaleHeight - terulet.Height - sb.Height) / 2 - -fl.Move szerk.ScaleWidth - fl.Width, 0, fl.Width, szerk.ScaleHeight - fl.Width - sb.Height -jb.Move 0, szerk.ScaleHeight - jb.Height - sb.Height, szerk.ScaleWidth - jb.Height, jb.Height -terulet.Move X, Y - -If szerk.ScaleWidth - terulet.Width < 0 Then - jb.SmallChange = Int(szerk.ScaleWidth - terulet.Width / 100) - jb.LargeChange = Int(szerk.ScaleWidth - terulet.Width / 10) - jb.Max = szerk.ScaleWidth - terulet.Width - jb.Min = 0 - jb.Visible = True - Else - jb.Visible = False -End If - -If szerk.ScaleHeight - terulet.Height < 0 Then - fl.SmallChange = Int(szerk.ScaleHeight - terulet.Height / 100) - fl.LargeChange = Int(szerk.ScaleHeight - terulet.Height / 10) - fl.Max = szerk.ScaleHeight - terulet.Height - sb.Height - fl.Min = 0 - fl.Visible = True - Else - fl.Visible = False -End If - -If fl.Visible Or jb.Visible Then - gomb.Move fl.Left, jb.Top - gomb.Visible = True -Else - gomb.Visible = False -End If +Private Sub Form_Unload(Cancel As Integer) + If Not menti Then + Cancel = 1 + Exit Sub + End If + Megsemmisit + End End Sub -Private Sub Form_Unload(Cancel As Integer) -totalki +Private Sub foszerk_mnu_Click() + If tabulalo = 0 Then + terulet_MouseUp 2, 0, 0, 0 + Else + jel_MouseDown tabulalo, 2, 0, 0, 0 + End If End Sub Private Sub gomb_Click() -tuls_Click + tulajdonsag_mnu_Click +End Sub + +Private Sub jb_Change() + terulet.Left = jb.Value End Sub -Private Sub help_Click() -On Error GoTo hiba -Shell "hh.exe " & eleres & "\szerkeszto.chm", vbNormalFocus -Exit Sub -hiba: - MsgBox "Az ön Windowsa nem képes kezelni a HTML Help fájlokat.", vbInformation, "Súgó nem tölthető be" +Private Sub jel_DblClick(Index As Integer) + If tulajdonsagok.Masolas Then + tulajdonsagok.Formatuma (Index) + tulajdonsagok.Show vbModal + Exit Sub + End If + If meretez Then + meretez = False + jel_MouseDown tabulalo, 1, 0, 0, 0 + Exit Sub + End If + tulajdonsag_mnu_Click End Sub -Private Sub jb_Change() -terulet.Left = jb.Value +Private Sub jel_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) + terulet_DragDrop Source, jel(Index).Left + X, jel(Index).Top + Y End Sub -Private Sub nevjegy_Click() -frmAbout.Show vbModal +Private Sub jel_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) + If TypeOf Source Is PictureBox Then + terulet_DragDrop Source, jel(Index).Left + X, jel(Index).Top + Y + End If End Sub -Private Sub new_Click() -If szerkesztett Then - i = MsgBox("Új projekt létrehozásával, minden eddigi munka el fog veszni." & vbCrLf & vbCrLf & "Kívánja menteni a jelenlegi projektet?", vbYesNoCancel + vbQuestion, "Új projekt létrehozása...") - - Select Case i - Case vbYes - save_Click - alaphelyzet - Case vbNo - alaphelyzet - End Select -Else - alaphelyzet +Private Sub jel_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) +If Not tulajdonsagok.Masolas Then + tabulalo = Index + megjelol (tabulalo) + nev_mnu.Caption = jel_szoveg(tabulalo).Caption + If Button = 2 Then + uj_elem_mnu.Enabled = False + torles_mnu.Enabled = True + igazitas_mnu.Enabled = True + meretez_mnu.Enabled = True + PopupMenu szerkesztes_mnu ', 0, terulet.Left + jel(tabulalo).Left + X, terulet.Top + jel(tabulalo).Top + Y + Else + If Shift = 1 Then + ux = X + uy = Y + jel_szoveg(Index).Visible = False + jel(Index).Visible = False + jel(Index).Drag + End If + End If + Else + tulajdonsagok.Formatuma (Index) + tulajdonsagok.Show vbModal End If -Form_Resize +End Sub +Private Sub jel_szoveg_Click(Index As Integer) + jel_MouseDown Index, 1, 0, 0, 0 End Sub -Private Sub open_Click() -On Error GoTo hiba -pb.DialogTitle = "Térkép megnyitása ..." -pb.Filter = "Térkép projektek (*.vtk)|*.vtk" -pb.FileName = "*.vtk" -pb.ShowOpen +Private Sub jel_szoveg_DblClick(Index As Integer) + jel_DblClick (Index) +End Sub -Call alaphelyzet -tolt (pb.FileName) -szerkesztett = False -hiba: +Private Sub jel_szoveg_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) + terulet_DragDrop Source, jel_szoveg(Index).Left + X, jel_szoveg(Index).Top + Y End Sub -Public Sub beiro() -szoveg.Width = (Len(cimke(aktualis).Caption)) * 100 + 200 -szoveg.Text = cimke(aktualis).Caption -szoveg.Move cimke(aktualis).Left, cimke(aktualis).Top -szoveg.Visible = True -szerkesztett = True + +Private Sub jel_szoveg_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) + If TypeOf Source Is PictureBox Then + terulet_DragDrop Source, jel_szoveg(Index).Left + X, jel_szoveg(Index).Top + Y + End If End Sub -Public Sub tolt(fajlnev As String) -Dim parancs As String, ertek As String, kod As Integer, sor As String, ker As Integer, i As Integer -Dim tipus As Byte, X As Integer, Y As Integer, nev As String, szin As ColorConstants -Dim kover As Boolean, dolt As Boolean, alahuzott As Boolean, meret As Byte -Dim konyvtar As String, jobbra As Boolean, feltolt(1 To 10) As String, lathatatlan As Boolean -'konyvtar meghatározása -j = 0 - For i = 1 To Len(fajlnev) - If Mid(fajlnev, i, 1) = "\" Then j = i - Next i -konyvtar = Mid(fajlnev, 1, j) - -'alapertekek megadasa -meret = 9 -szin = vbBlack -kod = 0 -dolt = False -kover = False -alahuzott = False -jobbra = False -lathatatlan = False - -terulet.Picture = Nothing -terulet.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight -Call Form_Resize -'project töltése - -On Error GoTo fajlhiba -Open fajlnev For Input As 1 - Do While Not EOF(1) - On Error Resume Next 'Hibás értékeket ugorja át - Line Input #1, sor - parancs = "" - ertek = "" - For ker = 1 To Len(sor) - If Mid(sor, ker, 1) = "=" Then - parancs = Mid(sor, 1, ker - 1) - ertek = Mid(sor, ker + 1, Len(sor) - ker) - GoTo gyorski - End If - Next ker - If parancs = "" Then parancs = sor - parancs = LCase(parancs) -gyorski: - Select Case parancs - Case "cim" - Me.Caption = ertek & " - Vaktérkép Szerkesztő " & App.Major & "." & App.Minor - terkepneve = ertek - Case "terkep" - - If Mid(ertek, 1, 1) = "\" Then - ertek = Mid(ertek, 2, Len(ertek) - 1) - terulet.Picture = LoadPicture(konyvtar & ertek) - kepneve = konyvtar & ertek - Else - terulet.Picture = LoadPicture(ertek) - kepneve = ertek - End If - Case "szin" - szin = ertek - Case "kover" - kover = True - Case "dolt" - dolt = True - Case "alahuzott" - alahuzott = True - Case "meret" - meret = ertek - Case "lathatatlan" - lathatatlan = True - Case "balra" - jobbra = True - Case "elem" - kod = kod + 1 - For i = 1 To 10 - feltolt(i) = "" - Next i - i = 1 - j = 1 - - For ker = 1 To Len(ertek) - If Mid(ertek, ker, 1) = "," Then - feltolt(j) = Mid(ertek, i, ker - i) - i = ker + 1 - j = j + 1 - End If - Next - feltolt(j) = Mid(ertek, i, Len(ertek) + 1 - i) - - - nev = feltolt(4) - X = feltolt(2) - Y = feltolt(3) - tipus = feltolt(1) - - 'MsgBox tipus & " " & X & " " & Y & " " & nev - Select Case tipus - Case 0 To 6 - Load pont(kod) - pont(kod).Left = X - pont(kod).Top = Y - pont(kod).BorderColor = szin - pont(kod).FillColor = szin - 'pont(kod).Visible = True - - - Load cimke(kod) - cimke(kod).Caption = nev - cimke(kod).ForeColor = szin - cimke(kod).FontBold = kover - cimke(kod).FontItalic = dolt - cimke(kod).FontUnderline = alahuzott - cimke(kod).FontSize = meret - cimke(kod).Top = Y - 30 - Call igazit(kod, Abs(CInt(jobbra))) - - - 'cimke(kod).Width = Len(nev) * 100 + 200 /* az autosize miatt - cimke(kod).Visible = True - Load fedo(kod) - fedo(kod).Move pont(kod).Left, pont(kod).Top, pont(kod).Width, pont(kod).Height - fedo(kod).Visible = True - - If lathatatlan = False Then - pont(kod).Shape = tipus - pont(kod).Visible = True - End If - Case 7 - - Load pont(kod) - pont(kod).Left = 0 - pont(kod).Top = 30 - 'pont(kod).Shape = X - pont(kod).BorderColor = szin - pont(kod).FillColor = szin - 'pont(kod).Visible = True - - - Load cimke(kod) - cimke(kod).FontSize = meret - cimke(kod).Caption = nev - cimke(kod).ForeColor = szin - cimke(kod).FontBold = kover - cimke(kod).FontItalic = dolt - cimke(kod).FontUnderline = alahuzott - cimke(kod).Top = 0 - cimke(kod).BorderStyle = 1 - Call igazit(kod, 0) - cimke(kod).Visible = True - - Load fedo(kod) - fedo(kod).Move pont(kod).Left, pont(kod).Top, pont(kod).Width, pont(kod).Height - fedo(kod).Visible = True - - - If lathatatlan = False Then - pont(kod).Shape = X - pont(kod).Visible = True - End If - - End Select - meret = 9 - szin = vbBlack - dolt = False - kover = False - alahuzott = False - jobbra = False - lathatatlan = False -objkkod: - Case "hatarok" - i = 1 - j = 1 - - For ker = 1 To Len(ertek) - If Mid(ertek, ker, 1) = "," Then - feltolt(j) = Mid(ertek, i, ker - i) - i = ker + 1 - j = j + 1 - End If - Next - feltolt(j) = Mid(ertek, i, Len(ertek) + 1 - i) - - For i = 1 To 4 - opciok.hatarok(i) = feltolt(i) - Next i - opciok.beall.Value = 1 - Case "kerdes" - For i = 1 To 10 - feltolt(i) = "" - Next i - i = 1 - j = 1 - - For ker = 1 To Len(ertek) - If j < 3 Then - If Mid(ertek, ker, 1) = "," Then - feltolt(j) = Mid(ertek, i, ker - i) - i = ker + 1 - j = j + 1 - End If - Else - GoTo ki2 - End If - Next -ki2: - feltolt(j) = Mid(ertek, i, Len(ertek) + 1 - i) - If feltolt(2) = "" Then feltolt(2) = " " - 'MsgBox feltolt(1) & " - " & feltolt(2) & " - " & feltolt(3) - i = feltolt(1) - megoldas(kod, i) = feltolt(2) - ertek = feltolt(3) - 'ertek = Mid(ertek, 3, Len(ertek) - 2) - 'Do While Right(ertek, 2) = "\n" - ' Line Input #1, k - ' ertek = Mid(ertek, 1, Len(ertek) - 2) & vbCrLf & k - 'Loop - - k = "" - j = 1 - Do While j <= Len(ertek) - If Mid(ertek, j, 2) = "\n" Then - k = k & vbCrLf - j = j + 2 - Else - k = k & Mid(ertek, j, 1) - j = j + 1 - End If - Loop - ertek = k - - 'MsgBox ertek - segitseg(kod, i) = ertek - - Case "vege" - Close 1 - Exit Sub - End Select -ki: - Loop -Close 1 -teljes = kod -Form_Resize -Exit Sub - -fajlhiba: - MsgBox "A megadott elérési út helytelen, vagy nem Vaktérkép fájl.(" & fajlnev & ")", vbCritical, "A projekt nem nyitható meg..." - alaphelyzet - Close 1 - Exit Sub +Private Sub jel_szoveg_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) + If Button = 1 And Shift = 1 And Not tulajdonsagok.Masolas Then + tabulalo = Index + ux = X + uy = Y + 'jel(Index).Visible = False + jel_szoveg(Index).Visible = False + jel_szoveg(Index).Drag + Else + jel_MouseDown Index, Button, Shift, 0, 0 + End If +End Sub +Private Sub kilepes_mnu_Click() + Unload Me +End Sub +Private Sub megnyit_mnu_Click() +On Error GoTo megse + If Not menti Then Exit Sub +ujra: + pb.CancelError = True + pb.DialogTitle = "Vaktérkép megnyitása ..." + pb.Filter = "Vaktérkép fájlok (*.vtk)|*.vtk" + pb.FileName = "*.vtk" + pb.ShowOpen + torol + megnyitas (pb.FileName) +megse: End Sub +Private Sub megtekint_mnu_Click() + If Not menti Then Exit Sub + Shell Vakterkep.Konyvtar & App.EXEName & ".exe " & mentettFajl, vbNormalFocus +End Sub +Private Sub ment_mint_mnu_Click() +On Error GoTo megse +ujra: + pb.CancelError = True + pb.DialogTitle = "Vaktérkép mentése mint ..." + pb.Filter = "Vaktérkép fájlok (*.vtk)|*.vtk" + pb.FileName = Cime & ".vtk" + pb.ShowSave + + If Not mentes(pb.FileName) Then + MsgBox "A megadott fájlhoz nem lehet hozzáférni, kérem adjon meg egy másik nevet..." + GoTo ujra + End If +megse: +End Sub -Public Sub picopen() +Private Sub ment_mnu_Click() On Error GoTo megse - pb.DialogTitle = "Kép megnyitása..." - pb.Filter = "Bitmap képek(*.bmp)|*.bmp|GIF képek(*.gif)|*.gif|Jpg képek(*.jpg)|*.jpg|JPE képek(*.jpe)|*.jpe|Jpeg képek(*.jpeg)|*.jpeg|Minden fájl(*.*)|*.*" - pb.FileName = "" - pb.ShowOpen - terulet.Picture = LoadPicture(pb.FileName) - tul.kep = pb.FileName +If mentettFajl = "" Then +ujra: + pb.CancelError = True + pb.DialogTitle = "Vaktérkép mentése ..." + pb.Filter = "Vaktérkép fájlok (*.vtk)|*.vtk" + pb.FileName = Cime & ".vtk" + pb.ShowSave + mentettFajl = pb.FileName +End If + 'pb.FileName = mentettFajl + If Not mentes(mentettFajl) Then + MsgBox "A megadott fájlhoz nem lehet hozzáférni, kérem adjon meg egy másik nevet..." + GoTo ujra + End If + 'mentettFajl = pb.FileName + mentett = True megse: - Form_Resize - szerkesztett = True End Sub -Private Sub rename_Click() -beiro + +Private Sub meretez_mnu_Click() + meretez = True + megjelol (tabulalo) End Sub +Private Sub nevjegy_mnu_Click() + nevjegy.Show vbModal +End Sub +Private Sub olda_mnu_Click() + tulajdonsagok.Mutat (0) +End Sub -Private Sub save_Click() -Dim konyvtar As String, kepfajl As String -On Error GoTo megse -be: - pb.DialogTitle = "Térkép mentése..." - pb.Filter = "Vaktérkép projekt(*.vtk)|*.vtk" - pb.FileName = terkepneve & ".vtk" - pb.ShowSave - -'csak a fájlnév meghat -j = 0 - For i = 1 To Len(pb.FileName) - If Mid(pb.FileName, i, 1) = "\" Then j = i - Next i -kepfajl = Mid(pb.FileName, j + 1, Len(pb.FileName) - j) ' csak a mentendő képfájl - -If Dir(pb.FileName) = kepfajl Then - i = MsgBox("A megadott fájl már létezik. Kívánja felülírni?", vbYesNo + vbQuestion, "Létező fájl") - If i = vbNo Then - GoTo be - End If -End If -'belső struktúra - j = 0 - For i = 1 To Len(pb.FileName) - If Mid(pb.FileName, i, 1) = "\" Then j = i - Next i -konyvtar = Mid(pb.FileName, 1, j) 'mentés könyvtára -j = 0 - For i = 1 To Len(kepneve) - If Mid(kepneve, i, 1) = "\" Then j = i - Next i -kepfajl = Mid(kepneve, j + 1, Len(kepneve) - j) ' csak a mentendő képfájl + +Private Sub sugo_mnup_Click() + HHSugo ("kezdo.htm") +End Sub + + + + +Private Sub szoveg_igazit_Click(Index As Integer) + With jel_szoveg(tabulalo) + Select Case Index + Case 0 'Alá + .Left = jel(tabulalo).Left + ((jel(tabulalo).Width - .Width) / 2) + .Top = jel(tabulalo).Top + jel(tabulalo).Height + Case 1 'Fölé + .Left = jel(tabulalo).Left + ((jel(tabulalo).Width - .Width) / 2) + .Top = jel(tabulalo).Top - .Height + Case 2 'Középre + .Left = jel(tabulalo).Left + ((jel(tabulalo).Width - .Width) / 2) + .Top = jel(tabulalo).Top + ((jel(tabulalo).Height - .Height) / 2) + Case 3 'jobbra + .Left = jel(tabulalo).Left + jel(tabulalo).Width + .Top = jel(tabulalo).Top + ((jel(tabulalo).Height - .Height) / 2) + Case 4 'balra + .Left = jel(tabulalo).Left - .Width + .Top = jel(tabulalo).Top + ((jel(tabulalo).Height - .Height) / 2) + End Select + Cimkexy tabulalo, .Left - jel(tabulalo).Left, .Top - jel(tabulalo).Top -'mentés -On Error Resume Next - FileCopy kepneve, konyvtar & kepfajl - k = "\" & kepfajl - mentes pb.FileName -megse: -szerkesztett = False + + End With End Sub -Private Sub szoveg_Change() -szoveg.Width = (Len(szoveg.Text) + 1) * 120 + 150 +Private Sub terulet_DblClick() + If Not tulajdonsagok.Masolas Then + tulajdonsagok.Mutat (0) + Else + tulajdonsagok.Masolas = False + tulajdonsagok.Show vbModal + End If End Sub Private Sub terulet_DragDrop(Source As Control, X As Single, Y As Single) - fedo(mozgatott).Move X, Y - pont(mozgatott).Move X, Y - cimke(mozgatott).Move X, Y - 30 - igazit mozgatott, cimke(mozgatott).Alignment +'MsgBox Source.Name + If TypeOf Source Is jel Then + jel(tabulalo).Left = X - ux + jel(tabulalo).Top = Y - uy + Cimkexy tabulalo, CSng(elemek(tabulalo).Bal), CSng(elemek(tabulalo).Felso) + If meretez Then jel_MouseDown tabulalo, 1, 0, 0, 0 + End If + If TypeOf Source Is Label Then + jel_szoveg(tabulalo).Left = X - ux + jel_szoveg(tabulalo).Top = Y - uy + + 'jel(tabulalo).Left = jel_szoveg(tabulalo).Left - elemek(tabulalo).Bal + 'jel(tabulalo).Top = jel_szoveg(tabulalo).Top - elemek(tabulalo).Felso + 'elemek(tabulalo).Bal = jel_szoveg(tabulalo).Left - jel(tabulalo).Left + 'elemek(tabulalo).Felso = jel_szoveg(tabulalo).Top - jel(tabulalo).Top + Cimkexy tabulalo, jel_szoveg(tabulalo).Left - jel(tabulalo).Left, jel_szoveg(tabulalo).Top - jel(tabulalo).Top + End If + If TypeOf Source Is PictureBox Then + On Error Resume Next + Source.Left = X - ux + Source.Top = Y - uy + With jel(tabulalo) + Select Case Source.Name + Case "bf" + .Move bf.Left, bf.Top, jf.Left - bf.Left + jf.Width, ba.Top - bf.Top + ba.Height + 'Passzint (tabulalo) + Case "ba" + .Move ba.Left, .Top, .Left + .Width - ba.Left, ba.Top + ba.Height - .Top + 'Passzint (tabulalo) + Case "jf" + .Move .Left, jf.Top, jf.Left + jf.Width - .Left, ja.Top + ja.Height - jf.Top + 'Passzint (tabulalo) + Case "ja" + .Move .Left, jf.Top, ja.Left + ja.Width - .Left, ja.Top + ja.Height - .Top + 'Passzint (tabulalo) + End Select + End With + Passzint (tabulalo) + End If +jel(tabulalo).Visible = CBool(Mid(elemek(tabulalo).tipp, 1, 1)) +jel_szoveg(tabulalo).Visible = CBool(Mid(elemek(tabulalo).tipp, 2, 1)) +mentett = False End Sub -Private Sub terulet_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) -aktualis = 0 -szoveg.Visible = False -px = X -py = Y - Select Case Button - Case 2 - rename.Enabled = False - del.Enabled = False - PopupMenu edit - rename.Enabled = True - del.Enabled = True - End Select +Private Sub terulet_DragOver(Source As Control, X As Single, Y As Single, State As Integer) +'MsgBox Source.Name + jel_szoveg(tabulalo).Visible = False + If TypeOf Source Is jel Then + jel(tabulalo).Visible = False + End If + If TypeOf Source Is PictureBox Then + terulet_DragDrop Source, X, Y + End If End Sub -Private Sub terulet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) -If athelyez = True Then - pont(aktualis).Move X - 67, Y - 67 - fedo(aktualis).Move pont(aktualis).Left, pont(aktualis).Top - cimke(aktualis).Top = pont(aktualis).Top - 30 - Call igazit(aktualis, cimke(aktualis).Alignment) +Private Sub terulet_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) +If Not tulajdonsagok.Masolas Then + tabulalo = 0 + megjelol (tabulalo) + nev_mnu.Caption = Cime + If Button = 2 Then + ux = X + uy = Y + uj_elem_mnu.Enabled = True + torles_mnu.Enabled = False + igazitas_mnu.Enabled = False + meretez_mnu.Enabled = False + PopupMenu szerkesztes_mnu + End If + Else + tulajdonsagok.Masolas = False + tulajdonsagok.Show vbModal End If +End Sub + +Private Sub torles_mnu_Click() + If tabulalo = 0 Then Exit Sub + If MsgBox("Biztosan törölni akarja a(z) " & jel_szoveg(tabulalo).Caption & " nevű elemet?", vbQuestion + vbYesNo, "Törlés megerősítése") = vbNo Then Exit Sub + With jel_szoveg(tabulalo) + .Left = jel_szoveg(jel_szoveg.Count - 1).Left + .Top = jel_szoveg(jel_szoveg.Count - 1).Top + .Caption = jel_szoveg(jel_szoveg.Count - 1).Caption + .ToolTipText = jel_szoveg(jel_szoveg.Count - 1).ToolTipText + .BackStyle = jel_szoveg(jel_szoveg.Count - 1).BackStyle + .BackColor = jel_szoveg(jel_szoveg.Count - 1).BackColor + + .Font = jel_szoveg(jel_szoveg.Count - 1).Font + .FontBold = jel_szoveg(jel_szoveg.Count - 1).FontBold + .FontItalic = jel_szoveg(jel_szoveg.Count - 1).FontItalic + .FontSize = jel_szoveg(jel_szoveg.Count - 1).FontSize + .FontStrikethru = jel_szoveg(jel_szoveg.Count - 1).FontStrikethru + .FontUnderline = jel_szoveg(jel_szoveg.Count - 1).FontUnderline + .ForeColor = jel_szoveg(jel_szoveg.Count - 1).ForeColor + End With + + With jel(tabulalo) + .Left = jel(jel.Count - 1).Left + .Top = jel(jel.Count - 1).Top + .ToolTipText = jel(jel.Count - 1).ToolTipText + .HatterSzine = jel(jel.Count - 1).HatterSzine + .Height = jel(jel.Count - 1).Height + .jel = jel(jel.Count - 1).jel + If jel(jel.Count - 1).jel = 6 Then + .KepElerese = jel(jel.Count - 1).KepElerese + End If + .KeretSzine = jel(jel.Count - 1).KeretSzine + .KeretTipus = jel(jel.Count - 1).KeretTipus + .KeretVastagsaga = jel(jel.Count - 1).KeretVastagsaga + .KitoltesTipus = jel(jel.Count - 1).KitoltesTipus + .KitoltesSzine = jel(jel.Count - 1).KitoltesSzine + .Width = jel(jel.Count - 1).Width + .Visible = jel(jel.Count - 1).Visible + End With + elemek(tabulalo) = elemek(jel.Count - 1) + + elemek(jel.Count - 1) = ures + Unload jel(jel.Count - 1) + Unload jel_szoveg(jel_szoveg.Count - 1) + mentett = False + Form_KeyDown 37, 0 + +End Sub +Private Sub tulajdonsag_mnu_Click() +Dim i As Integer + With tulajdonsagok + If tabulalo <> 0 Then + tulajdonsagok.tipusa (elemek(tabulalo).Kovetkezo) + For i = 1 To 10 + .Kave i, elemek(tabulalo).kerdesek(i).Kerdes, elemek(tabulalo).kerdesek(i).Valasz + Next i + + 'If elemek(tabulalo).Bal < 0 Then + ' .jel_szoveg.Left = (tulajdonsagok.minta.Width - Abs(elemek(tabulalo).Bal) - jel(tabulalo).Width) / 2 + ' .jel.Left = .jel_szoveg.Left + Abs(elemek(tabulalo).Bal) + ' Else + ' .jel.Left = (tulajdonsagok.minta.Width - Abs(elemek(tabulalo).Bal) - jel_szoveg(tabulalo).Width) / 2 + ' .jel_szoveg.Left = .jel.Left + elemek(tabulalo).Bal + 'End If + ' + 'If elemek(tabulalo).Felso < 0 Then + ' .jel_szoveg.Top = (tulajdonsagok.minta.Height - Abs(elemek(tabulalo).Felso) - jel(tabulalo).Height) / 2 + ' .jel.Top = .jel_szoveg.Top + Abs(elemek(tabulalo).Felso) + ' Else + ' .jel.Top = (tulajdonsagok.minta.Height - Abs(elemek(tabulalo).Felso) - jel_szoveg(tabulalo).Height) / 2 + ' .jel_szoveg.Top = .jel.Top + elemek(tabulalo).Felso + 'End If + + End If + .Mutat (tabulalo) + End With +End Sub -sb.Panels(1).Text = "X=" & X -sb.Panels(2).Text = "Y=" & Y +Private Sub uj_elem_mnu_Click() + Load jel(jel.Count) + With jel(jel.Count - 1) + .Left = .BalKozep(ux) + .Top = .FelsoKozep(uy) + .Visible = True + End With + + Load jel_szoveg(jel_szoveg.Count) + With jel_szoveg(jel_szoveg.Count - 1) + .Caption = "Elem" & jel.Count - 1 + Cimkexy jel_szoveg.Count - 1, jel(jel.Count - 1).Width, (jel(jel.Count - 1).Height - jel_szoveg(jel.Count - 1).Height) / 2 + .Visible = True + End With + tabulalo = jel.Count - 1 + elemek(tabulalo).Kovetkezo = 1 + elemek(tabulalo).tipp = "11" + megjelol (tabulalo) + mentett = False + MentesAktiv End Sub -Public Sub alaphelyzet() -On Error Resume Next - For i = 1 To teljes - Unload cimke(i) - Unload pont(i) - Unload fedo(i) - Next i - 'terkepneve = "Névtelen" - teljes = 0 + +Private Sub uj_mnu_Click() + If Not menti Then Exit Sub + torol + terulet.Width = nevjegy.kep.Width + terulet.Height = nevjegy.kep.Height terulet.Picture = Nothing - aktualis = 0 - terkepneve = "" - kepneve = "" - Form_Load -End Sub -Private Sub elemmenu() -If szoveg.Visible = False Then - uj.Enabled = False - PopupMenu edit - uj.Enabled = True -End If -End Sub -Private Sub del_click() -i = MsgBox("Biztos törölni akarja a kijelölt elemet (" & cimke(aktualis).Caption & ")", vbYesNo + vbCritical, "Törlés megerősítése") - If i = vbYes Then - Unload cimke(aktualis) - Unload pont(aktualis) - Unload fedo(aktualis) - End If -aktualis = 0 -szerkesztett = True -End Sub -Private Sub elem_click(Index As Integer) -px = px - 67 -py = py - 67 - teljes = teljes + 1 - Load pont(teljes) - pont(teljes).Left = px - pont(teljes).Top = py - pont(teljes).Visible = True - Load cimke(teljes) - cimke(teljes).Top = py - 30 - cimke(teljes).Left = pont(teljes).Width + px + 15 - cimke(teljes).Visible = True - Load fedo(teljes) - fedo(teljes).Move pont(teljes).Left, pont(teljes).Top, pont(teljes).Width, pont(teljes).Height - fedo(teljes).Visible = True - Select Case Index - Case 1 - pont(teljes).Shape = 3 - cimke(teljes).Caption = "Új város" - Case 2 - pont(teljes).Shape = 1 - cimke(teljes).Caption = "Új terület" - End Select - aktualis = teljes - beiro -End Sub -Private Sub props_click() -If aktualis <> 0 Then - k = "" - For i = 1 To 5 - If segitseg(aktualis, i) = "" Then segitseg(aktualis, i) = " " - k = k & segitseg(aktualis, i) & "||" - 'MsgBox k - Next i - tul.segitobe (k) + Unload tulajdonsagok - k = "" - For i = 1 To 5 - If megoldas(aktualis, i) = "" Then megoldas(aktualis, i) = " " - k = k & megoldas(aktualis, i) & "||" - 'MsgBox k + Form_Resize + 'tulajdonsagok.megse.Enabled = False + tulajdonsagok.Mutat (0) +End Sub +Private Sub torol() + Dim i As Integer + For i = 1 To jel.Count - 1 + Unload jel(i) + Unload jel_szoveg(i) + elemek(i) = ures Next i - tul.megoldasba (k) + tabulalo = 0 + Me.Caption = "Vaktérkép Szerkesztő " & Vakterkep.Verzio + ment_mnu.Enabled = False + ment_mint_mnu.Enabled = False + megtekint_mnu.Enabled = False + Cime = "Névtelen projekt" + Kephelye = "" + nagyitas = 1 + x1 = 0 + y1 = 0 + szel = 0 + mag = 0 + mentett = False + mentettFajl = "" +End Sub +Public Sub Cimkexy(Index As Integer, Bal As Single, Felso As Single) + elemek(Index).Bal = Bal + elemek(Index).Felso = Felso -End If - tul.Show vbModal + jel_szoveg(Index).Left = jel(Index).Left + Bal + jel_szoveg(Index).Top = jel(Index).Top + Felso End Sub - - -Private Sub tuls_Click() -aktualis = 0 -props_click +Public Sub Kave(Index As Integer, Hanyadik As Integer, Kerdes As String, Valasz As String) + elemek(Index).kerdesek(Hanyadik).Kerdes = Kerdes + elemek(Index).kerdesek(Hanyadik).Valasz = Valasz End Sub -Public Sub mentes(fajlnev As String) -On Error GoTo atugrik -If k = "\" Then - MsgBox "Nem adta meg a háttérképet. Így nem menthetem el a projektet.", vbInformation, "Hiányzó kép" - Exit Sub -End If - '"masolas - Open fajlnev For Output As 2 - Print #2, "cim=" & terkepneve - Print #2, "terkep=" & k - With tul - If .ponthat.Value = 1 Then - Print #2, "hatarok=" & .hatarok(1) & "," & .hatarok(2) & "," & .hatarok(3) & "," & .hatarok(4) +Public Function mentes(Fajlnev As String) As Boolean +Dim i As Integer, j As Integer, f As String, seged As Variant +Dim Mappa As String, Fajl As String, emappa As String + +Mappa = Konyvtara(Fajlnev) +emappa = Mid(CsakANeve(Fajlnev), 1, Len(CsakANeve(Fajlnev)) - 4) & "\" +Fajl = CsakANeve(Fajlnev) +'On Error GoTo hiba +Open Fajlnev For Output As 2 + Print #2, ";Vaktérkép " & Vakterkep.Verzio & " által generált térképfájl" + Print #2, ";Muráti Ákos 2003 - Minden jog fenntartva." + Print #2, "" + Print #2, "cim=" & Cime + Print #2, "kep="; + seged = "" + If RelativEleres(Konyvtara(Fajlnev), Kephelye) <> "" Then seged = "\" & RelativEleres(Konyvtara(Fajlnev), Kephelye) + If RelativEleres(Vakterkep.Konyvtar, Kephelye) <> "" Then seged = "$vt\" & RelativEleres(Vakterkep.Konyvtar, Kephelye) + If seged <> "" Then + Print #2, seged + Else + On Error Resume Next + MkDir emappa + FileCopy Kephelye, Mappa & emappa & CsakANeve(Kephelye) + Print #2, "\" & emappa & CsakANeve(Kephelye) End If - End With - For i = 1 To teljes - - If cimke(i).FontItalic Then Print #2, "dolt" - If cimke(i).FontUnderline Then Print #2, "alahuzott" - If cimke(i).FontBold Then Print #2, "kover" - If pont(i).Visible = False Then Print #2, "lathatatlan" - If cimke(i).FontSize <> 8.25 Then Print #2, "meret=" & cimke(i).FontSize - If cimke(i).ForeColor <> 0 Then Print #2, "szin=" & cimke(i).ForeColor - If cimke(i).BorderStyle = 1 Then - Print #2, "elem=7," & pont(i).Shape & ",0," & cimke(i).Caption + Print #2, "kijelol=" & x1 & ";" & y1 & ";" & szel & ";" & mag + Print #2, "nagyitas=" & nagyitas + + For i = 1 To jel_szoveg.Count - 1 + Select Case elemek(i).Kovetkezo + Case 3 + Print #2, " "" Then Kiir "tipp=" & .ToolTipText + Kiir "meret=" & .Width & "," & .Height + Kiir "jel=" & .jel + If .jel = 6 Then + If MsgBox(jel_szoveg(i).Caption & " térképelem egy másik fájlra hivatkozik. Kívánja, hogy ezt a fájlt a projekt mellé másoljam?", vbQuestion + vbYesNo, "Külső fájlok kezelése:") = vbNo Then + If RelativEleres(Konyvtara(Fajlnev), .KepElerese) <> "" Then + Kiir "ikon=" & "\" & RelativEleres(Konyvtara(Fajlnev), .KepElerese) + Else + Kiir "ikon=" & .KepElerese + End If + Else + On Error Resume Next + MkDir Mappa & emappa + FileCopy .KepElerese, Mappa & emappa & CsakANeve(.KepElerese) + Kiir "ikon=" & "\" & emappa & CsakANeve(.KepElerese) + End If Else - If cimke(i).Alignment = 1 Then Print #2, "balra" - Print #2, "elem=" & pont(i).Shape & "," & pont(i).Left & "," & pont(i).Top & "," & cimke(i).Caption - For j = 1 To 5 - If Trim(segitseg(i, j)) <> "" And Trim(megoldas(i, j)) <> "" Then - Print #2, "kerdes=" & j & "," & Trim(megoldas(i, j)) & "," & perenbe(Trim(segitseg(i, j))) - End If - Next j - If Trim(cimke(i).ToolTipText) <> "" Then Print #2, "tipp=" & Trim(perenbe(cimke(i).ToolTipText)) + If .HatterSzine <> jel(0).HatterSzine Then Kiir "hatter=" & .HatterSzine + If .KeretTipus <> jel(0).KeretTipus Then Kiir "keret-tipus=" & .KeretTipus + If .KeretVastagsaga <> jel(0).KeretVastagsaga Then Kiir "keret-vastagsag=" & .KeretVastagsaga + If .KeretSzine <> jel(0).KeretSzine Then Kiir "keret-szin=" & .KeretSzine + If .Atlatszo Then + Kiir "atlatszo" + Else + If .KitoltesTipus <> jel(0).KitoltesTipus Then Kiir "kitoltes-tipus=" & .KitoltesTipus + If .KitoltesSzine <> jel(0).KitoltesSzine Then Kiir "kitoltes-szin=" & .KitoltesSzine + End If End If - + End With + + With jel_szoveg(i) + Kiir "szovegXY=" & elemek(i).Bal & "," & elemek(i).Felso + If Not .Visible Then Kiir "lathatatlan-szoveg" + If .FontName <> jel_szoveg(0).FontName Then Kiir "betu-tipus=" & .FontName + If .FontSize <> jel_szoveg(0).FontSize Then Kiir "betu-meret=" & .FontSize + If .ForeColor <> jel_szoveg(0).ForeColor Then Kiir "betu-szin=" & .ForeColor + If .BackStyle = 1 And .BackColor <> jel_szoveg(0).BackColor Then Kiir "betu-hatter=" & .BackColor + f = "" + If .FontBold Then f = f & "f" + If .FontItalic Then f = f & "d" + If .FontUnderline Then f = f & "a" + If .FontStrikethru Then f = f & "k" + If f <> "" Then Kiir "formazas=" & f + End With + + For j = 1 To 10 + If elemek(i).kerdesek(j).Kerdes <> "" Or elemek(i).kerdesek(j).Valasz <> "" Then + Kiir "kerdes=" & elemek(i).kerdesek(j).Kerdes & "|" & elemek(i).kerdesek(j).Valasz + End If + Next j + Print #2, "!>" + Next i +Close 2 +mentes = True +megtekint_mnu.Enabled = True +Exit Function +Hiba: +mentes = False +Close 2 +End Function +Private Sub Kiir(Mit As String) + Print #2, Chr(9) & Mit +End Sub +Public Function megnyitas(Fajlnev As String) As Boolean +Dim sor As String, i As Integer, j As Integer, ker As Integer, megvan As Boolean +Dim id As Integer, KID As Integer +Dim kulcsszo As String, parameter As String, kep As String +id = 0 +Fajlnev = Atalakit(Fajlnev, "") +On Error GoTo Hiba + Open Fajlnev For Input As 1 +Kovetkezosor: + Do While Not EOF(1) + Line Input #1, sor + On Error GoTo Hiba + kulcsszo = "" + parameter = "" + If Mid(sor, 1, 1) = ";" Or Mid(sor, 1, 1) = "#" Or Mid(sor, 1, 1) = "/" Or Mid(sor, 1, 1) = "[" Or sor = "" Then GoTo kihagy + kulcsszo = LCase(Utasitas(sor)) + parameter = Ertek(sor) + + 'Parancs formázgatása + If kulcsszo = "" Then kulcsszo = sor + kulcsszo = Korulmetel(kulcsszo) + kulcsszo = Trim(kulcsszo) + parameter = Trim(parameter) + + 'MsgBox kulcsszo & " := " & parameter + + + Select Case kulcsszo +' ######################## Projektekkel összefüggő beállítások ################################# + Case "cim", "cime" + Cime = parameter + Me.Caption = parameter & " - " & "Vaktérkép Szerkesztő " & Vakterkep.Verzio + Case "terkep", "kep" + On Error GoTo kephiba + parameter = Atalakit(parameter, Konyvtara(Fajlnev)) + Kephelye = parameter + terulet.Picture = LoadPicture(parameter) + x1 = 0 + y1 = 0 + szel = terulet.Width + mag = terulet.Height + Form_Resize + + Case "kijelol" + On Error GoTo kephiba + x1 = Kicsontoz(parameter, ";", 0) + y1 = Kicsontoz(parameter, ";", 1) + szel = Kicsontoz(parameter, ";", 2) + mag = Kicsontoz(parameter, ";", 3) + + terulet.Width = szel + terulet.Height = mag + + terulet.Cls + atmeretez (Kephelye) + Form_Resize + + Case "nagyitas" + On Error GoTo kephiba + nagyitas = parameter + terulet.Width = terulet.Width * parameter + terulet.Height = terulet.Height * parameter + + terulet.Cls + atmeretez (Kephelye) + Form_Resize + Case "!>" + lezaras + ' ############# OBJEKTUMOK + + Case " "jelm" Then + obj.Left = CSng(Atalakit(Kicsontoz(parameter, ",", 0), "")) + obj.Top = CSng(Atalakit(Kicsontoz(parameter, ",", 1), "")) + 'End If + Case "meret", "meretek" + On Error Resume Next + 'If aze Then + obj.Width = CLng(Atalakit(Kicsontoz(parameter, ",", 0), "")) + obj.Height = CLng(Atalakit(Kicsontoz(parameter, ",", 1), "")) + 'End If + Case "tipp" + obj.ToolTipText = parameter + 'If aze Then + jel_szoveg(id).ToolTipText = parameter + 'End If -atugrik: - Next i + Case "betu-tipus" + On Error Resume Next + 'If aze Then + jel_szoveg(id).FontName = parameter + 'End If + + Case "betu-meret" + On Error Resume Next + parameter = CDbl(parameter) + 'If aze Then + jel_szoveg(id).FontSize = parameter + 'End If + + Case "betu-szin" + On Error Resume Next + parameter = CLng(parameter) + 'If aze Then + jel_szoveg(id).ForeColor = parameter + 'End If + + Case "betu-hatter" + On Error Resume Next + parameter = CLng(parameter) + jel_szoveg(id).BackStyle = 1 + jel_szoveg(id).BackColor = parameter + + Case "formazas" + parameter = LCase(parameter) + 'If aze Then + jel_szoveg(id).FontBold = VanEBenne(parameter, "f") + jel_szoveg(id).FontItalic = VanEBenne(parameter, "d") + jel_szoveg(id).FontUnderline = VanEBenne(parameter, "a") + jel_szoveg(id).FontStrikethru = VanEBenne(parameter, "k") + 'End If + + ' ########## ELEM EGYEDITULAJDONSÁGAI + Case "kerdes" + 'If aze Then + KID = KID + 1 + elemek(id).kerdesek(KID).Kerdes = Kicsontoz(parameter, "|", 0) + elemek(id).kerdesek(KID).Valasz = Kicsontoz(parameter, "|", 1) + 'End If + Case "jel", "alakzat" + 'If aze Then + obj.jel = CByte(parameter) Mod 7 + 'End If + + Case "ikon", "jelkep", "szimbolum" + On Error Resume Next + 'If aze Then + obj.jel = 6 + obj.KepElerese = Atalakit(parameter, Konyvtara(Fajlnev)) + 'End If + + Case "szovegxy", "cimkexy", "cimke" + On Error Resume Next + 'If aze Then + elemek(id).Bal = Kicsontoz(parameter, ",", 0) + elemek(id).Felso = Kicsontoz(parameter, ",", 1) + igazit (id) + 'End If + Case "hatter" + On Error Resume Next + 'If aze Then + obj.HatterSzine = parameter + 'End If + Case "atlatszo" + 'If aze Then + obj.Atlatszo = True + 'End If + Case "kitoltes-szin" + On Error Resume Next + 'If aze Then + obj.KitoltesSzine = parameter + 'End If + Case "kitoltes-tipus" + On Error Resume Next + 'If aze Then + obj.KitoltesTipus = parameter + 'End If + Case "keret-szin" + On Error Resume Next + 'If aze Then + obj.KeretSzine = parameter + 'End If + Case "keret-tipus" + On Error Resume Next + 'If aze Then + obj.KeretTipus = parameter + 'End If + Case "keret-vastagsag" + On Error Resume Next + 'If aze Then + obj.KeretVastagsaga = parameter + 'End If + Case "lathatatlan-jel" + If jel_szoveg(id).Visible Then obj.Visible = False + Case "lathatatlan-szoveg" + If obj.Visible Then jel_szoveg(id).Visible = False + End Select +kihagy: + Loop + + If aze Then lezaras + Close 1 + Form_KeyDown 27, 0 + mentett = True + mentettFajl = Fajlnev + ment_mint_mnu.Enabled = True + megtekint_mnu.Enabled = True + +Exit Function +Hiba: + Select Case Err.Number + Case 52 + MsgBox "A '" & Fajlnev & "' fájl nem tölthető be.", vbInformation, "Hábás fájl adott meg!" + 'Exit Function + Case 53 + If Fajlnev <> Vakterkep.Konyvtar & "vakterkep.ini" Then + MsgBox "A megadott fájl nem található!", vbCritical, "A megadott fájl nem található!" + End If + 'Exit Function + 'Case 7 + ' MsgBox "A Kibővített Jelek ActiveX objektum nem található. Kérem telepítse újra a Vaktérképet.", vbCritical, "Végzetes hiba" + ' End + Case Else + If MsgBox("A megadott projekt hibás bejegyzéseket tartalmaz, ami bizonytalanná teheti a program futását. Kívánja folytatni töltést?", vbQuestion + vbYesNo, "Ismeretlen hiba") = vbYes Then + MsgBox "A hiba oka: " & Err.Description, vbInformation, "Hiba(" & Err.Number & ")" + On Error Resume Next + GoTo Kovetkezosor + Else + uj_mnu_Click + End If + End Select - Close 2 + Close 1 + Exit Function +kephiba: + If MsgBox("A megadott kép hibás, ismeretlen tömörítésű vagy nem található a megadott helyen." & vbCrLf & _ + "Kívánja folytatni a töltést a hiba javításához?", vbCritical + vbYesNo, "Képbetöltési hiba") = vbYes Then + 'Kephelye = "" + GoTo Kovetkezosor + Else + Close 1 + torol + End If +End Function +Private Sub lezaras() +On Error Resume Next + obj.ZOrder 1 + If jel_szoveg.Count > 1 Then + igazit (jel_szoveg.Count - 1) + jel_szoveg(jel_szoveg.Count - 1).ZOrder (0) + End If + latszik jel_szoveg.Count - 1, jel(jel.Count - 1).Visible, jel_szoveg(jel_szoveg.Count - 1).Visible + obj = Nothing End Sub -Public Sub igazit(elem As Integer, zaras As Byte) - Select Case zaras - Case 0 - 'ponttól jobbra - cimke(elem).Left = pont(elem).Left + pont(elem).Width + 15 - Case 1 - 'ponttól blra - cimke(elem).Left = pont(elem).Left - (cimke(elem).Width + 15) +Private Sub igazit(Index As Integer) + Cimkexy Index, CSng(elemek(Index).Bal), CSng(elemek(Index).Felso) +End Sub +Public Sub tipus(Index As Integer, tipusa As Byte) + elemek(Index).Kovetkezo = tipusa +End Sub +Public Sub latszik(Index As Integer, JelLathato As Boolean, JelSzovegLathato As Boolean) + elemek(Index).tipp = Abs(JelLathato) & Abs(JelSzovegLathato) +End Sub +Private Function menti() As Boolean +Dim valaszt +If Not mentett And Kephelye <> "" Then + valaszt = MsgBox("A '" & Cime & "' módosításait nem mentette el. Kívánja most menteni azt?", vbYesNoCancel + vbExclamation, "Módosítások mentése") + Select Case valaszt + Case vbYes + menti = True + ment_mnu_Click + Case vbCancel + menti = False + Case vbNo + menti = True End Select -cimke(elem).Alignment = zaras -End Sub -Public Sub segitsegford(segitsegek As String) -'On Error Resume Next -Dim ker As Integer -If aktualis = 0 Or Len(segitsegek) = 10 Then Exit Sub -For i = 1 To 5 - segitseg(aktualis, i) = "" -Next i - - i = 1 - j = 1 - For ker = 1 To Len(segitsegek) - If Mid(segitsegek, ker, 2) = "||" Then - segitseg(aktualis, j) = Trim(Mid(segitsegek, i, ker - i)) - i = ker + 2 - j = j + 1 - End If - Next - +Else + menti = True +End If +End Function +Private Sub atmeretez(kep As String) +On Error Resume Next + terulet.PaintPicture LoadPicture(kep), 0, 0, terulet.Width, terulet.Height, x1, y1, szel, mag End Sub -Public Sub megoldasford(megoldasok As String) -'On Error Resume Next -If aktualis = 0 Or Len(megoldasok) = 10 Then Exit Sub -For i = 1 To 5 - megoldas(aktualis, i) = "" -Next i - -If Len(megoldasok) = 10 Then Exit Sub -Dim ker As Integer - i = 1 - j = 1 - - For ker = 1 To Len(megoldasok) - If Mid(megoldasok, ker, 2) = "||" Then - megoldas(aktualis, j) = Trim(Mid(megoldasok, i, ker - i)) - i = ker + 2 - j = j + 1 - End If - Next -End Sub - -Private Sub jobbklikk(id As Integer) - If Not szoveg.Visible Then - mozgatott = id - If koppint Then - tul.formatuma (id) - tul.Visible = True - koppint = False - Else - fedo(id).Drag - End If +Public Sub MentesAktiv() +If szerkeszto.Kephelye <> "" Then + szerkeszto.ment_mint_mnu.Enabled = True + szerkeszto.ment_mnu.Enabled = True +End If +End Sub +Public Sub Passzint(id As Integer) +With jel(id) + bf.Move .Left, .Top + ba.Move .Left, .Top + .Height - ja.Height + jf.Move .Left + .Width - jf.Width, .Top + ja.Move .Left + .Width - jf.Width, .Top + .Height - ja.Height + keret.Move .Left, .Top, .Width, .Height +End With + If id = 0 Then + meretez = False + Else + Cimkexy id, jel_szoveg(id).Left - jel(id).Left, jel_szoveg(id).Top - jel(id).Top End If + ba.Visible = meretez + bf.Visible = meretez + ja.Visible = meretez + jf.Visible = meretez + keret.Visible = meretez +End Sub +Private Sub ja_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + If Button = 1 Then + ux = X + uy = Y + ja.Drag + End If +End Sub +Private Sub jf_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + If Button = 1 Then + ux = X + uy = Y + jf.Drag + End If +End Sub +Private Sub bf_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + If Button = 1 Then + ux = X + uy = Y + bf.Drag + End If +End Sub +Private Sub ba_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + If Button = 1 Then + ux = X + uy = Y + ba.Drag + End If End Sub diff --git a/Source/szerk.frx b/Source/szerk.frx index 7c8d0ac..39ee9c3 100644 Binary files a/Source/szerk.frx and b/Source/szerk.frx differ diff --git a/Source/terkep.frm b/Source/terkep.frm deleted file mode 100644 index 0bdd0e3..0000000 --- a/Source/terkep.frm +++ /dev/null @@ -1,834 +0,0 @@ -VERSION 5.00 -Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" -Begin VB.Form terkep - BackColor = &H8000000C& - Caption = "Vaktérkép" - ClientHeight = 4680 - ClientLeft = 165 - ClientTop = 855 - ClientWidth = 6120 - Icon = "terkep.frx":0000 - KeyPreview = -1 'True - LinkTopic = "Form1" - ScaleHeight = 4680 - ScaleWidth = 6120 - StartUpPosition = 3 'Windows Default - WindowState = 2 'Maximized - Begin VB.CommandButton gomb - Caption = "J" - Height = 255 - Left = 5640 - TabIndex = 7 - Top = 4200 - Visible = 0 'False - Width = 255 - End - Begin VB.Timer ora - Enabled = 0 'False - Interval = 300 - Left = 120 - Top = 1560 - End - Begin VB.HScrollBar jb - Height = 255 - Left = 360 - TabIndex = 4 - Top = 4200 - Width = 5295 - End - Begin VB.VScrollBar fl - Height = 4095 - Left = 5640 - TabIndex = 3 - Top = 120 - Width = 255 - End - Begin VB.PictureBox terulet - Appearance = 0 'Flat - AutoRedraw = -1 'True - AutoSize = -1 'True - BackColor = &H80000005& - ForeColor = &H80000008& - Height = 4095 - Left = 360 - ScaleHeight = 4065 - ScaleWidth = 5265 - TabIndex = 0 - Top = 120 - Width = 5295 - Begin VB.TextBox szoveg - Appearance = 0 'Flat - BackColor = &H00FFFFFF& - Height = 285 - Left = 1080 - TabIndex = 2 - Top = 720 - Visible = 0 'False - Width = 255 - End - Begin VB.Label segito - Appearance = 0 'Flat - AutoSize = -1 'True - BackColor = &H80000018& - BorderStyle = 1 'Fixed Single - ForeColor = &H80000017& - Height = 225 - Left = 1080 - TabIndex = 6 - Top = 1560 - Visible = 0 'False - Width = 75 - End - Begin VB.Label fedo - BackStyle = 0 'Transparent - Height = 255 - Index = 0 - Left = 840 - TabIndex = 5 - Top = 3840 - Visible = 0 'False - Width = 255 - End - Begin VB.Label cimke - Appearance = 0 'Flat - AutoSize = -1 'True - BackColor = &H80000005& - BackStyle = 0 'Transparent - Caption = "Címke" - ForeColor = &H80000008& - Height = 195 - Index = 0 - Left = 1440 - TabIndex = 1 - Top = 3810 - UseMnemonic = 0 'False - Visible = 0 'False - Width = 450 - End - Begin VB.Shape pont - BorderColor = &H00000000& - BorderStyle = 0 'Transparent - FillStyle = 0 'Solid - Height = 135 - Index = 0 - Left = 1320 - Shape = 3 'Circle - Top = 3840 - Visible = 0 'False - Width = 135 - End - End - Begin MSComDlg.CommonDialog pb - Left = 1800 - Top = 1440 - _ExtentX = 847 - _ExtentY = 847 - _Version = 393216 - CancelError = -1 'True - End - Begin VB.Menu file - Caption = "&Fájl" - Begin VB.Menu retrn - Caption = "Újra kezd" - Enabled = 0 'False - Shortcut = ^U - End - Begin VB.Menu open - Caption = "Térkép megnyitása" - Shortcut = ^M - End - Begin VB.Menu nyomtat - Caption = "Nyomtatás..." - Visible = 0 'False - End - Begin VB.Menu v1 - Caption = "-" - End - Begin VB.Menu exit - Caption = "Kilépés" - Shortcut = ^K - End - End - Begin VB.Menu eszkozok - Caption = "&Eszközök" - Begin VB.Menu jelm - Caption = "Jelmagyarázat" - Enabled = 0 'False - Shortcut = ^J - End - Begin VB.Menu v6 - Caption = "-" - End - Begin VB.Menu ertekeles - Caption = "Értékelés" - Enabled = 0 'False - Shortcut = ^E - End - Begin VB.Menu sett - Caption = "Beállítások..." - Shortcut = ^B - Visible = 0 'False - End - End - Begin VB.Menu sugo - Caption = "&Súgó" - Begin VB.Menu help - Caption = "Súgó" - Shortcut = {F1} - End - Begin VB.Menu v2 - Caption = "-" - End - Begin VB.Menu nevjegy - Caption = "Névjegy" - Shortcut = ^N - End - End -End -Attribute VB_Name = "terkep" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Explicit -Dim aktualis As Byte, ttip As Byte -Dim segitseg(1 To 256, 0 To 4) As String, hanyadik As Byte -Dim nevek(0 To 256) As String, pontok(0 To 256) As Double -Dim megoldas(1 To 256, 0 To 4) As String, egyeni(1 To 256) As Byte -Dim gyorstip(1 To 256) As String - - -Private Sub cimke_Click(Index As Integer) -ttip_el -aktualis = Index -beiro -End Sub - - -Private Sub cimke_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) - kijelol (ttip) - ttip = Index - ora.Enabled = True -End Sub - -Private Sub exit_Click() -If retrn.Enabled Then - i = MsgBox("Ha most kilép, minden eddigi eredménye el fog veszni. Biztosan ki akar lépni?", vbQuestion + vbYesNo, "Kilépés megerősítése") -Else - i = vbYes -End If -If i = vbYes Then Unload Me -End Sub - -Private Sub fedo_Click(Index As Integer) -ttip_el -aktualis = Index -beiro -End Sub - - -Private Sub ertekeles_Click() -'On Error Resume Next -Dim jo As Integer -If hanyadik = 5 Then - bizi.Show - Exit Sub -End If - -For i = 1 To (cimke.Count - 1) - If pontok(i) = 0 Then 'And cimke(i).Visible = True - If Trim(UCase(nevek(i))) = Trim(UCase(cimke(i).Caption)) Then - cimke(i).BackStyle = 1 - cimke(i).BackColor = vbGreen - cimke(i).Enabled = False - fedo(i).Enabled = False - If hanyadik = 0 Or opciok.segito = 0 Then - pontok(i) = opciok.pont - Else - pontok(i) = opciok.pont * ((100 - ((egyeni(i) + 1) * opciok.szazal)) / 100) - End If - jo = jo + 1 - Else - cimke(i).BackStyle = 1 - cimke(i).BackColor = 9934847 'vbRed - End If - Else - jo = jo + 1 - End If -Next i - -hanyadik = hanyadik + 1 - -j = 0 -For i = 1 To (cimke.Count - 1) - j = j + pontok(i) - 'If cimke(i).Enabled Then - 'cimke(i).ToolTipText = segitseg(i, hanyadik) - 'End If -Next i - - -bizi.helyes.Caption = jo -bizi.hibak.Caption = (cimke.Count - 1) - jo -bizi.pontok.Caption = j -bizi.maxpont.Caption = (cimke.Count - 1) * opciok.pont - -bizi.szazalek.Caption = Format(CDbl(bizi.pontok.Caption) / CDbl(bizi.maxpont.Caption) * 100, "##,##") -If bizi.szazalek.Caption = "" Then bizi.szazalek.Caption = 0 -Select Case CByte(bizi.szazalek) - Case 0 To opciok.hatarok(1) - 1 - bizi.jegy = 1 - bizi.neve = "Elégtelen" - - Case opciok.hatarok(1) To opciok.hatarok(2) - 1 - bizi.jegy = 2 - bizi.neve = "Elégséges" - - Case opciok.hatarok(2) To opciok.hatarok(3) - 1 - bizi.jegy = 3 - bizi.neve = "Közepes" - - Case opciok.hatarok(3) To opciok.hatarok(4) - 1 - bizi.jegy = 4 - bizi.neve = "Jó" - - Case opciok.hatarok(4) To 100 - bizi.jegy = 5 - bizi.neve = "Példás" -End Select - -If hanyadik = 5 Then - ertekeles.Caption = "Értékelés mutatása" - bizi.Caption = "Utólsó értékelés" -Else - If hanyadik = 4 Then - ertekeles.Caption = "Utolsó értékelés" - Else - ertekeles.Caption = hanyadik + 1 & ". értékelés" - End If - bizi.Caption = hanyadik & ". értékelés" -End If -bizi.Show vbModal -End Sub - -Private Sub fedo_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) - kijelol (ttip) - ttip = Index - ora.Enabled = True -End Sub - -Private Sub fl_Change() -terulet.Top = fl.Value -End Sub - -Private Sub Form_KeyPress(KeyAscii As Integer) -Dim ful As String -If szoveg.Visible Then - Select Case KeyAscii - Case 13 - cimke(aktualis).Caption = szoveg.Text - szoveg.Visible = False - aktualis = 0 - Case 27 - szoveg.Visible = False - aktualis = 0 - End Select -Else - Select Case KeyAscii - Case 244 - alaphelyzet - - End Select -End If -End Sub - -Private Sub Form_Load() -On Error Resume Next -Me.Caption = "Vaktérkép " & App.Major & "." & App.Minor -ertekeles.Enabled = False -End Sub - -Private Sub Form_Resize() -On Error Resume Next -Dim X As Integer, Y As Integer -X = (terkep.ScaleWidth - terulet.Width) / 2 -Y = (terkep.ScaleHeight - terulet.Height) / 2 - -fl.Move terkep.ScaleWidth - fl.Width, 0, fl.Width, terkep.ScaleHeight - fl.Width -jb.Move 0, terkep.ScaleHeight - jb.Height, terkep.ScaleWidth - jb.Height, jb.Height -terulet.Move X, Y - -If terkep.ScaleWidth - terulet.Width < 0 Then - jb.SmallChange = Int(terkep.ScaleWidth - terulet.Width / 100) - jb.LargeChange = Int(terkep.ScaleWidth - terulet.Width / 10) - jb.Max = terkep.ScaleWidth - terulet.Width - jb.Min = 0 - jb.Visible = True - Else - jb.Visible = False -End If - -If terkep.ScaleHeight - terulet.Height < 0 Then - fl.SmallChange = Int(terkep.ScaleHeight - terulet.Height / 100) - fl.LargeChange = Int(terkep.ScaleHeight - terulet.Height / 10) - fl.Max = terkep.ScaleHeight - terulet.Height - fl.Min = 0 - fl.Visible = True - Else - fl.Visible = False -End If - -If (fl.Visible Or jb.Visible) Then - gomb.Move fl.Left, jb.Top - gomb.Visible = True - gomb.Enabled = jelm.Enabled -Else - gomb.Visible = False - -End If -End Sub - -Private Sub Form_Unload(Cancel As Integer) - -totalki -End Sub - -Private Sub gomb_Click() -jelm_Click -End Sub - -Private Sub help_Click() -On Error GoTo hiba -Shell "hh.exe " & eleres & "\vakterkep.chm", vbNormalFocus -Exit Sub -hiba: - MsgBox "Az ön Windowsa nem képes kezelni a HTML Help fájlokat.", vbInformation, "Súgó nem tölthető be" -End Sub - -Private Sub jb_Change() -terulet.Left = jb.Value -End Sub - - -Public Sub jelm_Click() -If jelol.Visible Then - jelol.Visible = False -Else - jelol.Show vbModeless, terkep -End If -End Sub - -Private Sub nevjegy_Click() -frmAbout.Show vbModal -End Sub - -Private Sub nyomtat_Click() -terkep.PrintForm -End Sub - -Private Sub open_Click() -On Error GoTo hiba -pb.DialogTitle = "Térkép megnyitása ..." -pb.Filter = "Térkép projektek (*.vtk)|*.vtk" -pb.FileName = "*.vtk" -pb.ShowOpen -Call alaphelyzet -tolt (pb.FileName) -hiba: -End Sub - -Public Sub beiro() -'On Error GoTo ki -Call ttip_el -i = aktualis -Call Form_KeyPress(27) -aktualis = i -If (megoldas(aktualis, egyeni(aktualis)) = "" Or hanyadik = 0 Or cimke(aktualis).LinkTimeout = 0) Then -mehet: - 'If (cimke(aktualis).LinkTimeout = 50 And opciok.segito = 1 And hanyadik > 0) Then Exit Sub - szoveg.Width = (Len(cimke(aktualis).Caption)) * 100 + 200 - szoveg.Text = cimke(aktualis).Caption - szoveg.SelStart = 0 - szoveg.SelLength = Len(szoveg.Text) - szoveg.Move cimke(aktualis).Left, cimke(aktualis).Top - szoveg.Visible = True - szoveg.SetFocus - Exit Sub -Else - k = InputBox(segitseg(aktualis, egyeni(aktualis)), egyeni(aktualis) + 1 & ". segítő kérdés:") - If k = "" Then - Exit Sub - Else - If Trim(UCase(k)) <> Trim(UCase(megoldas(aktualis, egyeni(aktualis)))) Then - MsgBox k - egyeni(aktualis) = egyeni(aktualis) + 1 - If egyeni(aktualis) = 5 Then egyeni(aktualis) = 4 - Else - cimke(aktualis).LinkTimeout = 0 - GoTo mehet - End If - End If -End If -ki: -End Sub -Public Sub tolt(fajlnev As String) -Dim parancs As String, ertek As String, kod As Integer, sor As String, ker As Integer, i As Integer -Dim tipus As Byte, X As Integer, Y As Integer, nev As String, szin As ColorConstants -Dim kover As Boolean, dolt As Boolean, alahuzott As Boolean, feltolt(1 To 10) As String -Dim meret As Byte, konyvtar As String, jobbra As Boolean, lathatatlan As Boolean - -'konyvtar meghatározása -j = 0 - For i = 1 To Len(fajlnev) - If Mid(fajlnev, i, 1) = "\" Then j = i - Next i -konyvtar = Mid(fajlnev, 1, j) -'MsgBox konyvtar - -meret = 9 -szin = vbBlack -kod = 0 -dolt = False -kover = False -alahuzott = False -jobbra = False -lathatatlan = False - -If fajlnev = eleres & "\vakterkep.ini" Then - On Error GoTo nincs -Else - On Error GoTo fajlhiba -End If -Open fajlnev For Input As 1 - Do While Not EOF(1) - Line Input #1, sor - parancs = "" - ertek = "" - 'On Error Resume Next - For ker = 1 To Len(sor) - If Mid(sor, ker, 1) = "=" Then - parancs = Mid(sor, 1, ker - 1) - ertek = Mid(sor, ker + 1, Len(sor) - ker) - GoTo gyorski - End If - Next ker - If parancs = "" Then parancs = sor - parancs = LCase(parancs) -gyorski: - Select Case parancs - Case "cim" - Me.Caption = ertek & " - Vaktérkép " & App.Major & "." & App.Minor - Case "terkep" - On Error GoTo kephiba - If Mid(ertek, 1, 1) = "\" Then - ertek = Mid(ertek, 2, Len(ertek) - 1) - terulet.Picture = LoadPicture(konyvtar & ertek) - Else - terulet.Picture = LoadPicture(ertek) - End If - On Error GoTo egyeb - Case "szin" - szin = ertek - Case "kover" - kover = True - Case "dolt" - dolt = True - Case "alahuzott" - alahuzott = True - Case "meret" - meret = ertek - Case "balra" - jobbra = True - Case "lathatatlan" - lathatatlan = True - Case "elem" - For i = 1 To 10 - feltolt(i) = "" - Next i - i = 1 - j = 1 - - For ker = 1 To Len(ertek) - If Mid(ertek, ker, 1) = "," Then - feltolt(j) = Mid(ertek, i, ker - i) - i = ker + 1 - j = j + 1 - End If - Next - feltolt(j) = Mid(ertek, i, Len(ertek) + 1 - i) - - tipus = feltolt(1) - X = feltolt(2) - Y = feltolt(3) - nev = feltolt(4) - - Select Case tipus - Case 0 To 6 - kod = kod + 1 - Load pont(kod) - pont(kod).Left = X - pont(kod).Top = Y - pont(kod).BorderColor = szin - pont(kod).FillColor = szin - 'pont(kod).Visible = True - - - Load cimke(kod) - cimke(kod).FontSize = meret - cimke(kod).Caption = opciok.jel - cimke(kod).ForeColor = szin - cimke(kod).FontBold = kover - cimke(kod).FontItalic = dolt - cimke(kod).FontUnderline = alahuzott - cimke(kod).Alignment = Abs(CInt(jobbra)) - cimke(kod).Top = Y - 30 - Select Case jobbra - Case 0 - cimke(kod).Left = pont(kod).Width + pont(kod).Left + 15 - Case 1 - cimke(kod).Left = pont(kod).Left - (cimke(kod).Width + 15) - End Select - - - cimke(kod).Visible = True - nevek(kod) = nev - - - Load fedo(kod) - fedo(kod).Move pont(kod).Left, pont(kod).Top, pont(kod).Width, pont(kod).Height - fedo(kod).Visible = True - - If lathatatlan = False Then - pont(kod).Shape = tipus - pont(kod).Visible = True - End If - Case 7 - - i = jelol.pont.Count - i = CInt(i) - Load jelol.pont(i) - jelol.pont(i).Left = jelol.pont(i - 1).Left - jelol.pont(i).Top = jelol.cimke(i - 1).Top + jelol.cimke(i - 1).Height + 30 - 'jelol.pont(i).Shape = X - jelol.pont(i).BorderColor = szin - jelol.pont(i).FillColor = szin - 'jelol.pont(i).Visible = True - - - Load jelol.cimke(i) - jelol.cimke(i).FontSize = meret - jelol.cimke(i).Caption = nev - jelol.cimke(i).ForeColor = szin - jelol.cimke(i).FontBold = kover - jelol.cimke(i).FontItalic = dolt - jelol.cimke(i).FontUnderline = alahuzott - jelol.cimke(i).Top = jelol.cimke(i - 1).Top + jelol.cimke(i - 1).Height + 30 - jelol.cimke(i).Left = jelol.cimke(i - 1).Left - jelol.cimke(i).Visible = True - - If jelol.Width < jelol.cimke(i).Left + jelol.cimke(i).Width + 100 Then - jelol.Width = jelol.cimke(i).Left + jelol.cimke(i).Width + 100 - End If - jelol.Height = jelol.cimke(i).Top + jelol.cimke(i).Height + 500 - jelm.Enabled = True - - If lathatatlan = False Then - jelol.pont(i).Shape = X - jelol.pont(i).Visible = True - End If - - End Select - meret = 9 - szin = vbBlack - dolt = False - kover = False - alahuzott = False - jobbra = False - lathatatlan = False - - retrn.Enabled = True - ertekeles.Enabled = True - ertekeles.Caption = "Értékelés" -objki: - Case "hatarok" - If opciok.beall.Value = 1 Or fajlnev = eleres & "\vakterkep.ini" Then - i = 1 - j = 1 - - For ker = 1 To Len(ertek) - If Mid(ertek, ker, 1) = "," Then - feltolt(j) = Mid(ertek, i, ker - i) - i = ker + 1 - j = j + 1 - End If - Next - feltolt(j) = Mid(ertek, i, Len(ertek) + 1 - i) - - For i = 1 To 4 - opciok.hatarok(i) = feltolt(i) - Next i - End If - Case "tipp" - If opciok.tippek = 1 Then - gyorstip(kod) = perenbol(ertek) - End If - Case "kerdes" - If opciok.segito = 1 Then - For i = 1 To 10 - feltolt(i) = "" - Next i - i = 1 - j = 1 - - For ker = 1 To Len(ertek) - If j < 3 Then - If Mid(ertek, ker, 1) = "," Then - feltolt(j) = Mid(ertek, i, ker - i) - i = ker + 1 - j = j + 1 - End If - Else - GoTo ki2 - End If - Next -ki2: - feltolt(j) = Mid(ertek, i, Len(ertek) + 1 - i) - - If feltolt(2) = "" Then feltolt(2) = " " - - i = feltolt(1) - 1 - megoldas(kod, i) = feltolt(2) - segitseg(kod, i) = perenbol(feltolt(3)) - End If - - Case "beallitas" - opciok.beeng.Value = ertek - sett.Visible = Abs(CInt(ertek)) - - Case "egyeni" - opciok.beall.Value = ertek - Case "jel" - opciok.jel = ertek - Case "pont" - opciok.pont = ertek - Case "segito" - opciok.segito = ertek - Case "tippek" - opciok.tippek = ertek - Case "minusz" - opciok.szazal = ertek - Case "vege" - Close 1 - Exit Sub - End Select -ki: - Loop - -Close 1 -Form_Resize -retrn_Click -Exit Sub - - -kephiba: - MsgBox "A projektben megadott kép nem elérhető, ezért a projekt betöltése megszakad.", vbCritical, "A kép nem elérhető" - alaphelyzet - Close 1 - Form_Resize - Exit Sub - - -fajlhiba: - MsgBox "A megadott elérési út helytelen, vagy nem Vaktérkép fájl.(" & fajlnev & ")", vbCritical, "A projekt nem nyitható meg..." - alaphelyzet - Close 1 - Exit Sub -egyeb: - MsgBox "A töltés meg fog szakadni az alábbi hiba miatt:" & vbCrLf & Err.Description, vbCritical, "Hiba(" & Err.Number & ")" - alaphelyzet - Form_Resize - Close 1 - Exit Sub -nincs: - Close 1 -End Sub - -Private Sub ora_Timer() -On Error GoTo ki -If gyorstip(ttip) = "" Or szoveg.Visible = True Then GoTo ki -segito.Caption = gyorstip(ttip) -segito.Move pont(ttip).Left, cimke(ttip).Top + cimke(ttip).Height + 10 -segito.Visible = True -ki: -End Sub - -Private Sub retrn_Click() -On Error Resume Next - For i = 1 To (cimke.Count - 1) - cimke(i).Caption = opciok.jel - cimke(i).Enabled = True - cimke(i).BackStyle = 0 - fedo(i).Enabled = True - pontok(i) = 0 - egyeni(i) = 0 - cimke(i).LinkTimeout = 50 - Next i -Unload bizi -ertekeles.Caption = "Értékelés" -aktualis = 0 -hanyadik = 0 -End Sub - -Private Sub sett_Click() -opciok.Show vbModal -End Sub - -Private Sub szoveg_Change() -szoveg.Width = (Len(szoveg.Text) + 1) * 120 + 150 -End Sub - -Private Sub terulet_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) -aktualis = 0 -szoveg.Visible = False -End Sub - -Public Sub alaphelyzet() -On Error Resume Next - For i = 1 To (cimke.Count - 1) - nevek(i) = "" - Unload cimke(i) - Unload pont(i) - Unload fedo(i) - gyorstip(i) = "" - For j = 0 To 4 - megoldas(i, j) = "" - segitseg(i, j) = "" - Next j - Next i - For i = 1 To jelol.cimke.Count - Unload jelol.cimke(i) - Unload jelol.pont(i) - Next i - - terulet.Picture = Nothing - aktualis = 0 - hanyadik = 0 - Form_Load -End Sub - -Private Sub terulet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) -ttip_el -End Sub -Private Sub ttip_el() -ora.Enabled = False -segito.Visible = False -ttip = 0 -For i = 1 To cimke.Count - 1 - pont(i).BorderStyle = 0 - cimke(i).BorderStyle = 0 -Next i -End Sub -Sub kijelol(id As Integer) - 'pont(id).BorderStyle = 1 - 'cimke(id).BorderStyle = 1 -End Sub diff --git a/Source/tul.frm b/Source/tul.frm deleted file mode 100644 index 30ff91e..0000000 --- a/Source/tul.frm +++ /dev/null @@ -1,832 +0,0 @@ -VERSION 5.00 -Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" -Begin VB.Form tul - BorderStyle = 4 'Fixed ToolWindow - Caption = "Tulajdonságok" - ClientHeight = 4485 - ClientLeft = 45 - ClientTop = 315 - ClientWidth = 9705 - ControlBox = 0 'False - LinkTopic = "Form1" - MaxButton = 0 'False - MinButton = 0 'False - ScaleHeight = 4485 - ScaleWidth = 9705 - ShowInTaskbar = 0 'False - StartUpPosition = 3 'Windows Default - Begin VB.CommandButton sugo - Caption = "Sú&gó" - Height = 375 - Left = 3240 - TabIndex = 44 - Top = 3960 - Width = 1095 - End - Begin VB.Frame seg - BorderStyle = 0 'None - Height = 3255 - Left = 240 - TabIndex = 33 - Top = 480 - Visible = 0 'False - Width = 4215 - Begin VB.TextBox megold - Height = 285 - Left = 840 - TabIndex = 38 - Top = 3000 - Width = 3375 - End - Begin VB.TextBox segitseg - Height = 1935 - Left = 0 - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 35 - Top = 960 - Width = 4215 - End - Begin VB.ComboBox szama - Height = 315 - Left = 1320 - Style = 2 'Dropdown List - TabIndex = 34 - Top = 240 - Width = 495 - End - Begin VB.Label cetli - Caption = "Megoldás:" - Height = 255 - Index = 6 - Left = 0 - TabIndex = 39 - Top = 3000 - Width = 855 - End - Begin VB.Label cetli - Caption = "Kérdés szövege:" - Height = 255 - Index = 5 - Left = 0 - TabIndex = 37 - Top = 720 - Width = 1455 - End - Begin VB.Label cetli - Caption = "Kérdés száma:" - Height = 255 - Index = 4 - Left = 0 - TabIndex = 36 - Top = 240 - Width = 1215 - End - End - Begin VB.CommandButton megse - Cancel = -1 'True - Caption = "&Mégse" - Height = 375 - Left = 1800 - TabIndex = 21 - Top = 3960 - Width = 1095 - End - Begin VB.CommandButton ok - Caption = "OK" - Default = -1 'True - Height = 375 - Left = 360 - TabIndex = 20 - Top = 3960 - Width = 1095 - End - Begin VB.Frame tertul - BorderStyle = 0 'None - Height = 3255 - Left = 240 - TabIndex = 13 - Top = 480 - Visible = 0 'False - Width = 4215 - Begin VB.CheckBox ponthat - Caption = "Egyéni százalékhatárok erre a térképre" - Height = 255 - Left = 240 - TabIndex = 31 - Top = 1320 - Width = 3495 - End - Begin VB.TextBox hatarok - Enabled = 0 'False - Height = 285 - Index = 4 - Left = 2520 - MaxLength = 2 - TabIndex = 26 - Text = "91" - Top = 2760 - Width = 375 - End - Begin VB.TextBox hatarok - Enabled = 0 'False - Height = 285 - Index = 3 - Left = 2520 - MaxLength = 2 - TabIndex = 25 - Text = "75" - Top = 2400 - Width = 375 - End - Begin VB.TextBox hatarok - Enabled = 0 'False - Height = 285 - Index = 2 - Left = 2520 - MaxLength = 2 - TabIndex = 24 - Text = "60" - Top = 2040 - Width = 375 - End - Begin VB.TextBox hatarok - Enabled = 0 'False - Height = 285 - Index = 1 - Left = 2520 - MaxLength = 2 - TabIndex = 23 - Text = "52" - Top = 1680 - Width = 375 - End - Begin VB.CommandButton talloz - Caption = "..." - BeginProperty Font - Name = "MS Sans Serif" - Size = 12 - Charset = 238 - Weight = 700 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 3600 - TabIndex = 18 - Top = 960 - Width = 495 - End - Begin VB.TextBox kep - Height = 285 - Left = 240 - TabIndex = 17 - Top = 960 - Width = 3255 - End - Begin VB.TextBox terkep - Height = 285 - Left = 840 - TabIndex = 14 - Text = "Névtelen" - Top = 240 - Width = 3015 - End - Begin VB.Label cetli - Caption = "Példás alsó határa:" - Height = 255 - Index = 3 - Left = 720 - TabIndex = 30 - Top = 2760 - Width = 1695 - End - Begin VB.Label cetli - Caption = "Jó alsó határa:" - Height = 255 - Index = 2 - Left = 720 - TabIndex = 29 - Top = 2400 - Width = 1695 - End - Begin VB.Label cetli - Caption = "Közepes alsó határa:" - Height = 255 - Index = 1 - Left = 720 - TabIndex = 28 - Top = 2040 - Width = 1695 - End - Begin VB.Label cetli - Caption = "Elégséges alsó határa:" - Height = 255 - Index = 0 - Left = 720 - TabIndex = 27 - Top = 1680 - Width = 1695 - End - Begin VB.Label duma - Caption = "Térkép háttere:" - Height = 375 - Index = 4 - Left = 240 - TabIndex = 16 - Top = 720 - Width = 1215 - End - Begin VB.Label duma - Caption = "Cím:" - Height = 255 - Index = 7 - Left = 240 - TabIndex = 15 - Top = 240 - Width = 495 - End - End - Begin VB.Frame elem - BorderStyle = 0 'None - Height = 3255 - Left = 5040 - TabIndex = 1 - Top = 480 - Visible = 0 'False - Width = 4215 - Begin VB.CheckBox cimke_chk - Caption = "Cimke" - Height = 255 - Left = 2040 - TabIndex = 45 - Top = 1680 - Width = 1455 - End - Begin VB.CheckBox lathatatlan - Caption = "Láthatatlan jel" - Height = 195 - Left = 120 - TabIndex = 43 - Top = 1740 - Width = 1335 - End - Begin VB.CommandButton Command1 - Caption = "Formátum másoló" - Height = 255 - Left = 120 - TabIndex = 42 - Top = 3000 - Width = 3975 - End - Begin VB.TextBox gyorstip - Height = 615 - Left = 720 - MultiLine = -1 'True - ScrollBars = 2 'Vertical - TabIndex = 40 - Top = 720 - Width = 3255 - End - Begin VB.CheckBox jelmagy - Caption = "Jelmagyarázat" - Height = 255 - Left = 2040 - TabIndex = 32 - Top = 1440 - Width = 1335 - End - Begin VB.CheckBox jobbra - Caption = "Szöveg a bal oldalon" - Height = 255 - Left = 120 - TabIndex = 22 - Top = 1440 - Width = 1815 - End - Begin VB.TextBox meret - Height = 285 - Left = 3360 - MaxLength = 4 - TabIndex = 12 - Text = "8" - Top = 2640 - Width = 495 - End - Begin VB.Frame mintafr - Caption = "Minta:" - Height = 855 - Left = 120 - TabIndex = 10 - Top = 2040 - Width = 1575 - Begin VB.Shape pont - BorderColor = &H00000000& - BorderStyle = 0 'Transparent - FillStyle = 0 'Solid - Height = 135 - Left = 120 - Shape = 3 'Circle - Top = 360 - Width = 135 - End - Begin VB.Label cimke - AutoSize = -1 'True - BackStyle = 0 'Transparent - Caption = "Minta" - Height = 195 - Left = 255 - MousePointer = 1 'Arrow - TabIndex = 11 - Top = 330 - Width = 390 - End - End - Begin VB.CommandButton szin - Caption = "Szín..." - Height = 255 - Left = 3240 - TabIndex = 9 - Top = 2160 - Width = 735 - End - Begin VB.CheckBox alahuzott - Caption = "Aláhúzott" - Height = 195 - Left = 1920 - TabIndex = 8 - Top = 2160 - Width = 1095 - End - Begin VB.CheckBox dolt - Caption = "Dőlt" - Height = 195 - Left = 1920 - TabIndex = 7 - Top = 2640 - Width = 615 - End - Begin VB.CheckBox felkover - Caption = "Félkövér" - Height = 195 - Left = 1920 - TabIndex = 6 - Top = 2400 - Width = 975 - End - Begin VB.ComboBox tip - Height = 315 - Left = 720 - Style = 2 'Dropdown List - TabIndex = 5 - Top = 360 - Width = 3255 - End - Begin VB.TextBox nev - Height = 285 - Left = 720 - TabIndex = 4 - Text = "Névtelen" - Top = 0 - Width = 3255 - End - Begin VB.Label duma - Caption = "Tipp:" - Height = 255 - Index = 6 - Left = 120 - TabIndex = 41 - Top = 720 - Width = 495 - End - Begin VB.Label duma - Caption = "Méret:" - Height = 255 - Index = 5 - Left = 2760 - TabIndex = 19 - Top = 2640 - Width = 615 - End - Begin VB.Label duma - Caption = "Típus:" - Height = 255 - Index = 1 - Left = 120 - TabIndex = 3 - Top = 360 - Width = 495 - End - Begin VB.Label duma - Caption = "Név:" - Height = 255 - Index = 0 - Left = 120 - TabIndex = 2 - Top = 0 - Width = 495 - End - End - Begin MSComctlLib.TabStrip ful - Height = 3735 - Left = 120 - TabIndex = 0 - Top = 120 - Width = 4455 - _ExtentX = 7858 - _ExtentY = 6588 - _Version = 393216 - BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} - NumTabs = 2 - BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} - Caption = "Általános" - Key = "alt" - ImageVarType = 2 - EndProperty - BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} - Caption = "Kérdések" - Key = "segit" - ImageVarType = 2 - EndProperty - EndProperty - End -End -Attribute VB_Name = "tul" -Attribute VB_GlobalNameSpace = False -Attribute VB_Creatable = False -Attribute VB_PredeclaredId = True -Attribute VB_Exposed = False -Option Explicit -Dim segito(1 To 5) As String, megoldas(1 To 5) As String - - -Private Sub alahuzott_Click() -cimke.FontUnderline = alahuzott.Value -End Sub - -Private Sub Command1_Click() -szerk.koppint = True -tul.Visible = False -End Sub - -Private Sub dolt_Click() -cimke.FontItalic = dolt.Value -End Sub - -Private Sub felkover_Click() -cimke.FontBold = felkover.Value -End Sub - -Private Sub Form_Load() -tip.AddItem "Város" -tip.AddItem "Terület" - -For i = 1 To 5 - szama.AddItem CStr(i) -Next i -szama.Text = szama.List(0) - -Me.Move Me.Left, Me.Top, 4845, 4845 -tertul.Move 240, 480 -elem.Move 240, 480 -seg.Move 240, 480 - -terkep.Text = szerk.terkepneve -kep.Text = szerk.kepneve - -If szerk.aktualis = 0 Then - Me.Caption = "Térkép tulajdonságai" - tertul.Visible = True - For i = 1 To 4 - tul.hatarok(i) = opciok.hatarok(i) - Next i - ponthat.Value = opciok.beall.Value - ful.Tabs.Remove (2) - Else - segitseg.Text = segito(1) - megold.Text = megoldas(1) - - Me.Caption = szerk.cimke(szerk.aktualis).Caption & " tulajdonságai" - elem.Visible = True - formatuma (szerk.aktualis) - 'jobbra.Value = Abs(CInt(szerk.cimke(szerk.aktualis).Alignment)) - nev.Text = szerk.cimke(szerk.aktualis).Caption - 'Select Case szerk.pont(szerk.aktualis).Shape - ' Case 3 - ' tip.Text = tip.List(0) - ' Case 1 - ' tip.Text = tip.List(1) - 'End Select - jelmagy.Value = szerk.cimke(szerk.aktualis).BorderStyle - - 'pont.Shape = szerk.pont(szerk.aktualis).Shape - 'pont.BackColor = szerk.pont(szerk.aktualis).BackColor - 'pont.FillColor = szerk.pont(szerk.aktualis).FillColor - 'pont.BorderColor = szerk.pont(szerk.aktualis).BorderColor - 'If szerk.cimke(szerk.aktualis).Alignment = 0 Then - ' cimke.Left = pont.Left + pont.Width + 15 - ' cimke.Alignment = 0 - 'Else - ' cimke.Alignment = 1 - ' cimke.Left = pont.Left - (cimke.Width + 15) - 'End If - 'cimke.FontBold = szerk.cimke(szerk.aktualis).FontBold - 'cimke.FontItalic = szerk.cimke(szerk.aktualis).FontItalic - 'cimke.FontUnderline = szerk.cimke(szerk.aktualis).FontUnderline - 'cimke.FontSize = szerk.cimke(szerk.aktualis).FontSize - cimke.Caption = szerk.cimke(szerk.aktualis).Caption - 'cimke.ForeColor = szerk.cimke(szerk.aktualis).ForeColor - 'felkover.Value = Abs(CInt(cimke.FontBold)) - 'dolt.Value = Abs(CInt(cimke.FontItalic)) - 'alahuzott.Value = Abs(CInt(cimke.FontUnderline)) - 'meret.Text = szerk.cimke(szerk.aktualis).FontSize - gyorstip.Text = szerk.cimke(szerk.aktualis).ToolTipText -End If -End Sub - - - - -Private Sub ful_Click() -tertul.Visible = False -elem.Visible = False -seg.Visible = False - -Select Case ful.SelectedItem.Index - Case 1 - If szerk.aktualis = 0 Then - tertul.Visible = True - Else - elem.Visible = True - End If - Case 2 - seg.Visible = True -End Select -End Sub - - -Private Sub hatarok_LostFocus(Index As Integer) -On Error Resume Next - For i = 1 To 3 - If IsNumeric(hatarok(i)) = False Or hatarok(i) < 0 Then - MsgBox "Ide csak pozitív egész számot adhat meg!", vbInformation, i + 1 & "-s alsó határa:" - hatarok(i) = hatarok(i) = hatarok(i + 1) - 1 - Exit Sub - End If - - If hatarok(i) > hatarok(i + 1) Then - MsgBox "A megadott százaléknak kisebbnek kell lennie a az utána következőnél!", vbInformation, i + 1 & "-s alsó határa" - hatarok(i) = hatarok(i + 1) - 1 - End If - Next i -End Sub - -Private Sub jobbra_Click() - Select Case jobbra.Value - Case 1 - pont.Move 1320, 360 - cimke.Left = pont.Left - (cimke.Width + 15) - Case 0 - pont.Move 120, 360 - cimke.Left = pont.Left + pont.Width + 15 - End Select -End Sub - -Private Sub lathatatlan_Click() - pont.Visible = Abs(lathatatlan.Value - 1) -End Sub - -Private Sub megold_LostFocus() -elment -End Sub - -Private Sub megse_Click() -Unload Me -End Sub - -Private Sub nev_Change() -cimke.Caption = nev.Text -End Sub - -Private Sub ok_Click() - szerk.kepneve = kep.Text - If terkep = "" Then - szerk.terkepneve = "Névtelen" - Else - szerk.terkepneve = terkep.Text - End If - szerk.Caption = szerk.terkepneve & " - Vaktérkép Szerkesztő " & App.Major & "." & App.Minor - If szerk.aktualis <> 0 Then - Call szerk.igazit(szerk.aktualis, jobbra.Value) - - szerk.cimke(szerk.aktualis).ToolTipText = gyorstip.Text - szerk.cimke(szerk.aktualis).BorderStyle = jelmagy.Value - szerk.cimke(szerk.aktualis).Caption = nev.Text - szerk.cimke(szerk.aktualis).ForeColor = cimke.ForeColor - szerk.cimke(szerk.aktualis).FontBold = cimke.FontBold - szerk.cimke(szerk.aktualis).FontItalic = cimke.FontItalic - szerk.cimke(szerk.aktualis).FontUnderline = cimke.FontUnderline - szerk.cimke(szerk.aktualis).FontSize = cimke.FontSize - szerk.pont(szerk.aktualis).FillColor = pont.FillColor - szerk.pont(szerk.aktualis).BackColor = pont.BackColor - szerk.pont(szerk.aktualis).BorderColor = pont.BorderColor - szerk.pont(szerk.aktualis).Shape = pont.Shape - szerk.pont(szerk.aktualis).Visible = pont.Visible - - - 'szerk.pont(szerk.aktualis).Move - k = "" - For i = 1 To 5 - If segito(i) = "" Then segito(i) = " " - k = k & segito(i) & "||" -' MsgBox k - Next i - szerk.segitsegford (k) - - - k = "" - For i = 1 To 5 - If megoldas(i) = "" Then megoldas(i) = " " - k = k & megoldas(i) & "||" - 'MsgBox k - Next i - szerk.megoldasford (k) - - End If - For i = 1 To 4 - opciok.hatarok(i) = tul.hatarok(i) - Next i - opciok.beall.Value = ponthat.Value - szerk.szerkesztett = True - Unload Me - 'Me.Hide -End Sub - -Private Sub szerkeszto_Click() -On Error GoTo hiba -Shell "pbrush.exe ", vbNormalFocus -Exit Sub -hiba: - MsgBox "A paint nem nyitható meg!", vbCritical, "Hiba:" -End Sub - -Private Sub ponthat_Click() -For i = 1 To hatarok.Count - hatarok(i).Enabled = ponthat.Value -Next i -End Sub - - - - - -Private Sub segitseg_LostFocus() -elment -End Sub - -Private Sub sugo_Click() -On Error GoTo hiba -If szerk.aktualis <> 0 Then - Shell "hh.exe " & eleres & "\szerkeszto.chm::/page/elem.htm", vbNormalFocus -Else - Shell "hh.exe " & eleres & "\szerkeszto.chm::/page/ptul.htm", vbNormalFocus -End If -Exit Sub -hiba: - MsgBox "Az ön Windowsa nem képes kezelni a HTML Help fájlokat.", vbInformation, "Súgó nem tölthető be" - - -End Sub - -Private Sub szama_Click() -If seg.Visible Then - segitseg.Text = segito(szama.ListIndex + 1) - megold.Text = megoldas(szama.ListIndex + 1) -End If -End Sub - - - -Private Sub szin_Click() -On Error GoTo megse -szerk.pb.ShowColor -pont.FillColor = szerk.pb.Color -pont.BackColor = szerk.pb.Color -pont.BorderColor = szerk.pb.Color -cimke.ForeColor = szerk.pb.Color -megse: -End Sub - -Private Sub talloz_Click() - szerk.picopen -End Sub - -Private Sub meret_Change() -On Error Resume Next -cimke.FontSize = CInt(meret.Text) -End Sub - - -Private Sub tip_Click() -Select Case tip.ListIndex - Case 0 - pont.Shape = 3 - Case 1 - pont.Shape = 1 -End Select - -End Sub -Public Sub segitobe(segitsegek As String) -On Error Resume Next - -For i = 1 To 5 - segito(i) = "" -Next i - -If Len(segitsegek) = 10 Then Exit Sub -Dim ker As Integer - i = 1 - j = 1 - - For ker = 1 To Len(segitsegek) - If Mid(segitsegek, ker, 2) = "||" Then - segito(j) = Mid(segitsegek, i, ker - i) - i = ker + 2 - j = j + 1 - End If - Next -End Sub - -Public Sub megoldasba(megoldasok As String) -On Error Resume Next - -For i = 1 To 5 - megoldas(i) = "" -Next i - -If Len(megoldasok) = 10 Then Exit Sub -Dim ker As Integer - i = 1 - j = 1 - - For ker = 1 To Len(megoldasok) - If Mid(megoldasok, ker, 2) = "||" Then - megoldas(j) = Mid(megoldasok, i, ker - i) - i = ker + 2 - j = j + 1 - End If - Next -End Sub - -Private Sub elment() -segito(szama.ListIndex + 1) = Trim(segitseg.Text) -megoldas(szama.ListIndex + 1) = Trim(megold.Text) - -If (segito(szama.ListIndex + 1) = "" Or megoldas(szama.ListIndex + 1) = "") And szama.ListIndex <> 4 Then - For i = szama.ListIndex + 2 To 5 - If (Trim(megoldas(i)) <> "" And Trim(segito(i)) <> "") Then j = 1 - Next i - If j = 1 Then - 'MsgBox "Üresen hagyta a kérdés vagy a megoldás mezőt," & vbCrLf & _ - ' "úgy hogy ezt követően még kérdések vannak." & vbCrLf & _ - '"Ez azt jelenti, hogy az üres kérdések vagy megoldások" & vbCrLf & _ - '"nem lesznek elmentve, így csak az utolsó helyesen" & vbCrLf & _ - '"megadott kérdés-válasz fog működni a vaktérképben.", vbCritical, "Üres kérdés vagy válasz mező" - End If -End If -End Sub -Public Sub formatuma(id As Integer) - jobbra.Value = Abs(CInt(szerk.cimke(id).Alignment)) - Select Case szerk.pont(id).Shape - Case 3 - tip.Text = tip.List(0) - Case 1 - tip.Text = tip.List(1) - End Select - - pont.Shape = szerk.pont(id).Shape - pont.BackColor = szerk.pont(id).BackColor - pont.FillColor = szerk.pont(id).FillColor - pont.BorderColor = szerk.pont(id).BorderColor - pont.Visible = szerk.pont(id).Visible - - If szerk.cimke(id).Alignment = 0 Then - cimke.Left = pont.Left + pont.Width + 15 - cimke.Alignment = 0 - Else - cimke.Alignment = 1 - cimke.Left = pont.Left - (cimke.Width + 15) - End If - cimke.FontBold = szerk.cimke(id).FontBold - cimke.FontItalic = szerk.cimke(id).FontItalic - cimke.FontUnderline = szerk.cimke(id).FontUnderline - cimke.FontSize = szerk.cimke(id).FontSize - cimke.ForeColor = szerk.cimke(id).ForeColor - - lathatatlan.Value = Abs(Abs(CInt(pont.Visible)) - 1) - felkover.Value = Abs(CInt(cimke.FontBold)) - dolt.Value = Abs(CInt(cimke.FontItalic)) - alahuzott.Value = Abs(CInt(cimke.FontUnderline)) - meret.Text = szerk.cimke(id).FontSize -End Sub diff --git a/Source/tulajdonsagok.frm b/Source/tulajdonsagok.frm new file mode 100644 index 0000000..dadd891 --- /dev/null +++ b/Source/tulajdonsagok.frm @@ -0,0 +1,1418 @@ +VERSION 5.00 +Begin VB.Form tulajdonsagok + BorderStyle = 1 'Fixed Single + Caption = "tulajdonságai" + ClientHeight = 5025 + ClientLeft = 45 + ClientTop = 435 + ClientWidth = 12105 + ControlBox = 0 'False + KeyPreview = -1 'True + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 5025 + ScaleWidth = 12105 + ShowInTaskbar = 0 'False + StartUpPosition = 1 'CenterOwner + Begin VB.Frame tul_lap + Height = 4215 + Index = 1 + Left = 4440 + TabIndex = 28 + Top = 0 + Width = 4335 + Begin VB.PictureBox minta + Appearance = 0 'Flat + BackColor = &H00E9E9E9& + ForeColor = &H80000008& + Height = 1695 + Index = 0 + Left = 0 + ScaleHeight = 1665 + ScaleWidth = 4305 + TabIndex = 63 + Top = 2520 + Width = 4335 + Begin Vakterkep2.jel jel + Height = 135 + Left = 1800 + TabIndex = 66 + Top = 720 + Width = 135 + _ExtentX = 873 + _ExtentY = 873 + KitoltesSzine = -2147483640 + KeretSzine = -2147483640 + HatterSzine = -2147483643 + End + End + Begin VB.CheckBox kitolte + Caption = "Kitöltés:" + Height = 255 + Left = 120 + TabIndex = 62 + Top = 600 + Width = 855 + End + Begin VB.CheckBox elrejt + Caption = "Láthatatlan alakzat" + Height = 255 + Left = 120 + TabIndex = 54 + Top = 1800 + Width = 4095 + End + Begin VB.TextBox vastagsag + Height = 285 + Left = 1680 + MaxLength = 2 + TabIndex = 44 + Text = "1" + Top = 1320 + Width = 495 + End + Begin VB.ComboBox keret + Appearance = 0 'Flat + Height = 315 + Left = 600 + Style = 2 'Dropdown List + TabIndex = 43 + Top = 960 + Width = 3135 + End + Begin VB.ComboBox kitoltes + Appearance = 0 'Flat + Height = 315 + Left = 960 + Style = 2 'Dropdown List + TabIndex = 41 + Top = 600 + Width = 2775 + End + Begin VB.CommandButton valaszt + Height = 300 + Index = 2 + Left = 3720 + Style = 1 'Graphical + TabIndex = 40 + Top = 600 + Width = 375 + End + Begin VB.CommandButton valaszt + Height = 300 + Index = 1 + Left = 3720 + Style = 1 'Graphical + TabIndex = 39 + Top = 960 + Width = 375 + End + Begin VB.CommandButton valaszt + Height = 300 + Index = 0 + Left = 3720 + Style = 1 'Graphical + TabIndex = 38 + Top = 240 + Width = 375 + End + Begin VB.TextBox magassag + Height = 285 + Left = 960 + TabIndex = 37 + Top = 2160 + Visible = 0 'False + Width = 735 + End + Begin VB.TextBox szelesseg + Height = 285 + Left = 960 + TabIndex = 36 + Top = 1800 + Visible = 0 'False + Width = 735 + End + Begin VB.CommandButton talloz + Caption = "<" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 238 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 300 + Index = 1 + Left = 3480 + TabIndex = 33 + Top = 240 + Width = 255 + End + Begin VB.ComboBox Alakzat + Appearance = 0 'Flat + Height = 315 + Left = 600 + Style = 2 'Dropdown List + TabIndex = 30 + Top = 240 + Width = 2895 + End + Begin VB.Line Line1 + X1 = 120 + X2 = 4200 + Y1 = 1680 + Y2 = 1680 + End + Begin VB.Label cimke + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Vastagsága:" + Height = 195 + Index = 7 + Left = 720 + TabIndex = 45 + Top = 1320 + Width = 885 + End + Begin VB.Label cimke + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Keret:" + Height = 195 + Index = 6 + Left = 120 + TabIndex = 42 + Top = 960 + Width = 420 + End + Begin VB.Label cimke + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Magasság:" + Height = 195 + Index = 4 + Left = 120 + TabIndex = 35 + Top = 2160 + Visible = 0 'False + Width = 780 + End + Begin VB.Label cimke + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Szélesség:" + Height = 195 + Index = 3 + Left = 120 + TabIndex = 34 + Top = 1800 + Visible = 0 'False + Width = 765 + End + Begin VB.Label cimke + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Jel:" + Height = 195 + Index = 2 + Left = 120 + TabIndex = 32 + Top = 240 + Width = 240 + End + End + Begin VB.Frame tul_lap + Height = 4215 + Index = 3 + Left = 7200 + TabIndex = 19 + Top = 4680 + Visible = 0 'False + Width = 4215 + Begin VB.ComboBox szama + Height = 315 + Left = 120 + Style = 2 'Dropdown List + TabIndex = 22 + Top = 240 + Width = 3975 + End + Begin VB.TextBox segitseg + Height = 2415 + Left = 120 + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 21 + Top = 840 + Width = 3975 + End + Begin VB.TextBox megold + Height = 525 + Left = 120 + TabIndex = 20 + Top = 3600 + Width = 3975 + End + Begin VB.Label cetli + Caption = "Kérdés:" + Height = 255 + Index = 5 + Left = 120 + TabIndex = 24 + Top = 600 + Width = 1455 + End + Begin VB.Label cetli + AutoSize = -1 'True + Caption = "Megoldás:" + Height = 195 + Index = 6 + Left = 120 + TabIndex = 23 + Top = 3360 + Width = 735 + End + End + Begin VB.Frame tul_lap + Height = 4215 + Index = 0 + Left = 8760 + TabIndex = 13 + Top = 480 + Width = 4335 + Begin VB.OptionButton tipus + Caption = "Megjegyzés, felirat" + Height = 255 + Index = 2 + Left = 480 + TabIndex = 53 + Top = 2760 + Width = 2415 + End + Begin VB.OptionButton tipus + Caption = "Jelmagyarázat (külön ablakban)" + Height = 255 + Index = 1 + Left = 480 + TabIndex = 52 + Top = 2520 + Width = 3255 + End + Begin VB.OptionButton tipus + Caption = "Kikérdezendő elem" + Height = 255 + Index = 0 + Left = 480 + TabIndex = 51 + Top = 2280 + Value = -1 'True + Width = 2415 + End + Begin VB.CommandButton formatum_masolo + Caption = "Formátum másoló" + Height = 255 + Left = 360 + TabIndex = 31 + Top = 3720 + Width = 3615 + End + Begin VB.TextBox Nev + Appearance = 0 'Flat + Height = 285 + Left = 240 + TabIndex = 15 + Text = "Névtelen" + Top = 480 + Width = 3735 + End + Begin VB.TextBox tipp + Appearance = 0 'Flat + Height = 735 + Left = 240 + ScrollBars = 2 'Vertical + TabIndex = 14 + Top = 1200 + Width = 3735 + End + Begin VB.Label Label2 + Caption = "Tipp szövege:" + Height = 255 + Left = 240 + TabIndex = 47 + Top = 960 + Width = 1095 + End + Begin VB.Label Label1 + Caption = "Név:" + Height = 255 + Left = 240 + TabIndex = 46 + Top = 240 + Width = 615 + End + End + Begin VB.Frame oldal + Height = 4215 + Left = 120 + TabIndex = 7 + Top = 240 + Visible = 0 'False + Width = 4335 + Begin VB.ComboBox nagyito + BeginProperty DataFormat + Type = 1 + Format = "0%" + HaveTrueFalseNull= 0 + FirstDayOfWeek = 0 + FirstWeekOfYear = 0 + LCID = 1038 + SubFormatType = 5 + EndProperty + Height = 315 + ItemData = "tulajdonsagok.frx":0000 + Left = 840 + List = "tulajdonsagok.frx":0002 + TabIndex = 58 + Text = "Combo1" + Top = 960 + Width = 1095 + End + Begin VB.PictureBox terulet + Appearance = 0 'Flat + AutoRedraw = -1 'True + AutoSize = -1 'True + BackColor = &H80000005& + ForeColor = &H80000008& + Height = 2055 + Left = 600 + ScaleHeight = 2025 + ScaleWidth = 3105 + TabIndex = 56 + Top = 1800 + Width = 3135 + Begin VB.Shape kijelolo + BorderStyle = 3 'Dot + Height = 2415 + Left = 240 + Top = 480 + Width = 3855 + End + End + Begin VB.TextBox Cime + Height = 285 + Left = 720 + TabIndex = 10 + Top = 240 + Width = 3375 + End + Begin VB.TextBox kep + Height = 285 + Left = 720 + Locked = -1 'True + TabIndex = 9 + Top = 600 + Width = 3135 + End + Begin VB.CommandButton talloz + Caption = "<" + BeginProperty Font + Name = "MS Sans Serif" + Size = 9.75 + Charset = 238 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 300 + Index = 0 + Left = 3840 + TabIndex = 8 + Top = 600 + Width = 255 + End + Begin VB.PictureBox eredeti + Appearance = 0 'Flat + AutoRedraw = -1 'True + AutoSize = -1 'True + BackColor = &H80000005& + BorderStyle = 0 'None + ForeColor = &H80000008& + Height = 2655 + Left = 240 + ScaleHeight = 2655 + ScaleWidth = 3855 + TabIndex = 57 + Top = 1440 + Visible = 0 'False + Width = 3855 + End + Begin VB.Label cimke + Alignment = 1 'Right Justify + AutoSize = -1 'True + Caption = "Nagyitas:" + Height = 195 + Index = 10 + Left = 120 + TabIndex = 59 + Top = 960 + Width = 660 + End + Begin VB.Label cimke + AutoSize = -1 'True + Caption = "Cím:" + Height = 195 + Index = 0 + Left = 120 + TabIndex = 12 + Top = 240 + Width = 315 + End + Begin VB.Label cimke + AutoSize = -1 'True + Caption = "Kép:" + Height = 195 + Index = 1 + Left = 120 + TabIndex = 11 + Top = 600 + Width = 330 + End + End + Begin VB.Frame tul_lap + Height = 4215 + Index = 2 + Left = 7200 + TabIndex = 6 + Top = 240 + Width = 4335 + Begin VB.PictureBox minta + Appearance = 0 'Flat + BackColor = &H00E9E9E9& + ForeColor = &H80000008& + Height = 1695 + Index = 1 + Left = 0 + ScaleHeight = 1665 + ScaleWidth = 4305 + TabIndex = 64 + Top = 2520 + Width = 4335 + Begin VB.Label jel_szoveg + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "jel_szöveg" + Height = 195 + Left = 960 + TabIndex = 65 + Top = 600 + Width = 750 + End + End + Begin VB.CheckBox hatter + Caption = "Van háttérszine" + Height = 195 + Left = 240 + TabIndex = 61 + Top = 1560 + Width = 2655 + End + Begin VB.CommandButton valaszt + Caption = "Háttér" + Height = 255 + Index = 4 + Left = 3000 + Style = 1 'Graphical + TabIndex = 60 + Top = 1560 + Width = 975 + End + Begin VB.CheckBox elrejt_szov + Caption = "Szöveg nem látszik" + Height = 255 + Left = 240 + TabIndex = 55 + Top = 1800 + Width = 2055 + End + Begin VB.ComboBox meret + Height = 315 + Left = 960 + TabIndex = 50 + Text = "Combo1" + Top = 600 + Width = 1095 + End + Begin VB.CommandButton valaszt + Caption = "Betű Szín" + Height = 255 + Index = 3 + Left = 3000 + Style = 1 'Graphical + TabIndex = 49 + Top = 600 + Width = 975 + End + Begin VB.CheckBox alahuzott + Caption = "Aláhúzott" + Height = 195 + Left = 2160 + TabIndex = 29 + Top = 1080 + Width = 1935 + End + Begin VB.CheckBox athuzva + Caption = "Áthúzva" + Height = 195 + Left = 2160 + TabIndex = 26 + Top = 1320 + Width = 1935 + End + Begin VB.ComboBox betutipus + Height = 315 + Left = 960 + Sorted = -1 'True + Style = 2 'Dropdown List + TabIndex = 25 + Top = 240 + Width = 3015 + End + Begin VB.CheckBox dolt + Caption = "Dőlt" + Height = 195 + Left = 240 + TabIndex = 17 + Top = 1320 + Width = 1815 + End + Begin VB.CheckBox felkover + Caption = "Félkövér" + Height = 195 + Left = 240 + TabIndex = 16 + Top = 1080 + Width = 1815 + End + Begin VB.Line Line3 + X1 = 120 + X2 = 4080 + Y1 = 960 + Y2 = 960 + End + Begin VB.Label Label3 + AutoSize = -1 'True + Caption = "Betűtípus:" + Height = 195 + Left = 120 + TabIndex = 48 + Top = 240 + Width = 720 + End + Begin VB.Label duma + Caption = "Méret:" + Height = 255 + Index = 5 + Left = 120 + TabIndex = 18 + Top = 600 + Width = 615 + End + End + Begin VB.CommandButton sugo + Caption = "Súgó" + Height = 375 + Left = 120 + TabIndex = 5 + Top = 4560 + Width = 975 + End + Begin VB.CommandButton ok + Caption = "&Ok" + Height = 375 + Left = 3480 + TabIndex = 4 + Top = 4560 + Width = 975 + End + Begin VB.CommandButton megse + Caption = "&Mégse" + Height = 375 + Left = 2160 + TabIndex = 3 + Top = 4560 + Width = 975 + End + Begin VB.CommandButton ful + BackColor = &H8000000D& + Caption = "&Szöveg" + Height = 255 + Index = 2 + Left = 2280 + Style = 1 'Graphical + TabIndex = 2 + Top = 0 + Width = 1095 + End + Begin VB.CommandButton ful + BackColor = &H8000000D& + Caption = "&Jel" + Height = 255 + Index = 1 + Left = 1200 + Style = 1 'Graphical + TabIndex = 1 + Top = 0 + Width = 1095 + End + Begin VB.CommandButton ful + Caption = "&Általános" + Height = 255 + Index = 0 + Left = 120 + Style = 1 'Graphical + TabIndex = 0 + Top = 0 + Width = 1095 + End + Begin VB.CommandButton ful + BackColor = &H8000000D& + Caption = "&Kérdések" + Height = 255 + Index = 3 + Left = 3360 + Style = 1 'Graphical + TabIndex = 27 + Top = 0 + Width = 1095 + End +End +Attribute VB_Name = "tulajdonsagok" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Option Explicit +Const max_szelesseg = 3000 +Const max_magassag = 2000 + +Dim id As Integer, px, py, lenntart As Boolean, kijM, kijSZ +Dim ures As KerdesValasz +Public Masolas As Boolean +Dim segito(1 To 10) As KerdesValasz + +Private Sub alahuzott_Click() + jel_szoveg.FontUnderline = alahuzott.Value +End Sub + +Private Sub Alakzat_Click() + If Alakzat.ListIndex = 6 Then + talloz(1).Enabled = True + jel.KepElerese = Alakzat.List(6) + Else + jel.jel = Alakzat.ListIndex + talloz(1).Enabled = False + End If + Alakzat.ToolTipText = Alakzat.List(Alakzat.ListIndex) +End Sub + + + + +Private Sub athuzva_Click() + jel_szoveg.FontStrikethru = athuzva.Value +End Sub + +Private Sub betutipus_Click() + jel_szoveg.FontName = betutipus.List(betutipus.ListIndex) + Kozepre +End Sub + +Private Sub Cime_Change() + Me.Caption = Cime.Text & " tulajdonságai" +End Sub + + +Private Sub dolt_Click() + jel_szoveg.FontItalic = dolt.Value +End Sub + + + + +Private Sub elrejt_szov_Click() + jel_szoveg.Visible = Not CBool(elrejt_szov.Value) + elrejt.Enabled = jel_szoveg.Visible +End Sub + +Private Sub elrejt_Click() + jel.Bekapcsolva = Not CBool(elrejt.Value) + elrejt_szov.Enabled = jel.Bekapcsolva +End Sub + +Private Sub felkover_Click() + jel_szoveg.FontBold = felkover.Value +End Sub + +'Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer) +' Source.Visible = True +'End Sub + +'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) +' Dim ex As Integer, ey As Integer +' If KeyCode = 27 And megse.Enabled Then megse_Click +' If Not minta.Visible Then Exit Sub +' ex = 0 +' ey = 0 +' Select Case KeyCode +' Case 100 +' ex = -10 +' Case 104 +' ey = -10 +' Case 102 +' ex = 10 +' Case 98 +' ey = 10 +' End Select +' +' If Shift = 2 Then +' jel.Left = jel.Left + ex +' jel.Top = jel.Top + ey +' Else +' jel_szoveg.Left = jel_szoveg.Left + ex +' jel_szoveg.Top = jel_szoveg.Top + ey +' End If +' +'End Sub + + +Private Sub Form_Load() + Dim i As Integer + For i = 0 To tul_lap.Count - 1 + tul_lap(i).Move 120, 240 + tul_lap(i).Visible = False + Next i + Me.Width = 4620 + 'minta.Move 120, 2780 + + + Alakzat.AddItem "Négyszög" + Alakzat.AddItem "Négyzet" + Alakzat.AddItem "Ellipszis" + Alakzat.AddItem "Kör" + Alakzat.AddItem "Kerekített Négyszög" + Alakzat.AddItem "Kerekített Négyzet" + Alakzat.AddItem "Kép" + Alakzat.ListIndex = 0 + + For i = 0 To Screen.FontCount - 1 + betutipus.AddItem Screen.Fonts(i) + Next i + betutipus.ListIndex = 0 + + keret.AddItem "Nincs" + keret.AddItem "Egyszerű" + keret.AddItem "Szaggatott" + keret.AddItem "Pontozott" + keret.AddItem "Pontosan Szaggatott" + keret.AddItem "Dupla Pontosan Szaggatott" + keret.ListIndex = 0 + + kitoltes.AddItem "Teljes" + kitoltes.AddItem "Alakzat hátterével" + kitoltes.AddItem "Vízszintes vonalakkal" + kitoltes.AddItem "Függőleges vonalakkal" + kitoltes.AddItem "Balról Srég vonalakkal" + kitoltes.AddItem "Jobbról Srég vonalakkal" + kitoltes.AddItem "Hálósan" + kitoltes.AddItem "Döntött Hálósan" + 'kitoltes.AddItem "Átlátszó" + kitoltes.ListIndex = 0 + + For i = 1 To 10 + szama.AddItem i & ". kérdés:" + Next i + szama.ListIndex = 0 + + meret.AddItem "8" + meret.AddItem "10" + meret.AddItem "11" + meret.AddItem "12" + meret.AddItem "14" + meret.AddItem "16" + meret.AddItem "20" + meret.AddItem "22" + meret.AddItem "24" + meret.AddItem "32" + meret.AddItem "72" + + nagyito.AddItem "10%" + For i = 1 To 6 + nagyito.AddItem i * 25 & "%" + Next i + nagyito.AddItem "200%" + nagyito.AddItem "400%" + nagyito.Text = "100%" + + terulet_DblClick +End Sub + + +Private Sub formatum_masolo_Click() + Masolas = True + Me.Hide +End Sub + +Private Sub ful_Click(Index As Integer) +On Error Resume Next + Dim i As Integer + For i = 0 To ful.Count + tul_lap(i).Visible = False + ful(i).BackColor = &HC0C0C0 + Next i + If id = 0 Then + oldal.Visible = True + Else + oldal.Visible = False + tul_lap(Index).Visible = True + End If + 'If Index = 1 Or Index = 2 Then + ' minta.Visible = True + ' Else + ' minta.Visible = False + 'End If + + minta(0).Visible = False + minta(1).Visible = False + minta(Index - 1).Visible = True + + ful(Index).BackColor = vbButtonFace + megse.SetFocus +End Sub + + + +Private Sub hatter_Click() + jel_szoveg.BackStyle = V(hatter.Value) +End Sub + +'Private Sub jel_DragDrop(Source As Control, X As Single, Y As Single) +' jel_szoveg.Visible = True +'End Sub + +'Private Sub jel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) +' px = X +' py = Y +' jel.Visible = False +' jel.Drag +'End Sub + +'Private Sub jel_szoveg_DragDrop(Source As Control, X As Single, Y As Single) +' jel.Visible = True +'End Sub + +'Private Sub jel_szoveg_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) +' px = X +' py = Y +' jel_szoveg.Visible = False +' jel_szoveg.Drag +'End Sub + + + +Private Sub keret_Click() + If keret.ListIndex <> 1 Then vastagsag.Text = 1 + jel.KeretTipus = keret.ListIndex +End Sub + +Private Sub kitolte_Click() + jel.Atlatszo = Not CBool(kitolte.Value) +End Sub + +Private Sub kitoltes_Click() + jel.KitoltesTipus = kitoltes.ListIndex +End Sub + +Private Sub magassag_Change() +On Error Resume Next + jel.Height = magassag.Text + Kozepre +End Sub + +Private Sub megold_Change() + segito(szama.ListIndex + 1).Valasz = megold +End Sub + +Private Sub megse_Click() +Dim i As Integer + For i = 1 To 10 + segito(i) = ures + Next i + segitseg.Text = "" + megold.Text = "" + szama.Text = szama.List(0) + If id = 0 Then + Unload tulajdonsagok + Else + Me.Hide + End If +End Sub + +Public Sub Mutat(Melyiket As Integer) +On Error Resume Next + id = Melyiket + If Melyiket = 0 Then + With szerkeszto + Cime.Text = .Cime + Cime_Change + kep.Text = .Kephelye + nagyito.Text = .nagyitas * 100 & "%" + If .Kephelye <> "" Then kijeloles .x1, .y1, .szel, .mag + End With + + ful(1).Visible = False + ful(2).Visible = False + ful(3).Visible = False + Else + ful(1).Visible = True + ful(2).Visible = True + ful(3).Visible = True + szama_Click + Nev.Text = szerkeszto.jel_szoveg(Melyiket).Caption + Nev_Change + tipp.Text = szerkeszto.jel_szoveg(Melyiket).ToolTipText + 'Select Case szerkeszto.jel_szoveg(Melyiket).BackColor + ' Case vbHighlight + ' Tipus(2).Value = True + ' Case &H80000018 + ' Tipus(1).Value = True + ' Case Else + ' Tipus(0).Value = True + ' valaszt(4).BackColor = szerkeszto.jel_szoveg(Melyiket).BackColor + ' hatter.Value = szerkeszto.jel_szoveg(Melyiket).BackStyle + 'End Select + Formatuma (Melyiket) + End If + ful_Click (0) + felkover_Click + Me.Show vbModal +End Sub + + +Private Sub meret_Change() + meret_Click +End Sub + +Private Sub meret_Click() +On Error Resume Next + jel_szoveg.FontSize = meret.Text + Kozepre +End Sub + +'Private Sub minta_DragDrop(Source As Control, X As Single, Y As Single) +'If TypeOf Source Is Label Then +'GoTo ok +' If X < jel.Left - jel_szoveg.Width Then +' X = jel.Left - jel_szoveg.Width +' End If +' +' If X > jel.Left + jel.Width Then +' X = jel.Left + jel.Width +' End If +' +' If Y < jel.Top - jel_szoveg.Height Then +' Y = jel.Top - jel_szoveg.Height +' End If +' +' If Y > jel.Top + jel.Height Then +' Y = jel.Top + jel.Height +' End If +'ok: +' jel_szoveg.Move X - px, Y - py +' jel_szoveg.Visible = True +'Else +' jel.Move X - px, Y - py +' jel.Visible = True +'End If +'End Sub + +'Private Sub minta_DragOver(Source As Control, X As Single, Y As Single, State As Integer) +'If X < minta.Width And X > 0 And Y > 0 And Y < minta.Height Then +' Source.Visible = False +' Else +' Source.Visible = True +'End If +'End Sub + + +Private Sub nagyito_Change() + If Right(nagyito.Text, 1) <> "%" And IsNumeric(nagyito.Text) Then + nagyito.Text = nagyito.Text & "%" + End If + If Format(nagyito.Text, "####.##") > 4 Then + nagyito.Text = "400%" + End If +End Sub + +Private Sub Nev_Change() + jel_szoveg.Caption = Nev.Text + Me.Caption = Nev.Text & " tulajdonságai" +End Sub + +Private Sub ok_Click() +Dim i As Integer, nk +'If kep.Text = "" Then Exit Sub +If id = 0 Then + On Error Resume Next + megse.Enabled = True + With szerkeszto + .Cime = Cime.Text + .Caption = .Cime & " - Vaktérkép Szerkesztő " & Vakterkep.Verzio + .Kephelye = kep.Text + + .nagyitas = Format(nagyito.Text, "####.##") + .terulet.Height = kijM * .nagyitas + .terulet.Width = kijSZ * .nagyitas + + .x1 = kijelolo.Left * eredeti.Width / terulet.Width + .y1 = kijelolo.Top * eredeti.Height / terulet.Height + .szel = kijelolo.Width * eredeti.Width / terulet.Width + .mag = kijelolo.Height * eredeti.Height / terulet.Height + + .terulet.Cls + .terulet.PaintPicture eredeti.Picture, 0, 0, .terulet.Width, .terulet.Height, .x1, .y1, .szel, .mag + + .Form_Resize + End With +Else + With szerkeszto + For i = 0 To 2 + If tipus(i).Value Then szerkeszto.tipus id, i + 1 + Next i + szerkeszto.latszik id, jel.Bekapcsolva, jel_szoveg.Visible + With .jel_szoveg(id) + .Caption = Nev.Text + .ToolTipText = tipp.Text + .BackStyle = jel_szoveg.BackStyle + .BackColor = jel_szoveg.BackColor + + .Font = jel_szoveg.Font + .FontBold = jel_szoveg.FontBold + .FontItalic = jel_szoveg.FontItalic + .FontSize = jel_szoveg.FontSize + .FontStrikethru = jel_szoveg.FontStrikethru + .FontUnderline = jel_szoveg.FontUnderline + .ForeColor = jel_szoveg.ForeColor + .Visible = jel_szoveg.Visible + End With + 'szerkeszto.Cimkexy id, jel_szoveg.Left - jel.Left, jel_szoveg.Top - jel.Top + + For i = 1 To 10 + szerkeszto.Kave id, i, segito(i).Kerdes, segito(i).Valasz + Next i + + + With .jel(id) + .Atlatszo = jel.Atlatszo + .ToolTipText = tipp.Text + .HatterSzine = jel.HatterSzine + .Height = jel.Height + .jel = jel.jel + If jel.jel = 6 Then + .KepElerese = jel.KepElerese + End If + .KeretSzine = jel.KeretSzine + .KeretTipus = jel.KeretTipus + .KeretVastagsaga = jel.KeretVastagsaga + .KitoltesTipus = jel.KitoltesTipus + .KitoltesSzine = jel.KitoltesSzine + .Width = jel.Width + .Visible = jel.Bekapcsolva + End With + End With +End If + szerkeszto.mentett = False + szerkeszto.MentesAktiv + megse_Click +End Sub +Public Sub Formatuma(Index As Integer) +Dim i As Integer + Masolas = False + With szerkeszto + 'Szöveg Formázó értékek + felkover.Value = V(.jel_szoveg(Index).FontBold) + felkover_Click + + alahuzott.Value = V(.jel_szoveg(Index).FontUnderline) + alahuzott_Click + + dolt.Value = V(.jel_szoveg(Index).FontItalic) + dolt_Click + + athuzva.Value = V(.jel_szoveg(Index).FontStrikethru) + athuzva_Click + + elrejt_szov.Value = V(Not .jel_szoveg(Index).Visible) + elrejt_szov_Click + + hatter.Value = V(.jel_szoveg(Index).BackStyle) + hatter_Click + + + For i = 0 To betutipus.ListCount - 1 + If betutipus.List(i) = .jel_szoveg(Index).FontName Then + betutipus.Text = betutipus.List(i) + GoTo megva + End If + Next i +megva: + + meret.Text = .jel_szoveg(Index).FontSize + meret_Click + jel_szoveg.FontSize = meret.Text + + 'betutipus.Text = .jel_szoveg(Index).FontName + valaszt(3).BackColor = .jel_szoveg(Index).ForeColor + valaszt(4).BackColor = .jel_szoveg(Index).BackColor + + 'Jel értékei + 'alap + szelesseg.Text = .jel(Index).Width + magassag.Text = .jel(Index).Height + elrejt.Value = V(Not .jel(Index).Visible) + + 'alakzat + valaszt(0).BackColor = .jel(Index).HatterSzine + Alakzat.RemoveItem 6 + If .jel(Index).jel = 6 Then + Alakzat.AddItem .jel(Index).KepElerese + Else + Alakzat.AddItem "Kép" + End If + Alakzat.ListIndex = .jel(Index).jel + 'kitoltes + kitoltes.ListIndex = .jel(Index).KitoltesTipus + valaszt(2).BackColor = .jel(Index).KitoltesSzine + kitolte.Value = V(Not .jel(Index).Atlatszo) + + 'keret + keret.ListIndex = .jel(Index).KeretTipus + vastagsag.Text = .jel(Index).KeretVastagsaga + valaszt(1).BackColor = .jel(Index).KeretSzine + End With + Szinez +End Sub + + +Private Sub segitseg_change() + segito(szama.ListIndex + 1).Kerdes = segitseg.Text +End Sub + +Private Sub sugo_Click() + If id = 0 Then + HHSugo ("ptul.htm") + Else + HHSugo ("elem.htm") + End If +End Sub + +Private Sub szama_Click() + segitseg.Text = segito(szama.ListIndex + 1).Kerdes + megold.Text = segito(szama.ListIndex + 1).Valasz +End Sub + +Private Sub szelesseg_Change() +On Error Resume Next + jel.Width = szelesseg.Text + Kozepre +End Sub + +Private Sub talloz_Click(Index As Integer) +Dim w, h +On Error GoTo megse + With szerkeszto + .pb.CancelError = True + .pb.DialogTitle = "Kép keresése ..." + .pb.Filter = "Minden támogatott kép|*.bmp;*.gif;*.jpg;*.jpe;*.jpeg" + .pb.FileName = kep.Text + .pb.ShowOpen + If Index = 0 Then + kep.Text = .pb.FileName + nagyito.Text = "100%" + kijeloles 0, 0, 0, 0 + terulet_DblClick + + Else + Alakzat.RemoveItem (6) + Alakzat.AddItem (.pb.FileName) + Alakzat.Text = Alakzat.List(6) + End If + End With +megse: +End Sub + + + +Private Sub terulet_DblClick() + kijelolo.Move 0, 0, terulet.Width, terulet.Height + kijM = eredeti.Height + kijSZ = eredeti.Width +End Sub + + +Private Sub terulet_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) + lenntart = True + px = X + py = Y +End Sub + +Private Sub terulet_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) + If Not lenntart Then Exit Sub + If px > X Then + kijelolo.Left = X + kijelolo.Width = px - X + Else + kijelolo.Left = px + kijelolo.Width = X - px + End If + + If py > Y Then + kijelolo.Top = Y + kijelolo.Height = py - Y + Else + kijelolo.Top = py + kijelolo.Height = Y - py + End If + +End Sub + +Private Sub terulet_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) + lenntart = False + kijM = kijelolo.Height * eredeti.Height / terulet.Height + kijSZ = kijelolo.Width * eredeti.Width / terulet.Width +End Sub + +'Private Sub tipus_Click(Index As Integer) + 'If tipus(0).Value Then + ' jel_szoveg.BackStyle = 0 + ' hatter.Enabled = True + ' valaszt(4).Enabled = True + ' Else + ' hatter.Enabled = False + ' valaszt(4).Enabled = False + ' jel_szoveg.BackStyle = 1 + ' If tipus(1).Value Then + ' jel_szoveg.BackColor = &H80000018 + ' Else + ' jel_szoveg.BackColor = vbHighlight + ' End If + 'End If +'End Sub + + + +'Private Sub tul_lap_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) +' tul_lap_DragOver Index, Source, X, Y, 0 +'End Sub + +'Private Sub tul_lap_DragOver(Index As Integer, Source As Control, X As Single, Y As Single, State As Integer) +' Source.Visible = True +'End Sub + +Private Sub valaszt_Click(Index As Integer) +On Error GoTo megse + With szerkeszto + .pb.ShowColor + valaszt(Index).BackColor = .pb.Color + End With +megse: + Szinez +End Sub + +Private Sub vastagsag_Change() +On Error Resume Next + jel.KeretVastagsaga = vastagsag.Text +End Sub +Public Sub Kave(Hanyadik As Integer, Kerdes As String, Valasz As String) + segito(Hanyadik).Kerdes = Kerdes + segito(Hanyadik).Valasz = Valasz +End Sub +Private Sub Szinez() + jel.HatterSzine = valaszt(0).BackColor + jel.KeretSzine = valaszt(1).BackColor + jel.KitoltesSzine = valaszt(2).BackColor + jel_szoveg.ForeColor = valaszt(3).BackColor + If V(hatter.Value) Then jel_szoveg.BackColor = valaszt(4).BackColor +End Sub +Private Sub kijeloles(X, Y, sz, m) +Dim w, h +On Error Resume Next + + eredeti.Picture = LoadPicture(kep.Text) + eredeti.Refresh + terulet.Cls + + w = eredeti.Width * max_magassag / eredeti.Height + h = eredeti.Height * max_szelesseg / eredeti.Width + + If eredeti.Width > eredeti.Height Then + terulet.Width = max_szelesseg + terulet.Height = h + terulet.PaintPicture eredeti.Picture, 0, 0, max_szelesseg, h + Else + terulet.Width = w + terulet.Height = max_magassag + terulet.PaintPicture eredeti.Picture, 0, 0, w, max_magassag + End If + + terulet.Move (oldal.Width - terulet.Width) / 2, (oldal.Height - 1250 - terulet.Height) / 2 + 1250 + + + If sz = 0 Then + sz = eredeti.Width + m = eredeti.Height + End If + + terulet.Refresh + 'On Error GoTo megse + 'kijelolo.Move X / (eredeti.Width / terulet.Width), Y / (eredeti.Height / terulet.Height), sz / (eredeti.Width / terulet.Width), m / (eredeti.Height / terulet.Height) + terulet_MouseDown 1, 0, X / (eredeti.Width / terulet.Width), Y / (eredeti.Height / terulet.Height) + terulet_MouseMove 1, 0, (X + sz) / (eredeti.Width / terulet.Width), (Y + m) / (eredeti.Height / terulet.Height) + terulet_MouseUp 1, 0, (X + sz) / (eredeti.Width / terulet.Width), (Y + m) / (eredeti.Height / terulet.Height) + +End Sub +Public Sub tipusa(tip As Byte) +On Error Resume Next + tipus(tip - 1).Value = True +End Sub +Private Sub Kozepre() + + + If jel.Height <= minta(0).Height Then + jel.Move jel.Left, (minta(0).Height - jel.Height) / 2 + Else + jel.Move jel.Left, 0 + End If + + If jel.Width <= minta(0).Width Then + jel.Move (minta(0).Width - jel.Width) / 2 + Else + jel.Move 0 + End If + + If jel_szoveg.Height <= minta(1).Height Then + jel_szoveg.Move jel_szoveg.Left, (minta(1).Height - jel_szoveg.Height) / 2 + Else + jel_szoveg.Move jel_szoveg.Left, 0 + End If + + If jel_szoveg.Width <= minta(1).Width Then + jel_szoveg.Move (minta(1).Width - jel_szoveg.Width) / 2 + Else + jel_szoveg.Move 0 + End If + +End Sub diff --git a/Source/tulajdonsagok.frx b/Source/tulajdonsagok.frx new file mode 100644 index 0000000..593f470 Binary files /dev/null and b/Source/tulajdonsagok.frx differ diff --git a/Source/vakterkep.ini b/Source/vakterkep.ini index 7630fb9..16baf52 100644 --- a/Source/vakterkep.ini +++ b/Source/vakterkep.ini @@ -1,8 +1,12 @@ -egyeni=0 -hatarok=52,61,75,91 -beallitas=1 -jel=? -pont=10 -minusz=20 -segito=1 -tippek=1 +[Vaktérkép 2.0 Build: 60] + +Beallitasok_Engedelyezese=1 +Egyeni_Beallitasok=1 +Ponthatarok=52,60,72,91 +Helyettesito_Szoveg=? +Pont=10 +Levonasok=20 +Tippek_Engedelyezese=1 +Kerdesek_Engedelyezese=1 +Behuzasok_Engedelyezese=1 +Szerkesztes_engedelyezese=1 diff --git a/Source/vakterkep.jpg b/Source/vakterkep.jpg index 4e70599..962e3f4 100644 Binary files a/Source/vakterkep.jpg and b/Source/vakterkep.jpg differ
              [ESC] Kilépés a szerkesztő szövegmezőből és tartalmának elvetése