Codejock Developer Community : change pushButton Icon position http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 22 Apr 2026 11:39:28 +0000 Fri, 08 Jun 2007 09:09:46 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=7041 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[change pushButton Icon position : hi yair, Thank you for your good...]]> http://forum.codejock.com/forum_posts.asp?TID=7041&PID=23533&title=change-pushbutton-icon-position#23533 Author: Mika
Subject: 7041
Posted: 08 June 2007 at 9:09am

hi yair,

Thank you for your good advice!
I tried UpdateRTLForSingelCtl procedure but horizontal direction of loded picture was flipped like below screen shot.
And then, I made a flipped picture and tried it again. Picture is ok but some character next to alphabet was moved to opposite direction.

Do you have some idea to avoid this problem?
]]> Fri, 08 Jun 2007 09:09:46 +0000 http://forum.codejock.com/forum_posts.asp?TID=7041&PID=23533&title=change-pushbutton-icon-position#23533 <![CDATA[change pushButton Icon position : hi all if you are using RTL...]]> http://forum.codejock.com/forum_posts.asp?TID=7041&PID=22541&title=change-pushbutton-icon-position#22541 Author: yair-edsoft
Subject: 7041
Posted: 04 May 2007 at 9:11am

hi all
if you are using RTL Lay out and want to change the posion of the icon to the right of the text,
 
(this code was written by codejock and it placed in one of the sampels "MultiLanguage Scribble")
 
Example:(Vb6.0)
copy this and add it to one of your modules
 
Const WS_EX_LAYOUTRTL = &H400000
Const WS_EX_NOINHERITLAYOUT = &H100000
Const GWL_EXSTYLE = -20
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Private Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
 
Public Sub UpdateRTLForSingelCtl(hWnd, bRTLLayout As Boolean)
    Dim Old As Long
   
    Old = GetWindowLong(hWnd, GWL_EXSTYLE)
    SetWindowLong hWnd, GWL_EXSTYLE, IIf(bRTLLayout, Old Or WS_EX_LAYOUTRTL, Old And Not WS_EX_LAYOUTRTL)
end sub
 
using the Code:
btn.icon=imag.Icons.GetImage(Id,0)
UpdateRTLForSingelCtl btn.hWnd,True
]]> Fri, 04 May 2007 09:11:17 +0000 http://forum.codejock.com/forum_posts.asp?TID=7041&PID=22541&title=change-pushbutton-icon-position#22541