Objektov� programov�n� v TURBO PASCALu a TURBO VISION

Z�kladn� principy OOP(objektov� orientovan� programov�n�)

OBJEKT  je  jak�msi  roz��en�m  datov�ho  typuu  z�znam. K popisu vlastnost�   slou��   ostatn�   datov�   typy,   konstanty...   a METODY-podprogramy.
Deklarov�n�m typu jako OBJEKTU  zavademe T��DU (class) objekt� pod jedn�m jm�nem.
Zaveden� prom�nn� typu OBJEKT se naz�v� INSTANCE.

P�.:
pes=object
    barva:(�ern�,b�l�);
    d�lka_srsti:real;
    procedure stekot;
    procedure hl�dej;
end;

t�mto je zavedena t��da objekt� nazvanou PES.

Konkr�tn� realizace objektu t��dy- prom�nn� se zve instanc�.

OOP   umo��nuje  logocky   sdru�ovat  souvisej�c�   data  a   k�d (zapouzd�en�(encapsulation))

D�DI�NOST VLASTNOST� (INHERITANCE)

Pokud m�me  nadefinov�n n�jakakou t��du  a chceme vytvo�it  novou t��du,  kter�  m�  stejn�  vlastnosti  jako  p�vodn�  a nav�c sv� zvl��tn� vlastnosti, lze vyu��t d�di�nosti.
Vytvo��me novou t��du nap�. CHRT jako potomka (decendant) t��dy PES (viz. v��e).

CHRT=object(pes)
    procedure zavod
END

T�mto jsme vytvo�ily t��du CHRT, kter� m� v�echny vlasntosti jako pes, ale nav�c obdahuje metodu zavod.
T��da PES je p�edch�dcem (ancestor) t��dy CHRT


POLYMORFISMUS OOP

Metody  lze  definovat  jako  statick�  =  p�eklada�  zn� v�echny okolnosti  v dob�  p�ekladu  a  vygeneruje k�d.  Pokud po�adujeme r�zn� k�d metody v  z�vislosti na zvolen� t��d� potomk�,  pak u v�ech (i p�edka)  mus� b�t  metoda  definov�na  jako virtu�ln�  - pou�it�m VIRTUAL.

P�.:
Nadefinujeme si novou t��du PES

pes=object
    barva:(�ern�,b�l�);
    d�lka_srsti:real;
    procedure kresli_figuru;
    procedure stekot;
    procedure hl�dej;
end;

Metoda kresli_figuru slou�� k vykreslen� figury psa.
Metoda hl�dej simuluje pohyb psa kolem domu p�ekreslov�n�m, tud�� obsahuje vol�n� metody kresli_figuru.

procedure hlidej
begin
...
kresli_figuru;
...
end;

Pokud nyn� vyvol�me metodu hl�dej  z t��dy CHRT (potomek PES) pak bude vykreslen obecn� pes a  nikoliv chrt, proto�e je to statick� definice a do�lo k �ASN� VAZB� (EARLY BINDING).

Pomoc� virtu�ln� metody:

pes=object
    barva:(�ern�,b�l�);
    d�lka_srsti:real;
    procedure kresli_figuru;virtual;
    procedure stekot;
    procedure hl�dej;
end;

pak u potomk� mus�me uv�st t�� tuto metodu jako virtu�ln�:

CHRT=object(pes)
...
procedure kresli_figuru;virtual;
...
END;


P�eklada� vytvo�� tabulku virtu�ln�ch metod. V k�du metody hl�dej nen� p��m� skok na k�d mnetody  kresli_figuru, ale vol�n� je uskute�n� odkazem do tabulky virtu�ln�ch metod.
A�  p�i b�hu  programu se  pozn�, do  tabulky kter�  t��dy se  m� s�hnout  pro adresu  metody  kresli_figuru  = POZDN�  VAZBA (LATE BINDING)


OOP V TURBO PASCALU

Definice t��dy, vytvo�en� instance objektu t��dy

T��da objekt� je nov�m datov�m typem:


type pes=object
       barva:tbarva;
       d�lka:integer;
       constructor init(abarva:tbarva;delka:integer);
       procedure kresli_figuru;virtual;
       procedure stekej;
       procedure hl�dej;
     end;

t�mto je definov�na t��da objekt� pes, maj�c� 2 datov� vlastnosti a 4 metody.

Definice t��dy jako potomka:
chrt=object(pes)
   procedure kresli_figuru;virtual;
end;

P�i z�pisu metod se p�ed  jm�no procedury/funkce p��e jm�no t��dy odd�len� te�kou.

procedure pes.stekej;
begin
...
end;


Vytvo�en� instance t��dy=deklarace promm�nn� typu t��dy:
var pes1:pes;

Prom�nn� pes1 je instanc� prom�nn� t��dy pes


KONSTRUKTORY

Pokud t��da obsahuje aspo� jednu vyrtu�ln� metodu, mus� tak� existovat metoda  za��naj�c�  kl��ov�m  slovem  CONSTRUKTOR  !!  V  opa�n�m p��pad� dojde k syntaktick� chyb� p�i p�ekladu.
Jde o  zvl��tn� metodu, p�i  jej�m vyvol�n� je  vytvo�eno spojen� mezi tabulkou virtu�ln�ch metod t��dy objekt� a aktu�ln� instanc�.
Z toho  vypl�v�, �e  KONSTRUKTOR MUS�  B�T VYVOL�N  D��V NE� JIN� VIRTU�LN� METODA, jinak dojde k chyb�.

