1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "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 tlo..."
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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
