Icon Size

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

   I think I narowed this down to be an issue with the resource editor in VB. Sorry, this is also a double post.
When using LoadResPicture in VB, it seems to always load icons 32X32 pixels, which looks ugly on the docking panes.
I've had luck resizing the icons using code such as:
Private Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As Long
Private Cons IMAGE_ICON=2
Private Const LR_COPYFROMRESOURCE =3
   Dim p As stdole.IPictureDisp
   Set p = LoadResPicture(101, 1)
   Dim l As Long
   l = CopyImage(p.handle, IMAGE_ICON, 16, 16, LR_COPYFROMRESOURCE)
  DockingPane.AddIconHandle (l,ID)
The code above will resize the icon in the resource file to 16X16.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
robs Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 09 November 2003 Status: Offline Points: 84	Post Options Post Reply Quote robs Report Post Thanks(0) Quote Reply Topic: Icon Size Posted: 30 December 2003 at 2:22pm
	I think I narowed this down to be an issue with the resource editor in VB. Sorry, this is also a double post. When using LoadResPicture in VB, it seems to always load icons 32X32 pixels, which looks ugly on the docking panes. I've had luck resizing the icons using code such as: Private Declare Function CopyImage Lib "user32" (ByVal handle As Long, ByVal imageType As Long, ByVal newWidth As Long, ByVal newHeight As Long, ByVal lFlags As Long) As Long Private Cons IMAGE_ICON=2 Private Const LR_COPYFROMRESOURCE =3 Dim p As stdole.IPictureDisp Set p = LoadResPicture(101, 1) Dim l As Long l = CopyImage(p.handle, IMAGE_ICON, 16, 16, LR_COPYFROMRESOURCE) DockingPane.AddIconHandle (l,ID) The code above will resize the icon in the resource file to 16X16.

robs Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 09 November 2003 Status: Offline Points: 84	Post Options Post Reply Quote robs Report Post Thanks(0) Quote Reply Posted: 09 December 2003 at 6:08am
	Oleg, Dim p As IPictureDisp Set p = LoadResPicture(101, 1) DockingManager.AddIconHandle p.Handle, UID Dim DockingPaneAs XtremeDockingPane.pane Set DockingPane = DockingManager.CreatePane(UID, cx, cy, dockingDirection, Nothing)

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 09 December 2003 at 1:49am
	How do you load the icons?
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

robs Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 09 November 2003 Status: Offline Points: 84	Post Options Post Reply Quote robs Report Post Thanks(0) Quote Reply Posted: 03 December 2003 at 12:01am
	Docking Pane 8.6 ActiveX: I am using AddIconHandle to load an icon from a resource file. The icon is 16x16 only. The icon gets displayed as 32x32 on the pane. Any ideas?