home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / fish / 911-930 / ff925 / donsgenies / frenchgenies.lha / Rexx / CouleurBoîtesTexte.pprx < prev    next >
Text File  |  1993-08-03  |  2KB  |  76 lines
  1. /*
  2. @BBoxColors  @P@I© Gold Disk Inc. Janvier 1992
  3. Modifié par Don Cox en août, décembre 1992.
  4. Traduit par Fabien Larini le 21/07/93.
  5.  
  6. Ce Génie modifie la couleur de fond, et de texte de une ou plusieurs
  7. boîtes. Il utilise le motif de trait, et l'épaisseur de trait courant.
  8. */
  9.  
  10.  
  11. /*
  12. @BBoxColors  @P@ICopyright Gold Disk Inc. January, 1992  - modified by Don Cox, Aug. 92, Dec 92
  13.  
  14. Set the text and fill colors of a number of boxes.
  15. */
  16. trace n
  17. address command
  18. call SafeEndEdit.rexx()
  19. call ppm_AutoUpdate(0)
  20. oldcolor = ppm_GetTextColor()
  21.  
  22. counter = 0
  23. do forever
  24.     box=ppm_ClickOnBox("Clickez sur les Boîtes à Modifier")
  25.     if box=0 then break
  26.     counter=counter+1
  27.     boxes.counter=box
  28.     call ppm_SelectBox(box)
  29.     end
  30.  
  31. if counter = 0 then exit_msg("Pas de Boîte Sélectionnée")
  32.  
  33. colorlist   = ppm_GetColorList()
  34. colorlist   = substr(colorlist, pos('0a'x, colorlist) + 1)
  35.  
  36. color   =  ppm_SelectFromList("Select Fill Color..", 25, 18, 0, colorlist)
  37. if color = '' then exit_msg("Annulé")
  38. tcolor  =  ppm_SelectFromList("Select Text Color..", 25, 18, 0, colorlist)
  39. if tcolor = '' then exit_msg("Annulé")
  40.  
  41.  
  42. do i = 1 to counter
  43.     box = boxes.i
  44.     call ppm_SetBoxFrameData(box,color,color,ppm_GetLineWeight(),ppm_GetLinePattern(),1)
  45.     call ppm_SetBoxFrame(box, 1)
  46.     call ppm_SetBoxTransparent(box, 0)
  47.  
  48.     if upper(word(ppm_GetBoxInfo(box), 1)) ~= TEXTE then iterate i
  49.  
  50.     call SafeSetEdit.rexx(box)
  51.     call ppm_SelectBoxText()
  52.     call ppm_SetTextColor(tcolor)
  53.     call SafeEndEdit.rexx()
  54.     end
  55.  
  56. call ppm_SetTextColor(oldcolor)
  57. call ppm_SetWireFrame(0)
  58. call exit_msg
  59. end
  60.  
  61. error:
  62. syntax:
  63.     do                                             
  64.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
  65.     end
  66.  
  67. exit_msg:
  68.     do
  69.     parse arg message
  70.     if message ~= "" then
  71.     call ppm_Inform(1,message,)
  72.     call ppm_ClearStatus()
  73.     call ppm_AutoUpdate(1)
  74.     exit
  75.     end
  76.