En la barra superior de la ventana principal de una aplicación, quiero que aparezca lo siguiente:

Icono + Título + icono minimizar + icono maximizar y el icono "x" (cerrar) deshabilitado.

Casi lo consigo, definiendo la ventana asi:

DEFINE WINDOW oWnd TITLE cTitle MENU fMenu ICON oico ;
STYLE (WS_CAPTION, WS_MINIMIZEBOX, WS_MAXIMIZEBOX)

Todo correcto, pero desaparece el icono.

¿Alguna idea?

Un saludo y feliz fin de semana.

Manuel,

Posiblemente tengas que añadir WS_POPUP

Antonio,

En primer lugar, muchas gracias por contestar.

He realizado el cambio que me indicas y no funciona. Te acompaño el módulo de samples teststyl.prg, con las modificaciones que he hecho y que no pita:

// Using alternatives window styles sample

include "FiveWin.ch"

function Main()

local oWnd, oIco

DEFINE ICON oIco FILENAME "..\icons\Customer.ico"

DEFINE WINDOW oWnd FROM 8, 8 TO 20, 40 ;
TITLE "Testing Style Clause in Dialogs" ;
ICON oIco ;
STYLE nor (WS_POPUP, WS_CAPTION,WS_MINIMIZEBOX,WS_MAXIMIZEBOX)

ACTIVATE WINDOW oWnd MAXIMIZED
return nil

Un saludo

Manuel,

Es WS_SYSMENU en vez de WS_POPUP. Mi error

Antonio, sigue sin funcionar.- Ahora sale el icono, pero no desactiva la "x" de cerrar. Es como si no pusiera ningun Style. Este es el código:

// Using alternatives window styles sample

include "FiveWin.ch"

function Main()

local oWnd, oIco

DEFINE ICON oIco FILENAME "..\icons\Customer.ico"

DEFINE WINDOW oWnd FROM 8, 8 TO 20, 40 ;
TITLE "Testing Style Clause in Dialogs" ;
ICON oIco ;
STYLE nor (WS_SYSMENU, WS_CAPTION,WS_MINIMIZEBOX,WS_MAXIMIZEBOX)

ACTIVATE WINDOW oWnd MAXIMIZED
return nil

Manuel,

Puedes desactivar la "X" usando un WHEN .f.

Como prevees que salga el usuario de esa ventana ?

Antonio,

Funcionó con IF VALID.-

Muchas gracias.