R08 03

[ Pobierz całość w formacie PDF ]
.Obiekt ten zalicza się dokategorii elementów kolekcji, wywodzi się bowiem z klasy TCollectionItem i jako taki związanyjest ze swą macierzystą kolekcją THeaderSections stanowiącą dla niego klasę-pojemnik (ang.container class) i wskazywaną przez właściwość Collection.Komponentem rodzicielskim dla tejkolekcji jest komponent reprezentujący nagłówek jako całość THeaderControl i dostępny zapomocą jej metody GetOwner(); to właśnie on zarządza żądaną listą obrazków, ukrywającą się podjego właściwością Images.Wszystko to byłoby niezwykle proste, gdyby nie pewien szkopuł: otóż metodaTHeaderSections::GetOwner() jest metodą chronioną (protected), a więc niedostępnądla bezpośredniego wywołania.Aby udostępnić ją użytkownikowi, należałoby zdefiniować klasępochodną do THeaderSections i wypromować w niej metodę GetOwner() na metodępubliczną (public).Taka klasa, nie definiująca żadnych nowych elementów, lecz jedynieudostępniająca niedostępne normalnie metody i właściwości, nosi nazwę klasy dostępowej (ang.access class) w naszym przypadku będzie ona miała następującą deklarację: 59class THeaderSectionsAccess :public THeaderSections{public:DYNAMIC Classes::TPersistent*__fastcall GetOwner(void);};Edytor dla właściwości ImageIndex obiektu THeaderSection będzie się różnił od opisywanegoprzed chwilą TMenuItemImageIndexProperty jedynie metodą GetParentImageList(),realizującą scenariusz przed chwilą opisany; na wydruku 8.26 przedstawiamy jej implementację.Wydruk 8.26.Implementacja metodyTHeaderSectionImageIndexProperty::GetParentImageListImglist::TCustomImageList* __fastcallTHeaderSectionImageIndexProperty::GetParentImageList(void){THeaderSection* Component = dynamic_cast(GetComponent(0));if(Component){THeaderSections* HeaderSections =dynamic_cast(Component->Collection);if(HeaderSections){TPersistent* Owner =static_cast(HeaderSections)->GetOwner();THeaderControl* HeaderControl = dynamic_cast(Owner);if(HeaderControl){return HeaderControl->Images;}}}return 0;}Uniwersalne podejście do edycji właściwościImageIndexPoza opisanymi przed chwilą obiektami TMenuItem i THeaderSection biblioteka VCL zawierajeszcze kilka innych klas wywodzących się z TPersistent lub TComponent i posiadającychwłaściwość ImageIndex.Ich zestawienie zawiera tabela 8.10.Tabela 8.10.Obiekty VCL posiadające właściwość ImageIndex 60Klasa komponentu GenealogiaTCoolBand �! TCollectionItem�! TPersistentTCustomAction �! TComponent�! TPersistentTHeaderSection �! TCollectionItem�! TPersistentTListColumn �! TCollectionItem�! TPersistentTMenuItem �! TComponent�! TPersistentTTabSheet �! TWinControl�! TControl�! TComponent�! TPersistentTToolButton �! TGraphicControl�! TControl�! TComponent�! TPersistentNa podstawie doświadczeń nabytych przy konstrukcji edytorów dotychczas opisanych można bypokusić się o generalne rozwiązanie edycji właściwości ImageIndex dla wszystkich obiektów5zestawionych w tabeli 8.10.Rozwiązanie to ma postać klasy bazowej, z której łatwo wyprowadzićedytor dla konkretnego obiektu.Deklarację tej klasy przedstawia wydruk 8.27.Wydruk 8.27.Deklaracja abstrakcyjnej klasy bazowej dla edytorów właściwości ImageIndexclass PACKAGE TImageIndexProperty : public TIntegerProperty{typedef TIntegerProperty inherited;private:static const int Border = 2;static const int MaxImageWidth = 64;static const int MaxImageHeight = 64;protected:virtual Imglist::TCustomImageList* __fastcall GetImageList(void) = 0;public:virtual TPropertyAttributes __fastcall GetAttributes(void);virtual void __fastcall GetValues(Classes::TGetStrProc Proc);DYNAMIC void __fastcall ListMeasureWidth(const AnsiString Value,Graphics::TCanvas* ACanvas,int& AWidth);DYNAMIC void __fastcall ListMeasureHeight(const AnsiString Value,Graphics::TCanvas* ACanvas,int& AHeight);DYNAMIC void __fastcall ListDrawValue(const AnsiString Value,Graphics::TCanvas* ACanvas,const Windows::TRect& ARect,bool ASelected);DYNAMIC void __fastcall PropDrawValue(Graphics::TCanvas* ACanvas,const Windows::TRect& ARect,bool ASelected);5Celowo mówimy tu ogólnie o obiektach , nie komponentach , rezerwując to ostatnie określenie dlaegzemplarzy klas wywodzących się z klasy TComponent przyp.tłum. 61__property Imglist::TCustomImageList* RemoteImageList ={read=GetImageList};protected:#pragma option push -w-inlinline __fastcall virtual TImageIndexProperty(const _di_IFormDesignerADesigner,int APropCount): TIntegerProperty(ADesigner,APropCount){ }#pragma option poppublic:#pragma option push -w-inlinline __fastcall virtual ~TImageIndexProperty(void){ }#pragma option pop};Jako że wymienione w tabeli 8.10 obiekty różnią się (z punktu widzenia właściwości ImageIndex)jedynie relacją do listy zawierającej żądane obrazki, jedyną metodą wymagającą przedefiniowania wklasach pochodnych jest metoda GetImageList().Przedefiniowanie to jest konieczne, bowiemmetoda ta jest metodą czysto wirtualną (ang.pure virtual), a więc klasa TImageIndexPropertyjest abstrakcyjną klasą bazową (ang.abstract base class).Jak łatwo zauważyć, tabela 8.10 wprowadza podział prezentowanych obiektów na dwie grupy: tychwywodzących się z klasy TComponent (czyli komponentów) i pozostałych, wywodzących się jedyniez klasy TPersistent.Implementację metody GetImageList() w klasie bazowej dla tej drugiejgrupy (TPersistentDerivedImageIndexProperty) przedstawia wydruk 8.28.Wydruk 8.28 [ Pobierz całość w formacie PDF ]

Tematy