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

Project tree: Setting the startup class does not crash anymore when forms class files are visible.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Project tree: Setting the startup class does not crash anymore when forms class files are visible.
This commit is contained in:
gambas 2022-01-12 22:02:04 +01:00
parent ef82508d31
commit 1a01cf7e57
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
app/src/gambas3/.src/Project/CProjectTree.class
View file

@ -296,10 +296,12 @@ Private Sub AddFile(sDir As String, sFile As String, Optional bAfter As Boolean,
Try hStat = Stat(sPath)
If Error Then Return
With $hTree.Add(sKey, sFile, GetFileIcon(sPath,, hStat,, True), sParent)
.Font = $hTree.Font
.Font.Grade -= 2
End With
If Not $hTree.Exist(sKey) Then
With $hTree.Add(sKey, sFile, GetFileIcon(sPath,, hStat,, True), sParent)
.Font = $hTree.Font
.Font.Grade -= 2
End With
Endif
Endif
Endif