Sloitějí view jako okna nebo dialog-boxy jsou tvořeny pomocí objektů jejich společným předkem je třída TGroup. Tato view jsou sloena z jednoduích view - jsou jejich vlastníky. Vlastněná view zveme SubView.
Typ TGroup musí obsahovat prostředky pro mechanismus vastnění a správu subview. Mezi tyto prostředky patří datové položkyCurrent a Last, které jsou ukazateli na aktuální a poslední poloku v řetězci subView.
Dalím prostředkem je položka Owner, popisující vlastníka, má funkci ukazatele na vlastníka.
Proces vytváření group nazýváme vkládáním view do group. Provádíme jej pomocí metod:
procedure TGroup.Insert(P:PVIew); procedure TGroup.Delete(P:PView); function TGroup.ExecView(P:PView):word;Metoda INSERT vloí view určené parametrem P do skupiny
metoda DELERE vyjme view určené parametrem P ze skupiny
(Z-order)
metoda ExecView se vyuívá pro sputění view v modálním stavu. Volá metodu Execute daného view a čeká na její dokončení a její návratovou hodnotu převezme jako svoji návratovou hodnotu. Při neúspěchu vrací cmCancel
Modální stav - vechny události jsou směrovány do view v tomto stavu. ádný ovládací prvek mimo toto view nefunguje, dostupné jsou jen subview tohoto view. Modální reim lze zruit stiskem Esc
Barevnost view, barevné palety
Typ TView má metodu nazvanou GetPalette, která vrací ukazatel na string, který je chápán jako pole čísel proměnné délky. Toto pole se zve barevná paleta daného view a určuje jak bude view barevně vykresleno.
Jednotlivá čísla nejsou kódy byrev, ale indexy do barevné palety vlastníka, která obsahuje opět index...a do kořene - objektu TApplication.
Barevná paleta objektů TApplication je pole skutečných textových atributů.
Např.: TScroller (vkládá se do objektu TWindow a slouí jako zobrazitel textu) - má barevnou paletu o dvou barvách - barva normálního textu a barva zvýrazněného textu. Tyto hodnoty slouí jako indexy do osmimístné palety objektu TWindow, její jednotlivé položky mají význam např. barvy rámečku pasivního, aktivního okna, barvu ikony...
Jak změnit barvu objektu?
- Přepsáním přísluné položkyv paletě objektu TApplication - tím se změní vzhled vech view, kvůli mapování
- Přepsáním metody GetPallete v následníku nějakéhio view. Tím změníme pouze mapování a ne absolutní barvy.
Příklad předefinování palety:
Procedure TMyScroller.GetPallete:PPAllete; const CMyScroller=#1#7; PMyScroller:string[Length(CMScroller)]=CMyScroller; BEGIn GetPallete:=@PMyScroller; End;
Využití konkrétních typů view
Doplnění programu (tv4.pas)
Program bude umět přidávat položkydo jednotlivých nabídek.
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 PVstupDialog=^TVstupDialog;
TVstupDialog=Object(TDialog)
Pol:array [1..7,1..2] of PinputLine;
constructor init(var Bounds:TRect;ATitle:TTitleStr);
destructor done;virtual;
procedure handleEvent(var event:Tevent);virtual;
end;
TVstupDialogRec=record
IL:Array [1..7] of
record
Na:String[50];
Ce:String[8];
end;
end;
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;
Const NVstupDialogRec:TvstupDialogRec=(
IL:((Na:'';Ce:''),(Na:'';Ce:''),(Na:'';Ce:''),
(Na:'';Ce:''),(Na:'';Ce:''),(Na:'';Ce:''),
(Na:'';Ce:''))
);
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);
var r:TRect;
okno:PVstupDialog;
begin
r.assign(5,5,65,18);
okno:=new(PVstupDialog,Init(r,Ceho));
desktop^.execView(okno);
Dispose(okno,done);
end;
Constructor TVstupDialog.Init(var Bounds:Trect;ATitle:TTitleStr);
Var R:Trect;
i,j:byte;
pom:PButton;
Code,info:integer;
BEGIN
TDialog.Init(Bounds, ATitle);
GetExtent(r);
R.Assign(R.A.X+2, R.A.Y+10, R.A.X+17,R.A.Y+12);
pom:=New(PButton, init(R,'~M~ore',cmMore, bfNormal));
Insert(pom);
pom:=New(PButton, init(R,'~O~k',cmOk, bfNormal));
Insert(pom);
R.Move(16,0);
pom:=New(PButton, init(R,'~C~ancel',cmCancel, bfNormal));
Insert(pom);
GetExtent(R);
Bounds.Copy(R);
R.Assign(R.A.X+2, R.A.Y+8, R.B.X-10, R.A.Y+9);
Bounds.assign(bounds.B.X-9, Bounds.A.Y+8, bounds.B.X-2, Bounds.A.Y+9);
For i:=1 to 7 do
BEGIN
Pol[i,1]:=New(PInputLine,Init(R,50));
Pol[i,2]:=New(PInputLine,Init(Bounds,8));
R.Move(0,-1);
END;
For i:=7 Downto 1 do
BEGIN
Insert(pol[i,1]);
Insert(pol[i,2]);
END;
POL[7,1]^.select;
Insert(New(PLabel,Init(R,' ~N~ zev', Pol[7,1])));
Insert(New(PLabel,Init(Bounds,' ~C~ena', Pol[7,2])));
end;
Destructor TVstupDialog.Done;
var i,j:byte;
Begin
for i:=1 to 6 do
for j:=1 to 2 do
Dispose(pol[i,j],Done);
TDialog.done;
end;
Procedure TVstupDialog.HandleEvent(var Event:TEvent);
Procedure zapis;
var data:TVstupDialogRec;
begin
data:=NVstupDialogRec;
GetData(Data);
setData(NVstupDialogRec);
End;
function Najdi_select:Boolean;
var i,j:byte;
Begin
i:=1;j:=1;
while (i<7) and not(pol[i,j]^.GetState(sfSelected))
do if j=2 then
begin
j:=1;
inc(i);
end else inc(j);
Najdi_select:=(i<7);
end;
Begin
if (event.what=evBroadCast) and (event.Command=cmDefault) then
begin
if najdi_select then selectNext(false)
else TDialog.handleEvent(Event);
end else
begin
if (event.what=evCommand) then
begin
if (event.command=cmMore) or (event.command=cmOk) then
begin
zapis;
pol[7,1]^.select;
end;
end;
TDialog.HandleEvent(event);
end;
ClearEvent(Event);
end;
Procedure Tdealer.vystup(ceho:string);
begin
end;
VAR a:tdealer;
BEGIN
a.init;
a.run;
a.done;
END.
Vytvoření objektu typu TGroup
Budeme rozebírat konstruktor objektu TVstupDialog, metodu Init.
Nejdříve zavoláme konstruktor předka - onjektu TDialog, který provede standardní inicializace, neboli vytvoří přísluné okénko, a jako titulek mu dá string, který dostane jako druhý parametr.
Pak následuje vlastní vytváření group - posloupnost volání New pro vytvoření subview, Insert pro vloení tohoto subview do group a manipulace s proměnnými typu TRect, které obsahují souřadnice jednotlivých subview.
Objekty třídy TButton
Jsou koncová view - nemůou vlastnit subview, pouívají se jako součást dialog-boxů. Slouí zde jako prvek generující událost typu příkaz. Konstruktor objektu vypadá následovně:
constructor TButton.Init(var Bounds:TRect;ATitle:TTitleStr;Acommand:word;AFlags:Byte);Bounds - souřadnice buttonu na obrazovce
ACommand - příkaz, který má být při stisku generován
AFlags - příznaky ovlivňující vzhled a chování buttonu -bfNormal - normální button bfDefault - stisk Enter = stisk tohoto default buttonu blLeftJust - zarovnání titulku v buttonu doleva.
Objekty třídy TInputLIne
constructor TInputLine.Init(var Bounds:TRect;AMaxLen:Integer);
Bounds - souřadnice vstupní řádky na obrazovce
AMaxLen - maximální délka editovaného řetězce
Pro zápis/čtení řetězce slouí dvě metody:
Procedure TInputLine.GetData(var Rec);virtual; procedure TInputLine.SetData(var Rec);virtual;
Objekty třídy TLabel
Jedná se o statický text, který můe být zaměřen. Obsahuje datovou položkyLink typu PView a ukazuje na view, s ním je daný TLabel spojen.
constructor TLabel.Init(vat Bounds:Trect;AText:String;ALink:PView);
Bounds - souřadnice labelu na obrazovce
AText - text labelu
ALink - ukazatel na připojené view
Zruení objektu TGroup
Protoe v naem objektu máme pevné odkazy na dynamicky alokované subview, musíme před zruením objektu uvolnit tato subview, protoe jinak bychom na ně ztratili odkazy a nebyli schopni uvolnění provést. Nejvhodnějí místo na toto uvolnění jsou destruktory.
Modifikace chování view
Poud chceme nae view jinak uzpůsobit, uděláme to předefinováním metody HandleEvent
Streamy - vstupní a výstupní operace
Speciální prostrědek, pro uchování objektů mimo uivatelský program (např. datové soubory), a prostředek pro správu vnějích pamětí. Streamy dokáí zvládnout libovolnou regulérní třídu = potomka třídy TObject Prostředky pro uloení dat do souborů nebo EMS paměti poskytují typy: TDosStrem, TBufStream, TEMSStream . Kadý objekt, který má být uloen do streamu, musí být zaregistrován. Stream je potřeba před pouitím otevřít, lze sekvenčně zapisovat, nebo pomocí speciálních funkcí přistupovat na vybrané místo souboru a po ukončení práce zavřít soubor.
Otevření streamu
Otevření souboru je jeho inicializace pro následující pouití. Je tedy logické, e v případě objektů tato úloha připadne konstruktoru. Syntaxe konstruktoru je odliná pro jednotlivé typy.
Typ TDosStream odpovídá souboru uloenému na disku. Konstruktor má tvar:
constructor TDosStream.Init(FileName:FnameStr;Mode:word);
FileName - jméno přísluiného souboru
Mode - způsob přístupu k danému souboru, předdefinovány konstanty
Typ TBufStream je diskový soubor, do kterého se přístup provádí přes buffer v operační paměti. Je vhodný při velkém mnoství přístupů k objektům malé velikosti.
constructor TBufStream.Init(filename:FnameStr;mode, size:word);
Size - udává velikost bufferu v paměti
Typ TEmsStream slouí k ukládání objektů do expand paměti, můeme ho tedy vyuít ke zrychlení přistupu k často vyuívanému diskovému streamu tím, e tento stream zkopírujeme do streamu typu TEmsStream.
constructor TEmsStream.Init(MinSize:longint);
Konstanty módu otevření streamu
Parametr Mode lze zadat pomocí předdefinovaných konstant:
stCreate - vytvoř nový diskový soubor
stOpenRead - otevři existující soubor pouze pro čtení
stOpenWrite - otevři existující soubor pouze pro zápis
stOpen - otevři existující soubor pro zápis i čtení
Sekvenční přístup ke streamu
Pro čtení a zápis objektů do a ze streamu se vyuívají metody PUT, GET
function TStream.Get:PObject;
Načte následující objekt ze streamum zavolá jeho konstruktor Load viz níe a vrátí ulazatel na tento nově vytvořený objekt.
procedure TStream.Put(P:PObject);
zapíe objekt na aktuální pozici ve streamu.
Čtené a zapisované objekty musí být registrované pro pouití ve streamu. Při této registraci je kadé třídě přiřazeno jednoznačné číslo, kreré je při zápisu objektu uloeno před vlastní posloupnost bytů.
Náhodný přístup ke streamu
function TStream.GetPos:longint;virtual; function TStream.GetSize:longint;virtual; Procedure TStream.Seek(pos:LongInt);virtual;
GetPos vrací aktuální pozici ve streamu v bytech od začátku streamu.
GetSize vrací aktuální délku streamu v bytech
Seek nastaví aktuální pozici (místo, na kterém se bude provádět přítí čtení nebo zápis) na pos bytů od začátku.
Tyto metody jsou definovány jako abstraktní, pro konkrétní realizaxi streamu musí být přepsány. Způsob realizace stramu toti závisí na fyzickém způsobu realizace streamu.
Příprava objektů pro pouití ve streamu
Jestlie chceme uloit nějaký objekt do streamu, musí tento objekt splňovat určité poadavky, take definujeme-li nový typ objektů, musíme splnění těchto poadavků zajistit.
Metody Load a Store
U kadého objektu musíme přesně určit jak se má na stream ukládat a jak se má ze streamu čist. Toto lze učinit pomocí metod Load a Store, kdy při odvození nového objektu stačí k metodám předka čtení a zápis do nově přidaných poloek.
Schematicky lze tento postup zapsat takto:
type naslednik=object(predek) nova_polozka:jeji_typ; constructor Load(var S:Tstream); procedure strore(var S:TStream); end; constructor nasledovnik.Load(var S:TStream); begin predek.Load(S); S.Read(nova_polozka,sizeOf(jeji_typ)); end; Procedure naslednik.store(var S:Stream); begin Predek.Store(S); S.Write(nova_polozka,sizeOf(Jeji_typ)); end;V kadé metodě je nejprve třeba vyvolat metodu předka, která zařídí uloení/načtení jeho poloek. Poté pomocí metod Read, Write provedeme uloení/načtení poloek, které jsme do objektu přidali.
Metody Load, Store obvykle nepouíváme přímo, ale jsou volány metodami Put, Get
Registrace objektu pro pouití ve streamu
Je třeba vyplnit registrační záznam objektu a předat jej proceduře RegisterType
Regisrační záznam:
Type TStreamRec= record objType:word; VmtLink:word; Load:pointer; Store:pointer; Next:word; End;Názvy záznamů začínají písmenem R.
ObjType - číselný identifikátor k rozliení objektů ve streamu. Tato čísla přiděluje programátor, moné hodnoty jsou 100..65535. Musí být zajitěna jejich bezkonfliknost a jednoznačnost.
VmtLink - zajiuje napojení na tabulku virtuálních metod VMT, její inicializace se provádí:
RMyObject.VmtLink:=Ofs(TypeOf(TMyObject)^);Load, Store - ukazatele na metody stejného jména daného objektu, jejich inicializace:
RMyObject:=@TmyObject.Load; RmyObject:=@TmyObject.Store;Next - ukazatel na dalí v řetězci registračních záznamů, plněno automaticky v proceduře REGISTERTYPE.
Po naplnění poloek registračního záznamu je nutné tento záznam předat proceduře RegisterType. Toto předání je nutné provést před prvním pokusem uloit nebo načíst objekt ze streamu. Např.:
type TMyApplication = object(TApplication) constructor Init; end; Constructor TMyApplication.Init; begin TApplication.Init; RegisterType(RMyObject); End;
Zpracování chyb při práci se streamy
Třída TStream definuje metodu Error, která je vyvolána pokadé, kdy dojde při práci se streamem k chybě. Tato metoda nastavuje pooku Status třídy TStream na jednu z následujících hodnot.
stOK - bez chyby
stError - chyba přístupu
stInitError - neúspěná inicializace
stReadError - pokus o čtení za koncem streamu
stWriteError - do streamu nelze zapisovat (málo paměti)
stGetError - pokus o Get nezaregistrovaného objektu
stPutError - pokus i Put nezaregistrovaného objektu
položka ErrorInfo pak obsahuje číselný identifikátor objektu v případě, e status má hodnotu stGetError. Je-li status stPutError pak, ErrorInfo obsahuje ofset tabulky VMT daného objektu.