DCCOMBOBOX problem

[Zdeno Bielik]

Hi Roger,

it looks like when oDialog is created, into total height of dialog window is added whole height of combobox object and not only one line -
and then it looks not very nice... there is unnecessary many empty space... (image-A)
So, please, can you modify this and then it will works/looks like in all other win's apps? (image-B)

TIA & Regards

Zdeno

[Tom]

Hi, Zdeno.

Place the combobox on a static (simple SLE, DCSAY ..). This will prevent the FIT clause of DCREAD to calculate the dialog height using the combo height.

[Zdeno Bielik]

Hi Tom,

many thanks for tip - it works great!

Zdeno

Code: Select all

#include "dcdialog.ch"

PROCEDURE Main()

LOCAL Getlist := {}
Local cField1, aFields1
Local cField2, aFields2
Local cField3, aFields3
*
Local oStatic1, oStatic2, oStatic3

aFields1 := { 'adam', 'john', 'roger', 'zdeno' }
cField1  := AFields1[1]

aFields2 := { 'abc', 'bcd', 'cde', 'def', 'efg', 'fgh', 'ghi' }
cField2  := AFields2[1]

aFields3 := { 'adam1', 'adam2', 'adam3', ;
              'john1', 'john2', 'john3', 'john4', ;
              'roger1', 'roger2', 'roger3', 'roger4', 'roger5', ;
              'zdeno1', 'zdeno2', 'zdeno3', 'zdeno4', 'zdeno5', 'zdeno6'  }
cField3  := AFields3[1]

@  1, 1 DCSAY 'say  1'
@  2, 1 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 10, 1 OBJECT oStatic1
@  0, 0 DCCOMBOBOX cField1 LIST aFields1 SIZE 10,15 TYPE XBPCOMBO_DROPDOWNLIST TABSTOP PARENT oStatic1

@  5, 1 DCSAY 'say  5'
@  6, 1 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 10, 1 OBJECT oStatic2
@  0, 0 DCCOMBOBOX cField2 LIST aFields2 SIZE 10,15 TYPE XBPCOMBO_DROPDOWNLIST TABSTOP PARENT oStatic2

@ 10, 1 DCSAY 'say 10'
@ 11, 1 DCSTATIC TYPE XBPSTATIC_TYPE_RAISEDBOX SIZE 10, 1 OBJECT oStatic3
@  0, 0 DCCOMBOBOX cField3 LIST aFields3 SIZE 10,15 TYPE XBPCOMBO_DROPDOWNLIST TABSTOP PARENT oStatic3

DCREAD GUI FIT ADDBUTTONS

RETURN

*

PROCEDURE AppSys()
RETURN

[rdonnay]

Tom -

Thanks again for handling support for me.

Roger