Práca s myšou
Aj v klasickom pascale možno pracovať s myšou (myším kurzorom) a to jak v grafike, tak i textovej obrazovke.
Tu sa budem venovať len práci s textovou obrazovkou.
Čo k tomu potrebujeme:
Na internete možno zohnať rôzne knižnice pre prácu s myšou pod pascalom, jednu z nich možno stiahnuť aj tu - je upravená na prácu v txt obrazovke.
Postup
Stiahnite si mys2.tpu a dajte buď do priečinka, kde máte zdroják so svojim programom, alebo ho nakopírujte do TP do priečinka UNITS.
V svojom programe pridáme načítanie knižnice: uses mys2;
Zoznam príkazov
Txt kurzor
- KurzorSkry - textový kurzor (blikajúca čiarka) sa zneviditelní.
- KurzorUkaz - textový kurzor (blikajúca čiarka) sa zviditelní.
Myš
- MysSkry - myšací kurzor sa zneviditelní. Musíme použiť pred každým písaním na obravku.
- MysUkaz - myšací kurzor sa zviditelní. Používame po každom ukončení písania na obrazovku.
- JeStlacenaMys - vráti TRUE ak sme stlačili nejaké tlačítko myši. Inak False.
- MX - súradnica x myši na txt obrazovke 1..80
- MY - súradnice y myši na txt obrazovke 1..25
- CitajMys - program počká čo stlačíme na myši a vrati nám stlačenú/pustenú klávesu
- StlacilLave
- StlacilPrave
- PustilLave
- PustilPrave