8. Ud∞lßnφ komponenty dostupnΘ p°i nßvrhu

Registrovanou komponentu instalujeme na Paletu komponent a potom ji m∙╛eme vybφrat, umis╗ovat ji na formulß° a manipulovat s nφ p°i nßvrhu. Ud∞lßnφ na╣φ komponenty dostupnΘ b∞hem nßvrhu vy╛aduje n∞kolik krok∙:

• Komponentu registrujeme
• P°idßme bitovou mapu zobrazenou na palet∞
• Poskytneme pro na╣i komponentu nßpov∞du
• P°idßme editory vlastnostφ
• P°idßme editor komponenty
• P°elo╛φme komponentu do balφΦku

Registrace komponenty

• Deklarovßnφ funkce Register
• Zßpis funkce Register

Deklarovßnφ funkce Register

Zßpis funkce Register

P°idßnφ bitovΘ mapy zobrazenΘ na palet∞

Poskytnutφ nßpov∞dy pro na╣i komponentu

1. Ka╛dß komponenta musφ mφt prvek nßpov∞dy. Prvek nßpov∞dy komponenty obsahuje struΦn² popis komponenty. Prvek nßpov∞dy komponenty musφ obsahovat vazby na sekundßrnφ okna, kterΘ popisujφ pozici komponenty v objektovΘ hierarchii a kterΘ obsahujφ seznamy v╣ech vlastnostφ, udßlostφ a metod dostupn²ch pro u╛ivatele komponenty. V²vojß° aplikace zp°φstup≥uje tento prvek nßpov∞dy v²b∞rem komponenty na formulß°i a stiskem klßvesy F1. Prvek nßpov∞dy musφ mφt poznßmku pod Φarou # s unikßtnφ hodnotou pro prvek. Poznßmka pod Φarou # jednoznaΦn∞ identifikuje ka╛d² prvek v nßpov∞dnΘm systΘmu.

Prvek nßpov∞dy komponenty musφ mφt poznßmku pod Φarou "K" pro vyhledßvßnφ klφΦov²ch slov, kterß obsahuje jmΘno t°φdy komponenty. Nap°. poznßmka pod Φarou klφΦovΘho slova pro komponentu TMemo je "TMemo". Prvek nßpov∞dy komponenty musφ mφt takΘ poznßmku pod Φarou "$", kterß poskytuje titulek prvku. Titulek se zobrazuje v dialogovΘm okn∞ Topics Found, dialogovΘm okn∞ Bookmark a okn∞ History.
2. Ka╛dß komponenta musφ mφt sekundßrnφ navigaΦnφ prvky nßpov∞dy. Jednß se o:
• Prvek hierarchie s vazbami na ka╛dΘho p°edka komponenty v hierarchii komponent.
• Seznam v╣ech vlastnostφ dostupn²ch v komponent∞, s vazbami na prvky popisujφcφ tyto vlastnosti.
• Seznam v╣ech udßlostφ dostupn²ch v komponent∞, s vazbami na prvky popisujφcφ tyto udßlosti.
• Seznam metod dostupn²ch v komponent∞, s vazbami na prvky popisujφcφ tyto metody.
Vazby na objekty t°φd, vlastnostφ, metod nebo udßlostφ v nßpov∞dnΘm systΘmu C++ Builderu mohou b²t provedeny pomocφ Alink. Kdy╛ se odkazujeme na objekt t°φdy, pak Alink pou╛φvß jmΘno objektu t°φdy, nßsledovanΘ podtr╛enφm a °et∞zcem "object". Nap°. k vazb∞ na objekt TCustomPanel pou╛ijeme:
!AL(TCustomPanel_object,1)
U vazeb na vlastnost, metodu nebo udßlost, p°edchßzφ jmΘno vlastnosti, metody nebo udßlosti jmΘno t°φdy, kterß ji implementuje a podtr╛enφ. Nap°. k vazb∞ na vlastnost Text, kterß je implementovanß TControl pou╛ijeme:
!AL(TControl_Text,1)
Abychom vid∞li p°φklad sekundßrnφch navigaΦnφch prvk∙, zobrazφme prvek nßpov∞dy n∞jakΘ komponenty a klikneme na vazbu popsanou ?hierarchy?, ?properties?, ?methods? nebo ?events?.
3. Ka╛dß vlastnost, udßlost a metoda, kterß je deklarovßna v komponent∞ musφ mφt nßpov∞dn² prvek. Prvek nßpov∞dy vlastnosti, udßlosti nebo metody zobrazuje deklaraci prvku a popisuje jeho pou╛φvßnφ. V²vojß° aplikace vidφ tyto prvky po jejich v²b∞ru v Inspektoru objekt∙ a stisku F1 nebo umφst∞nφm textovΘho kurzoru v Editoru k≤du na jmΘno prvku a stiskem F1.

