/* Optimized with RexxOpt 1.7 */

if ~show('L',"rexxreqtools.library") then;do
if ~addlib('rexxreqtools.library',0,-30,0) then;do
'ShowMessage 1 1 "Fehler...." "Benötige RexxReqTools.library" " A B B R U C H ! !" "Okay" "" ""'
exit
end
end
IF ~SHOW('LIBRARIES','tritonrexx.library') THEN;DO
IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN;DO
'ShowMessage 2 1 "Fehler...." "Benötige TritonRexx.library" "" "Abbruch" "" ""'
Call BREAK_C
END
END
R='0A'X
Address='FinalW'
Options results
STATUS PORTNAME
FW=result
address=FW
SIGNAL ON break_c
SIGNAL ON syntax
apptags='TRCA_Name     MoreTextblock',
'TRCA_LongName "MoreTextBlock"',
'TRCA_Info     "Makro für Finalwriter"',
'TRCA_Version  "1.0 registered"',
'TRCA_Release  "1"',
'TRCA_Date     "06.03.97"',
'TAG_END'
windowtags=WindowID(1),
WindowPosition('TRWP_CENTERDISPLAY'),
WindowFlags('TRWF_NOZIPGADGET|TRWF_NOMINTEXTWIDTH|TRWF_ACTIVATESTRGAD'),
PubScreenName('FinalWriterPubScreen'),
WindowTitle('MoreTextBlock V1.0r'),
'HorizGroupAC',
'Space',
'VertGroupA',
'Space',
NamedFrameBox('Texteingabe'),
'HorizGroupAC Space VertGroupA Space',
StringGadget('',10) 'TRAT_VALUE 256',
'Space EndGroup Space EndGroup',
'SpaceB',
'LineArray',
'BeginLine',
Button('_Okay',2),
'SpaceS',
Button('_Ende',3),
'EndLine',
'EndArray',
'Space',
'EndGroup',
'Space',
'EndGroup',
'EndProject'
app=TR_CREATEAPP('TRCA_Name MTB')
IF app ~='00000000'x THEN;DO
ende=0
window=TR_OPENPROJECT(app,windowtags)
IF window ~='00000000'x THEN;DO
DO WHILE ende ~=1
CALL TR_WAIT(app,'')
DO WHILE TR_HANDLEMSG(app,'event')
IF event.trm_class='TRMS_NEWVALUE' THEN;DO
SELECT
WHEN event.trm_id=10 THEN;do
String=TR_GETATTRIBUTE(window,10,'TROB_String')
call program
End
OTHERWISE
NOP
END
END
IF event.trm_class='TRMS_ACTION' THEN;DO
SELECT
WHEN event.trm_id=2 THEN;Do
String=TR_GETATTRIBUTE(window,10,'TROB_String')
call program
END
WHEN event.trm_id=3 THEN;Do
ende=1
End
OTHERWISE
NOP
END
END
END
IF event.trm_class='TRMS_CLOSEWINDOW' THEN;DO
ende=1
END
END
CALL TR_CLOSEPROJECT(window)
END
CALL TR_DELETEAPP(app)
END
Exit
program:
TextBlockTypePrefs
ret=rtezrequest("Gehen Sie in das Menü GRAFIK | VOREINSTELLER."R"Ändern Sie die Optionen des Textblockes nach Ihren Wünschen"R"und verlassen Sie das Fenster mit ANWENDEN.","_Getan","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
GraphicTool
GetDocItemPrefs Decimal
Punkt=Result
If Punkt="Comma" then DocItemPrefs Decimal Period
STATUS Page
Seite=result
Status ScrollPos
Parse var result posx posy
xx=posx+2;a=0
Do while 1
zahl=37
If String='' then leave
text=Left(String,zahl)
if (pos(d2c(32),Text,zahl-1)=37|pos(d2c(32),String,zahl)=38) then;do
zahl=zahl-2
text=Left(String,zahl)
end
String=DelStr(String,1,zahl)
DrawTextBlock Seite posx posy+2 Text
CurrentObject
a=a+1;Object.0=a
Object.a=result
GetObjectCoords Object.a
Parse var result Seite left top weight height
SetObjectCoords Object.a Seite xx top weight height
xx=xx+weight
Redraw
End
SelectObject Object.1
Do i=Object.1 to Object.a
SelectObject i MULTIPLE
End
Group
If Punkt="Comma" then DocItemPrefs DECIMAL Comma
GraphicTool
return
break_c:
syntax:
CALL quit('Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||R||SOURCELINE(sigl)||R||'Bitte informieren Sie den Autor...',20)
quit:
PARSE ARG message,rcode
IF app ~='00000000'x THEN;DO
IF message ~='' THEN
ret=rtezrequest(message,"_Okay","ACHTUNG!","rt_pubscrname=FinalWriterPubScreen")
CALL TR_DELETEAPP(app)
END
ELSE;DO
IF message ~='' THEN;DO
SAY message
SAY
OPTIONS PROMPT 'Bitte <RETURN> drücken'
PULL taste
END
END
If Punkt="Comma" then DocItemPrefs DECIMAL Comma
EXIT(rcode)