1 578
editací
Změny
Created page with "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ám..."
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.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;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.
[[Category:Graph]]
[[Category:Procedúry Graph]]