Get rid of big orange panels.

[DEVELOPMENT ENVIRONMENT]
* NEW: Get rid of big orange panels.
This commit is contained in:
gambas 2020-05-20 12:35:11 +02:00
parent 57db6fa51c
commit 034542f2b8
7 changed files with 379 additions and 495 deletions

File diff suppressed because it is too large Load diff

View file

@ -705,7 +705,7 @@
{ Label69 Label { Label69 Label
MoveScaled(0,0,47,4) MoveScaled(0,0,47,4)
Expand = True Expand = True
Text = ("Adapt colors to dark themes") Text = ("Invert colors for dark themes")
} }
{ btnInvertTheme SwitchButton { btnInvertTheme SwitchButton
MoveScaled(48,0,8,4) MoveScaled(48,0,8,4)

View file

@ -77,7 +77,7 @@ Public Sub Form_Open()
hVoid.ResizeScaled(1, 1) hVoid.ResizeScaled(1, 1)
hVoid.Expand = True hVoid.Expand = True
hVoid = New Separator(panGroup) hVoid = New Separator(panGroup)
hVoid.Foreground = Color.SetAlpha(Project.COLOR_ORANGE, 128) 'hVoid.Foreground = Color.LightForeground 'Color.SetAlpha(Project.COLOR_ORANGE, 128)
hVoid.ResizeScaled(1, 3) hVoid.ResizeScaled(1, 3)
hVoid.Expand = True hVoid.Expand = True
Continue Continue

View file

@ -1,7 +1,7 @@
# Gambas Form File 3.0 # Gambas Form File 3.0
{ Form Form { Form Form
MoveScaled(0,0,115,82) MoveScaled(0,0,115,83)
Background = Color.TextBackground Background = Color.TextBackground
Text = ("Gambas Software Farm") Text = ("Gambas Software Farm")
Arrangement = Arrange.Vertical Arrangement = Arrange.Vertical
@ -11,8 +11,7 @@
} }
{ VBox1 HBox { VBox1 HBox
MoveScaled(0,10,98,6) MoveScaled(0,10,98,6)
Background = &HDF6B00& Background = Color.ButtonBackground
Foreground = &HFFFFFF&
Spacing = True Spacing = True
{ btnGoBack ToolButton { btnGoBack ToolButton
MoveScaled(0,0,6,6) MoveScaled(0,0,6,6)
@ -50,8 +49,11 @@
} }
} }
} }
{ Separator2 Separator
MoveScaled(44,18,14,0)
}
{ wizFarm Wizard { wizFarm Wizard
MoveScaled(1,17,97,64) MoveScaled(1,21,97,60)
Expand = True Expand = True
Arrangement = Arrange.Vertical Arrangement = Arrange.Vertical
Count = 3 Count = 3

View file

@ -52,7 +52,7 @@ Public Sub Panel_Draw()
Endif Endif
If $bInside And If Me.Enabled Then If $bInside And If Me.Enabled Then
Paint.FillRect(0, 0, Paint.W, Paint.H, Color.SetAlpha(Color.TextBackground, 192)) Paint.FillRect(0, 0, Paint.W, Paint.H, Color.SetAlpha(Color.TextForeground, 224))
Endif Endif
Paint.DrawPicture($hPict, 16, ($hPanel.H - $hPict.H) \ 2) Paint.DrawPicture($hPict, 16, ($hPanel.H - $hPict.H) \ 2)

View file

@ -80,7 +80,7 @@ Public Sub Form_Open()
btnSoft.Tag = LIST_SOFTWARE btnSoft.Tag = LIST_SOFTWARE
For Each hCtrl In [btnNew, btnOpen, btnRecent, btnExample, btnSoft, btnFarm, btnOpenExtern, btnAbout, btnQuit] For Each hCtrl In [btnNew, btnOpen, btnRecent, btnExample, btnSoft, btnFarm, btnOpenExtern, btnAbout, btnQuit]
hCtrl.Foreground = Color.White hCtrl.Foreground = Color.Foreground
'hCtrl.Highlight = &H61A7C3& 'hCtrl.Highlight = &H61A7C3&
Next Next
@ -213,7 +213,7 @@ Private Sub Toggle(iState As Integer)
End Select End Select
For Each hCtrl In [btnRecent, btnExample, btnSoft] For Each hCtrl In [btnRecent, btnExample, btnSoft]
hCtrl.Background = If($iRecent = hCtrl.Tag, Color.SetAlpha(Color.TextBackground, 160), Color.Default) hCtrl.Background = If($iRecent = hCtrl.Tag, Color.SetAlpha(Color.TextForeground, 240), Color.Default)
'hCtrl.Foreground = If($iRecent = hCtrl.Tag, Color.TextForeground, Color.White) 'hCtrl.Foreground = If($iRecent = hCtrl.Tag, Color.TextForeground, Color.White)
Next Next

View file

@ -37,12 +37,15 @@
Arrangement = Arrange.Horizontal Arrangement = Arrange.Horizontal
{ panButton ScrollView { panButton ScrollView
MoveScaled(6,3,35,35) MoveScaled(6,3,35,35)
Background = &HDF6B00& Background = Color.ButtonBackground
Foreground = Color.TextForeground Foreground = Color.TextForeground
Arrangement = Arrange.Vertical Arrangement = Arrange.Vertical
Border = False Border = False
ScrollBar = Scroll.None ScrollBar = Scroll.None
} }
{ Separator1 Separator
MoveScaled(43,10,0,6)
}
{ panList Panel { panList Panel
MoveScaled(46,5,28,30) MoveScaled(46,5,28,30)
Visible = False Visible = False