topic-22857

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Pregunta sobre MDI y Dialog NOMODAL
Posted: Thu Nov 10, 2011 04:38 PM

Cuando se crea una ventana Windows se crea otra tipo que queda como una hija es lo que entiendo que es MDICHILD es posible que un Dialog se comporte asi.

DEFINE WINDOW oWndPpal PIXEL MDI;
TITLE cSistema ;
COLOR RGB(255,255,255),x_clfonprin ICON oIco
..

ACTIVATE WINDOW oWndPpal MAXIMIZED

Code (fw): Select all Collapse

     DEFINE WINDOW oWdlcx MAXIMIZED ; 
            TITLE "Reportes/consultas/Otros  " ;
            NOSYSMENU ;
            MDICHILD OF ::oWndMain
...

     ACTIVATE WINDOW oWdlcx MAXIMIZED ;
       ON PAINT GradientFill( hDC, 0, 0, oWdlcx:nHeight, oWdlcx:nWidth, ::aGrat1, .T. )

Code (fw): Select all Collapse

  DEFINE DIALOG oDlg16 RESOURCE "REFCATVAL" TITLE "ddd") STYLE nOR(WS_MINIMIZEBOX)
 ++
   ACTIVATE DIALOG oDlg16 CENTERED

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Pregunta sobre MDI Vrs Dialog
Posted: Thu Nov 10, 2011 05:16 PM

ruben Dario wrote:Cuando se crea una ventana Windows se crea otra tipo que queda como una hija es lo que entiendo que es MDICHILD es posible que un Dialog se comporte asi.

No lo se, pero que ganas con obtener este comportamiento?
Yo uso mucho las MDICHILD y no tengo problemas, me van de perlas.

Un Saludo
Carlos G.

Un Saludo

Carlos G.

FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Pregunta sobre MDI Vrs Dialog
Posted: Thu Nov 10, 2011 06:51 PM

Carlos. En si me intesesa cargar el recurso ya que tengo diseñada el formulario para hacer la captura de datos estan hechos con Pelles. No se si se pueda

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: Pregunta sobre MDI Vrs Dialog
Posted: Thu Nov 10, 2011 11:43 PM

se puede montar un dialogo de recurso en una child, sin problemas.
algo como lo siguiente.

Code (fw): Select all Collapse

   DEFINE WINDOW oWndChild MDICHILD OF oWnd ;
      FROM 0,0 TO 6,6 ;
       border none  nomaximize //nominimize // prevent resizing

   oWndChild:bGotFocus  := { || oDlg:SetFocus() }

   DEFINE DIALOG oDlg RESOURCE "MDI_VENTAS2" TITLE 'dialogo sobre una child'  ;
           font oFont2 OF oWndChild brush oBrush
ACTIVATE DIALOG oDlg NOWAIT ;  // It has to be NonModal --> NOWAIT clause
      ON INIT (oDlg:Move( 0, 0 )   ) 
      

ACTIVATE WINDOW oWndChild ON INIT

saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Pregunta sobre MDI Vrs Dialog
Posted: Fri Nov 11, 2011 03:50 PM

Gracias Cesar , tengo un problema con el Recordset cuando son NOMADAL o NOWAY..
La Variable que manejo el recordset es publica y lo manuejo con una Clases.

Desde de Aplicacion Principal lo defino asi: PUBLIC oApp := TMENUINI():New()

Desde Otro Programa me da el error , cuando no es NOMODAL funciona parece que se perdiera la direccion de las variables.

Code (fw): Select all Collapse

    elseif oP16:aContl[3] $"P0-S0-Q0-U0-F0-B0-M0-E0" //E0
?"Paso 1"
      if oApp:oQSet[oApp:nQSet]:RecordCount() == 0 //ADORecCount()
      else
?"Paso 2"
       if oP16:aContl[3] ="P0"   //primero
         if !oApp:x_tfado; DbGoTop();else;oApp:oQSet[oApp:nQSet]:MoveFirst();endif //ADO GOTOP
         oP16:LOAD()  //init_asivar(oP16:aContl,oP16:aContl[20],1)
         CargaMatriz(0) ;oP16:oBrw:refresh()

http://imageshack.us/photo/my-images/254/dibujoch.jpg/
" rel="noopener">
http://imageshack.us/photo/my-images/254/dibujoch.jpg/

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

FiveTech Support Forums

Continue the discussion