Cvičení 1

  1. Na příkladu ukažte použití direktivy reintroduce.
  2. Na příkladu ukažte použití direktivy virtual.
  3. Na příkladu ukažte použití direktivy dynamic.
  4. Na příkladu ukažte použití direktivy abstract.
  5. Na příkladu ukažte použití direktivy overload.
  6. Vytvořte novou komponentu, která se od TStringGrid bude lišit tím, že každému políčku je podle nějaké zákonitosti nastavena jiná barva pozadí a barva písma. Komponentu přidejte k paletě komponent Delphi. Řešení: Začneme v menu File-->New-->Component. Zadáme Ancestor=TStringGrid, ClassName=MujGrid, OK. V sekci type přidáme deklaraci privátní metody MojeDrawCell a předeklaraci public konstruktoru Create (typ a parametry konstruktoru najdeme v Helpu nebo v Browseru). Pak stiskneme Ctrl+Shift+C, čímž se vytvoří skelet pro obě procedury. Doplním program do těl obou procedur. Poté komponentu uložím. Přes menu Component-->Install Component komponentu přeložím a nainstaluji. (Poznámka: V praxi je běžné, že během ladění nějakého programu potřebujeme upravit už existující komponenty. V takovém případě je výhodné zdroje komponenty připojit k projektu, práci to velmi usnadní.) V paletě Smples přibyla komponenta MujGrid, kterou můžeme normálně používat ve svých programech. Kdo má dostatek trpělivosti, tem před zakompilováním komponenty do palety ještě upraví její ikonku pomocí menu Tools-Image Editor (New-DCR, na slovo Contents klepnout pravým tlačítkem, vybrat New-Icon. Soubor MUJGRID.DCU -velkými písmeny- nutno umístit do adresáře ve kterém je unita.) Výsledek této úlohy je zde.