Tedy  konstruktor by  m�l  obsahovat  v�echny akce  souvisej�c� s inicializac�  objektu,  tj.  nastaven�  po��te�n�ch hodnot... pro spr�vnou funkci programu.

P��STUP K VLASTNOSTEM OBJJEKTU, ROZSAHY PLATNOSTI

P��stup pomoc� te�kov� notace:
pes1.stekej;
a:=pes1.delka;


Uvnit�  metody  ka�d�ho  objektu  jsou  v�echny  jeho  vlastnosti (datov� i dal� metody) p��stupn� p��mo - bez te�kov� notace.
procedure pes.hl�dej
begin
...
stekej;
a:=delka;
...
end;


Pro statick�  metody plat�, �e  lze p�edefinovat metodu  na vy�� �rovni=m��e  se  li�it  po�tem  parametr�.  NELZE  U  VIRTU�LN�CH METOD!-zde nelze m�nit parametry, hlavi�ka mus� b�t po��d stejn�!!


IMPLICITN� IDENTIFIK�TOR SELF

SELF je automaticky deklarovan� ukazatel, kter� v ka�d�m okam�iku obsahuje asresu aktu�ln�ho um�st�n� objektu.
P��stup   k  vlastnostem   objektu  uvnit�   tohoto  objektu  lze uskute�nit  bez te�kov�  notace -  SELF automaticky  dopln� n�zev t��dy.
Pou��v� se zejm�na v p��padech koliz� identifik�tor�, kter� nelze odstranit jin�m zp�sobem.

P�.:

TYPE popis=record
         barva:tbarva;
         delka:integer;
     end;

pes1=object(pes)   {...viz v��e}
   procedure nastav(co:popis);
end;

procedure pes1.nastav(co:popis);
begin
  with co do
  begin
    self.barva:=barva;  {jinak barva=barva ?? }
    self.delka:=delka;
  end;
end;


DYNAMICK� ALOKACE OBJEKT�, DESTRUKTORY

Dynamick� alokace: NEW(UKAZATEL,[,KONSTRUKTOR]);
tedy: ukate=new(typUkazatele [,konstruktor]);

konstruktor se po proveden� alokace automaticky provede, uv�d� se jen pokud objekt obsahuje virtu�ln� metody.

Uvoln�n� dynamicky alokovan�ho objektu

DISPOSE(UKAZATEL[,DESTRUKTOR]);
Prvn� paramettr je odkaz na ru�en� objekt, druh� parametr je tzv. destruktor.
Destruktor je zvl��tn� metoda, kter� se definuje pomoc� kl��ov�ho slova DESTRUCTOR

p�.: type ovcak=object(pes);
          ...
          destructor done;
          ...
          end;

Destruktor  uvol�uje dynamicky  alokovan� objekt.
Nejd��ve se  provede k�d destruktoru  a pak se  dealokuje objekt. Pokud  tedy  v  k�du  destruktoru  neprovedeme uvoln�n� dynamicky alokovan�ch dat, z�stanou nep��stupn� ale po��d v pam�ti(heapu)!

VZ�JEMN� P�I�ADIDELNOST OBJEKT�

p�edek:=p�edek
potomek:=potomek
�edek:=potomek

P��KLAD PROGRAMU S PEJSKY :)

{program simuluje hlidani psa-pes beha kolem domu a po stisknuti klavesy po dokonceni objehu zasteka a simulace je ukoncena...probiha pro 3 druhy psu}
program Priklad_objektoveho_programovani;
uses crt,graph;
type tbarva=(BILA,CERNA,JINA);
     pes=object
         barva:tbarva;
         delka:integer;
         constructor init(abarva:tbarva;adelka:integer);
         procedure stekej;
         procedure kresli_figuru(x,y:integer);virtual;
         procedure hlidej;
     end;
     chrt=object(pes)
          procedure kresli_figuru(x,y:integer);virtual;
     end;
     ovcak=object(pes)
           procedure kresli_figuru(x,y:integer);virtual;
           destructor done;
     end;
     povcak=^ovcak;

constructor pes.init(abarva:tbarva;adelka:integer);
begin
  barva:=abarva;
  delka:=adelka;
end;

