Add files via upload

Kr00l · Oct 13, 2019 · ff32246 · ff32246
1 parent c6235d0
commit ff32246
Show file tree

Hide file tree

Showing 7 changed files with 94 additions and 21 deletions.
diff --git a/ActiveX Control Version/Builds/CheckBoxW/CheckBoxW.ctl b/ActiveX Control Version/Builds/CheckBoxW/CheckBoxW.ctl
@@ -7,9 +7,9 @@ Begin VB.UserControl CheckBoxW
    DataBindingBehavior=   1  'vbSimpleBound
    HasDC           =   0   'False
    PropertyPages   =   "CheckBoxW.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "CheckBoxW.ctx":0035
    Begin VB.Timer TimerImageList 
       Enabled         =   0   'False
@@ -642,7 +642,18 @@ If InProc = True Then Exit Sub
 InProc = True
 With UserControl
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
-If CheckBoxHandle <> 0 Then MoveWindow CheckBoxHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+If CheckBoxHandle <> 0 Then
+    If PropTransparent = True Then
+        MoveWindow CheckBoxHandle, 0, 0, .ScaleWidth, .ScaleHeight, 0
+        If CheckBoxTransparentBrush <> 0 Then
+            DeleteObject CheckBoxTransparentBrush
+            CheckBoxTransparentBrush = 0
+        End If
+        RedrawWindow CheckBoxHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+    Else
+        MoveWindow CheckBoxHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+    End If
+End If
 End With
 InProc = False
 End Sub

diff --git a/ActiveX Control Version/Builds/CommandButtonW/CommandButtonW.ctl b/ActiveX Control Version/Builds/CommandButtonW/CommandButtonW.ctl
@@ -7,9 +7,9 @@ Begin VB.UserControl CommandButtonW
    DefaultCancel   =   -1  'True
    HasDC           =   0   'False
    PropertyPages   =   "CommandButtonW.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "CommandButtonW.ctx":0035
    Begin VB.Timer TimerImageList 
       Enabled         =   0   'False
@@ -705,7 +705,18 @@ If InProc = True Then Exit Sub
 InProc = True
 With UserControl
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
-If CommandButtonHandle <> 0 Then MoveWindow CommandButtonHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+If CommandButtonHandle <> 0 Then
+    If PropTransparent = True Then
+        MoveWindow CommandButtonHandle, 0, 0, .ScaleWidth, .ScaleHeight, 0
+        If CommandButtonTransparentBrush <> 0 Then
+            DeleteObject CommandButtonTransparentBrush
+            CommandButtonTransparentBrush = 0
+        End If
+        RedrawWindow CommandButtonHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+    Else
+        MoveWindow CommandButtonHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+    End If
+End If
 End With
 InProc = False
 End Sub

diff --git a/ActiveX Control Version/Builds/CommandLink/CommandLink.ctl b/ActiveX Control Version/Builds/CommandLink/CommandLink.ctl
@@ -7,9 +7,9 @@ Begin VB.UserControl CommandLink
    DefaultCancel   =   -1  'True
    HasDC           =   0   'False
    PropertyPages   =   "CommandLink.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "CommandLink.ctx":004C
    Begin VB.Timer TimerImageList 
       Enabled         =   0   'False
@@ -504,7 +504,18 @@ If InProc = True Then Exit Sub
 InProc = True
 With UserControl
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
-If CommandLinkHandle <> 0 Then MoveWindow CommandLinkHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+If CommandLinkHandle <> 0 Then
+    If PropTransparent = True Then
+        MoveWindow CommandLinkHandle, 0, 0, .ScaleWidth, .ScaleHeight, 0
+        If CommandLinkTransparentBrush <> 0 Then
+            DeleteObject CommandLinkTransparentBrush
+            CommandLinkTransparentBrush = 0
+        End If
+        RedrawWindow CommandLinkHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+    Else
+        MoveWindow CommandLinkHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+    End If
+End If
 End With
 InProc = False
 End Sub

diff --git a/ActiveX Control Version/Builds/LinkLabel/LinkLabel.ctl b/ActiveX Control Version/Builds/LinkLabel/LinkLabel.ctl
@@ -7,9 +7,9 @@ Begin VB.UserControl LinkLabel
    DataBindingBehavior=   1  'vbSimpleBound
    HasDC           =   0   'False
    PropertyPages   =   "LinkLabel.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "LinkLabel.ctx":004A
 End
 Attribute VB_Name = "LinkLabel"
@@ -494,7 +494,16 @@ InProc = True
 With UserControl
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
 If LinkLabelHandle <> 0 Then