Prvek nßpov∞dy pro vlastnost, udßlost nebo metodu musφ obsahovat poznßmku pod Φarou "K" se jmΘnem vlastnosti, metody nebo udßlosti a toto jmΘno v kombinaci se jmΘnem komponenty. Tedy vlastnost TextTControl mß nßsledujφcφ "K" poznßmku pod Φarou:
Text,TControl;TControl,Text;Text,
Prvek nßpov∞dy vlastnosti, metody a udßlosti musφ mφt takΘ poznßmku pod Φarou "$", kterß urΦuje titulek prvku, nap°. ?TControl::Text?.
V╣echny tyto prvky nßpov∞dy musφ mφt unikßtnφ ID prvku, zadanΘ jako poznßmka pod Φarou #.

P°idßnφ editor∙ vlastnostφ

1. Odvozenφ t°φdy editoru vlastnosti
2. Editace vlastnosti jako text
3. Editace vlastnosti jako celek
4. Specifikaci atribut∙ editoru
5. Registrace editoru vlastnosti.

Odvozenφ t°φdy editoru vlastnosti

Nßsleduje deklarace t°φdy jednoduchΘho editoru vlastnosti nazvanΘho TMujEditorVlastnosti:
class PACKAGE TMujEditorVlastnosti : public TPropertyEditor
{
   typedef TPropertyEditor inherited;
public:
   virtual bool __fastcall AllEqual(void);
   virtual System::AnsiString __fastcall GetValue(void);
   virtual void __fastcall SetValue(const System::AnsiString Value);
   __fastcall virtual ~TMujEditorVlastnosti(void) { }
   __fastcall TMujEditorVlastnosti(void) : Dsgnintf::TPropertyEditor() { }
};

Editovßnφ vlastnosti jako text

Kdy╛ p°edefinujeme metodu GetValue, m∙╛eme stßle volat jednu z metod "Get" a kdy╛ p°edefinujeme metodu SetValue, m∙╛eme stßle volat jednu z metod "Set".
Metoda GetValue editoru vlastnosti vracφ °et∞zec, kter² reprezentuje souΦasnou hodnotu vlastnosti. Inspektor objekt∙ pou╛φvß tento °et∞zec ve sloupci hodnot pro vlastnost. Implicitn∞ GetValue vracφ "unknown".
K poskytnutφ °et∞zcovΘ reprezentace pro na╣i vlastnost, p°edefinujeme metodu GetValue editoru vlastnosti. Jestli╛e vlastnost nemß °et∞zcovou hodnotu, na╣e GetValue musφ p°evΘst hodnotu na jejφ °et∞zcovou reprezentaci.
Metoda SetValue editoru vlastnosti p°ebφrß °et∞zec zapsan² u╛ivatelem v Inspektoru objekt∙, p°evßdφ jej na p°φslu╣n² typ a nastavuje hodnotu vlastnosti. Jestli╛e °et∞zec nemß reprezentaci p°φslu╣nΘ hodnoty pro vlastnost, SetValue generuje v²jimku a nevhodnou hodnotu nepou╛ije. Pro p°eΦtenφ °et∞zcovΘ hodnoty z vlastnosti, p°edefinujeme metodu SetValue editoru vlastnosti. SetValue musφ p°evßd∞t °et∞zec a ov∞°ovat hodnotu p°ed volßnφm jednΘ z metod "Set".

