FiveTech Software tech support forums

Code: Select all

  oBrw:bPainted:= {|hDC|
         LOCAL hPen := CreatePen( PS_SOLID, 1, GRIS )
         Rectangle( hDC, 0, 0, oBrw:nWidth, oBrw:nHeight, hPen )
         DeleteObject( hPen )
         RETURN NIL
         }
 

Code: Select all

Local oFont
Local oFontX
Local nFI       := ( 5 + 25 ) * 2
Local nFIG      := nFI + 20*2
Local nCI       := 6
Local nCIG      := nCI + 2*2
Local nInc      := 40*2
Local nW        := 264
Local nH        := 24/0.8
Local oBrw

aTablasStruc    := { {"EMPTY","U", 0, 0,"EMPTY", 0} }

   DEFINE FONT oFont  NAME "Segoe UI Light" SIZE 0, -20  //-52
   DEFINE FONT oFontX NAME "Segoe UI SemiLight" SIZE 0, -14  //-52

//? GetDialogBaseUnits()[ 1 ], GetDialogBaseUnits()[ 2 ]

   @ nFI - 50, nCI SAY oTitPnel1 PROMPT " Tabla:  [ "+;
               IF( Empty( cTblMdb ), " SIN SELECCION ", ;
                                      " " + Upper( cTblMdb ) + " ")+" ]" ;
               SIZE nW, nH PIXEL oF oPnel1 ;
               COLOR METRO_WINDOW, METRO_GRIS1 FONT oFont

   @ nFI+nInc*0 + 2, nCIG XBROWSE oXBrwStruc ;
     ARRAY aTablasStruc ; //     CELL ;
     FONT oFontX ;
     SIZE nW-4, Int(nH)*11 - 20 PIXEL oF oPnel1 //NOBORDER

   WITH OBJECT oXBrwStruc
        :lHScroll        := .F.
        :lVScroll        := .F.
        :lHeader         := .T.
        :lRecordSelector := .F.
        :l2007           := .F.

        :bClrSel         := { || { METRO_WINDOWTEXT, METRO_WINDOW } }
        :bClrStd         := { || { METRO_WINDOWTEXT, METRO_WINDOW } }
        :bClrSelFocus    := { || { METRO_WINDOW, METRO_APPWORKSPACE } }

        :bClrHeader      := { || { METRO_WINDOW, METRO_GRIS4 } }
        :SetColor( METRO_WINDOWTEXT, METRO_WINDOW )

        :nRowDividerStyle  := LINESTYLE_NOLINES        //4
        :nColDividerStyle  := LINESTYLE_NOLINES        //4
        :nMarqueeStyle     := 5                        //3
        :nRowHeight        := nH
        :lAutoSort         := .F.

        :SetArray( aTablasStruc )

   END

   WITH OBJECT oXBrwStruc:aCols[ 1 ]

      :nWidth         := ( 2*Int((nW-6) / 4) ) //( 2*Int((nW-6) / 3) ) - 2
      :cHeader        := " Campo "  //" Field "
      :nDataStrAlign  := 0
      :lAllowSizing   := .F.
      :oHeaderFont    := oFont
   END
   WITH OBJECT oXBrwStruc:aCols[ 2 ]

      :nWidth         := ( 1*Int((nW-6) / 4) ) - 2 //Int( (nW-6) / 3 ) - 3
      :cHeader        := " Tipo "
      :nDataStrAlign  := 2
      :lAllowSizing   := .F.
      :oHeaderFont    := oFont
   END
   WITH OBJECT oXBrwStruc:aCols[ 3 ]

      :nWidth         := ( 1*Int((nW-6) / 4) ) - 2 //Int( (nW-6) / 3 ) - 3
      :cHeader        := "Len"
      :nDataStrAlign  := 2
      :lAllowSizing   := .F.
      :oHeaderFont    := oFont
   END
   WITH OBJECT oXBrwStruc:aCols[ 4 ]

      :nWidth         := Int( (nW-6) / 4 ) - 3
      :cHeader        := "Dec"
      :nDataStrAlign  := 2
      :lAllowSizing   := .F.
      :oHeaderFont    := oFont
   END
   WITH OBJECT oXBrwStruc:aCols[ 5 ]

      :nWidth         := ( 2*Int((nW-6) / 4) ) - 2 //Int( (nW-6) / 3 ) - 3
      :cHeader        := "Name Type"
      :nDataStrAlign  := 2
      :lAllowSizing   := .F.
      :oHeaderFont    := oFont
   END
   WITH OBJECT oXBrwStruc:aCols[ 6 ]

      :nWidth         := Int( (nW-6) / 3 ) - 3
      :cHeader        := "Type"
      :nDataStrAlign  := 1
      :lAllowSizing   := .F.
      :oHeaderFont    := oFont
   END

   oXBrwStruc:CreateFromCode()