Introduction:
I have tried to create a blur panel for my dashboard or POS cashier layout a few years ago but failed.
I retry with ChatGPT and DeepSeek AI assistant but still facing some problems with blurring effect, redrawing and positioning when the form is resized.
Finally, I succeeded.
Here I present to you the library.
FrostedGlass
Author: Aeric Poon
Version: 2.11
I have tried to create a blur panel for my dashboard or POS cashier layout a few years ago but failed.
I retry with ChatGPT and DeepSeek AI assistant but still facing some problems with blurring effect, redrawing and positioning when the form is resized.
Finally, I succeeded.
Here I present to you the library.
FrostedGlass
Author: Aeric Poon
Version: 2.11
- Methods/Properties:
- Clear
- Redraw
- Panel As Pane (readonly)
- Visible As Boolean
- CornerRadius As Int
- Events
- MouseClicked
- Designer's properties
- Blur Radius (v1.x)
- Corner Radius
B4X:
Private Sub MainForm_Resize (Width As Double, Height As Double)
FrostedGlass1.Redraw
End Sub
Private Sub FrostedGlass1_MouseClicked
FrostedGlass2.Visible = Not(FrostedGlass2.Visible)
End Sub
Attachments
Last edited: