Print Page | Close Window

[BUG?] BeforeDrawRow Erase my Picture

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Report Control
Forum Description: Topics Related to Codejock Report Control
URL: http://forum.codejock.com/forum_posts.asp?TID=18990
Printed Date: 23 November 2024 at 8:58pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com


Topic: [BUG?] BeforeDrawRow Erase my Picture
Posted By: MottoDoki
Subject: [BUG?] BeforeDrawRow Erase my Picture
Date Posted: 27 September 2011 at 11:28am

Hello,

I'm trying to insert a picture into a ReportControl first but when i invoke RPPrint.SetCustomDraw xtpCustomBeforeDrawRow the picture disappear , here is the code :

--------------------------------------------------------------------------------------------------

-- declaring my column then adding data :

    Dim rptRec As XtremeReportControl.ReportRecord
    Dim rptItm As XtremeReportControl.ReportRecordItem
    Dim rptCol As XtremeReportControl.ReportColumn
    
    i = 1001
    
        With RPPrint.Icons
            .LoadBitmap App.Path & "\Res\BNPPARIBAS_SMALL_S027E001.png", i, xtpImageNormal
        End With
    
        Set rptRec = RPPrint.Records.Add()
        
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")
            rptItm.Alignment = xtpAlignmentIconRight Or xtpAlignmentRight
            rptItm.Icon = i
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")
        Set rptItm = rptRec.AddItem("")

'------------------here the picture is merge on 7 col  cos it's big
        rptRec.Records.MergeItems 0, 0, 1, 7
    
        Set rptRec = RPPrint.Records.Add()
        
        Set rptItm = rptRec.AddItem("0123456789")
            rptItm.Alignment = xtpAlignmentLeft Or xtpAlignmentWordBreak
            
        Set rptItm = rptRec.AddItem("RAISON SOCIALE LONGUE")
            rptItm.Alignment = xtpAlignmentLeft Or xtpAlignmentWordBreak
        Set rptItm = rptRec.AddItem("0123456789")
            rptItm.Alignment = xtpAlignmentLeft
        Set rptItm = rptRec.AddItem("0123456789")
            rptItm.Alignment = xtpAlignmentLeft
        Set rptItm = rptRec.AddItem("0123456789")
            rptItm.Alignment = xtpAlignmentLeft
        Set rptItm = rptRec.AddItem("0123456789")
            rptItm.Alignment = xtpAlignmentLeft
        Set rptItm = rptRec.AddItem("31/01/2011")
            rptItm.Alignment = xtpAlignmentCenter
        Set rptItm = rptRec.AddItem("31/01/2011")
            rptItm.Alignment = xtpAlignmentCenter
        Set rptItm = rptRec.AddItem("999 999 999,99")
            rptItm.Alignment = xtpAlignmentRight
    

    RPPrint.SetCustomDraw xtpCustomBeforeDrawRow
    
    With RPPrint
        .Populate

        For Each rptCol In .Columns
            rptCol.BestFit
        Next
    End With

--------------------------------------------------------------------------------------------------

i still don't do anything in the  BeforeDrawRow event !!

Is it a bug ?

Thanks for you help


Replies:
Posted By: ABuenger
Date Posted: 27 September 2011 at 5:55pm
Hi,

please note that custom support is only available through our support:

http://forum.codejock.com/forum_posts.asp?TID=14125&FID=124&PR=3&title=notice-codejock-support-policy - http://forum.codejock.com/forum_posts.asp?TID=14125&FID=124&PR=3&title=notice-codejock-support-policy

Andre



-------------
Codejock support

Posted By: MottoDoki
Date Posted: 28 September 2011 at 1:32am
Done

Posted By: McKloony
Date Posted: 28 September 2011 at 8:33am
The idea behind it is brilliant. I would be interested to know how to turn the reportcontrol into a thumbnail viewer :-)

-------------
Product: Xtreme SuitePro (ActiveX) 16.2.5

Platform: XP / Windows 7

Language: Visual Basic 6.0 SP6


Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.04 - http://www.webwizforums.com
Copyright ©2001-2021 Web Wiz Ltd. - https://www.webwiz.net