Skip to content

Commit

Permalink
added version in title
Browse files Browse the repository at this point in the history
  • Loading branch information
OlimilO1402 committed Oct 22, 2022
1 parent 033d786 commit 2583a5a
Show file tree
Hide file tree
Showing 5 changed files with 20 additions and 28 deletions.
4 changes: 4 additions & 0 deletions Forms/Form1.frm
Original file line number Diff line number Diff line change
Expand Up @@ -86,6 +86,10 @@ Attribute SplitterH.VB_VarHelpID = -1
Private WithEvents SplitterV As Splitter
Attribute SplitterV.VB_VarHelpID = -1

Private Sub Form_Load()
Me.Caption = Me.Caption & " v" & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub Form_Initialize()

Set SplitterH = MNew.Splitter(False, Me, Panel1, "SplitterH", Picture1, Panel2)
Expand Down
19 changes: 1 addition & 18 deletions Forms/Form10.log
Original file line number Diff line number Diff line change
@@ -1,19 +1,2 @@
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.
Zeile 77: Klasse RichTextLib.RichTextBox des Steuerelements RichTextBox1 war keine geladene Steuerelementklasse.
13 changes: 6 additions & 7 deletions PSplitter.vbp
Original file line number Diff line number Diff line change
@@ -1,21 +1,20 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SysWow64\stdole2.tlb#OLE Automation
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; ieframe.dll
Form=Forms\Form1.frm
Form=Forms\Form2.frm
Form=Forms\Form3.frm
Form=Forms\Form4.frm
Form=Forms\Form5.frm
Form=Forms\Form6.frm
Form=Forms\Form7.frm
Class=Splitter; Classes\Splitter.cls
Module=MNew; Modules\MNew.bas
Form=Forms\Form8.frm
Form=Forms\Form9.frm
Form=Forms\Form10.frm
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; ieframe.dll
Module=MNew; Modules\MNew.bas
Class=Splitter; Classes\Splitter.cls
ResFile32="Resources\MyRes.res"
IconForm="Form1"
Startup="Form1"
HelpFile=""
Title="PSplitter"
Expand All @@ -26,7 +25,7 @@ HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=1
RevisionVer=2
AutoIncrementVer=1
ServerSupportFiles=0
VersionCompanyName="MBO-Ing.com"
Expand Down
12 changes: 9 additions & 3 deletions README.md
Original file line number Diff line number Diff line change
@@ -1,7 +1,13 @@
# Ctrl_Splitter
## Splitter Control horizontal or vertical
# Ctrl_Splitter
## Splitter Control horizontal or vertical

[![GitHub](https://img.shields.io/github/license/OlimilO1402/Ctrl_Splitter?style=plastic)](https://github.com/OlimilO1402/Ctrl_Splitter/blob/master/LICENSE)
[![GitHub release (latest by date)](https://img.shields.io/github/v/release/OlimilO1402/Ctrl_Splitter?style=plastic)](https://github.com/OlimilO1402/Ctrl_Splitter/releases/latest)
[![Github All Releases](https://img.shields.io/github/downloads/OlimilO1402/Ctrl_Splitter/total.svg)](https://github.com/OlimilO1402/Ctrl_Splitter/releases/download/v1.0.6/Splitter_v1.0.6.zip)
[![Follow](https://img.shields.io/github/followers/OlimilO1402.svg?style=social&label=Follow&maxAge=2592000)](https://github.com/OlimilO1402/Ctrl_Splitter/watchers)

in fact it is just a Class not a Control, nothing more is needed here.
Project started in dec. 1999, first stable version in sept.2005
Project started in dec. 1999, first stable version in sept.2005
On the form an extra CommandButton will be created as Splitter, it looks cool, dunno why nobody else got the idea, but see yourself.

![Splitter Image](Resources/Splitter.png "Splitter Image")
Binary file removed Splitter.zip
Binary file not shown.

0 comments on commit 2583a5a

Please sign in to comment.