diff --git a/Classes/Splitter.cls b/Classes/Splitter.cls index a531751..102aedd 100644 --- a/Classes/Splitter.cls +++ b/Classes/Splitter.cls @@ -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 @@ -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 - diff --git a/Forms/Form1.frm b/Forms/Form1.frm index 596ca36..1073850 100644 --- a/Forms/Form1.frm +++ b/Forms/Form1.frm @@ -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 @@ -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 @@ -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 @@ -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 diff --git a/Forms/Form10.log b/Forms/Form10.log new file mode 100644 index 0000000..412bf0b --- /dev/null +++ b/Forms/Form10.log @@ -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. diff --git a/Forms/Form2.frm b/Forms/Form2.frm index 68be483..3c63dd9 100644 --- a/Forms/Form2.frm +++ b/Forms/Form2.frm @@ -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 @@ -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 @@ -65,7 +65,7 @@ Begin VB.Form Form2 Left = 0 TabIndex = 2 Top = 0 - Width = 1935 + Width = 2295 End End End @@ -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() diff --git a/Forms/Form3.frm b/Forms/Form3.frm index 867ef97..a722db3 100644 --- a/Forms/Form3.frm +++ b/Forms/Form3.frm @@ -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 @@ -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 @@ -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 diff --git a/Forms/Form4.frm b/Forms/Form4.frm index 46317f8..a6e4d34 100644 --- a/Forms/Form4.frm +++ b/Forms/Form4.frm @@ -1,13 +1,13 @@ VERSION 5.00 Begin VB.Form Form4 Caption = "Form4" - ClientHeight = 4515 + ClientHeight = 4575 ClientLeft = 120 ClientTop = 465 - ClientWidth = 6135 + ClientWidth = 6255 LinkTopic = "Form4" - ScaleHeight = 4515 - ScaleWidth = 6135 + ScaleHeight = 4575 + ScaleWidth = 6255 StartUpPosition = 3 'Windows-Standard Begin VB.CommandButton BtnNext Caption = "Next >>" @@ -28,23 +28,44 @@ Begin VB.Form Form4 TabIndex = 0 Top = 720 Width = 6135 - Begin VB.Frame Frame2 - BackColor = &H008080FF& - Caption = "Frame2" - Height = 3135 + Begin VB.PictureBox Panel2 + Appearance = 0 '2D + BackColor = &H80000005& + ForeColor = &H80000008& + Height = 3495 Left = 2040 + ScaleHeight = 3465 + ScaleWidth = 3945 TabIndex = 3 - Top = 240 - Width = 3735 + Top = 120 + Width = 3975 + Begin VB.Frame Frame3 + BackColor = &H00C0C0FF& + Caption = "Frame2" + Height = 1575 + Left = 0 + TabIndex = 5 + Top = 1800 + Width = 3735 + End + Begin VB.Frame Frame2 + BackColor = &H008080FF& + Caption = "Frame2" + Height = 1695 + Left = 0 + TabIndex = 4 + Top = 0 + Width = 3735 + End End Begin VB.Frame Frame1 BackColor = &H00FFC0FF& Caption = "Frame1" - Height = 2775 + Height = 3495 Left = 120 TabIndex = 2 - Top = 240 - Width = 1695 + Top = 120 + Width = 1815 End End End @@ -56,14 +77,25 @@ Attribute VB_Exposed = False Option Explicit Private WithEvents Splitter1 As Splitter Attribute Splitter1.VB_VarHelpID = -1 +Private WithEvents Splitter2 As Splitter +Attribute Splitter2.VB_VarHelpID = -1 Private Sub Form_Load() - Set Splitter1 = New Splitter - Splitter1.New_ False, Me, Panel1, "Splitter1", Frame1, Frame2 - Splitter1.LeftTopPos = Frame1.Width 'important: set the start-position of the Splitter - Splitter1.BorderStyle = bsXPStyl 'bsXPStyl: for cool-looking a Command-button will be - 'created using themeing and animation of the button! + Set Splitter1 = MNew.Splitter(False, Me, Panel1, "Splitter1", Frame1, Panel2) + With Splitter1 + .BorderStyle = bsXPStyl 'bsXPStyl: for cool-looking a Command-button will be + .LeftTopPos = Frame1.Width 'important: set the start-position of the Splitter + End With 'created using themeing and animation of the button! + + Set Splitter2 = MNew.Splitter(False, Me, Panel2, "Splitter2", Frame2, Frame3) + With Splitter2 + .IsHorizontal = False + .BorderStyle = bsXPStyl 'bsXPStyl: for cool-looking a Command-button will be + '.LeftTopPos = Frame1.Width 'important: set the start-position of the Splitter + .LeftTopPos = Frame2.Height * Screen.TwipsPerPixelY + End With 'created using themeing and animation of the button! + End Sub Private Sub Form_Resize() diff --git a/Forms/Form8.frm b/Forms/Form8.frm index 583371c..508367c 100644 --- a/Forms/Form8.frm +++ b/Forms/Form8.frm @@ -1,13 +1,13 @@ VERSION 5.00 Begin VB.Form Form8 Caption = "Form8" - ClientHeight = 4515 + ClientHeight = 4575 ClientLeft = 120 ClientTop = 465 - ClientWidth = 6135 + ClientWidth = 6270 LinkTopic = "Form8" - ScaleHeight = 4515 - ScaleWidth = 6135 + ScaleHeight = 4575 + ScaleWidth = 6270 StartUpPosition = 3 'Windows-Standard Begin VB.CommandButton BtnNext Caption = "Next >>" @@ -43,11 +43,11 @@ Begin VB.Form Form8 Height = 1620 Left = 0 TabIndex = 5 - Top = 1680 + Top = 1800 Width = 3855 End Begin VB.ListBox List2 - Height = 1425 + Height = 1620 Left = 0 TabIndex = 4 Top = 0 @@ -74,27 +74,19 @@ Attribute SplitterH.VB_VarHelpID = -1 Private WithEvents SplitterV As Splitter Attribute SplitterV.VB_VarHelpID = -1 -'Private Sub Form_Activate() - -'End Sub - -'Private Sub Form_Initialize() - -'End Sub - Private Sub Form_Load() Set SplitterH = MNew.Splitter(False, Me, Panel1, "SplitterH", List1, Panel2) With SplitterH - .LeftTopPos = List1.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 = List1.Width 'important: set the start-position of the Splitter End With Set SplitterV = MNew.Splitter(False, Me, Panel2, "SplitterV", List2, List3) With SplitterV - .LeftTopPos = List2.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 = List2.Height * Screen.TwipsPerPixelY / 2 'important: set the start-position of the Splitter End With End Sub diff --git a/Forms/Form9.frm b/Forms/Form9.frm index 5feeda6..bbf9a42 100644 --- a/Forms/Form9.frm +++ b/Forms/Form9.frm @@ -98,12 +98,12 @@ End Sub Private Sub Form_Resize() Dim brdr As Single: brdr = 8 * Screen.TwipsPerPixelX - Dim l As Single + Dim L As Single Dim T As Single: T = BtnNext.Top + BtnNext.Height + brdr Dim W As Single: W = Me.ScaleWidth Dim H As Single: H = Me.ScaleHeight - T If W > 0 And H > 0 Then - Panel1.Move l, T, W, H + Panel1.Move L, T, W, H End If End Sub