Niekoľko grafických príkazov

Niektoré grafické procedúry
Nastavenie farby a štýlu pera
Nastavenie farby, veľkosti a typu písma
Ďalšie pomocné funkcie

var g:TCanvas;

g:=Image1.Canvas;

   g.MoveTo(x,y);
      // presun pera na súradnice [x y]
   g.LineTo(x,y);
      // čiara z doterajších súradníc na súradnice [x y]
   g.Rectangle(x1,y1,x2,y2);
      // pravouholník s ľavým horným a pravým dolným rohom
   g.Ellipse(x1,y1,x2,y2);
      // elipsa, vpísaná do pravouhoníka s ľavým horným a pravým dolným rohom
   g.Polyline(pole-bodov);
   g.Polygon(pole-bodov);
   g.FloodFill(x,y,g.Pixel[x,y],fsSurface);

   g.TextOut(x,y,'nejaký-text');
      // výpis textu na súradnice [x y]

   g.Pen.Color:=farba;
     // nastavenie farby pera, namiesto slova farba doplňte jednu s konštánt
        clBlack, clWhite, clRed, clBlue, clYellow... -- ostatné nájdete v helpe
   g.Pen.Width:=hrúbka;
     // nastavenie hrúbky pera, namiesto slova hrúbaka použijeme ľubovonú celočíselnú konštantu
   g.Pen.Style:=štýl;   // psSolid, psDash, psDot, psDashDot, psDashDotDot, ...
     // nastavenie štýlu pera, namiesto slova štýl doplňte jednu s konštánt
        psSolid, psDash, psDot, psDashDot, psDashDotDot... -- ostatné nájdete v helpe

Nastavenie farby a štýlu výplne (obdĺžnika, elipsy, polygonu)

   g.Brush.Color:=farba;
   g.Brush.Style:=štýl;  // bsSolid, bsClear, bsHorizontal, bsVertical, ...

   g.Font.Color:=farba;
   g.Font.Height:=veľkosť;  // výška písmen
   g.Font.Name:=meno-fontu; // 'Arial','Times New Roman', ...
   g.Font.Style:=štýl;      // podmnožina [fsBold, fsItalic, fsUnderline, fsStrikeOut]

Zistiť farbu ľubovoľnej bodky v ploche:

   g.Pixel[x,y] --> vráti farbu

alebo zafarbiť ľubovoľnú bodku:

   g.Pixel[x,y]:=farba;

Veľkosť plochy môžeme zistiť:

  Image1.Width      -- šírka
  Image1.Height     -- výška
  Image1.ClientRect -- obdĺžnik popisujúci plochu

    Príklad: použitie predchádzajúcich príkazov na zmazanie celej plochy
        g.Brush.Color:=farba;
        g.Brush.Style:=bsSolid;
        g.FillRect(Image1.ClientRect);