CDPieSetLabelJoinLineColor < Main

Tags: view all tags
---+ .PIE SET LBL JN LN CLR

_This subroutine sets the color of the lines that join the pie sector perimeter with the pie sector labels for all pie sectors, a range of pie sectors, an individual pie sector, or the "current" pie sector.._

<br />%TOC%
---++ Usage:
<pre>      PASS         &lt;color_spec_name&gt;          FIELD            SHARE? N
      *        OR
      PASS         &lt;color_value&gt;              FIELD            SHARE? N    
      PASS         &lt;beg_sect_no&gt;              FIELD            SHARE? N
      PASS         &lt;end_sect_no&gt;              FIELD            SHARE? N
      GOSUB    0CD .PIE SET LBL JN LN CLR
      *        Check for error
      IF       0CD .PIE SET LBL JN LN CLR     NE</pre>
---++ Description:

This subroutine sets the color of the lines that join the pie sector perimeter with the pie sector labels for all pie sectors, a range of pie sectors, an individual pie sector, or the "current" pie sector.

If a color parameter is not received or if the value received is blank, then the line color of the sector spec is cleared and the default color will be rendered.

If a color parameter is received, the system first assumes that the value received is a &lt;color_spec_name&gt; and checks to see if a color spec record has been previously initialized with that name. If a color spec record is found, then that color spec record is used as a prototype to create a color spec for the sector background color. If a color spec record is not found, then the system assumes that the value received is a literal &lt;color_value&gt; and uses the specified color to create a color spec for the line color.

If &lt;beg_sect_no&gt; is "ALL" or "0" and &lt;end_sect_no&gt; is not received or is blank, then &lt;lbl_dist&gt; applies to all pie
<div id="_mcePaste">sectors.</div>

If &lt;beg_sect_no&gt; and &lt;end_sect_no&gt; are both received and are both numeric integers, then &lt;lbl_dist&gt; applies to the range
<div id="_mcePaste">of pie sectors from &lt;beg_sect_no&gt; thru &lt;end_sect_no&gt; and is stored in the corresponding pie sector specs.</div>

If &lt;beg_sect_no&gt; is received and is a numeric integer and &lt;end_sect_no&gt; is not received or is blank, then &lt;lbl_dist&gt;
<div id="_mcePaste">applies only to the &lt;beg_sect_no&gt; pie sector and is stored in the &lt;beg_sect_no&gt; pie sector spec.</div>

If &lt;beg_sect_no&gt; and &lt;end_sect_no&gt; are both not received or are blank, then &lt;lbl_dist&gt; applies to the "current" pie sector and is stored in the "current" pie sector spec.

Any pie sector specs that are referenced but which do not exist are automatically created and initialized so that the &lt;lbl_dist&gt; can be stored.

The last pie sector spec updated becomes the "current" pie sector spec.

See ColorSpec for more information on working with colors.
---++ Comments:

_Read what other users have said about this page or add your own comments._

<br />%COMMENT%

-- Main.JeanNeron - 2011-10-05
Topic revision: r3 - 2012-02-24 - JeanNeron