COMBOBOX HEIGHTGET is not working? *Solved*
Posted: Mon May 18, 2020 1:00 pmI use REDEFINE COMBOBOX from resource but HEIGHTGET is not working, nothing change.
Thanks in advance,
Thanks in advance,
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
COMBOBOX HEIGHTGET is not working? *Solved*
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=38985
Page 1 of 1
Posted: Mon May 18, 2020 1:00 pmRe: COMBOBOX HEIGHTGET is not working?
Posted: Tue May 19, 2020 1:08 amPlease try increasing height in the rc file.
Re: COMBOBOX HEIGHTGET is not working?
Posted: Tue May 19, 2020 1:24 amDear Master,
I got it. Thank you.
I got it. Thank you.
nageswaragunupudi wrote:Please try increasing height in the rc file.
Re: COMBOBOX HEIGHTGET is not working?
Posted: Tue May 19, 2020 6:11 amHow to change HEIGHTGET in RC file?
- Code: Select all Expand view
- CONTROL "", 102, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_TABSTOP, 73, 23, 27, 81
nageswaragunupudi wrote:Please try increasing height in the rc file.
Re: COMBOBOX HEIGHTGET is not working?
Posted: Tue May 19, 2020 9:08 pmnot work
work ok.
look the pos of keyword HEIGHTGET
- Code: Select all Expand view
REDEFINE COMBOBOX nEstado ;
ID 109 OF oDlgPE ;
ITEMS aEstados ;
HEIGHTGET 24 ;
WHEN !Empty( cNomProy ) ;
ON CHANGE ( IIf( nEstado == 1, ( cPermisoCierre := Space( 20 ), dFechaCierre := CToD( "" ), oDlgPE:Update() ), NIL ) )
work ok.
- Code: Select all Expand view
REDEFINE COMBOBOX nEstado ;
ID 109 OF oDlgPE ;
ITEMS aEstados ;
WHEN !Empty( cNomProy ) ;
ON CHANGE ( IIf( nEstado == 1, ( cPermisoCierre := Space( 20 ), dFechaCierre := CToD( "" ), oDlgPE:Update() ), NIL ) );
HEIGHTGET 24
look the pos of keyword HEIGHTGET
#xcommand REDEFINE COMBOBOX [ <oCbx> VAR ] <cVar> ;
[ <items: PROMPTS, ITEMS> <aItems> ] ;
[ ID <nId> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ STYLE <nStyle> ] ;
[ <pict: PICT, PICTURE> <cPicture> ];
[ ON EDIT CHANGE <uEChange> ] ;
[ HEIGHTGET <nHGet> ] ;
[ SELHEIGHT <nSelHt> ] ;
[ ITEMHEIGHT <nItmHt> ] ;
[ <lw: LISTWIDTH, DROPWIDTH> <nDropW> ] ;
[ DIRECTORY <cDir> [ATTRIB <attr>] [SAYDIR <oSayDir> ] ] ;
[ OWNERDRAW <uOwnerDraw> ];
Re: COMBOBOX HEIGHTGET is not working?
Posted: Wed May 20, 2020 2:51 amDear Carlos,
Thank you for your reply and I try as your suggestion as below but it doesn't change anything.
Thank you for your reply and I try as your suggestion as below but it doesn't change anything.
- Code: Select all Expand view
- REDEFINE COMBOBOX oGet[2] VAR oDbf:TCG_SECNO ITEMS MEMVAR->aStn ID 102 OF oDlg ;
WHEN !lFlr ;
ON CHANGE (MsgWait('test',,1)) ;
HEIGHTGET 50
Re: COMBOBOX HEIGHTGET is not working?
Posted: Wed May 20, 2020 4:40 amI use REDEFINE COMBOBOX from resource but HEIGHTGET is not working, nothing change.
Do not use HEIGHTGET
Use
- Code: Select all Expand view
- ........
SELHEIGHT 50 ;
.........
Alternatively, you can also do
- Code: Select all Expand view
ACTIVATE DIALOG oDlg ON INIT oCbx:nSelectionHeight := <nNewHeight>
Re: COMBOBOX HEIGHTGET is not working?
Posted: Wed May 20, 2020 8:46 amDear Mst Rao,
SELHEITHGT is not working.
This one is working well.
Thank you so much.
SELHEITHGT is not working.
nageswaragunupudi wrote:Do not use HEIGHTGET
Use
- Code: Select all Expand view
SELHEIGHT 50 ;
.........
Alternatively, you can also do
- Code: Select all Expand view
ACTIVATE DIALOG oDlg ON INIT oCbx:nSelectionHeight := <nNewHeight>
This one is working well.
Thank you so much.
Re: COMBOBOX HEIGHTGET is not working? *Solved*
Posted: Wed May 20, 2020 10:15 amNOT RUN OK ON RESOURCES
On my order I have
@ 2,5 COMBOBOX aGet[1] VAR nIcoElemento Items aElementiItems ;
BITMAPS aBmpCombo SIZE 50,90 PIXEL of oFolder:aDialogs[1];
ON CHANGE ( ncella:="", aGet[2]:refresh()) HEIGHTGET 66
and run ok
On my order I have
@ 2,5 COMBOBOX aGet[1] VAR nIcoElemento Items aElementiItems ;
BITMAPS aBmpCombo SIZE 50,90 PIXEL of oFolder:aDialogs[1];
ON CHANGE ( ncella:="", aGet[2]:refresh()) HEIGHTGET 66
and run ok
Re: COMBOBOX HEIGHTGET is not working? *Solved*
Posted: Wed May 20, 2020 1:48 pmOn resource, try
ACTIVATE DIALOG oDlg ON INIT oCbx:nSelectionHeight := <nNewHeight>
ACTIVATE DIALOG oDlg ON INIT oCbx:nSelectionHeight := <nNewHeight>
Re: COMBOBOX HEIGHTGET is not working? *Solved*
Posted: Wed May 20, 2020 1:48 pmI did some tests with fwh\samples\combosb.prg using \fwh\samples\combosb.rc.
I found that both HEIGHTGET and SELHEIGHT are working with resources.
Please build and run \fwh\samples\combosb.prg without any changes.
This is what you see.
Now, add these clauses "HEIGHTGET 50" and "HEIGHTGET 30" to oCbx2 and oCbx3 respectively.
This is the code.
This is what you see.
Now, change these clauses as "SELHEIGHT 30" and "SELHEIGHT 50" to oCbx2 and oCbx3 respectively.
This is the code
This is what you see.
These tests show that both HEIGHTGET and SELHEIGHT work with resources too.
First test these changes in \fwh\samples\combosb.prg.
After that, if in your program these clauses are not working, look for the differences this sample and your own sources.
I found that both HEIGHTGET and SELHEIGHT are working with resources.
Please build and run \fwh\samples\combosb.prg without any changes.
This is what you see.
Now, add these clauses "HEIGHTGET 50" and "HEIGHTGET 30" to oCbx2 and oCbx3 respectively.
This is the code.
- Code: Select all Expand view
REDEFINE COMBOBOX oCbx2 VAR cItem2 ITEMS { "One", "Two", "Three" } ;
ID ID_DROPDOWN OF oDlg ;
STYLE CBS_DROPDOWN ;
HEIGHTGET 50 ;
ON CHANGE ( cItem4 := cItem2, oSay:Refresh() ) ;
VALID ( If( ! oCbx2:Find( oCbx2:oGet:GetText() ),;
oCbx2:Add( oCbx2:oGet:GetText() ),), .t. )
REDEFINE COMBOBOX oCbx3 VAR cItem3 ITEMS { "One", "Two", "Three" } ;
ID ID_DROPDOWNLIST OF oDlg ;
HEIGHTGET 30 ;
ON CHANGE ( cItem4 := cItem3, oSay:Refresh() ) ;
VALID ( cItem4 := cItem3, oSay:Refresh(), .t. )
This is what you see.
Now, change these clauses as "SELHEIGHT 30" and "SELHEIGHT 50" to oCbx2 and oCbx3 respectively.
This is the code
- Code: Select all Expand view
REDEFINE COMBOBOX oCbx2 VAR cItem2 ITEMS { "One", "Two", "Three" } ;
ID ID_DROPDOWN OF oDlg ;
STYLE CBS_DROPDOWN ;
SELHEIGHT 30 ;
ON CHANGE ( cItem4 := cItem2, oSay:Refresh() ) ;
VALID ( If( ! oCbx2:Find( oCbx2:oGet:GetText() ),;
oCbx2:Add( oCbx2:oGet:GetText() ),), .t. )
REDEFINE COMBOBOX oCbx3 VAR cItem3 ITEMS { "One", "Two", "Three" } ;
ID ID_DROPDOWNLIST OF oDlg ;
SELHEIGHT 50 ;
ON CHANGE ( cItem4 := cItem3, oSay:Refresh() ) ;
VALID ( cItem4 := cItem3, oSay:Refresh(), .t. )
This is what you see.
These tests show that both HEIGHTGET and SELHEIGHT work with resources too.
First test these changes in \fwh\samples\combosb.prg.
After that, if in your program these clauses are not working, look for the differences this sample and your own sources.
Re: COMBOBOX HEIGHTGET is not working? *Solved*
Posted: Thu May 21, 2020 2:15 pmDear Master Rao,
I found the problem of HEIGHTGET that does not work. It is RESIZE16 clause effect. It will be work, if no RESIZE16.
Thank you so much.
Dutch
I found the problem of HEIGHTGET that does not work. It is RESIZE16 clause effect. It will be work, if no RESIZE16.
Thank you so much.
Dutch