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és ben 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
- Kattintsunk a Fájl menü Térkép megnyitása menüpontra
+
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 @@
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é.
+
+ Kattintsuk az Fájl menü nyomtatás
+ menüpontjára.
+ Kép mutatása/elrejtése
+
+
+ A megjelenő ablakban láthatjuk a projektünk nyomtatásban megjelenő kicsinyített mását.
+ Állítsuk be a megfelelő nyomtatási paramétereket.
+ A nyomtatás megkezdéséhez kattintsunk a Nyomtat gombra.
+ A Nyomtatás ablak bezárásához kattintsunk a Bezár gombra.
+
+
+
+
\ 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.
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
- A bezáráshoz kattintsunk a Vaktérkép logojára, vagy
+
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.
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