LineRel

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Nakreslí čáru do bodu, který je dán relativní vzdáleností z aktuální pozice (CP).

Deklarace
procedure LineRel(Dx, Dy: Integer);
Režim
Reálný, Chráněný
Poznámky
Nakreslí úsečku z pozice CP (x0, y0) do bodu (x1, y1), kde
x1 = x0 + Dx
y1 = y0 + Dy
Viz také
Line
LineTo
MoveRel
MoveTo
SetLineStyle
SetWriteMode


Vzorový příklad

{Linerel.PAS}
{Vzorový příklad pro proceduru LineRel.}
uses Graph;
var Gd, Gm: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  MoveTo(1, 2);
  LineRel(100, 100);   { Kreslit do bodu (101,102) }
  Readln;
  CloseGraph;
end.