Truco:
Teclea la funcion o procedimiento en el editor de Turbo pascal, y a contnuacion presiona Ctrl+F1 o clic derecho sobre la palabra y selecciona "Topic Search" y recibiras ayuda instantanea.
GetArcCoords, procedimiento (Graph unit)
Consigue las coordenadas de la Última
instrucción Arc.
Declaración:
procedure GetArcCoords(var ArcCoords: _ArcCoordsType_);
Observaciones:
GetArcCoords devuelve una variable del tipo
ArcCoordsType. GetArcCoords Devuelve una
variable conteniendo el centro (X, Y), la
posición de comienzo (Xstart, Ystart), y la
posición final (Xend, Yend) de la Última
instrucción Arc o Ellipse.
Estos valores son Útiles si se necesita
conectar una línea al final de una elipse.
Restricciones:
Debe usarse en modo gr fico.
Véase también:
Arc
Circle
Ellipse
PieSlice
Programa Ejemplo:
{Getarccd.PAS}
{Programa ejemplo para el procedimiento 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.
*********************************************************************
En ingles por cualquier cosa
GetArcCoords (procedure) (Graph unit)
Gets the coordinates of the last Arc command.
Declaration:
procedure GetArcCoords(var ArcCoords: _ArcCoordsType_);
Remarks:
GetArcCoords returns a variable of type
ArcCoordsType. GetArcCoords returns a variable
containing the center point (X, Y), the
starting position
(Xstart, Ystart), and the ending position (Xend, Yend) of the last Arc or
Ellipse command.
These values are useful if you need to connect
a line to the end of an ellipse.
Restrictions:
Must be in graphics mode.
See Also:
Arc
Circle
Ellipse
PieSlice
Sample Code:
{Getarccd.PAS}
{Sample code for the GetArcCoords procedure.}
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.
======================================================
Si quieres la ayuda de Turbo Pascal en Español la puedes encontrar en http://mx.geocities.com/antrahxg en la seciond e Pascal