ATTabs: lite tab control

[AlexTP]

I want to make such nice TabControl, maybe like ST2 editor.
I don't want OS themed control, only my custom painted with nice look. 

I start at https://github.com/Alexey-T/ATTabs
Sample attached
 

[kapibara]

Nice!

I'm interested in such a control. Can it be used borderless? Or maybe thats just an issue with PageControls.

Some thoughts:

Associating an object with a tab (using Tabs.Objects) is something that Lazarus page/tab controls dont do at this time. Maybe your control will?

Tabs.Object[idx]:=MyControl

Flipping the page could then switch to the associated control stored in the Tabs.Objects[idx]

Or simpler, switching visible control could be done programmatically in the OnChange event. At the moment I'm using a separate list for storing the controls that will be shown when a tab is selected. But storing them as an object in the tab list feels more optimal.

[r_1gm]

Hi Alex,

Maybe you can improve Lazarus CustomDrawn control component.

[AlexTP]

Of course: each tab will have it's data, which is
- Caption
- Hilite color (default clNone - change to show colored label on tab)
- TObject
- Modified (bool for future, maybe I show some mark ltr)

EARLY early!! alpha is here: https://github.com/Alexey-T/ATTabs
I start with Delphi: NO Lazarus yet!
I port it later

[kapibara]

Tried the alpha, it looks fine. Good balance between custom look and standard.

It would be useful if the control supports BorderStyle = bsNone. Lazarus TabControl dont do that.

You probably already planned to have a
TabPosition property, tpBottom etc.

Looking forward to the next version.

[AlexTP]

What do u mean (BorderStyle bsNone)? i don't paint any border. You may add "Issue" at Github. better discuss border-style there.

[AlexTP]

1st version OK for Lazarus, if you open Demo.dpr file, add Interfaces unit (as IDE tells! do it.) and run, you ll see working tab app.
I tested on Win. Of coz, I test later on M+L

[andersonscinfo]

Tested on Linux using Lazarus with FPC 2.6.2 RC1 1.2, ran cool, just seemed a bit slow, but it works perfect.

Att
Anderson Junior

[AlexTP]

Good- tkx! I test Lin later. No even Linux here
I ll add  buttons <<, >> to scroll Long list.

[andersonscinfo]

Getting this Very beautiful, congratulations.

Att.
Anderson Junior

[kapibara]

Alex22: Ah, there is no border. sorry I missed that.

Seems to work fine under Windows 7 and FPC 2.7.1 - Lazarus SVN 44339

[AlexTP]

Im near beta.Updated. Buttons < > don't work yet (and scrollin)
Anyone may test it on Mac?? Please. Does it work, slow or not

[kapibara]

Good progress. However I should report that in the latest version, the TabControl as a whole flickers when the mouse moves over it. (here: Lazarus/fpc 2.7.1/win7)

[zeljko]

Works nice with Qt LCL under linux, mswin and mac.

[AlexTP]

Thanks for testin (I don't have a mac)