Editovßnφ vlastnosti jako celek

Specifikovßnφ atribut∙ editoru

Vlastnost Color mß n∞kolik mo╛nostφ, jak ji u╛ivatel zadß v Inspektoru objekt∙: zßpisem, v²b∞rem ze seznamu a editorem. Metoda GetAttributes TColorProperty, tedy obsahuje n∞kolik atribut∙ ve svΘ nßvratovΘ hodnot∞:
virtual __fastcall TPropertyAttributes TColorProperty::GetAttributes()
{
  return TPropertyAttributes()<<paMultiSelect<<paDialog<<paValueList;
}

Registrace editoru vlastnosti

P°idßvßnφ editoru komponenty

• P°idßnφ prvku k mφstnφ nabφdce
• Zm∞na chovßnφ dvojitΘho kliknutφ
• P°idßnφ formßtu schrßnky
• Registrace editoru komponenty.

P°idßvßnφ prvku k mφstnφ nabφdce

Zm∞na chovßnφ dvojitΘho kliknutφ

P°φdßvßnφ formßtu schrßnky

Registrace editoru komponenty

P°eklad komponent do balφΦk∙

• Chyb∞jφcφ modifikßtor PACKAGE u funkce Register.
• Chyb∞jφcφ modifikßtor PACKAGE u t°φdy.
• Chyb∞jφcφ #pragma package(smart_init) ve zdrojovΘm k≤du C++.
• Funkce Register nenφ nalezena ve jmennΘm prostoru se stejn²m jmΘnem jako je jmΘno modulu zdrojovΘho k≤du.
• Register nenφ ·sp∞╣n∞ exportovßn. Pou╛ijte tdump na soubor BPL k prohlΘdnutφ exportovan²ch funkcφ:

tdump -ebpl mypack.bpl mypack.dmp
V sekci exports vidφme zda funkce Register (ve jmennΘm prostoru) byla exportovßna

1. Kdy╛ pracujeme s p°ipojenou databßzφ, je Φasto u╛iteΦnΘ mφt ovladaΦ spojen s n∞jakou polo╛kou databßze. Aplikace tedy m∙╛e zalo╛it propojenφ mezi ovladaΦem a n∞jakou Φßstφ databßze. C++ Builder obsahuje datovΘ ovladaΦe typ∙ editaΦnφch oken, seznam∙, kombinovan²ch oken a m°φ╛ek. M∙╛eme takΘ vytvo°it sv∙j vlastnφ datov² ovladaΦ. Je n∞kolik stup≥∙ zßvislosti dat datov²ch ovladaΦ∙. Nejjednodu╣╣φ je datovß zßvislost pouze pro Φtenφ, nebo prohlφ╛enφ dat, a umo╛n∞nφ reakce na aktußlnφ stav databßze. Slo╛it∞j╣φ je editovatelnß datovß zßvislost, kde u╛ivatel m∙╛e editovat hodnoty v databßzi manipulacφ s ovladaΦem.

