home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
texed133.zip
/
Deutsch.zip
/
SetColor.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-02-09
|
2KB
|
51 lines
/****************************************************************************\
* *
* SetColor.cmd *
* *
* Dieses Makro setzt die Vorder- und Hintergrundfarben des Editorfensters. *
* Die Eingabe muß in Rot,Grün,Blau Werten angegeben werden. *
* Wird kein Wert eingegeben, so bleibt der bisherige Farbwert weiterhin *
* gültig. Eine Eingabe von -1 setzt den Farbwert auf den Standartwert *
* zurück. *
* *
\****************************************************************************/
/* Buttons.0 = 3
default = 1
ecs = 2
Buttons.default = 'Ändern'
Buttons.esc = 'Unverändert'
Buttons.3 = 'Standart'
Context.1 = 'Hintergrundfarbe ändern'
Context.2 = 'Fordergrundfarbe ändern'
Text = 'Die Eingabe ist in der Form Rot,Grün,Blau vorzunehmen.'
User.1 = 'BColor'
User.2 = 'FColor'
Color = 'R,G,B'
Standart.1 = '255,255,255'
Standart.2 = '0,0,0'
do i=1 to 2
id = VRPrompt( VRWindow(),,
Text,,
Color,,
Context.i,,
'Buttons.',,
default,,
esc)
if id = 3 then Color = Standart.i
if id = default then do
parse value color with R ',' G ',' B
if (DataType(R) \= 'NUM') | (DataType(G) \= 'NUM') | (DataType(B) \= 'NUM') then id = esc
else if (R<0) | (R>255) | (G<0) | (G>255) | (B<0) | (B>255) then id = esc
end
if id \= esc then call SysIni 'USER', 'TeXEditor', User.i, Color
end */
call SysIni 'USER', 'TeXEditor', 'BColor', '148,172,183'