FiveTech Software tech support forums

Mr. Rao,

I'm not tdialog. My all child dialogs is twindow and tmdichild based. Sorry.

Best regards,

... 15 TREG32 16 TMENUITEM 17 TMDICLIENT 18 TFONT 19 TMSGBAR 20 TRECT 21 TMSGITEM 22 TTIMER 23 TBITMAP 24 TIMAGE 25 TCURSOR 26 TBAR 27 TBTNBMP 28 TMDICHILD 29 TDIALOG 30 TXBROWSE 31 TXBRWCOLUMN 32 TSCROLLBAR 33 TCLIPBOARD 34 TSTRUCT Memory Analysis =============== 598 Static variables Dynamic ...

... TWINDOW:MSGNOTFOUND( 0 ) Called from: source\rtl\tobject.prg => TWINDOW:OWNDCLIENT( 0 ) Called from: c:\fwh\source\classes\mdichild.prg => TMDICHILD:NEW( 150 ) Called from: .\prg\NewVentas.PRG => FNCT_REGISTRARVENTAS( 316 ) Called from: .\prg\Menus.PRG => (b)FBARRADEBOTONES( 529 ) ...

... Called from:TCONTRACTORSTBLBRW:DEFINEDLG(173) Called from:(b)TTABLEBROWSER_SHOW(183) Called from:TWINDOW:ACTIVATE(1022) Called from:TMDICHILD:ACTIVATE(262) Called from:TCONTRACTORSTBLBRW:SHOW(183) Called from:PMSYS:CONTRACTORSMAINTENANCE(640) Called from:(b)PMSYS_FRAMEBAR(759) Called ...

... Args: [ 1] = U [ 2] = N 90 Stack Calls =========== Called from: test2.prg => (b)TEST1( 121 ) Called from: .\source\classes\WINDOW.PRG => TMDICHILD:RESIZE( 2367 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1086 ) Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:ACTIVATE( ...

... 34 WIN_OLEAUTO 35 TOLEAUTO 36 FWMARIACONNECTION 37 TXBROWSE 38 TXBRWCOLUMN 39 TCLIPBOARD 40 FWROWSET 41 FWMARIAROWSET 42 TFIELD 43 TFIELDS 44 TMDICHILD 45 TSTRUCT Memory Analysis =============== 635 Static variables Dynamic memory consume: Actual Value: 8781824 bytes Highest Value: 8781824 ...

... that the method ::GetRect() always returns an oRect with the coordinates on the main window. But how to get the coordinates of a child window (TMdiChild) relative to the parent window (TMdiFrame) when the user moved/sized it? Is there a method or function which is doing this job or have I write ...

Mr Rao,

Tomando el control.prg original, NO funciona poniendo :
do while ::hContainerWnd:WinStyle( WS_CHILD ) .and. !::hContainerWnd:IsKindOf( "TMDICHILD" ) .and. ::hContainerWnd:oWnd != nil
en linea 946.

Saludos.

... 169 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1023 ) Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:ACTIVATE( 262 ) Called from: Source\mainapp.prg => MAINAPP:BROWSEMASTER( 169 ) Called from: Source\mainapp.prg => (b)MAINAPP:NEW( 35 ...

... from TMDICLIENT:SENDMSG(0) in .\source\classes\WINDOW.PRG Called from TMDICLIENT:CHILDCLOSE(190) in .\source\classes\MDICLIEN.PRG Called from TMDICHILD:END(282) in .\source\classes\MDICHILD.PRG Called from (b)VIEWENV(158) in CONSULTE.PRG Called from TTASKITEM:LBUTTONUP(327) in source\h_ctaskitem.prg ...

... from TMDICLIENT:SENDMSG(0) in .\source\classes\WINDOW.PRG Called from TMDICLIENT:CHILDCLOSE(190) in .\source\classes\MDICLIEN.PRG Called from TMDICHILD:END(282) in .\source\classes\MDICHILD.PRG Called from (b)VIEWENV(158) in CONSULTE.PRG Called from TTASKITEM:LBUTTONUP(327) in source\h_ctaskitem.prg ...

... _FWH : 3,325 in Module: .\source\classes\WINDOW.PRG UPDATEWINDOW : 0 in Module: TWINDOW:ACTIVATE : 1,013 in Module: .\source\classes\WINDOW.PRG TMDICHILD:ACTIVATE : 262 in Module: .\source\classes\MDICHILD.PRG N05C_BOTONES : 207 in Module: C:\PROYTEST\PRG\BOTONES.PRG Utilizo FWH17.02 / xHarbour ...

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

... CLASS TMYPAD   LOCAL oWnd   #ifndef __XPP__      oWnd := ::oWndMain:oWndActive:oControl   #else      oWnd := ::oWndMain:oWndActive:TMdiChild:oControl   #endifRETURN oWnd when I show the preview of the window child ( ::WndChild():preview() ) I use this button from bar DEFINE BUTTON ...

... can change the size .... why happen this ? because the rtf is called ortf to all window child we must change it from ortf to oWndMain:oWndActive:TMdiChild:oControl to have the current rtf sample : Function WndChild() LOCAL oWnd oWnd := oWndMain:oWndActive:TMdiChild:oControl RETURN oWnd then @ ...