Printable View
Thank you for your attention. I'll try again to upload the images I meant. Hopefully there are no problems.
1 - Place the text/icon in the middle of the CaptionBar.
Attachment 189563
2 - Text/icon display when CaptionBar is at the bottom.
Attachment 189564
3 - Custom CaptionBar shape.
Attachment 189565
I apologize because I have to repeat several times to upload the images I intended.
The captions are centered without doing anything.Quote:
Originally Posted by NA70
These properties influence the size of the tabs:
TabWidthStyle
TabMinWidth
TabMaxWidth
This property defines the position of the icon:
IconAlignment
The size of the icon: IconFont
IconFont is for each tab, each tab can have a different icon font.
Size of caption font: Font
This property affects all the tabs, all the captions have the same font.
What do you mean specifically ("don't look good")? The captions and icons are too low? something else?Quote:
Originally Posted by NA70
It does not have those diagonal or cut tab borders.Quote:
Originally Posted by NA70
But it supports rounded borders.
To see that, set Style: ntStyleFlat
and play with FlatRoundnessTop / FlatRoundnessBottom
Thank you for your answer and information.
Attachment 189566Quote:
When the CaptionBar position is at the bottom (ssTabOrientationBottom), it seems like the text and icons don't look good.
Yes you're right. I mean the position of the text and icons is too low. I'm looking for a property to make text and icons vertically centered on the CaptionBar. But I don't know which properties I should set to make it look like figure B.
I updated the files. Please test now.
To install an update:
1) Close the IDE.
2) Run "NewTab01 Unregister (run as Admin).bat" file as admin to unregister the old version of the ocx.
3) Download the new version.
4) Run "NewTab01 Register (run as Admin).bat" as admin to register the new version.
5) Open the IDE as admin, at least the first time.
Thank you Eduardo.
I have tested the updated version. I see that the appearance of the CaptionBar has changed slightly, but it is not proportional enough (figure A). But that's okay, because I can use tabs with the FlatBar style enabled (figure B), or by changing the value of the TabHeight property (figure C).
Attachment 189571
Thank you for the help.
OK, I updated it again. I think now it must be OK.
Thanks for your help... :thumb:Quote:
Originally Posted by Eduardo-
Did you test the new?Quote:
Originally Posted by NA70
I've tested it.
Attachment 189576
1 — In this last NewTab control, for the vertical position of the text or image on the CaptionBar, it looks good for the CaptionBar position at the bottom (ssTabOrientationBottom). However, for the CaptionBar position at the top (ssTabOrientationTop), it seems it's still not centered enough.
2 — When I select the Silver style tab, with the FlatBarHeight property value = 3 and with the CaptionBar position at the bottom (ssTabOrientationBottom), the FlatBar does not appear.
I actually want to be able to set the vertical position of the text and image in the middle of the CaptionBar, for the top (ssTabOrientationTop) or the bottom (ssTabOrientationBottom) CaptionBar. But for now, I think I can use the settings as in my post #125 above.
I'll study what you say, but as a first look I measured the first tab control (the top-left in the form) and I see that the tab captions are vertically centered.
Here I tested it at 125% DPI, it might be a difference of 1 pixel at other DPI setting due to rounding.
I'm talking about the non-active tabs, 7 pixels up and 7 pixels down. 👇
Attachment 189578
About the icons positions, you also can use the IconTopOffset property.
That value is per tab (per icon).
That was a bug, that I found and fixed it, thanks.Quote:
Originally Posted by NA70
I still didn't post the update because I'm waiting to see if I change something else.
Update released.
I made some fixes related to tab-captions vertical position.
Please test now and report.
Thank you.
I heartily wish you a Very Happy New Year, Eduardo.
Your NewTab control is one of the most aesthetically purposeful controls, in my personal humble opinion. Thanks a TON, ever.
I have not had time to check out the recent enhancements (esp. the very exciting 'TabForm' feature) in NewTab. As soon as I do, I will write back here.
Have a Divineful Year!
God Bless you. God Bless all.
Kind Regards.
Thank you softv! Happy new year and God bless you!Quote:
Originally Posted by softv
Hi Eduardo, what's the best way to auto-select focus to a tab when the user has changed the tab order?
Code:Tabs.CanReorderTabs = True
'// for example: user changes tab 2 to position tab 4
Tabs.TabSel = 2
'// how can we set focus to tab 2, but is now tab 4?
Hello. There is no tracking of what was the original index of tabs, then you need to do it yourself:
You can use TabData property or TabTag.Code:Private Sub Form_Load()
Dim c As Long
NewTab1.CanReorderTabs = True
For c = 0 To NewTab1.Tabs - 1
NewTab1.TabData(c) = c
Next
End Sub
Private Sub Command1_Click()
Dim c As Long
' set focus to 'Tab 2'
For c = 0 To NewTab1.Tabs - 1
If NewTab1.TabData(c) = 2 Then
NewTab1.Tab = c
Exit For
End If
Next
End Sub
Just downloaded and played around with the Sample project. This looks wonderful Eduardo! Thank you so much.
Update released.
2024-01-13 Changed to OLE version 7.0.
2024-01-13 Added SetActiveTab method.
2024-01-13 Changed most of the Integer properties to Long, and new NewTab events (not available in the original SSTab) from Integer to Long. Old original SSTab events were left As Integer.
2024-01-13 Changed Event name TabSelChange to TabChange. If you used this event then you need to manually change its name in the event handler's code.
2024-01-13 TabSel property is hidden now, it is kept for compatibility but is deprecated. Use the Tab property instead.
Excellent work! There's all kinds of improvements in this version:Quote:
Originally Posted by Eduardo-
It seems impervious to DPI scaling issues, and it should be much easier to locate the tab after a user has changed the order!
Thanks bro!
Edit: Forgot to mention the improvement of data types from integer to long. Doesn't matter so much on modern machines, but longs are considerably better peformance-wise compiled.
Hi Eduardo, in light of your recent version, what is the most efficient way to do this task?Quote:
Originally Posted by taishan
Quote:
Originally Posted by taishan
orCode:NewTab1.SetActiveTab "Tab 2"
Code:NewTab1.SetActiveTab 2, ntFindOriginalIndex
Beautiful and elegant. Thank you!Quote:
Originally Posted by Eduardo-
Good morning,
I'm trying to use this excellent library in one of my VB6 projects to be able to use tabs containing Forms.
Unfortunately at the moment I have some problems because by clicking on a button in the home tab the form that should open in a new tab instead opens as a normal non-modal window.
I'm probably doing something wrong but I can't figure out what.
Anyone have suggestions?
Thank you
How should we work out what you're doing wrong with no knowledge of what you're doing in the first place?Quote:
Originally Posted by Maxlife
I assume that you are using it in TDIMode = ntTDIModeFormsQuote:
Originally Posted by Maxlife
Well, the possible cause is that the BorderStyle of the Form is Fixed ToolWindow, Sizable ToolWindow or None.
Hi Eduardo, thanks for reply. I confirm you that the properties are ok.Quote:
Originally Posted by Eduardo-
When I start my application the new tab inserted works correctly and by clicking on a specific button the associated form opens as a tab, but then if I act on other parts of the application and then click on the button again, the form no longer opened in tab but as a normal form.
It appears as if the newtab object loses focus and no longer handles the form in the tab
Post your code so that others are able to give you feedback on why it is doing something other than you expect.
Yes, please post a sample project where we can reproduce what is happening.Quote:
Originally Posted by Maxlife
You have no idea how many times people have made claims like that and they turned out to be false. You need to show us what you're actually doing. It's not always necessary but the best way for us to diagnose the issue is to do what you're doing and see what you're seeing. Assume that that is always necessary and ALWAYS provide all the relevant information. It's not always completely obvious what's relevant but anything required to reproduce the issue should be assumed to be so. If we have to keep asking for more, it's just more time that you can't fix the issue and get on with your project.Quote:
Originally Posted by Maxlife
Hello Eduardo, very good control.
How can you change the width of a tab.
I want to make the collapse effect.
Something else could be done like in Chrome tab group would be great
Hello. Currently the tab widths are automatic, depending on TabWidthStyle setting.
There is no direct control over each tab width now.
ok Thank
Hello, update released:
2024-02-01 Added property TabFixedWidth
2024-02-01 Fixed bug when WordWrap = False
2024-01-27 TabsPerRow is no longer considered a theme property.
2024-01-20 Bug fix in built-in themes data.
2024-01-19 Added GetThemeData / SetThemeData methods.
2024-01-18 Added GetTabsOrder / SetTabsOrder methods (CanReorderTabs must be True).
2024-01-18 Added FindTab method.
@yokesee: now there is, the TabFixedWidth property.Quote:
Originally Posted by Eduardo-
Attachment 190274
Attached is the example of animating a tab that you see in the image.
Good job Eduardo you are great
many thanks
Excellent, I was looking for a fixed tab width property, and the animation looks really slick! Great work!Quote:
Originally Posted by Eduardo-
Private Sub NewTab1_TDIBeforeNewTab(ByVal TabType As NewTabCtl.NTTDINewTabTypeConstants, ByVal TabNumber As Long, TabCaption As String, LoadControls As Boolean, Cancel As Boolean)
If TabCaption = "Form4" Then
Cancel = True
End If
End Sub
--------------------------------------
Hello Eduardo!
This function (TabCaption = "Form4") can you change Caption to "FormName", for example: (TabName = "Form4") or (TabName = Form.Name). Because the form title may change (e.g., a multilingual version of the form) and the form name does not change, it makes more sense to use the form name.
Thank you very much!
Hello. The NewTab component don't have access to forms names of the client program. The other option besides form's caption would be the hWnd.Quote:
Originally Posted by smileyoufu
Anyway, while the form's caption could change, you should know its caption, since it is at the time the form is showing (.Show).
Or, you could store its caption in an auxiliary variable, change to another caption, for example to the form's name, and after the form was shown change it back to the original caption.
Because I don't see a way to get the forms names from the OCX program. Forms are just windows from there.
Hello everybody. I'm thinking in renaming the event TabBodyResize to just Resize.
There is currently a Resize event that IMO is quite useless, so that would be removed and replaced.
But, I guess that some may be using that event (TabBodyResize), so they would have to change its name in the source code.
What do you think?
Update released.
OK, I went ahead and changed the TabBodyResize event name to Resize. And TabBody[Left|Top|Width|Height] property names to Body[Left|Top|Width|Height].
2024-02-03 Changed to OLE version 8.0.
2024-02-03 Changed property names TabBody[Left|Top|Width|Height] property names to Body[Left|Top|Width|Height].
2024-02-03 Changed TabBodyResize event name to Resize.
2024-02-03 Background of LabelW now is painted the same as Label when the Windows visual style is active.
2024-02-03 Several minor bug fixes related to themes.
Hello Eduardo!
Thank you for your prompt reply, I will continue to use the "Caption" method as you suggested.
Thank you very much!
Update released.
2024-02-08 Bug fix in TabMaxWidth property.
2024-02-08 Bug fix in FlatBorderMode = ntBorderTabs.
2024-02-07 Added TabCustomColor property (runtime). Now each tab can have its own colors.
2024-02-07 Bug fix when CanReorderTabs is True and the user clicks the icon of a non active tab.
2024-02-04 Bug fix in ChangeControlsForeColor procedure.
Thanks Eduardo for this great toolQuote:
Originally Posted by Eduardo-
There are one or two minor problems
Tabs are not closed in right-to-left mode
Dragging and dropping the tab is also not done well in this mode
Please solve this problem
Attachment 190673
Attachment 190671
Right-to-left mode for Asian languages ??such as Persian and Arabic and . . . is used
Attachment 190674
Dear Eduardo,
I have started checking out the 'Forms mode'. And, I have to say that any amount of thanks is not enough for you. Wonderful! Absolutely wonderful!
Just one quick request:
--
For SetActiveTab function, for the 2nd parameter (for NTFindTabMethodConstants), if you deem fit and if you feel it makes sense, then you may kindly please add ntFindCaptionAnywhere, ntFindCaptionFirst and ntFindCaptionLast also (of course with their respective functionalities). That would be quite helpful, I thought. The first matching tab for 'found anywhere', 'found at start' and 'found at the last' perhaps can be set as the active tab.
--
And, by the way, as far as I can observe, Debug.Print mMouseIsOverIcon_Tab is not commented out in the control's code. You may please comment it out in the next release. Otherwise, in the immediate window, it keeps printing -1.
Thanks a TON, once again.
Kind Regards.
Dear Eduardo,
Greetings!
In the following function, TabCaption is actually the added form's caption, as far as I can observe. So, is it possible to include FormTag parameter also so that is easier to check based on the form's tag (which can be a unique distinctive short string set by me) as to whether to add that form or not. My form's captions can become considerably lengthy sometimes. Hence, the request. If not possible to introduce a new parameter, possible to change the name TabCaption to TabCaptionOrTag so that you can check for both the form's caption and also tag?
--
--Quote:
NewTab1_TDIBeforeNewTab(ByVal TabType As NewTabCtl.NTTDINewTabTypeConstants, ByVal TabNumber As Long, TabCaption As String, LoadControls As Boolean, Cancel As Boolean)
Kind Regards.
Dear Eduardo,
I found that:
The following works
i.e. ForeColor is getting set correctlyQuote:
ctab.TabCustomColor(1, ntCCForeColor) = vbGreen
ctab.TabCustomColor(1, ntCCForeColorTabSel) = vbRed
But, the following does not work
i.e. BackColor is not getting set at all.Quote:
ctab.TabCustomColor(1, ntCCBackColorTab) = vbRed
ctab.TabCustomColor(1, ntCCBackColorTabSel) = vbGreen
Am I doing any mistake? Kindly let me know. ctab is a normal NewTab only (i.e. TDIModeNone). Actually, with TDIModeForms also, I could not set the backcolor.
By the way, if at all possible, kindly make ntCCBackColorTab as default for the 2nd param of TabCustomColor, so that I can just use ctab.TabCustomColor(1) = color. If you think ForeColor will be the one often used by users, then you can make that default too. Your decision, finally.
Thanks a TON, as always, for all that you are doing for us.
Kind Regards.
Hello. The issues will be solved in the next release (maybe later today or tomorrow).Quote:
Originally Posted by Mojtaba
Thanks for reporting.
Could you please explain how exactly that should work? I guess they would be partial matches of tab captions?Quote:
Originally Posted by softv
Yes, it will be removed in the next release, thanks.Quote:
Originally Posted by softv
It is the same explanation as for message #157.Quote:
Originally Posted by softv
From inside the NewTab control I don't have access to form's properties. I see forms as windows. I can have the Caption because it is the caption of the window, but I cannot read the Tag property or other properties that have no related values to the window itself (at API level).
For the color properties to work, the NewTab control should not be using the Windows theme (visual style). ForeColor related ones work anyway, but only those.Quote:
Originally Posted by softv
The Style must be plain or other non-windows.
I made the parameter optional being ntCCBackColorTab the default one. That will be in the next release.
But I'll wait until understanding how the find captions "as any" should work, so I make all the updates in the same release.
Thanks Eduardo, I look forward to itQuote:
Originally Posted by Eduardo-
// Could you please explain how exactly that should work? I guess they would be partial matches of tab captions? //Quote:
Originally Posted by Eduardo-
yes, partial matches. 'Anywhere' would mean any part of the caption - EITHER from the start to some middle portion (OR) from some middle portion to the end (OR) from some middle portion to some other other middle portion. When you are searching for partial matches (with 'Anywhere' option), if in case you find the whole caption itself to be matching fully, then that would count as a 'successful find' as well, I feel. Basically, an Instr (on the caption string) which returns nonzero will do? By the way, since there can be more than one tab matching a partial string, if at all you deem fit and if at all possible (considering your time constraints and all that) you can provide optional 3rd and 4th parameters which say from which tab (inclusive) to which tab (inclusive) the find operation needs to be effected.
SetActiveTab "string to find", ntFindCaption, [StartingFromWhichTab=1], [UptoWhichTab=N]
(N - last tab)
// I can have the Caption because it is the caption of the window, but I cannot read the Tag property or other properties ... .. . //
The situation is the same whether NewTab control is used as an ocx OR inbuilt into a standard exe project. Right?
// For the color properties to work, the NewTab control should not be using the Windows theme (visual style). ForeColor related ones work anyway, but only those. The Style must be plain or other non-windows. //
Thanks. Will check it out.
// I made the parameter optional being ntCCBackColorTab the default one. That will be in the next release. //
Thanks, Eduardo.
Thanks a LOT, for all that you do for us. Thanks.
No, if you put the control in a standard exe you can access any property of the forms of the local project.Quote:
Originally Posted by softv
I am using your control in a standard exe project only. So, you mean to say that in that case its possible for you to give access to the form's Tag property in the TDIBeforeNewTab function via TabCaptionOrTag parameter? Or, you are suggesting me something else?Quote:
Originally Posted by Eduardo-
'TabCaptionOrTag' - referring to what I had suggested in my post no. 164
Kind Regards.
I only do the the code for the ocx.Quote:
Originally Posted by softv
I'm not going to maintain two different versions.
Please describe the scenario where you need that. Let's see how it could be done in another way.
Oh. Okay. I understand now. That's fine then. I will manage with captions itself.Quote:
Originally Posted by Eduardo-
I was just thinking of tags as an extra layer of convenience. That's all. So, no special scenario as such. Whatever facilities you have provided as of now itself are simply splendid.Quote:
Please describe the scenario where you need that. Let's see how it could be done in another way.
I take this opportunity to once again thank you for your fabulous control.
Bringing in "Forms Mode" (that too, in such an easy manner) is mighty useful and fantastic. Thanks a TON, as always.
Kind Regards.
Update released.
2024-03-14 Added a third parameter StartingTab to FindTab and SetActiveTab methods.
2024-03-14 Added ntFindPartialCaption and ntFindPartialCaptionReverse options to parameter 'Method' of FindTab and SetActiveTab methods.
2024-03-13 Bug fix regarding RightToLeft.
2024-03-12 Bug fix related to TabWidthStyle default setting.
2024-03-12 TabCustomColor property second parameter made optional, defaulting to ntCCBackColorTab.
Please test.
Quote:
Originally Posted by Eduardo-
1 The problem of closing tabs RightToLeft has been fixed
2 In maximized window mode, the position of the form is moved
Also, in right to left mode, it does not display the form inside the tab
3 in the return mode, the location of the first tab is moved to the last
Watch the video
https://bayanbox.ir/view/84846585358.../Untitled1.mp4
Hello. Please test now.
Thank you so much, Eduardo, for the new release.Quote:
Originally Posted by Eduardo-
It might take some time for me to check it out. Once done, I shall write here. Thanks a TON, once again.
Kind Regards.
HiQuote:
Originally Posted by Eduardo-
Normally, there is no problem
After changing the size of the window or maximized, the place of the forms that are opened inside the tab will be moved
By changing the size of the form, the content inside the tab is messed up
The location of the form that opens inside the tab should be 0 from the top and left side
Watch the video
https://www.youtube.com/watch?v=slke...jtabaEskandari
Hello. I fixed the main issue of the positioning on resize, but regarding all the other options I'm considering what to do.
I'm thinking of limiting TDI mode and RightToLeft to Top Orientation only... Attachment 190793