Page 1 of 1

Dialog

PostPosted: Thu Apr 23, 2009 10:04 pm
by Patricio Avalos Aguirre
Estimados

Se puede hacer que en una Dialog se pueda minimizar cuando se presione en su ventana principal, sin ser MDI

Necesito ya que aveces uno requiere minimizar y no se puede ya que existe el dialogo, y hay que presionar el boton escritorio, pero este minimiza todo

ejemplo
Code: Select all  Expand view
    DEFINE WINDOW _oWnd TITLE "Ventana principal"                               ;
        COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 )                    ;
        MENU BuildMenu()                                                                ;
        MENUINFO 2                                                                      ;
        ICON oIco                                                                       ;
        MDI

    ACTIVATE WINDOW _oWnd MAXIMIZED                                    


static function BuildMenu()
    local oMenu

    MENU oMenu  2007
        MENUITEM "&Administración" ACTION xFuncion()
    ENDMENU

return( oMenu )


function xFuncion()
local oAbt
DEFINE DIALOG oAbt TITLE "Acerca de..." RESOURCE "ABOUT"
ACTIVATE DIALOG oAbt CENTERED
return( nil )

 

Re: Dialog

PostPosted: Fri Apr 24, 2009 3:21 am
by wmormar
Patricio,

Se puede hacer que se minimize el dialogo, pero con eso no dejará hagas otra cosa en la ventana principal.

O hacerlo de la siguiente manera:
Code: Select all  Expand view
   DEFINE WINDOW _oWnd TITLE "Ventana principal"                               ;
        COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 )                    ;
        MENU BuildMenu()                                                                ;
        MENUINFO 2                                                                      ;
        ICON oIco                                                                       ;
        MDI

    ACTIVATE WINDOW _oWnd MAXIMIZED                                    


static function BuildMenu()
    local oMenu

    MENU oMenu  2007
        MENUITEM "&Administración" ACTION xFuncion()
    ENDMENU

return( oMenu )


function xFuncion()
local oAbt
DEFINE DIALOG oAbt TITLE "Acerca de..." RESOURCE "ABOUT"
ACTIVATE DIALOG oAbt CENTERED NOWAIT
return( nil )

 

Re: Dialog

PostPosted: Fri Apr 24, 2009 1:34 pm
by Patricio Avalos Aguirre
Gracias por responder

funciona con la opcion NOWAIT, pero este puede entrar a otros módulos, lo cual no quiero, solo que pueda minimizar

se podra hacer sin la opcion NOWAIT, una vez lei algo de "parent", pero no logro ubicarlo