Nynφ se pokusφme vytvo°it ovladaΦ urΦen² pouze pro Φtenφ, kter² je spojen s jednou polo╛kou v databßzi. OvladaΦ bude pou╛φvat kalendß° vytvo°en² v p°edchozφ kapitole.
Vytvo°enφ datovΘho ovladaΦe kalendß°e provedeme v nßsledujφcφch krocφch: vytvo°φme a registrujeme komponentu, ud∞lßme ovladaΦ urΦeny pouze pro Φtenφ, p°idßme datovΘ propojenφ a reakce na zm∞ny dat.
Pou╛ijeme obecn² postup s t∞mito specifikami: jednotku komponenty nazveme DBCal, odvodφme nov² typ komponenty nazvan² TDBCalendar od TSampleCalendar a registrujeme TDBCalendar na strßnce Samples Palety komponent.
V²sledek na╣φ prßce je (nejprve je uveden v²pis hlaviΦkovΘho souboru jednotky):
#ifndef DBCalH
#define DBCalH
#include <vcl\sysutils.hpp>
#include <vcl\controls.hpp>
#include <vcl\classes.hpp>
#include <vcl\forms.hpp>
#include <vcl\grids.hpp>
#include "CALSAMP.h"
class PACKAGE TDBCalendar : public TSampleCalendar
{
private:
protected:
public:
__published:
};
#endif
CPP soubor vypadß takto:
#pragma link "Calsamp"  // vazba na TSampleCalendar
#include <vcl\vcl.h>
#pragma hdrstop
#include "DBCal.h"
#pragma package(smart_init);
static inline TDBCalendar *ValidCtrCheck()
{
 return new TDBCalendar(NULL);
}
namespace Dbcal
{
  void __fastcall PACKAGE Register()
  {
    TComponentClass classes[1] = {__classid(TDBCalendar)};
    RegisterComponents("Samples", classes, 0);
  }
}
2. Jeliko╛ tento kalendß° bude urΦen pouze pro Φtenφ, je vhodnΘ znemo╛nit u╛ivateli provßd∞nφ zm∞n v ovladaΦi. Provedeme to ve dvou krocφch: p°idßme vlastnost ReadOnly a dovolφme pot°ebnΘ aktualizace. Kdy╛ tato vlastnost je nastavena na true, jsou v╣echny bu≥ky v ovladaΦi nevybφratelnΘ. P°idßme deklaraci vlastnosti a soukromou polo╛ku k ulo╛enφ hodnoty:

class PACKAGE TDBCalendar : public TSampleCalendar
{
private:
  bool FReadOnly;
protected:
public:
  __fastcall TDBCalendar(TComponent* Owner);
__published:
  __property bool ReadOnly={read=FReadOnly,write=FReadOnly,default=true};
};
Zapφ╣eme definici konstruktoru:
__fastcall TDBCalendar::TDBCalendar(TComponent* Owner)
 : TSampleCalendar(Owner)
{
  FReadOnly = true;
}
a p°edefinujeme metodu SelectCell k zßkazu v²b∞ru, jestli╛e ovladaΦ je pouze pro Φtenφ.
bool __fastcall TDBCalendar::SelectCell(long ACol, long ARow)
{
  if (FReadOnly) return false;
  return TSampleCalendar::SelectCell(ACol, ARow);
}
Nesmφme zapomenout p°idat deklaraci SelectCell k deklaraci t°φdy TDBCalendar. Jestli╛e nynφ p°idßme kalendß° na formulß°, zjistφme, ╛e komponenta ignoruje kliknutφ a stisky kurzorov²ch klßves.
Kalendß° pouze pro Φtenφ pou╛φvß metodu SelectCell pro v╣echny typy zm∞n, vΦetn∞ nastavovßnφ vlastnostφ Row a Col. Metoda UdpateCalendar nastavuje Row a Col poka╛dΘ, kdy╛ se zm∞nφ datum, ale jeliko╛ SelectCell nepovolφ zm∞ny, v²b∞r se nem∞nφ, i kdy╛ se zm∞nφ datum. K omezenφ tohoto absolutnφho zßkazu zm∞n, m∙╛eme p°idat internφ logickou polo╛ku ke kalendß°i a povolit zm∞ny, kdy╛ je tato polo╛ka nastavena na true:
class PACKAGE TDBCalendar : public TSampleCalendar
{
private:
bool FUpdating;
public:
  virtual void __fastcall UpdateCalendar();
};

