Skip to content

Commit

Permalink
minors
Browse files Browse the repository at this point in the history
  • Loading branch information
OlimilO1402 committed Jul 26, 2022
1 parent 5e95f9b commit 033d786
Show file tree
Hide file tree
Showing 8 changed files with 148 additions and 91 deletions.
20 changes: 10 additions & 10 deletions Classes/Splitter.cls
Original file line number Diff line number Diff line change
Expand Up @@ -74,6 +74,16 @@ Private Sub Class_Initialize()
mBorderStyle = bsRaised
End Sub

Private Sub Class_Terminate()
' Set mMDIPar = Nothing
' Set mParent = Nothing
' Set mContainer = Nothing
' Set mPicSplit = Nothing
' Set mXPStyleC = Nothing
' Set mLeftTopCtrl = Nothing
' Set mRghtBotCtrl = Nothing
End Sub

Friend Sub New_(BolMDI As Boolean, MyOwner As Object, MyContainer As Object, Name As String, LeftTop As Control, RghtBot As Control)
mInitializing = True
mName = Name
Expand Down Expand Up @@ -419,13 +429,3 @@ Private Function MakeBiggerRect(L As Long, T As Long, W As Long, H As Long) As m
MakeBiggerRect.Bottom = T + H + 2 * TH
End Function

Private Sub Class_Terminate()
Set mMDIPar = Nothing
Set mParent = Nothing
Set mContainer = Nothing
Set mPicSplit = Nothing
Set mXPStyleC = Nothing
Set mLeftTopCtrl = Nothing
Set mRghtBotCtrl = Nothing
End Sub

42 changes: 28 additions & 14 deletions Forms/Form1.frm
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4515
ClientHeight = 4575
ClientLeft = 120
ClientTop = 465
ClientWidth = 6135
LinkTopic = "Form1"
ScaleHeight = 4515
ScaleHeight = 4575
ScaleWidth = 6135
StartUpPosition = 3 'Windows-Standard
Begin VB.PictureBox Panel1
Expand All @@ -18,7 +18,7 @@ Begin VB.Form Form1
ScaleHeight = 3705
ScaleWidth = 5985
TabIndex = 1
Top = 780
Top = 720
Width = 6015
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Expand All @@ -45,20 +45,20 @@ Begin VB.Form Form1
Begin VB.PictureBox Picture3
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Height = 1815
Height = 1695
Left = 0
ScaleHeight = 1755
ScaleHeight = 1635
ScaleWidth = 3795
TabIndex = 4
Top = 1680
Top = 1800
Width = 3855
End
Begin VB.PictureBox Picture2
AutoSize = -1 'True
BackColor = &H00C0E0FF&
Height = 1575
Height = 1695
Left = 0
ScaleHeight = 1515
ScaleHeight = 1635
ScaleWidth = 3795
TabIndex = 5
Top = 0
Expand Down Expand Up @@ -86,24 +86,38 @@ Attribute SplitterH.VB_VarHelpID = -1
Private WithEvents SplitterV As Splitter
Attribute SplitterV.VB_VarHelpID = -1

Private Sub Form_Load()
Private Sub Form_Initialize()

Set SplitterH = MNew.Splitter(False, Me, Panel1, "SplitterH", Picture1, Panel2)
With SplitterH
.LeftTopPos = Picture1.Width 'important: set the start-position of the Splitter
.BorderStyle = bsXPStyl 'bsXPStyl: we borrow the cool-look of a Command-button to use themeing and animation
.LeftTopPos = Picture1.Width 'important: set the start-position of the Splitter
End With
Set SplitterV = MNew.Splitter(False, Me, Panel2, "SplitterV", Picture2, Picture3)
With SplitterV
.LeftTopPos = Picture2.Height 'important: set the start-position of the Splitter
.BorderStyle = bsXPStyl 'bsXPStyl: we borrow the cool-look of a Command-button to use themeing and animation
.IsHorizontal = False
.BorderStyle = bsXPStyl 'bsXPStyl: we borrow the cool-look of a Command-button to use themeing and animation
.LeftTopPos = Picture2.ScaleHeight * Screen.TwipsPerPixelY 'important: set the start-position of the Splitter
End With

'Picture1.Print "Picture1"
'Picture2.Print "Picture2"
End Sub

