home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / biz / swood / FW_AllInOne.lha / Makros / Layouter < prev    next >
Text File  |  1998-01-18  |  5KB  |  203 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. SIGNAL ON syntax
  16. If open('Hilfe',"S:FW_Paket.prefs","R") then;do
  17. HilfeVerz=readln('Hilfe')
  18. Call Close('Hilfe')
  19. End
  20. else HilfeVerz=''
  21. If FW='' then;do
  22. Address='FinalW'
  23. Options results
  24. STATUS PORTNAME
  25. FW=result
  26. End
  27. address(FW)
  28. GetDocItemPrefs Decimal
  29. Punkt=Result
  30. If Punkt="Comma" then DocItemPrefs Decimal Period
  31. GetSectionSetup TOP BOTTOM INSIDE OUTSIDE
  32. Parse Var result Oben Unten Links Rechts
  33. Call Anzeige
  34. apptags='TRCA_Name     Layouter',
  35. 'TRCA_LongName "Layouter"',
  36. 'TRCA_Info     "für FinalWriter"',
  37. 'TRCA_Version  "1.1 registered"',
  38. 'TRCA_Release  "3"',
  39. 'TRCA_Date     "09.01.98"',
  40. 'TAG_END'
  41. windowtags=WindowID(1),
  42. WindowPosition('TRWP_CENTERDISPLAY'),
  43. WindowFlags('TRWF_NOMINTEXTWIDTH|TRWF_NOSIZEGADGET'),
  44. PubScreenName('FinalWriterPubScreen'),
  45. WindowTitle("Layouter"),
  46. BeginMenu('Projekt'),
  47. MenuItem('Q_Verlassen...',104),
  48. BeginMenu('?'),
  49. MenuItem('?_Info',101),
  50. MenuItem('H_Hilfe',103),
  51. 'HorizGroup SpaceS VertGroupAC SpaceS',
  52. NamedFrameBox('Seitengröße'),
  53. 'VertGroupAC',
  54. 'SpaceS',
  55. 'HorizGroup',
  56. 'SpaceS',
  57. 'VertGroupAC',
  58. TextH(Anzei) 'TRAT_ID 9',
  59. 'SpaceS',
  60. Button('_ändern',1),
  61. 'EndGroup',
  62. 'SpaceS',
  63. 'EndGroup',
  64. 'SpaceS',
  65. 'EndGroup',
  66. 'SpaceS',
  67. NamedFrameBox('Editierbereich'),
  68. 'HorizGroup',
  69. 'SpaceS',
  70. 'VertGroupAC',
  71. 'SpaceS',
  72. CenteredTextID('_Oben ',2),
  73. 'SpaceS',
  74. StringGadget(Oben,2) 'TRAT_MINWIDTH 4',
  75. 'Space',
  76. CenteredTextID('_Links ',3),
  77. 'SpaceS',
  78. StringGadget(Links,3) 'TRAT_MINWIDTH 4',
  79. 'SpaceS',
  80. 'EndGroup',
  81. 'Space',
  82. 'VertGroupAC',
  83. 'SpaceS',
  84. CenteredTextID('_Unten',4),
  85. 'SpaceS',
  86. StringGadget(Unten,4) 'TRAT_MINWIDTH 4',
  87. 'Space',
  88. CenteredTextID('_Rechts',5),
  89. 'SpaceS',
  90. StringGadget(Rechts,5) 'TRAT_MINWIDTH 4',
  91. 'SpaceS',
  92. 'EndGroup',
  93. 'SpaceS',
  94. 'EndGroup',
  95. 'Space',
  96. 'HorizGroupEAC',
  97. Button(' _Anwenden ',7),
  98. 'SpaceS',
  99. Button('Ab_bruch',8),
  100. 'EndGroup',
  101. 'SpaceS EndGroup SpaceS EndGroup',
  102. 'EndProject'
  103. app=TR_CREATEAPP('TRCA_Name Layouter')
  104. IF app ~='00000000'x THEN;DO
  105. window1=TR_OPENPROJECT(app,windowtags)
  106. IF window1 ~='00000000'x THEN;DO
  107. ende=0
  108. DO WHILE ende ~=1
  109. CALL TR_WAIT(app,'')
  110. DO WHILE TR_HANDLEMSG(app,'event')
  111. IF event.trm_class='TRMS_CLOSEWINDOW' THEN ende=1
  112. IF event.trm_class='TRMS_ACTION' THEN;DO
  113. SELECT
  114. WHEN event.trm_id=1 THEN;do
  115. Call programm_auto
  116. Call Anzeige
  117. Call TR_SETATTRIBUTE(window1,9,'TRAT_TEXT',Anzei)
  118. End
  119. WHEN event.trm_id=7 THEN Call programm_man
  120. WHEN event.trm_id=8 THEN ende=1
  121. WHEN event.trm_id=101 THEN Call rtezrequest("Aus dem Makro-Paket:"||R||R||"Layouter V1.1 für FW"||R||"© 1998 Heiko Schröder","Danke für Ihre Registrierung.","Info","rt_pubscrname=FinalWriterPubScreen")
  122. WHEN event.trm_id=103 THEN address command "run Multiview PUBSCREEN=FinalWriterPubScreen "||d2c(34)||HilfeVerz||"Layouter.guide"||d2c(34)
  123. WHEN event.trm_id=104 THEN ende=1
  124. OTHERWISE NOP
  125. END
  126. END
  127. END
  128. END
  129. CALL TR_CLOSEPROJECT(window1)
  130. END
  131. CALL TR_DELETEAPP(app)
  132. END
  133. ELSE
  134. CALL quit('Kann das Fenster nicht öffnen',10)
  135. If Punkt="Comma" then DocItemPrefs DECIMAL Comma
  136. Exit
  137. programm_auto:
  138. address(FW)
  139. GetPageSetup ORIENT
  140. OldFormat=result
  141. PageSetup PROMPT
  142. If RC~=10 then;do
  143. x=rtezrequest("Wie soll der Editierbereich bestimmt werden?","_automatisch|_manuell","Abfrage","rt_pubscrname=FinalWriterPubScreen")
  144. if x=1 then;do
  145. GetPageSetup ORIENT
  146. Format=result
  147. GetSectionSetup TOP BOTTOM INSIDE OUTSIDE
  148. Parse Var result Oben Unten Links Rechts
  149. if OldFormat="Wide" then
  150. if Format="Tall" then
  151. SectionSetup TOP Links BOTTOM Rechts INSIDE Unten OUTSIDE Oben
  152. if OldFormat="Tall" then
  153. if Format="Wide" then
  154. SectionSetup TOP Rechts BOTTOM Links INSIDE Oben OUTSIDE Unten
  155. end
  156. end
  157. Redraw
  158. return
  159. programm_man:
  160. Oben=TR_GETATTRIBUTE(window1,2,'TROB_String')
  161. Unten=TR_GETATTRIBUTE(window1,4,'TROB_String')
  162. Links=TR_GETATTRIBUTE(window1,3,'TROB_String')
  163. Rechts=TR_GETATTRIBUTE(window1,5,'TROB_String')
  164. If (Datatype(Oben,'N')=0|Datatype(Unten,'N')=0|Datatype(Links,'N')=0|Datatype(Rechts,'N')=0) then;do
  165. x=rtezrequest("Bitte  numerische Angabe mit (.)","_Achso","Eingabe-Fehler","rt_pubscrname=FinalWriterPubScreen")
  166. return
  167. end
  168. address(FW)
  169. GetPageSetup ORIENT
  170. Format=result
  171. if Format="Tall" then
  172. SectionSetup TOP Oben BOTTOM Unten INSIDE Links OUTSIDE Rechts
  173. else
  174. SectionSetup TOP Rechts BOTTOM Links INSIDE Oben OUTSIDE Unten
  175. Redraw
  176. return
  177. Anzeige:
  178. address(FW)
  179. GetPageSetup PageType Width Height Orient
  180. Parse Var result Din DokBreite DokHoehe Format
  181. If Format="Tall" then AusFormat="hoch"
  182. else AusFormat="quer"
  183. Anzei=Din AusFormat" ("DokBreite"x"DokHoehe") cm"
  184. Return
  185. syntax:
  186. CALL quit('Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||R||SOURCELINE(sigl)||R||'Bitte informieren Sie den Autor...',20)
  187. quit:
  188. PARSE ARG message,rcode
  189. IF app ~='00000000'x THEN;DO
  190. IF message ~='' THEN
  191. ret=rtezrequest(message,"_Okay","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
  192. CALL TR_DELETEAPP(app)
  193. END
  194. ELSE;DO
  195. IF message ~='' THEN;DO
  196. SAY message
  197. SAY
  198. OPTIONS PROMPT 'Bitte <RETURN> drücken'
  199. PULL taste
  200. END
  201. END
  202. address command "flushtrx all"
  203. EXIT(rcode)