Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Report Control
  New Posts New Posts RSS Feed - [BUG?] BeforeDrawRow Erase my Picture
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

[BUG?] BeforeDrawRow Erase my Picture

 Post Reply Post Reply
Author
Message
MottoDoki View Drop Down
Newbie
Newbie


Joined: 16 September 2010
Status: Offline
Points: 5
Post Options Post Options   Thanks (0) Thanks(0)   Quote MottoDoki Quote  Post ReplyReply Direct Link To This Post Topic: [BUG?] BeforeDrawRow Erase my Picture
    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



Back to Top
ABuenger View Drop Down
Newbie
Newbie
Avatar

Joined: 02 February 2006
Status: Offline
Points: 1075
Post Options Post Options   Thanks (0) Thanks(0)   Quote ABuenger Quote  Post ReplyReply Direct Link To This Post 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

Andre

Codejock support
Back to Top
MottoDoki View Drop Down
Newbie
Newbie


Joined: 16 September 2010
Status: Offline
Points: 5
Post Options Post Options   Thanks (0) Thanks(0)   Quote MottoDoki Quote  Post ReplyReply Direct Link To This Post Posted: 28 September 2011 at 1:32am
Done
Back to Top
McKloony View Drop Down
Senior Member
Senior Member
Avatar

Joined: 09 January 2007
Location: Germany
Status: Offline
Points: 340
Post Options Post Options   Thanks (0) Thanks(0)   Quote McKloony Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.156 seconds.