FiveTech Support Forums

STATIC oWndBrow

   PUBLIC lFechaJan

   lFechaJan := .F.

   DEFINE METROBUTTON oBtnEmp OF oMetro                ;
      COLOR CLR_HBLUE, CLR_HGRAY                       ;
      FONT oFontSmall                                  ;
      CAPTION "FiveWin MDI"                            ;
      ALIGN "TOPRIGHT"                                 ;
      BITMAP LoadBitmap( GetResources(), "ORCAMENTO" ) ;
      BMPALIGN "BOTTOMLEFT"                            ;
      SIZE 100, 100                                    ;
      BODYTEXT "Trabando;MDIChild"                     ;
      TEXTALIGN "BOTTOMRIGHT"                          ;
      LARGE                                            ;
      ACTION( nNewChild() )

   oBtnEmp:nClrCaption := CLR_HCYAN
   oBtnEmp:cToolTip := "Usando MDICHILD da FiveTech Traba Todo"

// USANDO MDICHILD VIA TOUCH - traba todo.
FUNCTION nNewChild()

   LOCAL oDlg, oGroup, oFnt, oFont, IDCor, oSaida, aGet := ARRAY(5), oLbx
   LOCAL cAlias, oIncluir, oAlterar, oExcluir, oImprimir, lImpProposta := .T.
   LOCAL nKey, aGrad, oDuplicar, oRadMenu, cTitle, cResource

   cTitle := "PLENOIND: Assistência Técnica"

   aGrad := { { 0.30, CLR_WHITE, CLR_WHITE },{ 0.50, CLR_WHITE, CLR_WHITE } }

   DEFINE WINDOW oWndBrow MDICHILD FROM 00, 00 TO 36.7, 160.3                ;
      COLOR CLR_CYAN, CLR_WHITE TITLE cTitle MDI BORDER NONE NOMAXIMIZE

   DEFINE DIALOG oDlg NAME "BROWSE_CONDICAO_PAGTO_1280_768" OF oWndBrow      ;
      GRADIENT aGrad

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

   oDlg:lHelpIcon := .F.

   // LISTBOX... AQUI.

   REDEFINE BUTTONBMP oSaida ID 302 OF oDlg RESOURCE "154" TEXTRIGHT         ;
      ACTION ( lFechaJan := .T., oWndBrow:End(), oDlg:End() ) CANCEL

   oSaida:cTooltip := { "Click no Botão Para Sair",                          ;
                        "Saida - Exit - Cancelar ", 1, CLR_WHITE, CLR_CYAN }

   ACTIVATE DIALOG oDlg NOWAIT ;
      VALID( .NOT. GETKEYSTATE( 27 ) )

   // MDICHILD No se cierra con METROPANEL.
   ACTIVATE WINDOW oWndBrow CENTERED VALID( lFechaJan )


RETURN NIL