Método()

[Vikthor.Thomas]

En una ventana TMdiChild() qué evento se ejecuta cuándo es presionado el botón para maximizar ?
Ya revisé el evento SendMsg() de la clase TWindow y no hay un llamado a ese evento cuando se pulsa ese botón.

Saludos

[cnavarro]

Prueba con

WM_SYSCOMMAND nWParam = 61488 nLParam = 16188370

https://msdn.microsoft.com/es-es/librar ... 60(v=vs.85).aspx

[Vikthor.Thomas]

Gracias por responder
Hice cambios para detectar el llamando en ese evento y no lo conseguí.
Alguien que pueda orientarme ?

Saludos

[cnavarro]

Qué cambios hiciste?

[Vikthor.Thomas]

Modifiqué los métodos maximize y command de la clase Window , el método ChildMaximized de la clase MdiClien y también el método Maximize de la clase MdiChild y en ninguno se hace el llamado al evento maximizar la ventana o dar doble click en el título de la ventana.

Saludos

[cnavarro]

Mirate la clase windows

[Vikthor.Thomas]

Anexo un ejemplo de problema que detecté :

En el evento ON INIT hago el cambio del título de la ventana principal. ( Funciona OK )
Y cuando maximizó una ventana hija el título cambia y no respeta el cambio hecho al inicio. De tal forma que pierdo el valor asignado previamente.

Code: Select all  Expand view  RUN

#include "Fivewin.ch"
Function Main()
LOCAL oWnd
DEFINE WINDOW oWnd MDI TITLE "A sample of a MDI environment"
ACTIVATE WINDOW oWnd ON INIT oWnd:SetText("Vikthor Thomas")
RETURN NIL
 

[cnavarro]

Has probado con el ON PAINT

[Vikthor.Thomas]

Has probado con el ON PAINT

La diferencia usando el ON PAINT es que únicamente cambia el título cuando la ventana es maximizada.

[cnavarro]

No entiendo bien
Lo has puesto en el ON PAINT de la CHILD? o en el ON RESIZE

[Vikthor.Thomas]

No entiendo bien
Lo has puesto en el ON PAINT de la CHILD? o en el ON RESIZE

Si puedes , corre el ejemplo.
Abre una ventana Child y maximiza,

[cnavarro]

Ya lo habia probado tu ejemplo tal cual, y no veo el problema

[Vikthor.Thomas]

Estoy usando la versión FW64 13.11

[Vikthor.Thomas]

Ventana Main con el Titulo correcto


Ventana Child Normal


Ventana Child Maximized con Titulo Incorrecto

[cnavarro]

Ok, puede ser la version
Intenta esto en lugar de SetText:

Code: Select all  Expand view  RUN

oWnd:cTitle( "Vikthor Thomas" )