home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 9 / CorelDraw9 Disco 1.iso / Scripts / header.csc < prev    next >
Encoding:
Text File  |  1999-03-23  |  1.7 KB  |  55 lines
  1. REM Crea una cabecera en el gui≤n actual
  2. REM Copyright 1996 Corel Corporation. Reservados todos los derechos.
  3.  
  4. REM *****************************************************************
  5. REM Este gui≤n crea una cabecera en el gui≤n actual.
  6. REM Para ejecutar este gui≤n, asφgnelo a un men· o a un bot≤n de la barra de herramientas. 
  7. REM A continuaci≤n, abra el gui≤n en el que quiere insertar la cabecera   
  8. REM y ejecute el gui≤n de cabecera.
  9. REM ******************************************************************
  10.  
  11. REM Realice una revisi≤n
  12. REM para asegurarse de que este gui≤n no se
  13. REM estß ejecutado desde el editor de guiones...
  14. WITHOBJECT "CorelScript.Automation.9"
  15.     .GoToLine 11
  16.     Match$ = .GetLineText ()
  17.     IF Match$ = "REM Perform a sanity check" THEN
  18.         MESSAGE "This script should not be run from the Corel SCRIPT Editor."
  19.         END
  20.     ENDIF
  21. END WITHOBJECT
  22.  
  23. ' Defines
  24. #define IDOK  1
  25. #define IDCANCEL  2
  26.  
  27. '  Adds Specified header info
  28. sub WriteHeader(Name as string, Desc as string)
  29.     DIM DateStamp AS DATE
  30.     DateStamp=CDAT(Fix(GetCurrDate()))
  31.     withobject "CorelScript.Automation.9"
  32.         .GotoLine 1
  33.         .AddLineBefore "REM " & Name & " for v9.0, created on " & str(DateStamp) 
  34.         .AddLineBefore "REM " & Desc
  35.     end withobject
  36. end sub
  37.  
  38. '####################################################################
  39. ' Main section
  40. DIM Name AS STRING
  41. DIM Desc AS STRING
  42. BEGIN DIALOG Header 199, 92, "Header Maker" ' Ask for header name and description
  43.     TEXT  5, 5, 105, 10, "Script Name"
  44.     TEXTBOX  5, 15, 190, 15, Name$
  45.     TEXT  5, 35, 75, 10, "Description"
  46.     TEXTBOX  5, 45, 190, 15, Desc$
  47.     OKBUTTON  50, 70, 40, 14
  48.     CANCELBUTTON  110, 70, 40, 14
  49. END DIALOG
  50. if (dialog(Header)=IDOK) then WriteHeader Name$, Desc$
  51.  
  52.  
  53.  
  54.  
  55.