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

Get rid of big orange panels.

Browse source 
[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
Show stats Download patch file Download diff file Expand all files Collapse all files

849
app/src/gambas3/.lang/fr.po
View file

File diff suppressed because it is too large Load diff

2
app/src/gambas3/.src/Options/FOption.form
View file

@ -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)

2
app/src/gambas3/.src/Project/Farm/FSoftwareFarm.class
View file

@ -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

10
app/src/gambas3/.src/Project/Farm/FSoftwareFarm.form
View file

@ -1,7 +1,7 @@
# 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

2
app/src/gambas3/.src/Welcome/CCoolButton.class
View file

@ -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)

4
app/src/gambas3/.src/Welcome/FWelcome.class
View file

@ -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

5
app/src/gambas3/.src/Welcome/FWelcome.form
View file

@ -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