'Private Sub Form_Load()
'
' Set SplitterH = MNew.Splitter(False, Me, Panel1, "SplitterH", Picture1, Panel2)
' With SplitterH
' .BorderStyle = bsXPStyl 'bsXPStyl: we borrow the cool-look of a Command-button to use themeing and animation
' .LeftTopPos = Picture1.Width 'important: set the start-position of the Splitter
' End With
' Set SplitterV = MNew.Splitter(False, Me, Panel2, "SplitterV", Picture2, Picture3)
' With SplitterV
' .IsHorizontal = False
' .BorderStyle = bsXPStyl 'bsXPStyl: we borrow the cool-look of a Command-button to use themeing and animation
' .LeftTopPos = Picture2.ScaleHeight * Screen.TwipsPerPixelY 'important: set the start-position of the Splitter
' End With
'
'End Sub

Private Sub Form_Resize()
Dim brdr As Single: brdr = 8 * Screen.TwipsPerPixelX
Dim L As Single
Expand Down
19 changes: 19 additions & 0 deletions Forms/Form10.log
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
Zeile 52: Klasse SHDocVwCtl.WebBrowser des Steuerelements WebBrowser1 war keine geladene Steuerelementklasse.
Zeile 58: Der Eigenschaftsname ExtentX in WebBrowser1 ist ung�ltig.
Zeile 59: Der Eigenschaftsname ExtentY in WebBrowser1 ist ung�ltig.
Zeile 60: Der Eigenschaftsname ViewMode in WebBrowser1 ist ung�ltig.
Zeile 61: Der Eigenschaftsname Offline in WebBrowser1 ist ung�ltig.
Zeile 62: Der Eigenschaftsname Silent in WebBrowser1 ist ung�ltig.
Zeile 63: Der Eigenschaftsname RegisterAsBrowser in WebBrowser1 ist ung�ltig.
Zeile 64: Der Eigenschaftsname RegisterAsDropTarget in WebBrowser1 ist ung�ltig.
Zeile 65: Der Eigenschaftsname AutoArrange in WebBrowser1 ist ung�ltig.
Zeile 66: Der Eigenschaftsname NoClientEdge in WebBrowser1 ist ung�ltig.
Zeile 67: Der Eigenschaftsname AlignLeft in WebBrowser1 ist ung�ltig.
Zeile 68: Der Eigenschaftsname NoWebView in WebBrowser1 ist ung�ltig.
Zeile 69: Der Eigenschaftsname HideFileNames in WebBrowser1 ist ung�ltig.
Zeile 70: Der Eigenschaftsname SingleClick in WebBrowser1 ist ung�ltig.
Zeile 71: Der Eigenschaftsname SingleSelection in WebBrowser1 ist ung�ltig.
Zeile 72: Der Eigenschaftsname NoFolders in WebBrowser1 ist ung�ltig.
Zeile 73: Der Eigenschaftsname Transparent in WebBrowser1 ist ung�ltig.
Zeile 74: Der Eigenschaftsname ViewID in WebBrowser1 ist ung�ltig.
Zeile 75: Der Eigenschaftsname Location in WebBrowser1 ist ung�ltig.
30 changes: 15 additions & 15 deletions Forms/Form2.frm
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
VERSION 5.00
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 4515
ClientHeight = 4575
ClientLeft = 120
ClientTop = 465
ClientWidth = 6135
LinkTopic = "Form2"
ScaleHeight = 4515
ScaleHeight = 4575
ScaleWidth = 6135
StartUpPosition = 3 'Windows-Standard
Begin VB.CommandButton BtnNext
Expand All @@ -24,17 +24,17 @@ Begin VB.Form Form2
Height = 3735
Left = 0
ScaleHeight = 3705
ScaleWidth = 6105
ScaleWidth = 5985
TabIndex = 0
Top = 780
Width = 6135
Top = 720
Width = 6015
Begin VB.PictureBox Panel2
Appearance = 0 '2D
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 3735
Left = 2520
ScaleHeight = 3705
Height = 3615
Left = 2400
ScaleHeight = 3585
ScaleWidth = 3465
TabIndex = 3
Top = 0
Expand Down Expand Up @@ -65,7 +65,7 @@ Begin VB.Form Form2
Left = 0
TabIndex = 2
Top = 0
Width = 1935
Width = 2295
End
End
End
Expand All @@ -81,20 +81,20 @@ Private WithEvents SplitterV As Splitter
Attribute SplitterV.VB_VarHelpID = -1

