Komponent Timer

Príklad
 

Navrhnime jednoduchý program, v ktorom sa bude plocha zapĺňať farebnými obdĺžnikmi náhodnej veľkosti -- napr. každú desatinu sekundy v nej pribudne nový obdĺžnik.  Ako zabezpečiť, aby sa niečo dialo pravidelne bez zásahu používateľa? Používa sa na to komponent Timer z palety System, je to neviditeľný komponent, ktorý sa pri kompilácii nezobrazí, ale môžeme sa naň v programe odvolávať-- udalosť OnTimer.

Začnime novú aplikáciu, štandardne do nej položte Image, prípadne si zadefinujte skratku na jeho Canvas.

Položte do neho spomínaný komponent, pozrite si jeho Property v Objektovom inšpektore a nastavte Interval na 10.
Vo formulári dvojkliknite naň a v editovacom okne Unitu zadefinujte príslušné správanie -- vykresľovanie vyplnených obdĺžnikov.

Ako vygenerovať náhodnú farbu? -- pomocou funkcie RGB(cervena,zelena,modra) a Random môžeme vytvoriť náhodnú farbu zmiešaním týchto troch základných farieb.

Ako nakresliť vyplnený obdĺžnik? -- použite napr. grafický príkazy Canvasu -- FillRect(Rect(X1,Y1,X2,Y2))