Hi Guys,
Do you know if is possible to do a combobox with the lenght of area (2)(see image) bigger than area (1) ?
Do you know if is possible to do a combobox with the lenght of area (2)(see image) bigger than area (1) ?
Wider?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Question about ComboBox
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Yes !
#include "fivewin.ch"
function Main()
local oWnd, oCbx
local aItems := { "One", "Two", "Three" }
local nItem := 1
DEFINE WINDOW oWnd
@ 60, 20 COMBOBOX oCbx VAR nItem ITEMS aItems SIZE 100,400 PIXEL OF oWnd
oCbx:SendMsg( 0x160, 250, 0 )
@ 60,300 BUTTON "OK" SIZE 60,30 PIXEL OF oWnd
ACTIVATE WINDOW oWnd CENTERED
return nil
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr Rao,
Thank you 
Mr Rao
How to change combobox top area size at runtime ?
TKS!
Shuming Wang
How to change combobox top area size at runtime ?
TKS!
Shuming Wang
http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Do you mean height?
While creating, you can use clause HEIGHTGET nHeight.
Do you want to change at runtime? May I know why?
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
...
activate dialog odlg on init resize(odlg)
function resize(odlg,res)
rsl0:=getsysmetrics(0)/res //width,col
if rsl0<>1;
//<=800*600, not needed
rsl1:=getsysmetrics(1)/if(res==800,600,768) //base height ,nrow
for i:=1 TO LEN(::acontrols)
oCtrol = odlg:aControls[i] // top:nrow, left:ncol,bottom: nrow, right:ncol
aRect = GetCoors( oCtrol:hWnd )
do case
case oCtrol:classname()=="TCOMBOBOX"
oCtrol:Move( aRect[1]*rsl1, aRect[2]*rsl0 )
// cant not set height of combobox : oget height,listbox height
otherwise
oCtrol:Move( aRect[1]*rsl1, aRect[2]*rsl0,(aRect[4] - aRect[2])*rsl0, (aRect[3] - aRect[1])*rsl1, .t. )
// ntop,nleft,nbottom,nright
end case
next
endif
return
activate dialog odlg on init resize(odlg)
function resize(odlg,res)
rsl0:=getsysmetrics(0)/res //width,col
if rsl0<>1;
//<=800*600, not needed
rsl1:=getsysmetrics(1)/if(res==800,600,768) //base height ,nrow
for i:=1 TO LEN(::acontrols)
oCtrol = odlg:aControls[i] // top:nrow, left:ncol,bottom: nrow, right:ncol
aRect = GetCoors( oCtrol:hWnd )
do case
case oCtrol:classname()=="TCOMBOBOX"
oCtrol:Move( aRect[1]*rsl1, aRect[2]*rsl0 )
// cant not set height of combobox : oget height,listbox height
otherwise
oCtrol:Move( aRect[1]*rsl1, aRect[2]*rsl0,(aRect[4] - aRect[2])*rsl0, (aRect[3] - aRect[1])*rsl1, .t. )
// ntop,nleft,nbottom,nright
end case
next
endif
return
http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
SendMessage( oCbx:hWnd, 0x0153, -1, nNewHeight )Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
I found, sendmessage(..) must be on the ON INIT clausula from the dialog.
byte-one wrote:I found, sendmessage(..) must be on the ON INIT clausula from the dialog.
Yes, ofcourse.
In case of dialog hWnd gets a value only ON INIT.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Works fine!
Thank you MR Rao!
Shuming Wang
http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Mr Rao,
A small problem with SendMessage( oCbx:hWnd, 0x0153, -1, nNewHeight ),combobox be blue colored background on init .
Regards!
Shuming Wang
A small problem with SendMessage( oCbx:hWnd, 0x0153, -1, nNewHeight ),combobox be blue colored background on init .
Regards!
Shuming Wang
http://www.xtech2.top
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651
Mobile:(86)13802729058
Email:100200651@qq.com
QQ:100200651
Weixin: qq100200651