[REOPENED] EC Accordion

[pcurtis]

Hi All,

anyone got any example code on how to use EC Accordion. The demo program is very basic.
I'm interested in nesting items and adding controls at runtime to an item.

Thanks in advance.

[Blaazen]

Adding items at runtime:

Code: Pascal  [Select][+][-]

1. ECAccordion1.AddItem(self); //where [b]self[/b] is rather Form, because AccordionItems are TWinControl

You can for example set Height of opened item:

Code: Pascal  [Select][+][-]

1. var aAI: TAccordionItem;
2. begin
3.   aAI:=ECAccordion1.AddItem(self);
4.   aAI.PreferredHeight:=300;

As I mentioned, each item is TWinControl so you can put there whatever (including another TECAccordion) and you can anchor it.

Nesting:

Code: Pascal  [Select][+][-]

1. ECAccordion2.Parent:=ECAccordion1.Item[0];
2.   ECAccordion2.Left:=10;
3.   ECAccordion2.Top:=10;

No matter if you create the second ECAccordion at desgntime or runtime.

[pcurtis]

Thanks, it's still not clear for me how to add controls at runtime 

I tried this

Code: Pascal  [Select][+][-]

1. var
2.   myb : TButton;
3.   aAI: TAccordionItem;
4. begin
5.   aAI := ECAccordion1.AddItem(ECAccordion1);
6.   aAI.PreferredHeight:=300;
7.  
8.   myb := TButton.Create(ECAccordion1.Item[0]);
9.   myb.Visible:=true;
10.   myb.Top:=0;
11.   myb.Left:=0;
12.   myb.Show;
13.  

and it didn't work.

Also do I have to free my created objects or are they freed automatically?

[jamie]

I've never used those controls but it looks simple to understand for me..

Item which really should of been named "Items" to indicate more than one of course, generates a new control for you by using addItem(TheOwner). The new control should be displaying on its parent by the looks of it.

 The owner is the one responsible for the clean up of the control when terminating.

 So I guess this control allows to add more of itself like a tree like form, meaning if you use the ITEM.AddItem(TheOwner) it will create a new control plus it also returns it at the same time so you can define the remaining properties.

 Of course you can create a totally independent control as a base too, as you are doing here obviously..

 I could install those controls to help you out if needed.

[Blaazen]

@ pcurtis

It does not work because you didn't set Button.Parent (constructor sets Owner).

Code: Pascal  [Select][+][-]

1. var myb: TButton;
2. begin
3.   myb := TButton.Create(self);
4.   myb.Parent:=ECAccordion1.Item[0];
5.   myb.Top:=0;
6.   myb.Left:=0;

@ jamie

I noticed it too. Item should be Items. Changing it now will make troubles for a unknown amount of developers, c'est la vie.

[pcurtis]

Success !

The following code works.

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button3Click(Sender: TObject);
2. var
3.   myb : TButton;
4.   aAI: TAccordionItem;
5. begin
6.   aAI := ECAccordion1.AddItem(self);
7.   aAI.PreferredHeight:=300;
8.  
9.   myb := TButton.Create(ECAccordion1);
10.   myb.Parent:=  ECAccordion1.Item[aAI.Index];
11.   myb.Visible:=true;
12.   myb.Top:=10;
13.   myb.Left:=10;
14. end;
15.  

but I have just on last question. In my above example how would I handle the OnClick event for my newley created button?
Thanks for your help. Great controls.

[pcurtis]

It's OK. I think I've got it.

Code: Pascal  [Select][+][-]

1. procedure MyClick(Sender: TObject);
2.  
3. procedure TForm1.MyClick(Sender: TObject);
4. begin
5.   Beep;
6. end;
7.  
8.  
9. var
10.   myb : TButton;
11.   aAI: TAccordionItem;
12. begin
13.   aAI := ECAccordion1.AddItem(self);
14.   aAI.PreferredHeight:=300;
15.  
16.   myb := TButton.Create(ECAccordion1);
17.   myb.Parent:=  ECAccordion1.Item[aAI.Index];
18.   myb.Visible:=true;
19.   myb.Top:=10;
20.   myb.Left:=10;
21.   myb.OnClick:=@MyClick;
22.  
23.  
24.  

[pcurtis]

@Jamie

I could install those controls to help you out if needed.

Sorry Jamie, was you offer directed to me or Blaazen?

[jamie]

@Jamie

I could install those controls to help you out if needed.

Sorry Jamie, was you offer directed to me or Blaazen?

Well I think it was directed to you but I guess you have some working code so you should be ok...

Btw, you don't need to Re-Index for the newly created control because it has been set locally for you already.

Code: Pascal  [Select][+][-]

1.  myb.Parent:=  ECAccordion1.Item[aAI.Index];
2.  

You should be able to do this..

Code: Pascal  [Select][+][-]

1.  myb.Parent:= aAI;
2.