Public Class MainForm
Sub New()
InitializeComponent()
Me.IsMdiContainer = True
Dim childForm As New RadForm1
childForm.MdiParent = Me
childForm.Show()
End Sub
Protected Overrides Sub HandleDpiChanged()
MyBase.HandleDpiChanged()
For Each f As Form In Me.MdiChildren
Dim form As RadForm1 = TryCast(f, RadForm1)
If form IsNot Nothing Then
form.ToolWindow1.TabStrip.SizeInfo.SizeMode = Telerik.WinControls.UI.Docking.SplitPanelSizeMode.Absolute
form.ToolWindow1.TabStrip.SizeInfo.AbsoluteSize = New Size(200 * form.RadDock1.RootElement.DpiScaleFactor.Width, 0)
End If
Next
End Sub
End Class
I believe that it would cover your scenario.
Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik
Hi Dess,
this only works when the form is not hosted in a mdicontainer.
Regards,
Henk
Hi, Henk,
The possible solution that I can suggest is to adjust the fixed size of the tab strip according to the current scale factor. Override the form's HandleDpiChanged method where you can introduce the changes to any window you want:
Public Class RadForm1
Protected Overrides Sub HandleDpiChanged()
MyBase.HandleDpiChanged()
Me.ToolWindow1.TabStrip.SizeInfo.SizeMode = Telerik.WinControls.UI.Docking.SplitPanelSizeMode.Absolute
Me.ToolWindow1.TabStrip.SizeInfo.AbsoluteSize = New Size(200 * Me.RadDock1.RootElement.DpiScaleFactor.Width, 0)
End Sub
End Class
I hope this information helps. If you need any further assistance please don't hesitate to contact me.
Regards,
Dess | Tech Support Engineer, Sr.
Progress Telerik