home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texed133.zip / Deutsch.zip / SetColor.cmd < prev    next >
OS/2 REXX Batch file  |  1996-02-09  |  2KB  |  51 lines
  1. /****************************************************************************\
  2. *                                                                            *
  3. *  SetColor.cmd                                                              *
  4. *                                                                            *
  5. *  Dieses Makro setzt die Vorder- und Hintergrundfarben des Editorfensters.  *
  6. *  Die Eingabe muß in Rot,Grün,Blau Werten angegeben werden.                 *
  7. *  Wird kein Wert eingegeben, so bleibt der bisherige Farbwert weiterhin     *
  8. *  gültig. Eine Eingabe von -1 setzt den Farbwert auf den Standartwert       *
  9. *  zurück.                                                                   *
  10. *                                                                            *
  11. \****************************************************************************/
  12.  
  13. /* Buttons.0 = 3
  14. default = 1
  15. ecs = 2
  16. Buttons.default = 'Ändern'
  17. Buttons.esc = 'Unverändert'
  18. Buttons.3 = 'Standart'
  19. Context.1 = 'Hintergrundfarbe ändern'
  20. Context.2 = 'Fordergrundfarbe ändern'
  21. Text = 'Die Eingabe ist in der Form Rot,Grün,Blau vorzunehmen.'
  22. User.1 = 'BColor'
  23. User.2 = 'FColor'
  24. Color = 'R,G,B'
  25. Standart.1 = '255,255,255'
  26. Standart.2 = '0,0,0'
  27.  
  28. do i=1 to 2
  29.  
  30.    id = VRPrompt( VRWindow(),,
  31.                   Text,,
  32.                   Color,,
  33.                   Context.i,,
  34.                   'Buttons.',,
  35.                   default,,
  36.                   esc)
  37.  
  38.    if id = 3 then Color = Standart.i
  39.  
  40.    if id = default then do
  41.       parse value color with R ',' G ',' B
  42.       if (DataType(R) \= 'NUM') | (DataType(G) \= 'NUM') | (DataType(B) \= 'NUM') then id = esc
  43.       else if (R<0) | (R>255) | (G<0) | (G>255) | (B<0) | (B>255) then id = esc
  44.    end
  45.  
  46.    if id \= esc then call SysIni 'USER', 'TeXEditor', User.i, Color
  47.  
  48. end */
  49.  
  50. call SysIni 'USER', 'TeXEditor', 'BColor', '148,172,183'
  51.