Práca s farbami

• už sme sa zoznámili s niekoľkými situáciami, keď sme zadávali nejakú farbu (farba pera, farba výplne, farba obrysu) - doteraz sme používali preddefinované konštanty, napr. clBlack, clRed, clBlue a pod.

• vo Windows sa farba určuje trojicou čísel, ktoré vyjadrujú v akom množstve treba "namiešať" tri základné farby červenú, zelenú a modrú, aby vznikla žiadaná farba - množstvá týchto zložiek sa zadávajú celým číslom od 0 do 255

• napr. ak namiešame 0 červenej, 0 zelenej a 255 modrej, vznikne jasná modrá farba;

• 0 červenej, 0 zelenej a 0 modrej je čierna; všetky zložky po 255 znamená bielu;

• 255 červenej, 255 zelenej a 0 modrej vyrobí žltú a pod.

• vo Windows sa tieto zložky nazývajú Red Green Blue, teda RGB a v Delphi môžeme farby definovať aj pomocou funkcie RGB, ktorá dostáva 3 čísla popisujúce zastúpenie zložiek

Náhodnosť

random – štandardná funkcia, ktorá vráti náhodnú hodnotu z intervalu <0,1)

napr.: random(50) – vráti náhodnú hodnotu (celé číslo) z 0 .. 49

randomize – zabezpečuje, že program sa nespráva po spustení stále rovnako

• vo všetkých úlohách predpokladáme, že v globálnej premennej g je priradený "Canvas" grafickej plochy (Image1), t.j. platí g:=Image1.Canvas;

• ďalej predpokladáme, že na formulári je tlačidlo Button1 a väčšina úloh je obsahom procedúry TForm1.Button1Click

Úloha 1: výpis textov na náhodné pozície

na každé stlačenie tlačidla sa napíše na náhodnej pozícii modré slovo Pascal a červené Delphi

riešenie:
begin  
  randomize; 
  g.Font.Heigh:=20; 
  g.Font.Color:=clRed; 
  g.TextOut(random(300),random(250),’Delphi’); 
  g.Font.Color:=clBlue; 
  g.TextOut(random(300),random(250),’Pascal’); 
end;
  

poznámka: bez randomize sa program správa stále rovnako, t.j. slová sa vždy po spustení programu vypisujú na rovnakých pozíciách

Úloha 2: sústredné kruhy

nakresliť 10 sústredných kruhov s polomermi 10, 20, 30, ... 100, každý kruh bude vyfarbený náhodnou farbou

riešenie:
var
  i:integer;
begin
  for i:=10 downto 1 do begin
    g.Brush.Color:=RGB(random(256),random(256),random(256));
    g.Ellipse(250-20*i,250-20*i,250+20*i,250+20*i); 
  end;
end;

návrat