Ну никакой из меня программист ну что мне теперь поделать
Значит так пишу программу и для удобства сделал в ней модуль и все процедуры делаю в этом модуле, а затем вызываю в основной программе... Но тут у меня с одной из процедур возникла проблема
мне нужна процедура, входными данными которой являются масив значений и объект
Код:
procedure timediagram(it:tform; viborka:tpmas_real);
суть какая, я на данной форме создаю еще одну форму, на которую помещаю chart, в chart делаю несколько серий, в которые записываю разные графики, используя массив viborka, так вот мне надо сделать навигацию по этим сериям, я решил сделать с помощью poupmenu в них сделал три пункта, а вот как присвоить этим пунктам действие, с помощью которого делались видимыми одни серии, а другие наоборот пряталися незнаю
Вот все что я наделал
Код:
//построение временных диаграмм по заданной выборке
procedure timediagram(it:tform; viborka:tpmas_real);
var page:TTabSheet;
mychart:tchart;
ser1, ser2, ser3:tlineseries;
popupm:tpopupmenu; //всплывающее меню
popupmi:TMenuItem;
i:integer;
begin
if myform=nil then
begin
myform:=tform.create(it);
myform.parent:=it;
myform.visible:=true;
mypagec:=Tpagecontrol.create(myform);
mypagec.parent:=myform;
mypagec.align:=alclient;
end;
myform.visible:=true;
page:=TTabSheet.Create(mypagec);
page.PageControl:=mypagec;
page.caption:='Точка №'+inttostr(mypagec.PageCount);
mychart:=tchart.create(page);
mychart.parent:=page;
ser1:=tlineseries.create(mychart);
ser2:=tlineseries.create(mychart);
ser3:=tlineseries.create(mychart);
mychart.Align:=alclient;
mychart.View3D:=false;
mychart.AddSeries(ser1);
for i:=0 to high(viborka) do ser.addxy(i+1, viborka[i]);
popupm:=tpopupmenu.create(mychart);
//создание подменю:
popupmi:=tmenuitem.create(popupm);
popupmi.caption:='Временная диаграмма';
popupm.items.add(popupmi);
popupmi:=tmenuitem.create(popupm);
popupmi.caption:='Гистограмма';
popupm.items.add(popupmi);
popupmi:=tmenuitem.create(popupm);
popupmi.caption:='Логарифмический масштаб';
// popupmi.OnClick:=qqq;
popupm.items.add(popupmi);
mychart.popupmenu:=popupm;
end;
Добавлено:
:help:
