[Solved] Problem in ATTabs: cannot make prop Tabs:TStrings

[AlexTP]

Pls see code in https://github.com/alexey-t/attabs
I try to make prop Tabs: TStrings for IDE.

- in IDE prop shows, I can change it, tabs appear
- on app start (with n tabs), tabs don't appear- ??
- after restart of IDE, in IDE tabs don't appear- ??

what am I doin wrong?

[wp]

Don't assign the new strings to FTabItems, because you clear FTabItems immediately afterwards. The items are added individually anyway:

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

1. procedure TATTabs.SetItems(AValue: TStrings);
2. var
3.   i: integer;
4. begin
5.   //FTabItems.Assign(AValue);
6.   Clear;
7.   for i:= 0 to AValue.Count-1 do
8.     AddTab(-1, AValue[i]);
9. end;

BTW, your package does not compile on my Laz trunk/fpc 3.0.2. Move unit Windows to the top of the uses list in ATTabs.

[AlexTP]

Sorry, "Clear" is clearing of FTabList - not of FTabItems. FTabItems are not cleared.

fixed for "windows" unit.

[engkin]

I don't see that you override Loaded. You need to override it, call the inherited version, then build your tabs from FTabItems which would have the items ready for you.

[AlexTP]

Thanks - this is the solution! fixed.