la clase TDBCOMBO no se pinta correctamente en un dialogo definido con transparencia, del los ejemplos de FW:
- Code: Select all Expand view
/*
Program : DBC1.PRG
Purpose : Test DBCombo
Notes :
*/
#include "fivewin.ch"
#include "dbcombo.ch"
function main()
local oDlg, oDBC1, oDBC2, cVar, oCust, cStateID:=" ", oBtn, cState:=""
local cDept:= space(3), oStates, aItems, aList
field NAME
if file("states.dbf")
use states
index on upper(NAME) to temp
database oStates
else
msgInfo("File states.dbf not found.")
endif
define dialog oDlg COLOR CLR_BLUE, CLR_BLUE TRANSPARENT
@ 10,30 dbcombo oDBC1 var cStateID of oDlg;
alias oStates:cAlias;
size 100,200 pixel;
itemfield "CODE" ;
listfield "NAME";
update;
aList:= {"Accounting","HR","Marketing","Production","Research","Shipping","Sales"}
aItems:= {"100","200","400","300","600","500","700"}
@ 20,30 DBCOMBO oDBC2 VAR cDept;
items aItems;
size 100,200 pixel;
list aList;
of oDlg;
update
@ 30,30 COMBOBOX cDept items aItems;
size 100,200 pixel;
of oDlg;
update
@ 50, 50 button oBtn prompt "Selected";
of oDlg pixel ;
action msgInfo( "cStateId: " +cStateID +CRLF+"DeptNo: "+cDept,"Selected" );
default
activate dialog oDlg center;
ferase("temp.ntx")
return nil
// EOF
Los combobox funcionan bien (ver el ejemplo ), y siendo que esta clase hereda de TDbComoBox no se por que no funciona,
modifique la clase TDialog introduciendo el TDBCOMBO para que tenga propiedad de transparencia y nada, y tambien de manera directa.
saludos
Marcelo