Me podrian dar una ayudadita
hice un folder dentro de un windows que dejo fijo abajo de unos xbrowse este folder esta sin pintar su Dialog
todo funciona muy bien pero el folder como las pestañitas quedan en color blanco y no logro que tomen el color
no me funciona lo siguiente
oFld:aDialogs[1]:SetColor( "CLR_YELLOW,CLR_HBLUE" )
oFld:SetColor( "CLR_YELLOW,CLR_HBLUE" )
oFld:aDialogs[1]:SetColor(rgb(255, 255, 200))
solo funciona si pongo
oFld:aDialogs[1]:SetBrush( oBrush )
me pueden ayudar porfis
- Code: Select all Expand view
function misfolders()
local oDlg, oFld, oSay,oFont,APERS2,oBrush
DEFINE BRUSH oBrush FILE "Brush.Bmp"
DEFINE DIALOG oDlg OF oChild TRANSPARENT FROM 0, 0 TO 0, 0
@ 20.135, 20.4 FOLDER oFld PROMPTS "&Datos del cliente", "&And OOP", "&Primas pagadas" ;
PAGES "fold1", "fold2", "fold3" COLORS "CLR_YELLOW,CLR_HBLUE";
OF oDlg SIZE 517.6, 160
oFld:aDialogs[1]:SetBrush( oBrush )// funciona
oFld:aDialogs[2]:SetBrush( oBrush )// funciona
oFld:aDialogs[1]:SetColor(rgb(255, 255, 200)) //no funciona
oFld:aEnable = { .t., .t. ,.t.}
oFld:aDialogs[1]:SetColor( "CLR_YELLOW,CLR_HBLUE" )// no funciona
oFld:SetColor( "CLR_YELLOW,CLR_HBLUE" )// no funciona
DEFINE FONT oFont NAME "Ms Serif" SIZE 14,14
@ 0,1 SAY oSay PROMPT " NOMBRE " oF oFld:aDialogs[ 1 ]
@ 1,1 say oGetN var getNOM OF oFld:aDialogs[ 1 ] size 150,10 BORDER
ACTIVATE DIALOG oDlg NOWAIT ;
ON INIT ChangeParent( oDlg, oWndD )
oBrush:End()
oDlg:End()
return nil
function ChangeParent( oDlg, oWndD )
local hCtrl := GetWindow( oDlg:hWnd, GW_CHILDD )
local n, aChilds := {}
while hCtrl != 0
AAdd( aChilds, hCtrl )
hCtrl = GetWindow( hCtrl, GW_HWNDNEXTT )
end
AEval( aChilds, { | hCtrl | SetParent( hCtrl, oWndD:hWnd ) } )
for n = 1 to Len( oDlg:aControls )
AAdd( oWndD:aControls, oDlg:aControls[ n ] )
next
return nil