Private Sub Form_Load()

Set SplitterH = MNew.Splitter(False, Me, Panel1, "Splitter1", Label1, Panel2)
With SplitterH
.LeftTopPos = Label1.Width 'important: set the start-position of the Splitter
.BorderStyle = bsXPStyl 'bsXPStyle: we borrow the cool-look of a Command-button to use themeing and animation
.LeftTopPos = Label1.Width 'important: set the start-position of the Splitter
End With

Set SplitterV = MNew.Splitter(False, Me, Panel2, "SplitterV", Label2, Label3)
With SplitterV
.LeftTopPos = Label2.Height 'important: set the start-position of the Splitter
.BorderStyle = bsXPStyl 'bsXPStyle: we borrow the cool-look of a Command-button to use themeing and animation
.IsHorizontal = False
.BorderStyle = bsXPStyl 'bsXPStyle: we borrow the cool-look of a Command-button to use themeing and animation
.LeftTopPos = Label2.Height * Screen.TwipsPerPixelY 'important: set the start-position of the Splitter
End With

End Sub

Private Sub Form_Resize()
Expand Down
30 changes: 15 additions & 15 deletions Forms/Form3.frm
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
VERSION 5.00
Begin VB.Form Form3
Caption = "Form3"
ClientHeight = 4515
ClientHeight = 4575
ClientLeft = 120
ClientTop = 465
ClientWidth = 6135
ClientWidth = 6255
LinkTopic = "Form3"
ScaleHeight = 4515
ScaleWidth = 6135
ScaleHeight = 4575
ScaleWidth = 6255
StartUpPosition = 3 'Windows-Standard
Begin VB.PictureBox Panel1
Appearance = 0 '2D
Expand All @@ -24,34 +24,34 @@ Begin VB.Form Form3
Appearance = 0 '2D
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 3735
Height = 3615
Left = 2520
ScaleHeight = 3705
ScaleHeight = 3585
ScaleWidth = 3465
TabIndex = 3
Top = 0
Width = 3495
Begin VB.TextBox Text3
BackColor = &H00FFC0C0&
Height = 1455
Height = 1695
Left = 0
MultiLine = -1 'True
ScrollBars = 3 'Beides
TabIndex = 5
Text = "Form3.frx":0000
Top = 1560
Width = 3135
Top = 1800
Width = 3375
End
Begin VB.TextBox Text2
BackColor = &H00C0FFC0&
Height = 1455
Height = 1695
Left = 0
MultiLine = -1 'True
ScrollBars = 3 'Beides
TabIndex = 4
Text = "Form3.frx":0006
Top = 0
Width = 3135
Width = 3375
End
End
Begin VB.TextBox Text1
Expand Down Expand Up @@ -88,17 +88,17 @@ Attribute SplitterV.VB_VarHelpID = -1

Private Sub Form_Load()

Set SplitterH = MNew.Splitter(False, Me, Panel1, "Splitter1", Text1, Panel2)
Set SplitterH = MNew.Splitter(False, Me, Panel1, "SplitterH", Text1, Panel2)
With SplitterH
.LeftTopPos = Text1.Width 'important: set the start-position of the Splitter
.BorderStyle = bsXPStyl 'bsXPStyle: we borrow the cool-look of a Command-button to use themeing and animation
.LeftTopPos = Text1.Width 'important: set the start-position of the Splitter
End With

Set SplitterV = MNew.Splitter(False, Me, Panel2, "SplitterV", Text2, Text3)
With SplitterV
.LeftTopPos = Text2.Height 'important: set the start-position of the Splitter
.BorderStyle = bsXPStyl 'bsXPStyle: we borrow the cool-look of a Command-button to use themeing and animation
.IsHorizontal = False
.BorderStyle = bsXPStyl 'bsXPStyle: we borrow the cool-look of a Command-button to use themeing and animation
.LeftTopPos = Text2.Height * Screen.TwipsPerPixelY / 3 'important: set the start-position of the Splitter
End With

End Sub
Expand Down
Loading

0 comments on commit 033d786

Please sign in to comment.