-
Mar 16th, 2021, 09:31 PM
#1
Thread Starter
Hyperactive Member
Neumorphism Design
In this case, it is, on the one hand, a class Module and, on the other, a Usercontrol to create a modern user interface called Neumorphism, which began to become fashionable as of 2020, although it is designed for mobile applications or webs I see no reason not to implement it in our beloved vb6, at least in small applications so as not to overload memory and slow down our app. The whole engine is based on GDI +.
With the class module there is an example where we can play with the properties of the class and other forms with some graphical examples.
In addition, this allows you to draw a GDI + Path with which an extra module was used, where you can create different shapes (Shapes) and the style can be applied to them, I take the opportunity to thank Eduardo for taking part in the routines of his ShapeEx. and thank you very much to SomeYguy for the rutine to rotate path.
With the Usercontrol there are three applied examples. I am not going to detail all the properties, it is a matter of reaching out and playing a bit, they are the same as the module. Accompanying the examples is the "LabelPlus" usercontrol, which is to add text and icons to the forms, (I didn't want to reprogram all this, that's why I used two usercontrols).
Later I am going to upload a music player in which I am working where you can see all this applied.
Finally I want to clarify that all this works faster when it is compiled.
Neumorphism.zip
Last edited by LeandroA; Mar 16th, 2021 at 09:43 PM.
-
Mar 16th, 2021, 11:49 PM
#2
Fanatic Member
-
Mar 17th, 2021, 03:10 AM
#3
Lively Member
Re: Neumorphism Design
Great!
Leandro, how do the 'player' image sample?
Thank.
-
Mar 17th, 2021, 05:17 AM
#4
-
Mar 17th, 2021, 05:49 AM
#5
Thread Starter
Hyperactive Member
Re: Neumorphism Design
Originally Posted by xxdoc123
You can be a designer
so let's forget the orange form
@LeoFar
Hello, inside the folder Ā«Neumorphism\UserControl Neumorphism\MetronomeĀ» is the project
The metronome is a device for musicians with which they can keep track of musical time when playing their instrument.
@Eduardo
-
Mar 17th, 2021, 11:20 AM
#6
Hyperactive Member
-
Mar 17th, 2021, 12:00 PM
#7
Lively Member
Re: Neumorphism Design
Originally Posted by LeandroA
@LeoFar
Hello, inside the folder Ā«Neumorphism\UserControl Neumorphism\MetronomeĀ» is the project
The metronome is a device for musicians with which they can keep track of musical time when playing their instrument.
Thanks!
-
Mar 17th, 2021, 12:44 PM
#8
Re: Neumorphism Design
JFYI, here is MZ-Tools review source code on Neumorphism\UserControl Neumorphism\Metronomo\Proyecto1.vbp
Code:
Proyecto1
User Controls
LabelPlus (LabelPlus.ctl)
(General)-(Declarations)
The declaration Declare 'TlsFree' is not used
The declaration Declare 'GdipImageRotateFlip' is not used
The declaration Declare 'GdipSetSolidFillColor' is not used
The declaration Declare 'GdipGetGenericFontFamilySerif' is not used (it is used only inside commented block)
The declaration Declare 'GdipDrawPie' is not used
The UDT Type 'POINTL' is not used
Private Function GDIP_AddPathString(ByVal hGraphics As Long, X As Long, Y As Long, Width As Long, Height As Long, Optional ForShadow As Boolean, Optional GetMeasureString As Boolean) As Boolean
The variable 'hdc' is not used
Private Sub CreateCaptionShadow(ByVal X As Long, ByVal Y As Long, ByVal lWidth As Long, ByVal lHeight As Long)
The parameter 'X' is not used
The parameter 'Y' is not used
The variable 'hBrush' is not used
The variable 'hPen' is not used
The variable 'RecL' is not used
Private Sub DrawProgress(hGraphics As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal Value As Long, ByVal Max As Long)
The variable 'HScale' is not used
The variable 'VScale' is not used
The variable 'imgWidth' is not used
The variable 'imgHeight' is not used
The variable 'nSize' is not used
Private Function CreateBrushTexture(hGraphics As Long, hPath As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long) As Long
The parameter 'hGraphics' is not used
The parameter 'hPath' is not used
The variable 'imgWidth' is not used
The variable 'imgHeight' is not used
Private Function CreateBlurShadowImage(ByVal hImage As Long, ByVal Color As Long, blurDepth As Integer, _
The variable 'Alpha' is not used
The variable 'lSrcAlpha' is not used
The variable 'lDestAlpha' is not used
The variable 'initX' is not used
The variable 'initXstop' is not used
Private Function WriteValue(ByVal lProp As Long, ByVal lValue As Long) As Boolean
The procedure 'WriteValue' is not used (it is used only inside commented block)
Private Function ObjFromPtr(ByVal pObj As Long) As Object
The procedure 'ObjFromPtr' is not used
ucNeumorphism (ucNeumorphism.ctl)
(General)-(Declarations)
The declaration Declare 'MulDiv' is not used
The declaration Declare 'SetRect' is not used
The declaration Declare 'VarPtrArray' is not used
The declaration Declare 'BitBlt' is not used
The declaration Declare 'CreateCompatibleDC' is not used
The declaration Declare 'CreateCompatibleBitmap' is not used
The declaration Declare 'SelectObject' is not used
The declaration Declare 'DeleteDC' is not used
The declaration Declare 'DeleteObject' is not used
The declaration Declare 'CreateStreamOnHGlobal' is not used
The declaration Declare 'GdipGetPathWorldBoundsI' is not used
The declaration Declare 'GdipTranslateTextureTransform' is not used
The declaration Declare 'GdipAddPathLineI' is not used
The declaration Declare 'GdipClosePathFigures' is not used
The constant 'LOGPIXELSY' is not used
The variable 'hDCMemory' is not used
Public Function CloneTo(ByVal SRC_ucNeumorphism As ucNeumorphism, Optional TwoState As Boolean, Optional DontClone As Boolean)
The variable 'm_State' is not used
Private Function IsPointInPath(PX As Single, PY As Single) As Boolean
The variable 'hPath' is not used
Property Pages
PropPagLP (PropPagLP.pag)
(General)-(Declarations)
The declaration Declare 'SetWindowLong' is not used
The declaration Declare 'GetWindowLong' is not used
The declaration Declare 'SetWindowLongW' is not used
The declaration Declare 'GetWindowLongW' is not used
The constant 'WM_KILLFOCUS' is not used
The constant 'WM_SETFOCUS' is not used
The constant 'EN_CHANGE' is not used
The constant 'WM_COMMAND' is not used
The constant 'GWL_WNDPROC' is not used
The constant 'WM_DESTROY' is not used
The declaration Declare 'GetFileTitle' is not used
The variable 'm_Parent' is not used
The variable 'm_WinProc' is not used
The variable 'm_WinProcParent' is not used
Private Function VBGetOpenFileName(Filename As String, _
The variable 'afFlags' is not used
Private Sub cmdBrowse_Click()
The variable 'svName' is not used
Private Sub Command1_Click()
The procedure 'Command1_Click' is not used
Forms
FrmMetronomo (FrmMetronomo.frm)
Private Function ReadFile(sPath As String, bArr() As Byte) As Boolean
The procedure 'ReadFile' is not used
cheers,
</wqw>
-
Mar 18th, 2021, 08:46 PM
#9
Thread Starter
Hyperactive Member
Re: Neumorphism Design
Originally Posted by wqweto
JFYI, here is MZ-Tools review source code on Neumorphism\UserControl Neumorphism\Metronomo\Proyecto1.vbp
Code:
Proyecto1
User Controls
LabelPlus (LabelPlus.ctl)
(General)-(Declarations)
The declaration Declare 'TlsFree' is not used
The declaration Declare 'GdipImageRotateFlip' is not used
The declaration Declare 'GdipSetSolidFillColor' is not used
The declaration Declare 'GdipGetGenericFontFamilySerif' is not used (it is used only inside commented block)
The declaration Declare 'GdipDrawPie' is not used
The UDT Type 'POINTL' is not used
Private Function GDIP_AddPathString(ByVal hGraphics As Long, X As Long, Y As Long, Width As Long, Height As Long, Optional ForShadow As Boolean, Optional GetMeasureString As Boolean) As Boolean
The variable 'hdc' is not used
Private Sub CreateCaptionShadow(ByVal X As Long, ByVal Y As Long, ByVal lWidth As Long, ByVal lHeight As Long)
The parameter 'X' is not used
The parameter 'Y' is not used
The variable 'hBrush' is not used
The variable 'hPen' is not used
The variable 'RecL' is not used
Private Sub DrawProgress(hGraphics As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal Value As Long, ByVal Max As Long)
The variable 'HScale' is not used
The variable 'VScale' is not used
The variable 'imgWidth' is not used
The variable 'imgHeight' is not used
The variable 'nSize' is not used
Private Function CreateBrushTexture(hGraphics As Long, hPath As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long) As Long
The parameter 'hGraphics' is not used
The parameter 'hPath' is not used
The variable 'imgWidth' is not used
The variable 'imgHeight' is not used
Private Function CreateBlurShadowImage(ByVal hImage As Long, ByVal Color As Long, blurDepth As Integer, _
The variable 'Alpha' is not used
The variable 'lSrcAlpha' is not used
The variable 'lDestAlpha' is not used
The variable 'initX' is not used
The variable 'initXstop' is not used
Private Function WriteValue(ByVal lProp As Long, ByVal lValue As Long) As Boolean
The procedure 'WriteValue' is not used (it is used only inside commented block)
Private Function ObjFromPtr(ByVal pObj As Long) As Object
The procedure 'ObjFromPtr' is not used
ucNeumorphism (ucNeumorphism.ctl)
(General)-(Declarations)
The declaration Declare 'MulDiv' is not used
The declaration Declare 'SetRect' is not used
The declaration Declare 'VarPtrArray' is not used
The declaration Declare 'BitBlt' is not used
The declaration Declare 'CreateCompatibleDC' is not used
The declaration Declare 'CreateCompatibleBitmap' is not used
The declaration Declare 'SelectObject' is not used
The declaration Declare 'DeleteDC' is not used
The declaration Declare 'DeleteObject' is not used
The declaration Declare 'CreateStreamOnHGlobal' is not used
The declaration Declare 'GdipGetPathWorldBoundsI' is not used
The declaration Declare 'GdipTranslateTextureTransform' is not used
The declaration Declare 'GdipAddPathLineI' is not used
The declaration Declare 'GdipClosePathFigures' is not used
The constant 'LOGPIXELSY' is not used
The variable 'hDCMemory' is not used
Public Function CloneTo(ByVal SRC_ucNeumorphism As ucNeumorphism, Optional TwoState As Boolean, Optional DontClone As Boolean)
The variable 'm_State' is not used
Private Function IsPointInPath(PX As Single, PY As Single) As Boolean
The variable 'hPath' is not used
Property Pages
PropPagLP (PropPagLP.pag)
(General)-(Declarations)
The declaration Declare 'SetWindowLong' is not used
The declaration Declare 'GetWindowLong' is not used
The declaration Declare 'SetWindowLongW' is not used
The declaration Declare 'GetWindowLongW' is not used
The constant 'WM_KILLFOCUS' is not used
The constant 'WM_SETFOCUS' is not used
The constant 'EN_CHANGE' is not used
The constant 'WM_COMMAND' is not used
The constant 'GWL_WNDPROC' is not used
The constant 'WM_DESTROY' is not used
The declaration Declare 'GetFileTitle' is not used
The variable 'm_Parent' is not used
The variable 'm_WinProc' is not used
The variable 'm_WinProcParent' is not used
Private Function VBGetOpenFileName(Filename As String, _
The variable 'afFlags' is not used
Private Sub cmdBrowse_Click()
The variable 'svName' is not used
Private Sub Command1_Click()
The procedure 'Command1_Click' is not used
Forms
FrmMetronomo (FrmMetronomo.frm)
Private Function ReadFile(sPath As String, bArr() As Byte) As Boolean
The procedure 'ReadFile' is not used
cheers,
</wqw>
uffff I did not know that this plugin had that functionality! It is very interesting to clean excess code, thanks for the information.
-
Mar 21st, 2021, 01:34 AM
#10
Registered User
-
Mar 23rd, 2021, 09:48 AM
#11
Thread Starter
Hyperactive Member
Re: Neumorphism Design
Well here is the music player that I had mentioned in the initial post, I have used the bass.dll and bass_fx.dll libraries to be more familiar, maybe I could have done it with DirectSound but I don't know if the pitch part could have been implemented and this It is what interests me the most for personal / musical reasons.
The player has some features such as: read from a playlist, command lines, drag and drop, tag editor, animated display, preview in the taskbar, keyboard operation, picth, tempo, samplerate, equalizer, unicode compliant.
The design is copied from this image
By the rules of the forum I cannot upload the project here because I use the bass.dll and bass_fx.dll so I will put the link to my blog and it is up to you to download it.
http://leandroascierto.com/blog/neumo-player/
Last edited by LeandroA; Mar 23rd, 2021 at 10:34 AM.
-
Mar 23rd, 2021, 10:08 AM
#12
Re: Neumorphism Design
Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.
-
Mar 23rd, 2021, 10:15 AM
#13
Lively Member
Re: Neumorphism Design
Originally Posted by Steve Grant
Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.
Also by me.
-
Mar 23rd, 2021, 10:35 AM
#14
Thread Starter
Hyperactive Member
Re: Neumorphism Design
Originally Posted by Steve Grant
Hi Leandro, unable to download either of the 2 files listed. Edge just shows a white screen.
Thanks for reporting, it's already solved
-
Mar 23rd, 2021, 11:13 AM
#15
Hyperactive Member
Re: Neumorphism Design
Very good project and very beautiful.
It works very well
regards
-
Mar 23rd, 2021, 12:19 PM
#16
Re: Neumorphism Design
More of a desinger than a designer perhaps.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|