For i:=1 TO Len(oDlg:aControls)
if oDlg:aControls[i]:ClassName()=="TSAY"
oDlg:aControls[i]:lTransparent:=.T.
endif
next
for i:= 1 TO Len(oPages:aDialogs)
oPages:aDialogs[i]:lTransparent := .T.
oPages:aDialogs[i]:oBrush := oBrush
oPages:aDialogs[i]:SetBrush(oBrush)
oPages:aDialogs[i]:Refresh()
next
DEFINE DIALOG oDlg RESOURCE "DLG_PRINCIP" TITLE "La lucura de las actualizaciones";
ICON oIcon1 BRUSH oBrush // TRANSPARENT
luego redefino TPage,
REDEFINE PAGES oPages ID 180 OF oDlg DIALOGS "PAG_PAG1","PAG_PAG2"
le asigno el brush
oPages:oBrush:=oBrush
y antes del ACTIVATE DIALOG
For i:=1 TO Len(oDlg:aControls)
if oDlg:aControls[i]:ClassName()=="TSAY"
oDlg:aControls[i]:lTransparent:=.T.
endif
next
En esas circunstancias, como comentas, la transparencia no se está haciendo bien. Por supuesto que la estética es importante ("un coche ha de funcionar bien y si encima es bonito, aún mejor") pero siempre es preferible anteponer la funcionalidad a la estética.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 51 guests