Show ChartEditor with some tabs.

TeeChart VCL for Borland/CodeGear/Embarcadero RAD Studio, Delphi and C++ Builder.
Post Reply
ACCL
Newbie
Newbie
Posts: 3
Joined: Fri Sep 08, 2006 12:00 am
Contact:

Show ChartEditor with some tabs.

Post by ACCL » Tue Oct 24, 2006 7:14 pm

I have an application that uses a chart and charteditor. This ChartEditor must be run with some tabs and not with all tabs. I use the property HideTabs of it.
But some tabs doesn't hide and when I select their, happens a error.

Somebody know how resolve it?

Thanks.

Narcís
Site Admin
Site Admin
Posts: 14730
Joined: Mon Jun 09, 2003 4:00 am
Location: Banyoles, Catalonia
Contact:

Post by Narcís » Wed Oct 25, 2006 8:08 am

Hi ACCL,

Which are the tabs that are not hidden and cause the error? Which TeeChart version are you using?

Thanks in advance.
Best Regards,
Narcís Calvet / Development & Support
Steema Software
Avinguda Montilivi 33, 17003 Girona, Catalonia
Tel: 34 972 218 797
http://www.steema.com
Image Image Image Image Image Image
Instructions - How to post in this forum

ACCL
Newbie
Newbie
Posts: 3
Joined: Fri Sep 08, 2006 12:00 am
Contact:

Post by ACCL » Wed Oct 25, 2006 11:31 am

narcis wrote:Hi ACCL,

Which are the tabs that are not hidden and cause the error? Which TeeChart version are you using?

Thanks in advance.
The follow as: Export, Print, Themes...

The TeeChart version is 7.07 with Delphi6.

Thanks.

Narcís
Site Admin
Site Admin
Posts: 14730
Joined: Mon Jun 09, 2003 4:00 am
Location: Banyoles, Catalonia
Contact:

Post by Narcís » Wed Oct 25, 2006 1:32 pm

Hi ACCL,

It works fine for me here using v7.07 and this code:

Code: Select all

Uses TeeEditCha, TeeThemeEditor;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ChartEditor1.Execute;
end;

procedure TForm8.CheckBox1Click(Sender: TObject);
Var NewTabs : TChartEditorHiddenTabs;
begin
  NewTabs:=[cetTools,cetExport,cetPrintPreview,cetSeriesData];
  if CheckBox1.Checked then
     ChartEditor1.HideTabs:=ChartEditor1.HideTabs+NewTabs
  else
     ChartEditor1.HideTabs:=ChartEditor1.HideTabs-NewTabs;
end;
To hide Themes tab you just need to not include TeeThemeEditor unit in your form.

If the problem persists please send us an example we can run "as-is" to reproduce the problem here.

You can post your files at news://www.steema.net/steema.public.attachments newsgroup.
Best Regards,
Narcís Calvet / Development & Support
Steema Software
Avinguda Montilivi 33, 17003 Girona, Catalonia
Tel: 34 972 218 797
http://www.steema.com
Image Image Image Image Image Image
Instructions - How to post in this forum

ACCL
Newbie
Newbie
Posts: 3
Joined: Fri Sep 08, 2006 12:00 am
Contact:

Post by ACCL » Wed Oct 25, 2006 6:38 pm

narcis wrote:Hi ACCL,

It works fine for me here using v7.07 and this code:

Code: Select all

Uses TeeEditCha, TeeThemeEditor;

procedure TForm8.Button1Click(Sender: TObject);
begin
  ChartEditor1.Execute;
end;

procedure TForm8.CheckBox1Click(Sender: TObject);
Var NewTabs : TChartEditorHiddenTabs;
begin
  NewTabs:=[cetTools,cetExport,cetPrintPreview,cetSeriesData];
  if CheckBox1.Checked then
     ChartEditor1.HideTabs:=ChartEditor1.HideTabs+NewTabs
  else
     ChartEditor1.HideTabs:=ChartEditor1.HideTabs-NewTabs;
end;
To hide Themes tab you just need to not include TeeThemeEditor unit in your form.

If the problem persists please send us an example we can run "as-is" to reproduce the problem here.

You can post your files at news://www.steema.net/steema.public.attachments newsgroup.
Ok, I'll send a example of it tomorrow, because now I'm very busy.

Best regards.

Post Reply