Item(x).Bold = True ignored

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

this is a bit strange: I'm looping over the ReportRecords (rrc) of
SelectedRows in ReportControl 9.80 doing:
    If ... Then
        rrc.Item(rptMailFrom).Icon = 151
        For c = rptMailTo To rptTargetEnd
            rrc.Item(c).Bold = False
        Next c
    Else
        rrc.Item(rptMailFrom).Icon = 153
        For c = rptMailTo To rptTargetEnd
            rrc.Item(c).Bold = True
        Next c
    End If

After Populate() Icons are set properly. It allows me also to
remove bold font, but I can't make the font bold. Although
the code is executed nothing happens!

Anyone stumbled on this?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
s.neu Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 31 October 2006 Status: Offline Points: 11	Post Options Post Reply Quote s.neu Report Post Thanks(0) Quote Reply Topic: Item(x).Bold = True ignored Posted: 29 January 2008 at 10:25am
	Hi, this is a bit strange: I'm looping over the ReportRecords (rrc) of SelectedRows in ReportControl 9.80 doing: If ... Then rrc.Item(rptMailFrom).Icon = 151 For c = rptMailTo To rptTargetEnd rrc.Item(c).Bold = False Next c Else rrc.Item(rptMailFrom).Icon = 153 For c = rptMailTo To rptTargetEnd rrc.Item(c).Bold = True Next c End If After Populate() Icons are set properly. It allows me also to remove bold font, but I can't make the font bold. Although the code is executed nothing happens! Anyone stumbled on this?

wlcabral Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 25 April 2007 Location: Brazil Status: Offline Points: 72	Post Options Post Reply Quote wlcabral Report Post Thanks(0) Quote Reply Posted: 29 January 2008 at 3:36pm
	if "rrc.Item(rptMailFrom).Icon = 151" is working then "rrc.Item(rptMailFrom).bold = true" should be working too. Could be a version problem, in 11.2.2 works. Or; is your "for" correct ? ' this sample (Ms FOXPRO) works fine :::::::: for recs = 0 to xTremeReportControl.OBJECT.Records.Count-1 oRecord = xTremeReportControl.OBJECT.Records.Record(recs) nColumns= xTremeReportControl.OBJECT.Columns.Count for cols = 0 to nColumns -1 oRecord.Item(cols).bold = true next next xTremeReportControl.OBJECT.Populate()
	wlcabral