http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 14 May 2026 02:17:52 +0000 Sun, 09 May 2010 09:58:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=16678 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=16678&PID=58385&title=solved-taskpanelgroupitem-setsize-issue#58385 Author: Xander75
Subject: 16678
Posted: 09 May 2010 at 9:58am

I have since resolved this issue. I was using the SetSize and SetMargins incorrectly the first time I looked at this, after going away for a few minutes I realised how to resolve it... typical!!!

Code:

Private Sub CreateToolbox()
    Dim Group As TaskPanelGroup
    Dim Item As TaskPanelGroupItem

    Set Group = TaskPanel.Groups.Add(1, "Group By")
    Group.Expanded = True

    Set Item = Group.Items.Add(1, "Test 1", xtpTaskItemTypeControl, 1)
    Set Item.Control = Picture1
    Item.SetSize 0, 0, True            
    Item.SetMargins -8, -5, -8, -5  
End Sub

Private Sub Form_Resize()
    ' Resize the TaskPanel on Form Resize
    TaskPanel.Move TaskPanel.left, TaskPanel.top, TaskPanel.Width, Me.ScaleHeight - TaskPanel.top - 120

    ' Resize the rpcGroupBy ReportControl inside the PictureBox, the PictureBox gets resized automatically by the TaskPanel
    rpcGroupBy.Move 0, 0, picGroupBy.Width, picGroupBy.Height - 15
End Sub

Result:


]]> Sun, 09 May 2010 09:58:37 +0000 http://forum.codejock.com/forum_posts.asp?TID=16678&PID=58385&title=solved-taskpanelgroupitem-setsize-issue#58385 http://forum.codejock.com/forum_posts.asp?TID=16678&PID=58383&title=solved-taskpanelgroupitem-setsize-issue#58383 Author: Xander75
Subject: 16678
Posted: 09 May 2010 at 9:00am

I have placed a ReportControl inside a PictureBox control then placed the PictureBox control inside a TaskPanelGroup.

Code:

    Dim Group As TaskPanelGroup
    Dim Item As TaskPanelGroupItem

    Set Group = TaskPanel.Groups.Add(1, "Group By")
    Group.Expanded = True

    Set Item = Group.Items.Add(1, "Test 1", xtpTaskItemTypeControl, 1)
    Set Item.Control = Picture1
    Item.SetSize 0, 0, True
    DoEvents

    ReportControl.Move 0, 0, Picture1.Width, Picture1.Height

However using Item.SetSize 0, 0, True autosizes but does not fit the TaskPanelGroupItem exactly!

I have tried using Item.SetMargins, which I can use to correctly position the left and top margins correctly but I can't find the height and width of the TaskPanelGroupItem.

Does anybody know how to resolve this issue?


]]> Sun, 09 May 2010 09:00:19 +0000 http://forum.codejock.com/forum_posts.asp?TID=16678&PID=58383&title=solved-taskpanelgroupitem-setsize-issue#58383