GetArcCoords
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
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
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.