GetArcCoords

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

Umožní uživateli zjistit souřadnice posledního příkazu Arc.

Deklarace
procedure GetArcCoords(var ArcCoords: ArcCoordsType);
Režim
Reálný, Chráněný
Poznámky
GetArcCoords vrací proměnnou typu ArcCoordsType. GetArcCoords vrací proměnnou obsahující střed (X, Y), počáteční pozici (Xstart, Ystart) a koncovou pozici (Xend ,Yend) posledního příkazu Arc nebo Ellipse.
Tyto hodnoty jsou užitečné, pokud chcete na konec oblouku navázat jinou čárou.
Omezení
Je nutno být v grafickém režimu.
Viz také
Arc
Circle
Ellipse
PieSlice


Vzorový příklad

{Getarccd.PAS}
{Vzorový příklad pro proceduru GetArcCoords.}
uses Graph;
var
  Gd, Gm: Integer;
  ArcCoords: ArcCoordsType;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');
  if GraphResult <> grOk then
    Halt(1);
  Arc(100, 100, 0, 270, 30);
  GetArcCoords(ArcCoords);
  with ArcCoords do
    Line(Xstart, Ystart, Xend, Yend);
  Readln;
  CloseGraph;
end.