Trsek Commander - Náhrada Norton Commandera, pascal

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Programy v Pascalu
tc.pngProgram: Tc.pas
Soubor exe: Tc.exe
Potřebné: Main.pasMouse.pasT_wind.pas

Tento program si kládol za ciel byť náhradou Norton Commandera. Začiatok bol skvelý a toto je výsledok. Ako to však u podobných projektoch býva projekt zamrzol. Zatiaľ má zobrazenie súborov v okne. Okno sa môže pomocou myši ľubovolne zväčšovať a posúvať. Môžete prechádzať adresárovou štruktúrou.
{ MOUSE.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Cast kodu ktora sa prilinkuje k programu Tc.pas                   }
{                                                                   }
{ Datum:28.07.1996                            http://www.trsek.com  }
 
{ zisti co stlacil na myske }
procedure get_mouse(var x,y,but:byte);
var Reg:registers;
begin
 Reg.AX:=$0003;
 Intr($33,Reg);
 x:=Reg.CX shr 3 +1;
 y:=Reg.DX shr 3 +1;
 but:=Reg.BX;
end;
 
{ nastavi suradnice na myske }
procedure set_mouse(x,y:byte);
var Reg:registers;
begin
 Reg.AX:=$0004;
 Reg.CX:=x*8;
 Reg.DX:=y*8;
 Intr($33,Reg);
end;
 
{ zviditelni/vypne zobrazenie mysky Pastekovej }
procedure show_mouse(show:boolean);
var Reg:registers;
begin
 if show then Reg.AX:=$0001
         else Reg.AX:=$0002;
 Intr($33,Reg);
end;
 
{ zisti je myska, nieje }
function mouse_ok:boolean;
var Reg:registers;
begin
 Reg.AX:=$0000;
 Intr($33,reg);
 if Reg.AX=$0000 then mouse_ok:=false
    else begin
      mouse_ok:=true;
      Reg.AX:=$0001;
      Intr($33,Reg);
     end;
end;
 
{
0 -inicializuje mys a zisti kolko ma tlacidiel
1 -zobrazi
2 -zrusi zobrazenie
3 -cita poziciu a stav tlacidiel
4 -nastavi poziciu
5 -vracia suradnicu stavu tlacidla
6 -vracia suradnicu kde si tlacidlo pustil
7 -vymedzi interval suradnic poohybu
8 -ako 7 ale vertikalne
9 -graficky kurzor
10 -textovy kurzor
11 -cita nastavenie kroku citaca mysy
12 -definuje uzivatelsku rutinu pre mys
13,14 -zap/vyp emulace svetelneho pera
15 -nastavenie kroku mysy
}