Doteraz sme do grafickej plochy (Image-u) iba kresili, ukážeme si však, že doň vieme aj vypisovať text. Na to používame príkaz TextOut:

Image1.Canvas.TextOut(10,20,’Milujem informatiku!‘);

Prvé dva parametre v príkaze TextOut hovoria o tom, na akej pozícii sa daný text vypíše, v tomto prípade to bude na x=10 a y=20. Tretí parameter hovorí o tom, čo budeme vypisovať, pričom daný text musíme umiestniť do apostrofov (podobne, ako sme to robili napr. v príkaze Button1.Caption:=’nazov‘;).

Tým to ale nekončí. Takýto jednoduchý príkaz vypíše čierny text štandardnej veľkosti a defaultného fontu. Aj tieto atribúty však vieme meniť, a to pomocou príkazov:

Image1.Canvas.Font.Height := 36; => zmení veľkosť fontu

Image1.Canvas.Font.Name := ‚Comic Sans MS‘; => zmení typ fontu

Image1.Canvas.Font.Color := clRed; => zmení farbu fontu

Každý takýto text sa vypisuje do akéhosi obdĺžnika, pričom farba tohto obdĺžnika je totožná s momentálne nastavenou farbou štetca (Brush).

Úlohy:

1. Vypíšte nejaké slovo alebo krátku vetu (napr. SOM SUPER) veľkými písmenami tak, aby každé bolo inej farby. Nastavte nejaké väčšie písmo.

2. Ak nejaký text napíšeme najprv svetlo šedou farbou (clLtGray) a potom čiernou ale trochu ho posunieme o niekoľko bodov, napr. smerom nadol a vľavo, získame dojem tieňa. Vyskúšajte tento efekt s nejakým väčším zaujímavým písmom. Na to, aby ste sa vyhli bielemu obdĺžniku v pozadí, nastavte štetcu takúto vlastnosť: Image1.Canvas.Brush.Style:=bsClear;.

3. Presne do stredov strán grafickej plochy napíšte slová ‚sever‘, ‚východ‘, ‚juh‘ a ‚západ‘.

Domáca úloha, deadline pre:

– 2A1, 2A2, 2B2 12.5.2016 o 22:22

4. Máme tu majstrovstvá sveta v ľadovom hokeji, a tak je vašou úlohou naprogramovať nejaké vami vymyslené logo pre túto udalosť. Podmienky sú takéto:

– musí pozostávať aspoň z troch rôznych farieb (miešaním farieb sa môžete inšpirovať napríklad tu)

– musí obsahovať najmenej jednu elipsu (alebo kružnicu), jeden rectangle, jednu čiaru a jeden nápis

Úloha nie je ťažká, preto uvítam, ak spravíte niečo pekné, zmysluplné, oku lahodiace… 🙂

A nezabudnite, že za naozaj parádne nápady je v ponuke badge za kreativitu! 🙂