bool __fastcall TDBCalendar::SelectCell(long ACol, long ARow)
{
  if (!FUpdating && FReadOnly) return false;
  return TSampleCalendar::SelectCell(ACol, ARow);
}
void __fastcall TDBCalendar::UpdateCalendar()
{
  FUpdating = true;
  try
  {
    TSampleCalendar::UpdateCalendar();
  }
  catch(...)
  {
    FUpdating = false;
    throw;
  }
  FUpdating = false;
}
Kalendß° stßle neumo╛≥uje u╛ivateli provßd∞t zm∞ny datumu, ale ji╛ sprßvn∞ reaguje na zm∞ny datumu provedenΘ zm∞nou vlastnostφ datumu. Dßle pot°ebujeme ke kalendß°i p°idat schopnost prohlφ╛et datumy.

3. Propojenφ mezi ovladaΦem a databßzφ je obsluhovßno objektem nazvan²m datov² spoj. C++ Builder poskytuje n∞kolik typ∙ datov²ch spoj∙. Objekt datovΘho spoje, kter² propojuje ovladaΦ s jednou polo╛kou v databßzi je TFieldDataLink. Jsou takΘ datovΘ spoje pro celΘ tabulky. Objekt datovΘho ovladaΦe vlastnφ sv∙j objekt datovΘho spoje. Tj. ovladaΦ mß odpov∞dnost za vytvo°enφ i uvoln∞nφ datovΘho spoje. K vytvo°enφ datovΘho spoje jako vlastn∞nΘho objektu provedeme t°i kroky: deklarujeme objektovou polo╛ku, deklarujeme p°φstupovΘ vlastnosti a inicializujeme datov² spoj.

Komponenta vy╛aduje polo╛ku pro ka╛d² sv∙j vlastn∞n² objekt. V na╣em p°φpad∞ kalendß° pot°ebuje polo╛ku typu TFieldDataLink pro sv∙j datov² spoj:
class PACKAGE TDBCalendar : public TSampleCalendar
{
private:
  TFieldDataLink *FDataLink;
};
D°φve ne╛ m∙╛eme p°elo╛it aplikaci, musφme vlo╛it hlaviΦkovΘ soubory DB.HPP a DBTables.HPP do hlaviΦkovΘho souboru na╣φ jednotky.
Ka╛d² datov² ovladaΦ mß vlastnost DataSource, kterß specifikuje kter² objekt datovΘho zdroje v aplikaci poskytuje data ovladaΦi. Dßle ovladaΦ, kter² p°istupuje k samostatnΘ polo╛ce vy╛aduje vlastnost DataField ke specifikaci polo╛ky datovΘho zdroje. Tyto p°φstupovΘ vlastnosti neposkytujφ p°φstup k vlastn∞nΘmu objektu sami, ale odpovφdajφcφmi vlastnostmi ve vlastn∞nΘm objektu. Deklarujeme vlastnosti DataSource a DataField a jejich implementaΦnφ metody a zapφ╣eme metody jako ?p°edßvajφcφ? metody k odpovφdajφcφm vlastnostem objektu datovΘho spoje.
class PACKAGE TDBCalendar : public TSampleCalendar
{
private:
  AnsiString __fastcall GetDataField();
  TDataSource *__fastcall GetDataSource();
  void __fastcall SetDataField(const AnsiString Value);
  void __fastcall SetDataSource(TDataSource *Value);
__published:
  __property AnsiString DataField = {read=GetDataField,
                                     write=SetDataField, nodefault};
  __property TDataSource *DataSource = {read=GetDataSource,
                                        write=SetDataSource, nodefault};
};

