LineTo

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

Nakreslí čáru z aktuální pozice do bodu (X, Y).

Deklarace
procedure LineTo(X, Y: Integer);
Režim
Reálný, Chráněný
Poznámky
Nakreslí čáru ve stylu a tloušťce, definovaných procedurou SetLineStyle, a použije barvu, nastavenou procedurou SetColor. Procedurou SetWriteMode můžete určit, zda se čára na obrazovku zkopíruje nebo nakreslí operací XOR.
Pamatujte, že
MoveTo(100, 100);
LineTo(200, 200);
je ekvivalentní s
Line(100, 100, 200, 200);
První metoda je pomalejší a potřebuje více kódu. LineTo používejte jen tehdy, je-li ukazatel pozice (CP) na jednom z konců budoucí čáry. LineRel použijte ke kreslení čar pomocí relativní vzdálenosti od CP. Druhá metoda nemění hodnotu CP.
LineTo přemístí ukazatel pozice do (X, Y).
Omezení
Je nutno být v grafickém režimu.
Viz také
Line
LineRel
MoveRel
MoveTo
SetLineStyle
SetWriteMode


Vzorový příklad

{LineTo.PAS}
{Vzorový příklad pro proceduru LineTo.}
uses Crt, Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Randomize;
  repeat
    LineTo(Random(200), Random(200));
  until KeyPressed;
  Readln;
  CloseGraph;
end.