/* ===================================================================== */
/* Ajusta la altura/anchura en grficos Pal para imprimir correctamente. */
/* FinalWriter macro escrito por Jos Manuel Herrero de Aldana.          */
/*                           Spain              jmherreros@cop.es        */
/* $VER: Pal_Adjust 2.0 esp. (26/1/97)                                   */
/* ===================================================================== */

Options Results


ShowMessage 1 0 '"Seleccione el tipo de transformacin, por favor" "" "" "   Cancelar    " "   Ms corto   " "   Ms ancho   "'
respuesta = Result



   GetDocItemPrefs Decimal
   Decimales = Result
   DocItemPrefs Decimal period


I = 0
X = 0

FirstObject Selected

If ( Result = 0 ) Then Call Fin


Do While Result ~= 0; I = I + 1
   Objects.I = Result
   NextObject Objects.I Selected
   End

Do While X < I; X = X + 1
   GetObjectType Objects.X
   ObjType = Result
   GetObjectCoords Objects.X
   Coords = Result
   Parse Var Coords Page x1 y1 x2 y2
   If ObjType = 1 Then
    Do
     If respuesta == 1 Then Call Fin   
     If respuesta == 2 Then y2=y2*0.9
	 If respuesta == 3 Then x2=x2*1.1   
     SetObjectCoords Objects.X Page x1 y1 x2 y2
    End
End

X = 0
Do While X < I; X = X + 1
   SelectObject Objects.X Multiple
   End

Redraw

Call Fin

Proc Fin:   
DocItemPrefs Decimal Decimales
Exit

