[GB.DESKTOP]

* BUG: Dont use the third argument on stock class
* BUG: Swap the path test : first mimes and then mimetypes



git-svn-id: svn://localhost/gambas/trunk@5287 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2012-11-02 14:23:02 +00:00
parent 54d789d66e
commit 6e3c8f3870
2 changed files with 9 additions and 3 deletions

View file

@ -1,8 +1,14 @@
[Breakpoints]
Count=0
[DebugWindow]
Count=0
[OpenFile]
Active=1
File[1]=".src/DesktopMime.class:67.98"
File[1]=".src/DesktopMime.class:208.8"
Count=1
[Watches]
Count=0

View file

@ -65,8 +65,8 @@ Public Sub GetIcon(Optional Size As Integer = 16) As Image
Endif
'If File.Ext(sFile) = "jpg" Then Stop
If Not hImage Then
Try hImage = Stock[CStr(Size) &/ "mimetypes/" & sMime, CStr(Size) &/ "mimetypes/" & _$sGenericIcon].Image
If Not hImage Then Try hImage = Stock[CStr(Size) &/ "mimes/" & sMime, CStr(Size) &/ "mimes/" & _$sGenericIcon, True].Image
Try hImage = Stock[CStr(Size) &/ "mimes/" & sMime, CStr(Size) &/ "mimes/" & _$sGenericIcon].Image
If Not hImage Then Try hImage = Stock[CStr(Size) &/ "mimetypes/" & sMime, CStr(Size) &/ "mimetypes/" & _$sGenericIcon].Image
Endif
' If Not hImage Then