Форум: "WinAPI";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизChart Найти похожие ветки
← →
Subdigger (2003-02-21 11:17) [0]Люди добрые подскажите как програмно задавать значения в чарт.
← →
MBo (2003-02-21 12:44) [1]series1.addxy
← →
CjCrazy (2003-02-21 21:25) [2]2 Subdigger, пусть тут многа не по теме, но зато про чарты
unit Main;
interface
uses
inifiles,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
constants,Menus, StdCtrls, ComCtrls, ExtCtrls, Grids, TeEngine, TeeFunci,
Series, TeeProcs, Chart;
//const path="c:\rev7_adm\settings\";
const path="\\admin\settings$\";
type
TMainF = class(TForm)
Panel9: TPanel;
Panel10: TPanel;
Label8: TLabel;
Label9: TLabel;
Bevel6: TBevel;
DTp7: TDateTimePicker;
DTp8: TDateTimePicker;
Button15: TButton;
Button16: TButton;
Chart: TChart;
// Series1: THorizBarSeries;
TeeFunction1: TMultiplyTeeFunction;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DTp7Change(Sender: TObject);
procedure DTp8Change(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainF: TMainF;
implementation
{$R *.DFM}
procedure TMainF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
chart.Series[0].Clear;
Action := caFree;
end;
procedure TMainF.DTp7Change(Sender: TObject);
begin
if dtp7.Date>dtp8.Date then dtp8.Date:=dtp7.Date;
end;
procedure TMainF.DTp8Change(Sender: TObject);
begin
if dtp7.Date>dtp8.Date then dtp7.Date:=dtp8.Date;
end;
procedure TMainF.Button15Click(Sender: TObject);
var d:tdatetime;
ini:tinifile;
st:tstrings;
i,j:integer;
begin
chart.Series[0].Clear;
d:=dtp7.Date;
st:=tstringlist.Create;
while d<=dtp8.Date do begin
ini:=tinifile.Create(path+"statistics\"+formatdatetime("yyyymmdd",d)+"games");
if ioresult=0 then begin
ini.ReadSection("games",st);
for i:=0 to st.Count-1 do begin
j:=0;
// chart.Series[0].ValueMarkText
while (j<chart.Series[0].Count)and(chart.Series[0].XLabel[j]<>st.Strings[i]) do inc(j);
if j<chart.Series[0].Count then
chart.Series[0].XValue[j]:=chart.Series[0].XValue[j]+ini.ReadInteger("games",st.Strings[i],0)
else chart.Series[0].Add( ini.ReadInteger("games",st.Strings[i],0),st.Strings[i],TColor(random(3200000)) );
end;
end;
d:=d+1;
ini.Free;
end;
st.Free;
end;
procedure TMainF.Button16Click(Sender: TObject);
var ini:tinifile;
st:tstrings;
i,j:integer;
begin
chart.Series[0].Clear;
st:=tstringlist.Create;
ini:=tinifile.Create(path+"main.ini");
if ioresult=0 then begin
ini.ReadSection("games",st);
for i:=0 to st.Count-1 do begin
j:=0;
// chart.Series[0].ValueMarkText
while (j<chart.Series[0].Count)and(chart.Series[0].XLabel[j]<>st.Strings[i]) do inc(j);
if j<chart.Series[0].Count then
chart.Series[0].XValue[j]:=chart.Series[0].XValue[j]+ini.ReadInteger("games",st.Strings[i],0)
else chart.Series[0].Add( ini.ReadInteger("games",st.Strings[i],0),st.Strings[i],TColor(random(3200000)) );
end;
ini.Free;
end;
st.Free;
end;
procedure TMainF.FormCreate(Sender: TObject);
begin
DTp7.Date:=now;
DTp8.Date:=now;
end;
end.
← →
Subdigger (2003-02-24 09:42) [3]2 All спасиба
Есть еще одно дело
нигде не описан тип TchartType (тип самого графика)
где можно посмотреть?
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c