david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
90 lines
2.8 KiB
ObjectPascal
90 lines
2.8 KiB
ObjectPascal
unit WebChartProHome;
|
|
|
|
interface
|
|
|
|
uses SysUtils, Classes, HTTPApp, cxWebModule, cxWebAppSrv, cxWebClasses,
|
|
cxWebControls, cxWebStdCtrls, cxWebteeChart, cxWebDataCtrls, TeeData, DB,
|
|
DBTables, cxWebDBteeChart, DBChart, Controls, ExtCtrls, TeeProcs,
|
|
TeEngine, Chart;
|
|
|
|
|
|
type
|
|
TWebChartProHomePage = class(TcxWebPageModule)
|
|
WebChart: TcxWebChart;
|
|
wcbChartType: TcxWebComboBox;
|
|
wchShowLegend: TcxWebCheckBox;
|
|
wedTitle: TcxWebEdit;
|
|
wbtnApply: TcxWebButton;
|
|
wcbShowAxis: TcxWebCheckBox;
|
|
wcb3D: TcxWebCheckBox;
|
|
cbShowMarks: TcxWebCheckBox;
|
|
WebStyleController: TcxWebStyleController;
|
|
WebStyleControllerItem1: TcxWebStyleItem;
|
|
Table1: TTable;
|
|
DataSource1: TDataSource;
|
|
procedure cxWebPageModuleActivate(Sender: TObject);
|
|
procedure wbtnApplyClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
function WebChartProHomePage: TWebChartProHomePage;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM} {*.html}
|
|
|
|
uses
|
|
WebReq, WebCntxt, cxWebModFact, Variants, TeeGalleryPanel, Series;
|
|
|
|
function WebChartProHomePage: TWebChartProHomePage;
|
|
begin
|
|
Result := TWebChartProHomePage(WebContext.FindModuleClass(TWebChartProHomePage));
|
|
end;
|
|
|
|
procedure TWebChartProHomePage.cxWebPageModuleActivate(Sender: TObject);
|
|
var
|
|
I: Integer;
|
|
AItem: TcxWebListItem;
|
|
begin
|
|
if IsFirstRequest then
|
|
begin
|
|
for I := 0 to TeeSeriesTypes.Count - 1 do
|
|
if (TeeSeriesTypes[I].SeriesClass <> nil) and
|
|
(TeeSeriesTypes[I].SeriesClass <> THorizBarSeries) then
|
|
begin
|
|
AItem := wcbChartType.Items.Add;
|
|
AItem.Text := TeeSeriesTypes[I].Description^;
|
|
AItem.Value := IntToStr(I);
|
|
if (WebChart.SeriesList.Count > 0) and
|
|
(WebChart.SeriesList[0].ClassType = TClass(TeeSeriesTypes[I].SeriesClass)) then
|
|
wcbChartType.ItemIndex := wcbChartType.Items.Count - 1;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TWebChartProHomePage.wbtnApplyClick(Sender: TObject);
|
|
var
|
|
ASeries: TChartSeries;
|
|
begin
|
|
while (WebChart.SeriesList.Count > 0) do
|
|
WebChart.SeriesList[0].Free;
|
|
ASeries := TeeSeriesTypes[StrToInt(wcbChartType.Items[wcbChartType.ItemIndex].Value)].SeriesClass.Create(nil);
|
|
ASeries.FillSampleValues(ASeries.NumSampleValues);
|
|
WebChart.Chart.AddSeries(ASeries);
|
|
WebChart.Legend.Visible := wchShowLegend.Checked;
|
|
WebChart.Title.Text.Clear;
|
|
WebChart.Title.Text.Append(wedTitle.Text);
|
|
WebChart.AxisVisible := wcbShowAxis.Checked;
|
|
WebChart.View3D := wcb3D.Checked;
|
|
ASeries.Marks.Visible := cbShowMarks.Checked;
|
|
end;
|
|
|
|
initialization
|
|
if WebRequestHandler <> nil then
|
|
WebRequestHandler.AddWebModuleFactory(TcxWebPageModuleFactory.Create(TWebChartProHomePage, TcxWebPageInfo.Create('*.html'), caDestroy));
|
|
|
|
end.
|