Commit 034542f2 authored by Benoît Minisini's avatar Benoît Minisini

Get rid of big orange panels.

[DEVELOPMENT ENVIRONMENT]
* NEW: Get rid of big orange panels.
parent 57db6fa5
This diff is collapsed.
......@@ -705,7 +705,7 @@
{ Label69 Label
MoveScaled(0,0,47,4)
Expand = True
Text = ("Adapt colors to dark themes")
Text = ("Invert colors for dark themes")
}
{ btnInvertTheme SwitchButton
MoveScaled(48,0,8,4)
......
......@@ -77,7 +77,7 @@ Public Sub Form_Open()
hVoid.ResizeScaled(1, 1)
hVoid.Expand = True
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.Expand = True
Continue
......
# Gambas Form File 3.0
{ Form Form
MoveScaled(0,0,115,82)
MoveScaled(0,0,115,83)
Background = Color.TextBackground
Text = ("Gambas Software Farm")
Arrangement = Arrange.Vertical
......@@ -11,8 +11,7 @@
}
{ VBox1 HBox
MoveScaled(0,10,98,6)
Background = &HDF6B00&
Foreground = &HFFFFFF&
Background = Color.ButtonBackground
Spacing = True
{ btnGoBack ToolButton
MoveScaled(0,0,6,6)
......@@ -50,8 +49,11 @@
}
}
}
{ Separator2 Separator
MoveScaled(44,18,14,0)
}
{ wizFarm Wizard
MoveScaled(1,17,97,64)
MoveScaled(1,21,97,60)
Expand = True
Arrangement = Arrange.Vertical
Count = 3
......
......@@ -52,7 +52,7 @@ Public Sub Panel_Draw()
Endif
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
Paint.DrawPicture($hPict, 16, ($hPanel.H - $hPict.H) \ 2)
......
......@@ -80,7 +80,7 @@ Public Sub Form_Open()
btnSoft.Tag = LIST_SOFTWARE
For Each hCtrl In [btnNew, btnOpen, btnRecent, btnExample, btnSoft, btnFarm, btnOpenExtern, btnAbout, btnQuit]
hCtrl.Foreground = Color.White
hCtrl.Foreground = Color.Foreground
'hCtrl.Highlight = &H61A7C3&
Next
......@@ -213,7 +213,7 @@ Private Sub Toggle(iState As Integer)
End Select
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)
Next
......
......@@ -37,12 +37,15 @@
Arrangement = Arrange.Horizontal
{ panButton ScrollView
MoveScaled(6,3,35,35)
Background = &HDF6B00&
Background = Color.ButtonBackground
Foreground = Color.TextForeground
Arrangement = Arrange.Vertical
Border = False
ScrollBar = Scroll.None
}
{ Separator1 Separator
MoveScaled(43,10,0,6)
}
{ panList Panel
MoveScaled(46,5,28,30)
Visible = False
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment