luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

FileChooser: Add a separator above the bottom filters when Border property is unset.

Browse source 
[GB.FORM]
* NEW: FileChooser: Add a separator above the bottom filters when Border property is unset.
This commit is contained in:
gambas 2020-06-24 19:50:36 +02:00
parent 24f131c35d
commit 1ba3d0cb5a
4 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.form/.project
View file

@ -9,7 +9,7 @@ Component=gb.form
Component=gb.settings Component=gb.settings
Component=gb.form.stock Component=gb.form.stock
Authors="Benoît Minisini" Authors="Benoît Minisini"
Environment="GB_GUI=gb.qt5" Environment="GB_GUI=gb.qt5\nGB_STOCK_DEBUG=1"
TabSize=2 TabSize=2
Translate=1 Translate=1
Language=en Language=en

1
comp/src/gb.form/.src/File/Chooser/FDirChooser.class
View file

@ -1502,6 +1502,7 @@ End
Public Sub SetBorder(bBorder As Boolean) Public Sub SetBorder(bBorder As Boolean)
panBorder.Border = If(bBorder, Border.Plain, Border.None) panBorder.Border = If(bBorder, Border.Plain, Border.None)
sepNoBorder.Visible = Not bBorder
End End

5
comp/src/gb.form/.src/File/Chooser/FDirChooser.form
View file

@ -139,8 +139,11 @@
} }
} }
} }
{ sepNoBorder Separator
MoveScaled(39,60,26,0)
}
{ panFilter HBox { panFilter HBox
MoveScaled(3,60,84,11) MoveScaled(2,63,84,11)
Spacing = True Spacing = True
{ panExtension VBox { panExtension VBox
MoveScaled(1,1,62,9) MoveScaled(1,1,62,9)

3
comp/src/gb.form/.src/Test/FTestFileChooser.class
View file

@ -36,7 +36,8 @@ End
Static Public Sub _init() Static Public Sub _init()
Application.Theme = "gambas" 'Application.Theme = "gambas"
Print Application.Theme
Component.Load("gb.inotify") Component.Load("gb.inotify")
End End