AnsiString __fastcall TDBCalendar::GetDataField()
{
  return FDataLink->FieldName;
}
TDataSource *__fastcall TDBCalendar::GetDataSource()
{
  return FDataLink->DataSource;
}
void __fastcall TDBCalendar::SetDataField(const AnsiString Value)
{
  FDataLink->FieldName = Value;
}
void __fastcall TDBCalendar::SetDataSource(TDataSource *Value)
{
  if(Value != NULL)
    Value->FreeNotification(this);
  FDataLink->DataSource = Value;
}
Nynφ, kdy╛ mßme vytvo°eno spojenφ mezi kalendß°em a jeho datov²m spojem, je jeden velmi d∙le╛it² krok. Musφme p°i vytvß°enφ ovladaΦe kalendß°e vytvo°it objekt datovΘho spoje a datov² spoj zru╣it p°ed zru╣enφm kalendß°e.
Datov² ovladaΦ vy╛aduje p°φstup k svΘmu datovΘmu spoji prost°ednictvφm svΘ existence, a musφme tedy vytvo°it objekt datovΘho spoje v jeho vlastnφm konstruktoru a zru╣it objekt datovΘho spoje p°ed sv²m samotn²m zru╣enφm. P°epφ╣eme tedy konstruktor a destruktor kalendß°e k vytvß°enφ a ru╣enφ objektu datovΘho spoje.
class PACKAGE TDBCalendar : public TSampleCalendar
{
public:
  __fastcall TDBCalendar(TComponent* Owner);
  __fastcall ~TDBCalendar();
};

__fastcall TDBCalendar::TDBCalendar(TComponent* Owner)
 : TSampleCalendar(Owner)
{
  FReadOnly = true;
  FDataLink = new TFieldDataLink();
  FDataLink->Control = this;
}
__fastcall TDBCalendar::~TDBCalendar()
{
  FDataLink->Control = NULL;
  FDataLink-OnUpdateData = NULL;
  delete FDataLink;
}
Nynφ mßme kompletnφ datov² spoj, ale nemßme mo╛nost °φdit, kterß data budou Φtena z p°ipojenΘ polo╛ky.

4. Nß╣ ovladaΦ mß datov² spoj a vlastnosti specifikujφcφ datov² zdroj a datovou polo╛ku a musφme je╣t∞ vytvo°it reakce na zm∞ny v datech tΘto datovΘ polo╛ky, nebo╗ se m∙╛eme p°esunout na jin² zßznam. V╣echny objekty datov²ch spoj∙ majφ udßlosti nazvanΘ OnDataChange. Kdy╛ datov² zdroj indikuje zm∞nu ve sv²ch datech, objekt datovΘho spoje volß obsluhu udßlostφ p°ipojenou k tΘto udßlosti. K aktualizaci ovladaΦe v reakci na datovΘ zm∞ny, p°ipojφme obsluhu k udßlosti OnDataChange datovΘho spoje.

V na╣em p°φpad∞, p°idßme metodu DataChange ke kalendß°i a urΦφme ji jako obsluhu pro OnDataChange datovΘho spoje v konstruktoru. V destruktoru musφme obsluhu odpojit a to p°ed zru╣enφm objektu.
class PACKAGE TDBCalendar : public TSampleCalendar
{
private:
  void __fastcall DataChange(TObject *Sender);
};

__fastcall TDBCalendar::TDBCalendar(TComponent* Owner)
 : TSampleCalendar(Owner)
{
  FReadOnly = true;
  FDataLink = new TFieldDataLink();
  FDataLink->Control = this;
  FDataLink->OnDataChange = DataChange;
}
__fastcall TDBCalendar::~TDBCalendar()
{
  FDataLink->Control = NULL;
  FDataLink-OnUpdateData = NULL;
  FDataLink->OnDataChange = NULL;
  delete FDataLink;
}
void __fastcall TDBCalendar::DataChange(TObject *Sender)
{
  if (FDataLink->Field == NULL) CalendarDate = 0;
  else CalendarDate = FDataLink->Field->AsDateTime;
}
Tφm je zobrazovacφ databßzov² ovladaΦ kalendß°e hotov.

5. Pokuste se u prßv∞ vytvo°enΘ komponenty zadat bitovou mapu zobrazenou na palet∞ a vytvo°it nßpov∞du, kterou zapojφte do nßpov∞dnΘho systΘmu C++ Builderu.

8. Ud∞lßnφ komponenty dostupnΘ p°i nßvrhu