FiveTech Software tech support forums

... Antonio
Por mi parte, encantado de ceder todo el códdigo.
Solo dime cómo hacerlo.
Saludos
Jesús Marín



Buenos dias
En mi entorno de pruebas, MdiChildFolder, creé una función que me muestra todas las ventanas MdiChild y me marca la que está activa.


https://i.ibb.co/q390FVCr/20250131-104903 ...

Buenos dias
En mi entorno de pruebas, MdiChildFolder, creé una función que me muestra todas las ventanas MdiChild y me marca la que está activa.


https://i.ibb.co/q390FVCr/20250131-104903.jpg

Por lo tanto deberia ser sencillo resolverlo. Te copio el código de esta función ...

Buenos dias
En mi entorno de pruebas, MdiChildFolder, creé una función que me muestra todas las ventanas MdiChild y me marca la que está activa.


https://i.ibb.co/q390FVCr/20250131-104903.jpg

Por lo tanto deberia ser sencillo resolverlo. Te copio el código de esta función ...

... 0, "TUTOR04" ) )

LIBERA_TUDO()

RETURN NIL

ENDIF

DEFINE ICON oIco FILE "..\icons\fax.ico"

DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 MDI ;
TITLE "FiveWin sample" ;
MENU BuildMenu() ;
COLOR "B/W" ICON oIco

// DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd
DEFINE BUTTONBAR oBar ...

... inside of oWnd but I not see the msgbar


https://i.postimg.cc/GmWCFhcQ/vv.gif

the test



#include "fivewin.ch"

REQUEST DBFCDX

#define AS_MDICHILD 1
#define AS_DIALOG 2

FUNCTION Main()
local oWnd

RddSetDefault( "DBFCDX" )

SetHandleCount( 100 )

SET DATE FORMAT "dd-mm-yyyy"
SET ...

Antonio Linares wrote:Dear Silvio,

Method New() must return Self

also,

DEFINE BUTTONBAR oBar TOP _3D OF oAnalisi SIZE 65,24 2015 NOBORDER

must be created from the ON INIT clause of the dialog

Antonio I not see the msgbar (set message to)

Dear Silvio,

Method New() must return Self

also,

DEFINE BUTTONBAR oBar TOP _3D OF oAnalisi SIZE 65,24 2015 NOBORDER

must be created from the ON INIT clause of the dialog

... I don't understand why it isn't created, I need the msgbar because I have to insert a progressbar, furthermore the dialog must be inside the oWnd Mdi and instead it is outside, why?

I create a dialog AS MDICHILD from a class, where I inserted the creation of the msgbar

https://i.postimg.cc ...

Hola, Necesito cambar el nombre del usuario en la Ventana oWnd, cada vez que entra al sistema uno diferente, tengo:

DEFINE WINDOW oWnd MDI ;
TITLE "Control de Mantenimientos";
MENU BuildMenu(oWnd) MDI ;
ICON oIco

DEFINE MESSAGE OF oWnd PROMPT cUsuario ;
NOINSET CENTERED KEYBOARD DATE CLOCK ...

Hola, Necesito cambar el nombre del usuario en la Ventana oWnd, cada vez que entra al sistema uno diferente, tengo:

DEFINE WINDOW oWnd MDI ;
TITLE "Control de Mantenimientos";
MENU BuildMenu(oWnd) MDI ;
ICON oIco

DEFINE MESSAGE OF oWnd PROMPT cUsuario ;
NOINSET CENTERED KEYBOARD DATE CLOCK ...

... os dialogos criados no FW tem como referência a instância do handle da janela principal WNDMAIN().
Neste caso você resolveria usando DEFINE WINDOW MDI para cada parte do programa que você deseja abrir, sendo que isto não faz o multithreading mais as janelas ficam independentes com funcionamento de ...

Antonio Linares wrote:Lo estás usando en un entorno MDI, tal vez esté relacionado

Lo curioso es por que el handle del webview vale cero...

Si correcto, usamos ambiente MDI

... from: => ASCAN( 0 )
Called from: .\source\classes\twebview2.prg => WEBVIEW2_ONEVAL( 128 )
Called from: => WINRUN( 0 )
Called from: D:\Fwh\Fwh2407\source\classes\window.prg => TMDIFRAME:ACTIVATE( 1117 )
Called from: D:\Cv\contfive.prg => MAIN( 4353 )
Estas usando ventanas MDI en tu aplicación ?

Lo estás usando en un entorno MDI, tal vez esté relacionado

Lo curioso es por que el handle del webview vale cero...

Para MDI sólo hay que cambiar estas dos líneas:

DEFINE WINDOW oWnd TITLE "Testing Class TCircle" COLOR "W/BG" SIZE 1200, 800 MDI

oCircle = TCircle():New( 50, 80, 120, CLR_BLUE, oWnd:oWndClient )