procedure pes.stekej;
begin
  write(#7);
  delay(50);
  write(#7);
end;

procedure pes.kresli_figuru(x,y:integer);
begin
  outtextxy(x,y,'PES');
end;

procedure pes.hlidej;
var pom:integer;
    zn:char;
    procedure kresli(x,y:integer);
    begin
      setColor(white);
      kresli_figuru(x,y);
      delay(2);
      setcolor(black);
      kresli_figuru(x,y);
    end;
begin
  bar(100,100,200,200);
  repeat
    for pom:=50 to 210 do kresli(pom,80);
    for pom:=80 to 210 do kresli(210,pom);
    for pom:=210 downto 50 do kresli(pom,210);
    for pom:=210 downto 80 do kresli(50,pom);
  until keyPressed;
  zn:=readKey;
  stekej;
end;

procedure chrt.kresli_figuru(x,y:integer);
begin
  outtextXY(x,y,'CHRT');
end;

procedure ovcak.kresli_figuru(x,y:integer);
begin
  outtextXY(x,y,'OVCAK');
end;

destructor ovcak.done;
begin
end;

var driver,mode:integer;
    pes1:pes;
    pes2:chrt;
    pes3:povcak;

BEGIN
  pes1.init(CERNA,1);
  pes2.init(BILA,1);
  pes3:=NEW(povcak, init(JINA, 2));
  driver:=detect;
  initGraph(driver, mode,'../BGI');
  pes1.hlidej;
  pes2.hlidej;
  pes3^.hlidej;
  dispose(pes3,done);
  closeGraph;
end.



�VOD DO TURBO VISION


CO JSOU TURBO VISION

Programov�  jednotka  Turbo  Vision  je  n�strojem  pro usnadn�n� v�voje u�ivatelsky p��jemn�ch program�.  Tato knihovna je ps�na s vyu�it�m princip� OOP!
Turbo Vision  pracuj� v textov�m re�imu  ale v�sledn� programy se vzhledov�  podobaj� grafick�m  syst�m�m -  obsahuj� stejn�  prvky jako dialog-box, radio-button a dal�.
Vzhled  programu napsanho v Turbo  Vision  je  podobn�  jako  prost�ed�  nap�.  Turbo Pascalu.

PRINCIP PR�CE

V�echny objekty lze rozd�lit na dv� skupiny:
OBJEKTY PROV�D�J�C� V�STUP NA OBRAZOVKU - VIEWS
"N�M� OBJEKTY" PROV�D�J�C� OSTATN� �INNOST JAKO V�PO�TY...
Mezi  t�mito  skupinami  by   m�la  b�t  zachov�na  p��sn�  d�lba pr�ce-tj.  aby  se  n�m�  objekty  nijak  nesna�ili komunikovat a naopak, aby views  jen komunikovala,  ale pr�ci  p�enechala n�m�m objekt�m.

U�ivatel  p�sob�  na  program  pomoc�  kl�vesnice  a my�i. Jejich pou�it� v ur�it� oblasti je akc�, na kterou program reaguje.
Ka�d� akce zp�sob� vznik ud�losti!
Ud�lost  je datov�  struktura rozli�uj�c�  akci u�ivatele=bylo-li stisknuto tla��tko my�i, nebo kl�vesa...
=>EVENT DRIVENT PROGRAMING=ud�lostmi ��zen� programov�n�

Turbo  Visions poskytuj�  objekty, v  metod�ch t�chto  objekt� je ur�eno  jejich chov�n�.  U�ivatel si  p�izp�sobuje jejich chov�n� vytv��en�m potomk� p�eddefinovan�ch t��d.

Vlastn�   aplika�n�  program   je   tak�   objekt!  Je   pro  n�j p�eddefinov�na t��da TAPPLICATION

Jm�na  v�ech  p�eddefinovan�ch  t��d   v  Turbo  Vision  za��naj� p�smenem T, v�echny ukazatele za��naj� P.


PRVN� PROGRAM V TURBO VISION

USES APP;
type tMyApp=object(Tapplication)
     end;
var myapp:tmyapp;
begin
  myapp.init;
  myapp.run;
  myapp.done;
end.

Tento program pouze vykresl� pracovn�  plochu a jedin� ud�lost na kterou  reaguje  je  kliknut�  na  n�pis  ALT-X  Exit  ve  status line (stavov� ��dek), nebo stisk ALT+X, co� provede ukon�en� programu.


VYTVO�EN� MENU A STAVOV�HO ��DKU APLIKACE (TV2.PAS)

Vytvo��me  program  datab�ze  PC  komponent�.  Zat�m  jen uk��eme tvorbu r�zn�ch menu a  stavov�ho ��dku, jedinou opravdovou funkc� je ukon�en� programu.

USES app, views, objects, menus, drivers, dialogs;

const cmSesNab=100;
      cmUkNab=101;
      cmZrnab=102;
      cmIMonitory=103;
      cmIDisky=104;
      cmIKlavesnice=105;
      cmOMonitory=106;
      cmOdisky=107;
      cmOKlavesnice=108;
      cmMore=109;
type pDealer=^Tdealer;
     tdealer=object(Tapplication)
             procedure initMenuBar;virtual;
             procedure initStatusLine;virtual;
     end;

procedure tDealer.initMenuBar;
var r:tRect;
begin
  getExtent(r);
  r.b.y:=r.a.y+1;
  menubar:=new(pMENUbar, init(r, newmenu(
    NEWSUBmenu('~N~abidka',hcNOcontext,NEWMENU(
      newItem('~S~estav','',0,cmsesnab, hcNocontext,
      newItem('~U~kaz','',0,cmuknab, hcNocontext,
      newItem('~Z~rus','',0,cmzrnab, hcNocontext,
      newLine(
      newItem('~K~onec','ALT-X',kbALTX,cmQuit, hcNocontext,
      nil)))))
      ),
    newSubMenu('Vstupy',hcNOcontext,newMenu(
      newItem('Monitory','',0,cmImonitory, hcNocontext,
      newItem('Disky','',0,cmIdisky, hcNocontext,
      newItem('Klavesnice','',0,cmIklavesnice, hcNocontext,
      nil)))),
    newSubMenu('Vystupy',hcNOcontext, newMenu(
      newItem('Monitory','',0,cmOmonitory, hcNocontext,
      newItem('Disky','',0,cmOdisky, hcNocontext,
      newItem('Klavesnice','',0,cmOklavesnice, hcNocontext,
      nil)))),
    NIL))))
    ));
  end;

Procedure tDealer.initStatusLine;
var r:trect;
begin
  getExtent(r);
  r.a.y:=r.b.y-1;
  statusLine:=new(pStatusLine, Init(r,
    newStatusDef(0,$FFFF,
    newStatusKey('~ALT-X~ Exit',kbAltX,cmQuit,
    newStatusKey('~F1~ Help',kbF1,cmHelp,
    newStatusKey('~F2~ Nabidka',kbF2,cmSEsNab,
    newStatusKey('~F10~ Menu',kbF10,cmMenu,
    nil)))),
    nil)
  ));
end;

VAR a:tdealer;
BEGIN
  a.init;
  a.run;
  a.done;
END.

Vzhled menu  a stavov� ��dky  lze ovlivnit p�edefinov�n�m  metody InitMenuBar  a InitStatusLine  standartn�ho objektu TApplication. Tyto metody jsou p�edefinov�vy v potomkovy TDealer.


P��KAZOV� KONSTANTY cmXXXX

Ka�d� akce  zp�sob� vznik ud�losti.  Ud�lost je datov�  struktura typu  RECORD se  jm�nem typu  TEVENT, kter�  obsahuje informace o d�n� a je p�ed�v�na jestnotliv�m view.
Vybere-li u�ivatel  n�jakou polo�ku v menu,  znamen� to t�� vznik ud�losti.
Informace o tom, jak� p��kaz byl vybr�n a jak� akce se m� prov�st je reprezentov�n hodnotou typu word, kter� je jednozna�n� sv�z�na s ka�dou polo�kou menu. Program�tor  je ve sv�m programu definuje jako konstanty, za��naj�c� CM (od COMMAND).
V Turbo Vision jsou defonov�ny konstanty pro standartn� akce jako cmQuit  atd.  Jsou  tedy  rezervov�ny  hodnoty  0..99 a 256..999. Ostatn�  hodnoty m�  program�tor  k  dispozici. (tedy  100..255 a 1000..65535)

HLAVN� MENU PROGRAMU - METODA INITMENUBAR

Hlavn�  menu  vytvo��me  p�edefinov�n�m  metody initMenuBar t��dy TApplication,  to   jest  vytvo�en�m  potomka.   Tato  metoda  je p�eddefinov�na  jako  virtu�ln�,  tud��   potomek  mus�  b�t  t�� virtu�ln�!!

-OBJEKT TRECT

TRect  je jednoduch�  objekt, jeho�  datov�mi polo�kami  jsou dva objekty typu  TPoint, kde TPoint je  objekt obsahuj�c� dv� datov� polo�ky typu X,Y. TPoint  p�edstavuje sou�adnice n�jak�ho bodu na obrazovce.
TRect je zdednodu�en� definov�n:

Type TRect=Object
     A,B:TPoint;
     procedure Assign(XA,YA, XB,YB:integer);
     procedure Move(ADX,ADY:integer);
     Procedure Grow(ADX,ADY:integer);
     ...
     END;

TRect  se pou��v�  k ur�en�  polohy a  velikosti n�ajk�ho view na obrazovce.
A -  sou�adnice  lev�ho  horn�ho  rohu,  B  -  sou�adnice prav�ho doln�ho rohu

Metoda Assign - umo��uje zad�n� v�ech sou�adnic
Metoda Move - zv�t� X-ov� polo�kz A  a B o hodnotu ADX a Y-ov� o hotnotu ADY->posune view v ur�en�m sm�ru
Metoda Grow - zv�t� pouze polo�ku B - zm�n� se velikost view

-ZJI�T�N� VELIKOSTI VIEW

Metoda GetExtent  - vrac� velikost  view do parametru  typu TRect tak, �e A je nulov�no a B je nastaveno na velikost v jednotliv�ch sm�rech.
V programu jsme nejd��ve zjistili  velikost cel� plochy obrazovky a pot� rozsah Y zm�nili na  jedin� ��dek->menu je na nejvrchn�j�m ��dku obrazovky.

-PROM�NN� MENUBAR

Ukazatel na  hlavn� menu aplikace  je ulo�en v  glob�ln� prom�nn� MenuBar typu PMenuView (ukazatel na TmenuView co� je p�edek typ� menu TMenuBar a TMenuBox)
Pokud je hodnota t�to prom�nn� NIL, neobsahuje ��dn� menu.
Mus�me tedy jej� hodnotu definovat a to pomoc� procedur a funkc�:

-PROCEDURY A FUNKCE PRO VYTV��EN� MENU

Turbo Vision poskytuje prost�edky pro vytv��en� dvou typ� menu:
horizont�ln� menu - objekty t��dy TMenuBar
vertik�ln� menu - objekty t��dy TMenuBox

Tyto objekty  se zpravidla vytv��ej� dynamicky,  proto je tvo��me vol�n�m NEW,  kde druh�m parametrem je  konstruktor pro p��slu�n� typ menu.

--TVAR KONSTRUKTOR�

constructor TMenuBar.INIT(var Bounds:TRect;AMenu:Pmenu);

constructor TMenuBox.INIT(var Bounds:TRect;Amenu:PMenu;AParentMenu:PMenuView);

- Bounds vymezuje oblast ve kter� bude menu vykresleno
- AMenu je seznam polo�ek menu (typu TMenuItem)
- AParentMenu  je ukazatel  na menu  vlastn�c� definovan�  menu a umo��uje  vytv��et hiearchickou  strukturu pull-down  menu. Pokud jde o samostatn� menu, bude tento parametr NIL

Setznam  polo�ek   menu,  p�ed�van�  jako   pako  parametr  AMenu vytvo��me pomoc� funkc�:

Function NewMenu(Items:PMenuItem):Pmenu;

Fuction NewItem(Name,Param:TmenuStr;KeyCode:word;Command:word;AHELPCtx:word;next:pMenuItem):pMenuItem;

Function NewLine(Next:pMenuItem):PmenuItem;

Function NewSubMenu(Name:TmenuSTR;AHelpCtx:word;SubMenu:Pmenu;Next:PmenuItem):pMenuItem;


Parametrem funkce NewMenu je seznam polo�ek typu TMenuItem, kter� se  vytvo��  libovoln�m  z�et�zen�m  funkc�  newLine,  newItem  a NewSubMenu. Toto  z�et�zen� je mo�n�  pomoc� parametru NEXT.  Pro ukon�en� menu, vlo��me NEXT=NIL a dopln�me prav� z�vorky.

Parametr NAME - �et�zec, p�edstavuje jm�no polo�ky v menu. Pomoc� tildy (~) lze ozna�it znak pro zkr�cen� vyb�r�n�.

Parametr  AHelpCTX   souvis�  s  vytv��en�m   kontextov�  z�visl� n�pov�dy.  Pokud  nen�  po�adov�na,   uvede  se  na  tomto  m�st� konstatna hcNoContext, kter� m� hodnotu 0

Parametr  Param -  �et�zec, kter�  se objev�  v menu  vedle jm�na (NAME).  Pou��v� se  pro vyps�n�  jm�na kl�vesy  jej�m stisem lze prov�st  alternativn� v�b�r  akce. Kl�vesa  je ur�ena  parametrem KeyCode, na jeho� m�sto se dosad� p�eddefinovan� konstanta, jej�� jm�no za��n� KB (kbF1)...

Parametr SubMenu - odkaz na seznam polo�ek. Vytvo�� se opakov�n�m v��e popsan�ch postup�.

NEZ�VISL� MENU, PROM�NN� DESKTOP A METODA EXECVIEW

Pokud  nechceme  vytv��et  hlavn�  menu  pomoc�  MenuBar a chceme vytvo�it  menu  jin�  �rovn�,  vytvo��me  menu  stejn�m  postupem (viz.v��e) a ulo��me jej do vlastn� prom�nn�.
Toto  menu pak v programu spust�me vol�n�m metody:
DeskTop^.ExecView(p:Pview):word;

p - parametr, za n�j� dosad�me odkaz na vytvo�en� menu

Menu  se  objev�  na  obrazovce  a  bude  tam  tak  dlouho, dokud nevybereme n�kterou  z jeho polo�ek. Pak  zmiz� a funkce ExecView vr�t� hodnotu Command p��slu�nou vybran� polo�ce.

DeskTop  -  glob�ln�  prom�nn�,   obsahuje  ukazatel  na  desktop aplikace. Je  potomkem t��dy TGroup  - obsahuje jednotliv�  view, kter� jsou do n� vkl�d�ny pomoc� metody Insert a odeb�r�ny pomoc� metody Delete.  DeskTop je tedy  Group, do n�ho�  vlo�en� view se automaticky vykresl�� na obrazovce.

Metoda ExecView  - obdova metod Insert  a Delete, provede vlo�en� view ur�en�ho parametrem  P do TGroup a p�evede  jej do mod�ln�ho stavu - �ek� se a� se  view provede. Proveden� je vybr�n� polo�ky a je realizov�no metodou Execute


STAVOV� ��DKA APLIKACE - METODA INITSTATUSLINE

Pou��v� se k v�pisu kr�tk�ch informac�, lze zde zobrazit polo�ky, kter� lze vyvolat stiskem hork� kl�vesy nebo kliknut�m my�...
Definice stavov� ��dky se prov�d� p�eps�n�m metody InitStatusLine objekty TApplication

-PROM�NN� STATUSLINE

Obsahuje odkaz na hlavn� stavovou ��dku programu.
Je typu PStatusLine a pokud je  jej� hodnota NIL pak program nem� stavovou ��dku.
Vytvo�en�  stavov� ��dky  tedy znamen�  nadefinov�n� hodnot  t�to prom�nn�.

-PROCEDURY A FUNKCE PRO VYTV��EN� STAVOV� ��DKY

Stavov� ��dka se tvo�� dynamicky. Pou��v� se tedy konstruktor:

constructor Init(var Bounds:TRect;ADefs:PstatusDef);

Bounds - um�st�n� stavov�ho ��dku na obrazovce
ADefs - odkaz na seznam polo�ek typy TStatausDef

Typ TStatusDef je definov�n:

Type TStatusDef=record
     next:PstatusDef;
     min,max:word;
     Items:PStatusItem;
     end;

Next - ukazatel na dal�ho �lena v seznamu
Min, Max  - ur�uj� rozsah help  kontext� pro nا je  tato polo�ka platn�
Items - seznam polo�ek  typu TStatusItem, definuje aktu�ln� obsah stavov� ��dky

Typ TStatusItem je definov�n:

Type TStatusItem = record
     next:PstatusItem;
     text:Pstring;
     KeyCode:word;
     Commnand:word;
     End;

Next - ukazatel na dal� prvek seznamu
Text - text polo�ky
KeyCode -  kombinace kl�ves pro vyvol�n�  akce p��slu�n� polo�ky, existuj� p�eddefinovan� konstanty kb... (kbAltX)
Command - p��kaz kter� se  m� vygenerovat, je-li polo�ka vybr�na, p��kazy jsou konstanty cmXXXX

Seznam,  jeho� odkaz  se  p�ed�v�  do konstruktoru  jako parametr ADefs se vytvo�� z�et�zen�m vol�n�m funkc�:

Function NewStatusDef(AMin,AMax:word;AItems:PstatusItem;ANext:PsatusDef):PstatusDEf;
Function NewStatusKey(AText:String;AKeyCode:word;Acommand:word;ANext:PsatusItem):PstatusItem;

Z�et�zen� umo��uj� parametry ANext!


UD�LOSTMI ��ZEN� PROGRAMOV�N�


DATOV� TYP TEVENT


Typ TEvent obsahuje informace o tom, o jak� typ ud�losti se jedn� a n�kter�  dal� dopl�kov�  informace, kter�  jsou pro jednotliv� ud�losti odli�n�.
Je definov�n takto:

Type TEvent=record
     what:word;
     case word of
           evNothong:();
           evMouse:(
                 Buttons:Byte;
                 Double:Boolean;
                 Where:TPoint;
                   )
           evKeyDown:(
                 case Integer of
                       0:(KeyCode:Word);
                       1:(CharCode:Char;
                          ScanCode:Byte));
           evMessage:(
                 Command:word;
                 Case word of
                       0:(InfoPtr:Pointer);
                       1:(InfoLong:LongInt);
                       2:(InfoWord:Word);
                       3:(InfoInt:Integer);
                       4:(InfoByte:Byte);
                       5:(InfoChar:Char));
     End;

Ud�losti jsou p�eddefinov�ny pomoc� konstant evXXXX. Turbo Vision rozli�uj� �ty�i typy ud�lost�.
Konstanto evMessage  ozna�uje ud�lost, kter�  je vyvol�na n�jak�m objektem aplikace.


PR�ZDN� UD�LOST EVNOTHING

Pud  polo�ka  what  datov�  struktury  TEvent  obsahuje konstantu evNothing,  znamen�  to,  �e  ostatn�  polo�ky  neobsahuj� ��dnou informaci. Pr�zdn�  ud�lost vznikne z  nepr�zdn� tak, �e  n�kter� objekt zpracuje ud�lost a nastav�  polo�ku what na evNothing, aby u� na ni nemohl reagovat ��dn� dal� objekt.

UD�LOSTI OD MY�I EVMOUSE

Lze rozd�lit na �ty�i podtypy ozna�en� konstantou
evMouseDown - stisknut� tla��tka
evMouseUp - uvoln�n� tla��tka
evMouseMove - zm�na pozice
evMouseAuto   -   periodicky   generovan�   ud�lost   p�i  dr�en� stisknut�ho tla��tka

evMouse je tedy  maskou pro v�echny tyto ud�losti  a dovoluje n�m zjistit jestli �lo o akci  od my�i, nez�visle na jej�m konkr�tn�m charakteru:

if Event.What and evMouse <>0 then ...


UD�LOST KL�VESNICE EVKEYDOWN

Vznik�  po stisku  n�jak�  kl�vesy,  dopl�uj�c� informac�  je k�d stisknut� kl�vesy. (KeyCode nebo CharCode, ScanCode)


UD�LOST GENEROVAN� OBJEKTEM EVMESSAGE

M� podtypy:
evCommand  -  ud�lost  spojen�  s  vybr�n�m  polo�ky  v menu nebo stavov�m ��dku
evBroadcast - ud�lost ���c� se zvl��tn�m zp�sobem
U�ivatelsky definovan� ud�losti


���EN� UD�LOST� V APLIKACI

-KDE UD�LOSTI VZNIKAJ�

Pro zji�ov�n�  ud�losti by m�la  existovat n�jak� smy�ka,  kter� kontroluje zda k n�jak� ud�losti do�lo �i nikoliv a z�rove� by na ni reagovala. Takovou smy�ku nen�  t�eba vytv��et. V Turbo Vision existuje a to v objektu TApplication, konkr�tn� v metod� RUN.
K�d Run je:
var E:TEvent;
E.What:=evNothing;
repeat
  if E.What evNothing then EventError(E);
  GetEvent(E);
  HandleEvent(E);
until EndState<>Continue;

-METODA GETEVENT

Zde doch�z�  k testov�n� u�ivatelsk�ho  vstupu. Pokud k  n�jak�mu dojde, napln� se parametr E:TEvent
TApplication.GetEvent  je  jedin�  m�sto,  zab�vaj�c� se fyzick�m vstupem,  proto ji  mus�me p�edefinovat,  chceme-li zm�nit zp�sob zach�zen� se vstupn�m za��zen�m.

-���EN� UD�LOST�, METODA HANDLEEVENT

Pokud v GetEvent vznikne ud�lost,  je ulo�ena do struktury E typu TEvent    a   p�ed�na    metod�   HandleEvent.    �kolem   metody TApplication.HandleEvent  je  p�ed�n�  ud�losti  objektu, kter�mu pat��  a jej�  p��padn� zpracov�n�,  pokud se  zjist�, �e ud�lost pat�� aplikaci (potomku TApplication)

--���EN� UD�LOST� OD MY�I

Adres�t  ud�losti  vznikl�  stisknut�m   tla��tka  my�i  je  view nach�zej�c�  se  pod  kurzorem   my�i  v  dob�  vzniku  ud�losti. Jednotliv�  subview mod�ln�ho  view jsou  proch�zena v  obr�cen�m po�ad� ne� byla vlo�ena. (posledn� vlo�en� bude zkoum�no prvn�)
Toto uspo��d�n� se zve z-order.

--ZAM��EN� UD�LOSTI

Jako Focused  ud�losti se ���  ud�losti z kl�vesnice  a ud�losti typu p��kaz (vybr�n� polo�ky z  menu). Adres�tem je v�dy zam��en� view=aktivn�.
Pokud po  prohled�n� v�ech subview  se ne�sp��n� vr�t�  ud�lost k mod�ln�mu  view  (od  kter�ho  za�alo  prohled�v�n�)  je zavol�na metoda EventError a ud�lost zanik�. EventError je pr�zdn�, lze ji p�edefinovat.

--UD�LOST TYPU BROADCAST

Ud�losti typu evBroadcast a u�ivatelsky definovan�.Nen�  p�esn�  ur�en
adres�t,  proto  jsou  ud�losti p�ed�ny v�em subview mod�ln�ho  view.
Pou��vaj� se k  vz�jemn� komunikaci mezi objekty.


--ZPRACOV�N� UD�LOST�

Automatickou reakci na standardn� ud�losti zabezpe�uje metoda HandleEvent.
Nap�. okno  reaguje na ud�lost  typu broadcast, �e  se m� zav��t, zm�nit velikost a podobn�.
HandleEvent lze p�edefinovat, ale ztrat�me automatick� zpracov�n� t�chto ud�lost�.

Po  zpracov�n�  ud�losti  je  t�eba  ji  vy�istit.  Pomoc� metody ClearEvent  se nastav�  Event.What:=evNothing a  do event.Info se zap��e @Self - ozna�en� ud�losti jako zpracovan�.


DOPLN�N� PROGRAMU ABY REAGOVAL NA P��KAZY


uses app, views, objects, menus, drivers, dialogs;

const cmSesNab=100;
      cmUkNab=101;
      cmZrnab=102;
      cmIMonitory=103;
      cmIDisky=104;
      cmIKlavesnice=105;
      cmOMonitory=106;
      cmOdisky=107;
      cmOKlavesnice=108;
      cmMore=109;
type pDealer=^Tdealer;
     tdealer=object(Tapplication)
             procedure initMenuBar;virtual;
             procedure initStatusLine;virtual;
             procedure HandleEvent(var event:TEvent);virtual;
             procedure SestavNabidku;
             Procedure UkazNabidku;
             Procedure ZrusNabidku;
             procedure Vstup(ceho:string);
             procedure vystup(ceho:string);
     end;

procedure tDealer.initMenuBar;
var r:tRect;
begin
  getExtent(r);
  r.b.y:=r.a.y+1;
  menubar:=new(pMENUbar, init(r, newmenu(
    NEWSUBmenu('~N~abidka',hcNOcontext,NEWMENU(
      newItem('~S~estav','',0,cmsesnab, hcNocontext,
      newItem('~U~kaz','',0,cmuknab, hcNocontext,
      newItem('~Z~rus','',0,cmzrnab, hcNocontext,
      newLine(
      newItem('~K~onec','ALT-X',kbALTX,cmQuit, hcNocontext,
      nil)))))
      ),
    newSubMenu('Vstupy',hcNOcontext,newMenu(
      newItem('Monitory','',0,cmImonitory, hcNocontext,
      newItem('Disky','',0,cmIdisky, hcNocontext,
      newItem('Klavesnice','',0,cmIklavesnice, hcNocontext,
      nil)))),
    newSubMenu('Vystupy',hcNOcontext, newMenu(
      newItem('Monitory','',0,cmOmonitory, hcNocontext,
      newItem('Disky','',0,cmOdisky, hcNocontext,
      newItem('Klavesnice','',0,cmOklavesnice, hcNocontext,
      nil)))),
    NIL))))
    ));
  end;

Procedure tDealer.initStatusLine;
var r:trect;
begin
  getExtent(r);
  r.a.y:=r.b.y-1;
  statusLine:=new(pStatusLine, Init(r,
    newStatusDef(0,$FFFF,
    newStatusKey('~ALT-X~ Exit',kbAltX,cmQuit,
    newStatusKey('~F1~ Help',kbF1,cmHelp,
    newStatusKey('~F2~ Nabidka',kbF2,cmSEsNab,
    newStatusKey('~F10~ Menu',kbF10,cmMenu,
    nil)))),
    nil)
  ));
end;

Procedure TDealer.HandleEvent(var Event:TEvent);
begin
  Tapplication.handleEvent(Event);
  case event.command of
    cmSesNab         :sestavNabidku;
    cmUkNab          :UkazNabidku;
    cmZrNab          :ZrusNabidku;
    cmImonitory      :Vstup('Monitory');
    cmIdisky         :Vstup('Disky');
    cmIKlavesnice    :Vstup('Klavesnice');
    cmOmonitory      :Vystup('Monitory');
    cmODisky         :Vystup('Disky');
    cmOKlavesnice    :Vystup('Klavesnice');
  else exit;
  end;
  ClearEvent(event);
end;

Procedure Tdealer.sestavNabidku;
begin
end;

Procedure Tdealer.zrusNabidku;
begin
end;

Procedure Tdealer.ukazNabidku;
begin
end;

Procedure Tdealer.vstup(ceho:string);
begin
end;

Procedure Tdealer.vystup(ceho:string);
begin
end;


VAR a:tdealer;
BEGIN
  a.init;
  a.run;
  a.done;
END.


Odezva   na  v�echny   ud�losti   typu   p��kaz  je   um�st�na  v Tdealer.handleEvent.  Pokud  nebude  na  obrazovce  ��dn� mod�ln� dialog-box, pak budou v�echny p��kazy zpracov�v�ny t�mto objektem (potomek TApplication)


POZN�MKY KE ZPRACOV�N� UD�LOST�

MASKOV�N� UD�LOST�

Ka�d�  view  obsahuje  polo�ku  EventMask,  jej�� jednotliv� bity koresponduj�  s bity  polo�ky  TEvent.What.  Nastaven� bitu  do 1 znamen�,  �e view  bude danou  ud�lost zpracov�vat,  0 - ignorace ud�losti

ZM�NA PO�AD� P�ED�V�N� ZAM��EN�CH UD�LOST�

Ka�d� view m� polo�ku OPTION.  Pokud v t�to polo�ce nastav�me bit ofPreProcess - pak toto view  dostane zam��enou ud�lost d��ve ne� zam��en� view
ofPostProcess - dostane ud�lost a� po zam��en�m view.
View zji�tuje  v jak� f�zi  ud�lost dost�v� pomoc�  polo�ky PHASE sv�ho  vlastn�ka  (GROUP  ve  kter�  je  vlo�eno).  PHASE  nab�v� hotnoty: phFocused, phPreProcess, phPostProcess


Z�KAZ A POVOLEN� P��KAZ�

P��kazy s hodnotou 0..255 mohou b�t zak�z�ny a n�sledn� povoleny.
Zak�zan� p��kaz je u�ivateli nedostupn� (�ed� polo�ka v menu)
Prov�d� se pomoc� metod: TView.DisableCommands a TView.EnableCommands.
Ob� maj� jedin� parametr TCommandSet  - mno�ina p��kaz�. kter� se maj� zak�zat �i povolit.


U�IVATELSKY DEFINOVAN� UD�LOSTI

Nejvy��ch �est  bit� TEvent.What lze vyu��t  pro zaveden� nov�ch kategori�  ud�lost�.  Pak  je  s  nimi  zach�zeno  jako  s  typem evBroadcast. P��padn� lze nastavit  typ ud�lost�, nastaven�m bit� v prom�nn�  PositionalEvents  nebo  FocusedEvents  (pozi�n�  nebo zam��en� ud�lost)


KOMUNIKACE MEZI OBJEKTY


Vz�jemn� komunikace  se pou��v� z��dka  a zna�� �patn�  navr�enou strukruru programu!
K zas�l�n� zpr�v slou�� funcke message:

Function Message(receiver:PView;What,Command:Word;InfoPtr:Pointer):pointer;

Receiver - ozna�en� p��jemce zpr�vy
What - druh zpr�vy
Command - p��kaz
InfoPtr - pomacn� informace

Je-li  ud�lost  �sp��n�  zpracov�na,  funkce  vr�t�  ukazatel  na objekt, kter� ji zpracoval.


METODA TAPPLICATION.IDLE


Je  vyvol�na  metodou   tApplication.GetEvent,  kdykoliv  nen�  k dispozici  ��dn�  ud�lost.  Jej�  t�lo  je  pr�zdn�. Lze ji proto p�edefinovat  a vyu��t  nap�. ke  kontrole heapu...  je spou�t�na pravideln�, ani� by zpomalovala b�h programu, proto�e se spou�t�, kdy� se ��dn� pr�ce nevy�aduje.


ZOBRAZITELN� OBJEKTY - VIEWS
CO JSOU TO VIEWS


Ozna�ujeme  tak   ka�d�  objekt,  kter�  m��e   b�t  zobrazen  na�
obrazovce.  Je to  jedin� cesta  pro v�stup  na obrazovku v Turbo�
Vision. View jsou v�echny t��dy objekt� odvozen� od t��dy TView.
TView  je abstraktn�  objekt, p�edek  pro v�echna  view. Obsahuje�
vlastnosti pro v�echna view spole�n�.

Hiearchie objekt�:

TObject��� TCollection �� TSortedCollection �� TStringCollection
        �                                        ��TResourceCollection
        �� TResourceFile
        �� TStream ������ TDosStream ��������� TBufStream
        �              �� TEmsStream
        �
        �� TStringList
        �� TStringListMaker
        �� TView �������� TCluster ����������� TCheckBoxes
                       �                    �� TRadioButtons
                       �� TFrame
                       �� TGroup ������������� TDesktop
                       �                    �� TProgram �� TApplication
                       �                    �� TWindow ��� TDialog
                       �                                �� THistorywindow
                       �� TBackGround
                       �� TButton
                       �� TStaticText �������� TLabel
                       �                    �� TParamText
                       �� THistory
                       �� TListViewer �������� THistoryViewer
                       �                    �� TListBox
                       �� TInputLine
                       �� TMenuView ���������� TMenuBar
                       �                    �� TMenuBox
                       �� TScrollBar
                       �� TScroller  ��������� TTextDevice �� TTerminal
                       �� TStatusLine