Skip to content

Commit

Permalink
Fix read/write DevilBox config
Browse files Browse the repository at this point in the history 
&& Add host file editor
  • Loading branch information
@ange007
ange007 committed Apr 7, 2023
1 parent 054a228 commit a368752
Show file tree
Hide file tree
Showing 37 changed files with 724 additions and 325 deletions.
507 changes: 262 additions & 245 deletions DevilBoxLauncher.dproj
View file

Large diffs are not rendered by default.

Binary file modified DevilBoxLauncher.res
View file
Binary file not shown.
5 changes: 4 additions & 1 deletion README.md
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,7 @@
# DevilBox Launcher
Launcher for [DevilBox](https://github.com/cytopia/devilbox)

![DevilBox Launcher](/image.png)
![Domain/Hosts editor](/screenshot-1.png)
![Main settings](/screenshot-2.png)
![Select started service](/screenshot-3.png)
![DevilBox config editor](/screenshot-4.png)
Binary file removed image.png
View file
Binary file not shown.
Binary file added screenshot-1.png
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added screenshot-2.png
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added screenshot-3.png
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added screenshot-4.png
View file
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
199 changes: 153 additions & 46 deletions src/forms/mainF.fmx
View file
Original file line number Diff line number Diff line change
Expand Up @@ -48,6 +48,7 @@ object FMain: TFMain
ExplicitSize.cy = 26.000000000000000000
object lb_domains: TListBox
Align = Client
PopupMenu = pm_domain
Size.Width = 674.000000000000000000
Size.Height = 294.000000000000000000
Size.PlatformDefault = False
Expand Down Expand Up @@ -79,7 +80,7 @@ object FMain: TFMain
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'additembutton'
TabOrder = 3
TabOrder = 4
Text = 'Add'
OnClick = btn_domain_addClick
end
Expand All @@ -91,25 +92,13 @@ object FMain: TFMain
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'deleteitembutton'
TabOrder = 2
TabOrder = 3
Text = 'Add'
OnClick = btn_domain_removeClick
end
object btn_domains_open_dir: TButton
Align = Right
Position.X = 629.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 40.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'searchtoolbutton'
TabOrder = 1
Text = 'Open Dir'
OnClick = btn_domains_open_dirClick
end
object btn_domains_reload: TButton
Align = Right
Position.X = 589.000000000000000000
Position.X = 392.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 40.000000000000000000
Size.Height = 23.000000000000000000
Expand All @@ -119,6 +108,30 @@ object FMain: TFMain
Text = 'Reload'
OnClick = btn_domains_reloadClick
end
object btn_open_hosts: TButton
Align = Right
Margins.Right = 5.000000000000000000
Position.X = 556.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 108.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
Text = 'Open HOSTS'
OnClick = btn_open_hostsClick
end
object btn_open_domain_path: TButton
Align = Right
Margins.Right = 5.000000000000000000
Position.X = 432.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 119.000000000000000000
Size.Height = 23.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = 'Open Domains Dir'
OnClick = btn_open_domain_pathClick
end
end
end
object ti_main: TTabItem
Expand Down Expand Up @@ -180,6 +193,11 @@ object FMain: TFMain
Column = 0
Control = cb_remove_images
Row = 3
end
item
Column = 0
Control = cb_write_hosts
Row = 2
end>
RowCollection = <
item
Expand Down Expand Up @@ -243,9 +261,17 @@ object FMain: TFMain
Size.Width = 326.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
TabOrder = 5
Text = 'Remove Images before Build'
end
object cb_write_hosts: TCheckBox
Align = Client
Size.Width = 326.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
Text = 'Write domains to hosts'
end
end
object pnl_options: TPanel
Align = Bottom
Expand All @@ -261,15 +287,27 @@ object FMain: TFMain
object btn_update: TButton
Align = Left
Margins.Right = 5.000000000000000000
Position.X = 5.000000000000000000
Position.X = 118.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 108.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
TabOrder = 1
Text = 'Update DevilBox'
OnClick = btn_updateClick
end
object btn_open_work_path: TButton
Align = Left
Margins.Right = 5.000000000000000000
Position.X = 5.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 108.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = 'Open DevilBox Dir'
OnClick = btn_open_work_pathClick
end
end
end
object ti_modules: TTabItem
Expand All @@ -285,34 +323,43 @@ object FMain: TFMain
Text = 'Modules'
ExplicitSize.cx = 66.000000000000000000
ExplicitSize.cy = 26.000000000000000000
object grdpnlyt_modules: TGridPanelLayout
object vrtscrlbx_modules: TVertScrollBox
Align = Client
Padding.Left = 5.000000000000000000
Padding.Top = 10.000000000000000000
Padding.Right = 5.000000000000000000
Padding.Bottom = 5.000000000000000000
Size.Width = 674.000000000000000000
Size.Height = 332.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
ColumnCollection = <
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333340000
end>
ControlCollection = <>
RowCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
Viewport.Width = 674.000000000000000000
Viewport.Height = 332.000000000000000000
object grdpnlyt_modules: TGridPanelLayout
Align = Client
Padding.Left = 5.000000000000000000
Padding.Top = 10.000000000000000000
Padding.Right = 5.000000000000000000
Padding.Bottom = 5.000000000000000000
Size.Width = 674.000000000000000000
Size.Height = 332.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
ColumnCollection = <
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333340000
end
item
Value = 33.333333333333340000
end>
ControlCollection = <>
RowCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
end
end
end
object ti_options: TTabItem
Expand All @@ -328,6 +375,38 @@ object FMain: TFMain
Text = 'Options'
ExplicitSize.cx = 62.000000000000000000
ExplicitSize.cy = 26.000000000000000000
object vrtscrlbx_options: TVertScrollBox
Align = Client
Size.Width = 674.000000000000000000
Size.Height = 332.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Viewport.Width = 674.000000000000000000
Viewport.Height = 332.000000000000000000
object grdpnlyt_options: TGridPanelLayout
Align = Top
Padding.Left = 5.000000000000000000
Padding.Top = 5.000000000000000000
Padding.Right = 5.000000000000000000
Size.Width = 674.000000000000000000
Size.Height = 332.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
ColumnCollection = <
item
Value = 50.000000000000000000
end
item
Value = 50.000000000000000000
end>
ControlCollection = <>
RowCollection = <
item
SizeStyle = Absolute
Value = 30.000000000000000000
end>
end
end
end
object ti_debug: TTabItem
CustomIcon = <
Expand Down Expand Up @@ -389,7 +468,7 @@ object FMain: TFMain
Size.Width = 85.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
TabOrder = 3
Text = 'Save'
TextSettings.Font.StyleExt = {00070000000000000004000000}
OnClick = btn_saveClick
Expand All @@ -403,7 +482,7 @@ object FMain: TFMain
Size.Width = 85.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
TabOrder = 5
Text = 'Save && Build'
TextSettings.Font.StyleExt = {00070000000000000004000000}
OnClick = btn_save_buildClick
Expand All @@ -417,25 +496,37 @@ object FMain: TFMain
Size.Width = 85.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
TabOrder = 4
Text = 'Stop'
TextSettings.Font.StyleExt = {00070000000000000004000000}
Visible = False
OnClick = btn_stopClick
end
object btn_open_panel: TButton
Align = Left
Margins.Left = 5.000000000000000000
Margins.Right = 5.000000000000000000
Position.X = 185.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 85.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
TabOrder = 2
Text = 'Open Panel'
Visible = False
OnClick = btn_open_panelClick
end
object btn_shell: TButton
Align = Left
Margins.Right = 5.000000000000000000
Position.X = 185.000000000000000000
Position.Y = 5.000000000000000000
Size.Width = 108.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = 'Shell'
OnClick = btn_shellClick
end
end
object sbook: TStyleBook
UseStyleManager = True
Expand Down Expand Up @@ -465,4 +556,20 @@ object FMain: TFMain
end
end
end
object pm_domain: TPopupMenu
Left = 485
Top = 205
object mni_domain_open_dir: TMenuItem
Text = 'Open Directory'
OnClick = mni_domain_open_dirClick
end
object mni_domain_shell: TMenuItem
Text = 'mni_domain_shell'
Visible = False
end
object mni_open_url: TMenuItem
Text = 'Open URL'
OnClick = mni_open_urlClick
end
end
end
Loading

0 comments on commit a368752

Please sign in to comment.