Add DPI Scaling to frmIndex, more logging in ClassFileDrop
This commit is contained in:
@@ -1720,11 +1720,13 @@ Public Class frmIndex
|
||||
|
||||
Private Sub LoadIndexe_Man()
|
||||
Try
|
||||
Dim oControlCount As Integer = 1
|
||||
Dim oLabelPosition As Integer = 11
|
||||
Dim oControlPosition As Integer = 33
|
||||
|
||||
Dim oControls As New DigitalData.GUIs.GlobalIndexer.ControlCreator(LOGCONFIG, pnlIndex, Me) With {
|
||||
Dim oDpiscale = DigitalData.Modules.Windows.Screen.GetScalingFactor()
|
||||
Dim oControlCount As Integer = 1
|
||||
Dim oLabelPosition As Integer = 11 * oDpiscale
|
||||
Dim oControlPosition As Integer = 33 * oDpiscale
|
||||
|
||||
Dim oControls As New ControlCreator(LOGCONFIG, pnlIndex, Me) With {
|
||||
.OnControlChanged = AddressOf PrepareDependingControl,
|
||||
.OnLookupData = AddressOf GetLookupData
|
||||
}
|
||||
@@ -1811,8 +1813,8 @@ Public Class frmIndex
|
||||
End Select
|
||||
|
||||
oControlCount += 1
|
||||
oLabelPosition += 50
|
||||
oControlPosition += 50
|
||||
oLabelPosition += 50 * oDpiscale
|
||||
oControlPosition += 50 * oDpiscale
|
||||
'make y as height in fom
|
||||
Next
|
||||
Dim oPanelHeight = oControlPosition - 30
|
||||
|
||||
Reference in New Issue
Block a user