Delphi for PHP (RAD PHP XE, HTML5 Builder ): Компоненты -> Форум на Исходниках.RU [Powered by Invision Power Board]

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>

<?php

use_unit("controls.inc.php");

/**

* A basic class to dump chart information using CSS and lists

class CSSChart extends Control

{

function __construct($aowner = null)

{

parent::__construct($aowner);

//Set the initial properties on the constructor

$this->Width = 330;

$this->Height = 145;

$this->_data = array();

}

function loaded()

{

parent::loaded();

$this->setDataSource($this->_datasource);

}

protected $_datasource = null;

function getDatasource() { return $this->_datasource; }

function setDatasource($value) { $this->_datasource = $this->fixupProperty($value); }

function defaultDatasource() { return null; }

protected $_labelscolumn = "";

function getLabelsColumn() { return $this->_labelscolumn; }

function setLabelsColumn($value) { $this->_labelscolumn = $value; }

function defaultLabelsColumn() { return ""; }

protected $_valuescolumn = "";

function getValuesColumn() { return $this->_valuescolumn; }

function setValuesColumn($value) { $this->_valuescolumn = $value; }

function defaultValuesColumn() { return ""; }

protected $_usehtmllink = "false";

function getUseHtmlLink() { return $this->_usehtmllink; }

function setUseHtmlLink($value) { $this->_usehtmllink = $value; }

function defaultUseHtmlLink() { return "false"; }

protected $_valueprocrezerv = 30;

function getValueProcRezerv() { return $this->_valueprocrezerv; }

function setValueProcRezerv($value) { $this->_valueprocrezerv = $value; }

function defaultValueProcRezerv() { return 30; }

function dumpHeaderCode()

{

parent::dumpHeaderCode();

//If we have not dump the style sheet for charts yet, let's do it

if(!defined('CSSCHARTS'))

{

define('CSSCHARTS', 1);

//Note the VCL_HTTP_PATH constant

echo '<link type="text/css" rel="StyleSheet" href="' . VCL_HTTP_PATH . '/csschart/csscharts.css" />';

}

function dumpContents()

{

//Get the data to use

$data = $this->_data;

//If datasource is correctly assigned, we will use that data instead the Data property

//On design time, we don't have access to datasource objects, so nothing to do

if(($this->ControlState & csDesigning) != csDesigning)

{

//First, check if there is some value on the column properties

if(($this->_labelscolumn != '') && ($this->_valuescolumn != ''))

{

//If there is a valid dataset attached

if(($this->_datasource != null) && ($this->_datasource->Dataset != null))

{

$ds = $this->_datasource->Dataset;

//If dataset is active

if($ds->Active)

{

$data=array();

//Iterate

$ds->first();

while(!$ds->EOF)

{

//Add the item to the array

$data[$ds->fieldget($this->_labelscolumn)]=$ds->fieldget($this->_valuescolumn);

$ds->next();

}

//If there is no information to show

if(count($data) == 0)

{

//And we are in design-time

if(($this->ControlState & csDesigning) == csDesigning)

{

//Let's use some sample data

$data = array();

$data['PHP'] = 800;

$data['Delphi'] = 700;

$data['Java'] = 500;

$data['C#'] = 400;

}

echo '<ul class="chartlist">';

// start dop

// находим максимальное число

reset($data);

$max_val=0;

while(list($key, $val) = each($data))

{

if ($max_val<$val)

$max_val=$val;

}

// end dop

//Iterates through the data and dump each <li> tag

reset($data);

while(list($key, $val) = each($data))

{

echo '<li>';

if ($this->_usehtmllink=='true')

{

echo '<A HREF="">';

}

echo '<a>';

echo $key;

echo '</a>';

if ($this->_usehtmllink=='true')

{

echo '</a>';

}

echo '' . $val . '';

// echo '(' . ($val / 10) . '%)';

echo '_valueprocrezerv ) . '%">(' . ($val*100/$max_val-$this->_valueprocrezerv) . '%)';

echo '</li>';

}

echo '</ul>';

}

protected $_data = array();

/**

* Specifies the data to be use to dump the chart

* @return array()

function getData() { return $this->_data; }

function setData($value) { $this->_data = $value; }

function defaultData() { return array(); }

}