no se despliega Icono

[ramon67]

Esta pregunta ya la han hecho en otras ocasiones


En este ejemplo si me muestraa el ICONO factura.ico

define icon oIco FILENAME "factura.ICO"
define brush oBrush filename mxempre->mfondo

DEFINE Window oWnd of oMenu FROM 1, 1 TO 400,600 pixel;
TITLE "Menu Principal de Ventas";
ICON oIco;
MENU BuildMenu() ;
brush oBrush

DEFINE MESSAGE OF oWnd ;
NOINSET CENTERED KEYBOARD DATE CLOCK

ACTIVATE WINDOW oWnd ;
VALID MsgYesNo( "Salir?" );
MAXIMIZED



En este otro ejemplo NO FUNCIONA!!


define ICON oIcon filename "Factura.ico"

define DIALOG oVentana of Ventana TITLE "Facturas/Cotizaciones";
FROM 0,0 TO 35,100;
ICON oIcon;
FONT oletra

oVentana:nStyle:=NOR(WS_MAXIMIZEBOX,WS_MINIMIZEBOX)

ACTIVATE DIALOG oVentana CENTER valid(sale)



cada ejemplo esta en diferente programa, el primero un menu y el segundo un dialogo.

Se ve muy feo el cuadrito blanco que me muestra sin la imagen!!

Gracias por su ayuda!!

[Antonio Linares]

Haz ACTIVATE DIALOG oVentana CENTER valid(sale) ON INIT oVentana:SetIcon( oIcon )