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
DCCOMBOBOX problem
-
- Posts: 147
- Joined: Thu Jan 28, 2010 9:24 am
- Location: Nitra, Slovakia
- Contact:
DCCOMBOBOX problem
- Attachments
-
- test28-b.PNG (42.64 KiB) Viewed 8625 times
-
- test28-a.PNG (32.02 KiB) Viewed 8625 times
Re: DCCOMBOBOX problem
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.
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.
Best regards,
Tom
"Did I offend you?"
"No."
"Okay, give me a second chance."
Tom
"Did I offend you?"
"No."
"Okay, give me a second chance."
-
- Posts: 147
- Joined: Thu Jan 28, 2010 9:24 am
- Location: Nitra, Slovakia
- Contact:
Re: DCCOMBOBOX problem
Hi Tom,
many thanks for tip - it works great!
Zdeno
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
- Attachments
-
- test28-c.PNG (26.77 KiB) Viewed 8618 times
Re: DCCOMBOBOX problem
Tom -
Thanks again for handling support for me.
Roger
Thanks again for handling support for me.
Roger
The eXpress train is coming - and it has more cars.