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

[GB.FORM]

Browse source 
* BUG: FileProperties: Try again to really prevent it from crashing when 
  no mimetype is available.


git-svn-id: svn://localhost/gambas/trunk@6484 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2014-09-16 13:26:48 +00:00
parent fdb7b01003
commit fe8cbc3d0b
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
comp/src/gb.form/.src/File/Properties/FFileProperties.class
View file

@ -82,12 +82,13 @@ Private Sub RefreshPath()
lblType.Text = ("Directory")
Else If Component.IsLoaded("gb.desktop") Then
hMime = DesktopMime.FromFile($sPath)
Try lblType.Text = String.UCaseFirst(hMime.GetComment())
Try picIcon.Picture = hMime.GetIcon(64).Picture
If Error Then Error "gb.form: unable to find icon for mimetype: "; hMime.GenericIcon
If hMime.Type Like "image/*" Then
tabInfo[TAB_PREVIEW].Visible = True
If hMime Then
lblType.Text = String.UCaseFirst(hMime.GetComment())
Try picIcon.Picture = hMime.GetIcon(64).Picture
If Error Then Error "gb.form: unable to find icon for mimetype: "; hMime.GenericIcon
If hMime.Type Like "image/*" Then
tabInfo[TAB_PREVIEW].Visible = True
Endif
Endif
Else If $aImgExt.Exist(File.Ext($sPath), gb.IgnoreCase) Then
picIcon.Picture = Picture["icon:/64/image"]