(Note - it's not Lazarus designer aware, you need to create TATTabs at runtime, see example at wiki. I didn't want it.)what do you mean with "I didn't want it"?
Version 1.1.x. Now it's tested, in real application SynWrite. It works as expected, minor issues fixed.
Version 1.1.x. Now it's tested, in real application SynWrite. It works as expected, minor issues fixed.
Hi Alex22 can u share the SynWrite build into FPC? Do u make it multi-plattaform?
Thanks
How can I transform the above TPageControl code to insert a TForm in a TTabSheet in the below ATTab code for a new tab?
How will I be able close the tab with the Form embedded?
How will I be able to prevent the same Form to be opened more than once?
I think embedding a form in this way is an abuse of TForm which was never designed to be so used.
It is far too over-engineered and resource-hungry to be a good choice, and there are many alternative containers that would suit your purpose better, among them TFrame, TPanel, TGroupBox, TScrollBox etc.
What is wrong with adding controls to the tabsheet directly, with no intervening form?
Read somewhere TTabControl is for cases where you have same controls on each tab, was sticked to that ...Thats right. "Same" = "SynEdit with same content"
Therefore you need to manage the content yourself. However if you do that you loose undo info. So not good.
2017.09.15
+ add: scrolling arrows, they work when tabs painted out of right side (when lot of tabs)
+ add: scrolling mark (red on top if lot of tabs)
+ add: prop TabShowScrollArrows (note: it uses TabIndentInit)
+ add: prop TabShowScrollMark
+ add: prop TabScrollMarkX, TabScrollMarkY
+ add: prop ColorScrollMark
+ add: prop TabAngleMaxTabs: slow TabAngle will be used only until not much tabs
* renamed prop to ColorDropMark
* renamed type to TATTabTriangle, with values
ST3 = Sublime Text 3. It has stacking of tabs: press Ctrl+N 50 times, you ll see stack of tabs.thank you. I'll check it out when I get some time.
2019.06.15
+ add: OptSpaceSeparator
2019.06.14
+ add: OptButtonLayout allows chars "|" (separator) and "_" (space)
+ add: OptButtonSizeSpace
+ add: OptButtonSizeSeparator
+ add: TabMenuExternal (TPopupMenu)
* removed support for TNT Controls
2019.06.07
+ add: ParentColor
2019.06.06
+ add: property OptShowFlatMouseOver
+ add: changes in design-time are applied immediately
property ColorFont: TColor read FColorFont write FColorFont default _InitTabColorFont; property ColorFontModified: TColor read FColorFontModified write FColorFontModified default _InitTabColorFontModified; property ColorFontActive: TColor read FColorFontActive write FColorFontActive default _InitTabColorFontActive; property ColorFontHot: TColor read FColorFontHot write FColorFontHot default _InitTabColorFontHot;