-    MoveWindow LinkLabelHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+    If PropTransparent = True Then
+        MoveWindow LinkLabelHandle, 0, 0, .ScaleWidth, .ScaleHeight, 0
+        If LinkLabelTransparentBrush <> 0 Then
+            DeleteObject LinkLabelTransparentBrush
+            LinkLabelTransparentBrush = 0
+        End If
+        RedrawWindow LinkLabelHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+    Else
+        MoveWindow LinkLabelHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+    End If
     If PropShowTips = True And LinkLabelDesignMode = False Then
         Call DestroyToolTip
         Call CreateToolTip

diff --git a/ActiveX Control Version/Builds/OptionButtonW/OptionButtonW.ctl b/ActiveX Control Version/Builds/OptionButtonW/OptionButtonW.ctl
@@ -6,9 +6,9 @@ Begin VB.UserControl OptionButtonW
    ClientWidth     =   2400
    HasDC           =   0   'False
    PropertyPages   =   "OptionButtonW.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "OptionButtonW.ctx":0035
    Begin VB.Timer TimerImageList 
       Enabled         =   0   'False
@@ -566,7 +566,18 @@ If InProc = True Then Exit Sub
 InProc = True
 With UserControl
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
-If OptionButtonHandle <> 0 Then MoveWindow OptionButtonHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+If OptionButtonHandle <> 0 Then
+    If PropTransparent = True Then
+        MoveWindow OptionButtonHandle, 0, 0, .ScaleWidth, .ScaleHeight, 0
+        If OptionButtonTransparentBrush <> 0 Then
+            DeleteObject OptionButtonTransparentBrush
+            OptionButtonTransparentBrush = 0
+        End If
+        RedrawWindow OptionButtonHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+    Else
+        MoveWindow OptionButtonHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+    End If
+End If
 End With
 InProc = False
 End Sub

diff --git a/ActiveX Control Version/Builds/Slider/Slider.ctl b/ActiveX Control Version/Builds/Slider/Slider.ctl
@@ -7,9 +7,9 @@ Begin VB.UserControl Slider
    DataBindingBehavior=   1  'vbSimpleBound
    HasDC           =   0   'False
    PropertyPages   =   "Slider.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "Slider.ctx":004D
 End
 Attribute VB_Name = "Slider"
@@ -469,7 +469,18 @@ Select Case PropOrientation
     Case SldOrientationVertical
         If Width > 45 Then Width = 45
 End Select
-If SliderHandle <> 0 Then MoveWindow SliderHandle, 0, 0, Width, Height, 1
+If SliderHandle <> 0 Then
+    If PropTransparent = True Then
+        MoveWindow SliderHandle, 0, 0, Width, Height, 0
+        If SliderTransparentBrush <> 0 Then
+            DeleteObject SliderTransparentBrush
+            SliderTransparentBrush = 0
+        End If
+        RedrawWindow SliderHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+    Else
+        MoveWindow SliderHandle, 0, 0, Width, Height, 1
+    End If
+End If
 .Extender.Move .Extender.Left, .Extender.Top, .ScaleX(Width, vbPixels, vbContainerSize), .ScaleY(Height, vbPixels, vbContainerSize)
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
 End With

diff --git a/ActiveX Control Version/Builds/ToolBar/ToolBar.ctl b/ActiveX Control Version/Builds/ToolBar/ToolBar.ctl
@@ -9,9 +9,9 @@ Begin VB.UserControl ToolBar
    ControlContainer=   -1  'True
    HasDC           =   0   'False
    PropertyPages   =   "ToolBar.ctx":0000
-   ScaleHeight     =   150
+   ScaleHeight     =   120
    ScaleMode       =   3  'Pixel
-   ScaleWidth      =   200
+   ScaleWidth      =   160
    ToolboxBitmap   =   "ToolBar.ctx":005B
    Begin VB.Timer TimerImageList 
       Enabled         =   0   'False
@@ -1108,7 +1108,16 @@ Select Case Align
         End If
 End Select
 If DPICorrectionFactor() <> 1 Then Call SyncObjectRectsToContainer(Me)
-MoveWindow ToolBarHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+If PropTransparent = True Then
+    MoveWindow ToolBarHandle, 0, 0, .ScaleWidth, .ScaleHeight, 0
+    If ToolBarTransparentBrush <> 0 Then
+        DeleteObject ToolBarTransparentBrush
+        ToolBarTransparentBrush = 0
+    End If
+    RedrawWindow ToolBarHandle, 0, 0, RDW_UPDATENOW Or RDW_INVALIDATE Or RDW_ERASE
+Else
+    MoveWindow ToolBarHandle, 0, 0, .ScaleWidth, .ScaleHeight, 1
+End If
 End With
 InProc = False
 If Count > 0 And PropWrappable = True Then