Public Sub filer_Data(i As Integer, j As Integer)
Dim szin As String
Select Case j
Case 0
filer.Data.Text = content[i]
Case 1
filer.Data.Text = preview[i]
If scheck.Value = True Then
szin = SecurityCheck(preview[i], i)
If szin = "green" Then filer.Data.Background = Color.White
If szin = "yellow" Then filer.Data.Background = Color.Yellow
If szin = "red" Then filer.Data.Background = Color.Red
Endif
If bolder = True Then
filer.Data.Font.Bold = True
Else
filer.Data.Font.Bold = False
Endif
End Select
End
This is the Data event which fixes the issues as you told me. Yet there is
another problem. As you see, I've tried to set the cell's Font property to
bold (if this is a directory and not a file, just to understand the reason
why). Bolder is a global boolean which is set in another sub. Why do I have
only normal font thickness with both bolder values?
Csaba
------------------------------------------------------------------------------
LogMeIn Rescue: Anywhere, Anytime Remote support for IT. Free Trial
Remotely access PCs and mobile devices and provide instant support
Improve your efficiency, and focus on delivering more value-add services
Discover what IT Professionals Know. Rescue delivers
http://p.sf.net/sfu/logmein_12329d2d
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
