Commit ab17229e authored by Benoît Minisini's avatar Benoît Minisini

Test suites configuratino file is correctly cleaned up on save.

[DEVELOPMENT ENVIRONMENT]
* BUG: Test suites configuratino file is correctly cleaned up on save.
* NEW: Toolbox controls icons now adapt to dark themes.
* NEW: Start to clean up the image directory.
parent 2132e389
......@@ -367,7 +367,7 @@ Private Sub SaveSuites()
hSettings = New Settings(Project.Dir &/ ".test")
hSettings.Clear("/TestSuites")
hSettings.Clear("/TestSuites", True)
lvwSuite.MoveFirst
While lvwSuite.Available
......
......@@ -68,13 +68,8 @@ End
Static Public Sub GetIcon(sClass As String, sComp As String, Optional iSize As Integer) As Picture
Dim hPict As Picture
Dim hImage As Image
Dim sPath As String
'Dim sText As String
'Dim X, Y As Float
'Dim iInd As Integer
'Dim I As Integer
Dim hClass As CClassInfo
Dim W As Integer
Dim F As Integer
......@@ -88,16 +83,16 @@ Static Public Sub GetIcon(sClass As String, sComp As String, Optional iSize As I
Else
sPath = File.Dir(File.Dir(Component.Path)) &/ "share/gambas" & System.Version &/ "control" &/ sComp &/ LCase(sClass) & ".png"
Endif
Try hPict = Picture.Load(sPath)
If hPict Then Break
Try hImage = Image.Load(sPath)
If hImage Then Break
If hClass.Parent <> sClass Then Break
sComp = hClass.ParentComponent
If Not sComp Then Break
Loop
If Not hPict Then Try hPict = Picture["img/control" &/ LCase(sClass) & ".png"]
If Not hImage Then Try hImage = Image.Load("img/control" &/ LCase(sClass) & ".png")
If Not hPict Then
If Not hImage Then
hImage = New Image(1, 1)
......@@ -130,15 +125,15 @@ Static Public Sub GetIcon(sClass As String, sComp As String, Optional iSize As I
Paint.End
hPict = hImage.Picture
Endif
If iSize Then
If hPict.Width <> iSize Then hPict = hPict.Image.Stretch(iSize, iSize).Picture
If hImage.Width <> iSize Then hImage = Image.Stretch(iSize, iSize)
Endif
Return hPict
If Application.DarkTheme Then hImage = hImage.Invert(True)
Return hImage.Picture
End
......
......@@ -41,7 +41,6 @@ Private Sub ShowWaiting(bShow As Boolean)
$hSpinner.Hide
Endif
End
' Public Sub WebView_Error()
......
......@@ -6374,8 +6374,6 @@ Public Sub ShouldTranslate(sPath As String, Optional bRecursive As Boolean) As B
sRelPath = MakeProjectRelativePath(sPath)
If DoNotTranslate.Exist(sRelPath) Then Return
If File.BaseName(sPath) = "CRecentProject" Then Stop
If File.Ext(sPath) = "class" Then
sFormPath = FindForm(File.BaseName(sPath))
If sFormPath Then
......
app/src/gambas3/img/16/average.png

424 Bytes | W: | H:

app/src/gambas3/img/16/average.png

416 Bytes | W: | H:

app/src/gambas3/img/16/average.png
app/src/gambas3/img/16/average.png
app/src/gambas3/img/16/average.png
app/src/gambas3/img/16/average.png
  • 2-up
  • Swipe
  • Onion skin
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