Hola Cristóbal:
He estado mirando y he visto lo siguiente, en mi PRG existe la siguiente línea:
@150*ProPorV, 90*ProporH combobox xPul16 VAR va111 ITEMS { " " + LocaText( 1, 2,530), " " + LocaText( 1, 2,531), " " + LocaText( 1, 2,532) } OF wGestd1901 PIXEL COLOR escri30, fondo30 SIZE 80*ProporH, 144*ProPorV ON CHANGE CambTiSu() STYLE CBS_DROPDOWNLIST
Cuando yo compilo hago los siguientes pasos:
%hdir%harbour gesti190.prg /n /p
%bdir%bcc32 -M -c -O2 -Ic:\harbour\include -Ic:\bcc582\include gesti190.c
El primero crea un gesti190.c y gesti190.ppo con el segundo crea el gesti190.obj
He mirado el .c y hace referencia a xPul16 de la siguiente forma:
{ "XPUL16", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
Y mirando el .ppo hace referencia a xPul16 de la siguiente forma:
xPul16 := TComboBox():New( 150*ProPorV, 90*ProporH, { | u | If( PCount()==0, va111, va111:= u ) }, { " " + LocaText( 1, 2,530), " " + LocaText( 1, 2,531), " " + LocaText( 1, 2,532) }, 80*ProporH, 144*ProPorV, wGestd1901,, {|Self|CambTiSu()},, escri30, fondo30, .T.,,, .F.,, .F.,,, 3,,, "xPul16" )
y según veo ya no esta el style viendo la WIKI he visto que cuando lo haces como yo no pasa el Style y cuando lo haces por recursos si:
#xcommand @ <nRow>, <nCol> COMBOBOX [ <oCbx> VAR ] <cVar> ;
[ <items: ITEMS, PROMPTS> <aItems> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <pixel: PIXEL> ] ;
[ FONT <oFont> ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ <design: DESIGN> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
=> ;
[ <oCbx> := ] TComboBox():New( <nRow>, <nCol>, bSETGET(<cVar>),;
<aItems>, <nWidth>, <nHeight>, <oWnd>, <nHelpId>,;
[{|Self|<uChange>}], <{uValid}>, <nClrText>, <nClrBack>,;
<.pixel.>, <oFont>, <cMsg>, <.update.>, <{uWhen}>,;
<.design.>, <acBitmaps>, [{|nItem|<uBmpSelect>}] )
#xcommand REDEFINE COMBOBOX [ <oCbx> VAR ] <cVar> ;
[ <items: ITEMS, PROMPTS> <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> ] ;
[ PICTURE <cPicture> ];
[ ON EDIT CHANGE <uEChange> ] ;
=> ;
[ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),;
<aItems>, <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],;
<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
<acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>, <cPicture>,;
[<{uEChange}>] )
Por lo que mi pregunta ahora es como se puede cambiar el estilo y el estilo extra de la ComboBox desde código, algo así como:
xPul16:nStyle(CBS_DROPDOWNLIST)
xPul16:nExStyle(WS_EX_LEFTSCROLLBAR)
