home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / biz / swood / FW_AllInOne.lha / Makros / FontCode < prev    next >
Text File  |  1998-01-18  |  3KB  |  127 lines
  1. /* Optimized with RexxOpt 1.7 */
  2.  
  3. Parse ARG FW
  4. if ~show('L',"rexxreqtools.library") then
  5. if ~addlib('rexxreqtools.library',0,-30,0) then;do
  6. 'ShowMessage 1 1 "Fehler...." "Benötige Libs:rexxreqtools.library" " A B B R U C H ! !" "Okay" "" ""'
  7. exit
  8. end
  9. IF ~SHOW('L','tritonrexx.library') THEN
  10. IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN;DO
  11. 'ShowMessage 2 1 "Fehler...." "Benötige Libs:tritonrexx.library" "" "Abbruch" "" ""'
  12. exit
  13. END
  14. R='0A'X
  15. If FW='' then;do
  16. Address='FinalW'
  17. Options results
  18. STATUS PORTNAME
  19. FW=result
  20. End
  21. address(FW)
  22. SIGNAL ON SYNTAX
  23. If open('Hilfe',"S:FW_Paket.prefs","R") then;do
  24. HilfeVerz=readln('Hilfe')
  25. Call Close('Hilfe')
  26. End
  27. else HilfeVerz=''
  28. apptags='TRCA_Name     FontCode',
  29. 'TRCA_LongName "FontCode"',
  30. 'TRCA_Info     "Makro für Finalwriter"',
  31. 'TRCA_Version  "3.0 registered"',
  32. 'TRCA_Release  "3"',
  33. 'TRCA_Date     "04.01.98"',
  34. 'TAG_END'
  35. windowtags=WindowID(1),
  36. WindowPosition('TRWP_CENTERDISPLAY'),
  37. WindowFlags('TRWF_ACTIVATESTRGAD|TRWF_NOSIZEGADGET'),
  38. PubScreenName('FinalWriterPubScreen'),
  39. WindowTitle('FontCode'),
  40. BeginMenu('Projekt'),
  41. MenuItem('Q_Verlassen...',104),
  42. BeginMenu('?'),
  43. MenuItem('?_Info',101),
  44. MenuItem('H_Hilfe',103),
  45. 'HorizGroupAC',
  46. 'SpaceS',
  47. 'VertGroupAC',
  48. 'SpaceS',
  49. 'HorizGroupEC',
  50. CheckBox(3),
  51. 'SpaceS',
  52. StringGadget('',10),
  53. 'EndGroup',
  54. 'SpaceS',
  55. 'HorizGroupEC',
  56. Button('_Anwenden',2),
  57. 'SpaceS',
  58. Button('Ab_bruch',4),
  59. 'EndGroup',
  60. 'SpaceS',
  61. 'EndGroup',
  62. 'SpaceS',
  63. 'EndGroup',
  64. 'EndProject'
  65. app=TR_CREATEAPP('TRCA_Name FontCode')
  66. IF app ~='00000000'x THEN;DO
  67. ende=0
  68. window1=TR_OPENPROJECT(app,windowtags)
  69. IF window1 ~='00000000'x THEN;DO
  70. DO WHILE ende ~=1
  71. CALL TR_WAIT(app,'')
  72. DO WHILE TR_HANDLEMSG(app,'event')
  73. IF event.trm_class='TRMS_NEWVALUE' THEN;DO
  74. SELECT
  75. WHEN event.trm_id=3 THEN;Do
  76. Extract
  77. a=c2d(result)
  78. CALL TR_SETATTRIBUTE(window1,10,'TROB_STRING',a)
  79. CALL TR_SETATTRIBUTE(window1,3,'TRAT_VALUE',0)
  80. END
  81. WHEN event.trm_id=10 THEN Call Write
  82. OTHERWISE NOP
  83. END
  84. END
  85. IF event.trm_class='TRMS_ACTION' THEN;DO
  86. SELECT
  87. WHEN event.trm_id=2 THEN Call Write
  88. WHEN event.trm_id=4 THEN ende=1
  89. WHEN event.trm_id=101 THEN Call rtezrequest("Aus dem Makro-Paket:"||R||R||"FontCode V3.0 für FW"||R||"© 1998 Heiko Schröder","Danke für Ihre Registrierung.","Info","rt_pubscrname=FinalWriterPubScreen")
  90. WHEN event.trm_id=103 THEN address command "run Multiview PUBSCREEN=FinalWriterPubScreen "||d2c(34)||HilfeVerz||"FontCode.guide"||d2c(34)
  91. WHEN event.trm_id=104 THEN ende=1
  92. OTHERWISE NOP
  93. END
  94. END
  95. END
  96. IF event.trm_class='TRMS_CLOSEWINDOW' THEN ende=1
  97. END
  98. CALL TR_CLOSEPROJECT(window1)
  99. END
  100. CALL TR_DELETEAPP(app)
  101. END
  102. ELSE
  103. CALL quit('Kann das Fenster nicht öffnen',10)
  104. Exit
  105. Write:
  106. a=TR_GETATTRIBUTE(window1,10,'TROB_String')
  107. if a>15&a<256 then Type d2c(a)
  108. Return
  109. SYNTAX:
  110. CALL quit('Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||R||SOURCELINE(sigl)||R||'Bitte informieren Sie den Autor...',20)
  111. quit:
  112. PARSE ARG message,rcode
  113. IF app ~='00000000'x THEN;DO
  114. IF message ~='' THEN
  115. ret=rtezrequest(message,"_Okay","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  116. CALL TR_DELETEAPP(app)
  117. END
  118. ELSE;DO
  119. IF message ~='' THEN;DO
  120. SAY message
  121. SAY
  122. OPTIONS PROMPT 'Bitte <RETURN> drücken'
  123. PULL taste
  124. END
  125. END
  126. Address command "C:FlushTRX All >NIL:"
  127. EXIT(rcode)