FiveTech Support Forums

 

#include 'fivewin.ch'
#include 'xbrowse.ch'


static lToolbar:=.f.

function Main()

   local oDlg, oBrw, oFont

   SET DATE ITALIAN
   SET CENTURY ON

   FwNumFormat( 'E', .t. )


   USE C:\WORK\FWH\SAMPLES\CUSTOMER  ALIAS CUST


   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14

   DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
      FONT oFont TITLE 'XBrowse Change Size'


   @ 10,20 XBROWSE oBrw OF oDlg SIZE -10,-20 PIXEL ;
      COLUMNS "First", "State", "Age", "HireDate", "Salary" ;
      ALIAS 'CUST' NOBORDER

   oBrw:lRecordSelector := .f.
   oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLWIN7

   oBrw:bRCLicked := {|nRow,nCol| MenuOption(oDlg,nRow,nCol,"CUST",oBrw) }


   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED

   RELEASE FONT oFont

return nil






Function MenuOption(oDlg,nRow,nCol,cDbf,oGrid)
LOCAL oMenu 

MENU oMenu POPUP 2007
           SEPARATOR
           MENUITEM "Show ToolBar" ACTION (ChangeSize(oGrid,ltoolBar),oGrid:refresh())
           SEPARATOR

          ENDMENU


          ACTIVATE POPUP oMenu OF oDlg AT  oGrid:nTop+nRow, oGrid:nLeft+nCol


RETURN (NIL)






Function ChangeSize(oGrid,ltoolBar)

nOldTop:= oGrid:ntop
nOldBottom:=oGrid:nBottom

    If ltoolBar
         CreateToolBar( oGrid,oDlg,ltoolBar)
         oGrid:nTop:= nOldTop -40
         oGrid:nHeight:=oGrid:nBottom -40
       Else
         oGrid:nTop:=nOldTop +40
         oGrid:nHeight:=oGrid:nBottom +40

    Endif
Retur nil







Function CreateToolBar( oGrid,oDlg,ltoolBar)
   Local oExit
   If ltoolBar
DEFINE BUTTONBAR oBar  SIZE 40, 46 OF oDlg  2007
 oBar:bRClicked := { || .t. }


  DEFINE BUTTON OF oBar ;
      RESOURCE "RB_CLIENTI"       ;
      TOOLTIP i18n( "Gestión de documentos" ) ;
      MESSAGE i18n( "Gestión de del fichero de documentos." ) ;
      ACTION NIL  ;
      NOBORDER


   DEFINE BUTTON oExit OF oBar  ;
      RESOURCE "BB_EXIT"      ;
      TOOLTIP i18n( "Salir del programa" ) ;
      MESSAGE i18n( "Finalizar el uso del programa." ) ;
      ACTION odlg:End()  ;
      GROUP NOBORDER



ELSE

   If oBar!=NIL
      oBar:End()
   Endif

ENDIF


     oDlg:refresh()

return nil

 

#include 'fivewin.ch'
#include 'xbrowse.ch'


static lToolbar:=.t.
static oDlg, oBrw, oFont,oBar

function Main()



   SET DATE ITALIAN
   SET CENTURY ON

   FwNumFormat( 'E', .t. )


   USE C:\WORK\FWH\SAMPLES\CUSTOMER  ALIAS CUST


   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14

   DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
      FONT oFont TITLE 'XBrowse Change Size'


   @ 10,20 XBROWSE oBrw OF oDlg SIZE -10,-20 PIXEL ;
      COLUMNS "First", "State", "Age", "HireDate", "Salary" ;
      ALIAS 'CUST' NOBORDER

   oBrw:lRecordSelector := .f.
   oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLWIN7

   oBrw:bRCLicked := {|nRow,nCol| MenuOption(oDlg,nRow,nCol,"CUST",oBrw) }


   oBrw:CreateFromCode()

   ACTIVATE DIALOG oDlg CENTERED ;
               ON INIT ChangeSize( oBrw,ltoolBar)

   RELEASE FONT oFont

return nil






Function MenuOption(oDlg,nRow,nCol,cDbf,oGrid)
LOCAL oMenu

MENU oMenu POPUP 2007
           SEPARATOR
           MENUITEM "Show ToolBar";
           WHEN { |o| o:SetCheck( ltoolBar ), .t. } ;
           ACTION ( ltoolBar :=!ltoolBar,;
                   ChangeSize(oGrid,ltoolBar,oBar),oGrid:refresh(),;
                   oMenuItem:SetCheck( ltoolBar ))
           SEPARATOR

          ENDMENU


          ACTIVATE POPUP oMenu OF oDlg AT  oGrid:nTop+nRow, oGrid:nLeft+nCol


RETURN (NIL)






Function ChangeSize(oGrid,ltoolBar,oBar)

nOldTop:= oGrid:ntop
nOldBottom:=oGrid:nBottom

    If ltoolBar
         CreateToolBar( oGrid,oDlg,ltoolBar)
         oGrid:nTop:= nOldTop +40
         oGrid:nHeight:=oGrid:nBottom+40
      Else

          If oBar!=NIL
            oBar:End()
           Endif

         oGrid:nTop:=nOldTop -40
         oGrid:nHeight:=oGrid:nBottom -40

      Endif

      oGrid:refresh()
Retur nil







Function CreateToolBar( oGrid,oDlg,ltoolBar)
   Local oExit

   local nClrText := CLR_BLACK

   * oFont = TFont():New( GetDefaultFontName(), 0, GetDefaultFontHeight(),, )

   If ltoolBar

   DEFINE BUTTONBAR oBar _3D SIZE 33, 33 OFoDlg


        ELSE

   If oBar!=NIL
      oBar:End()
   Endif

    ENDIF




     oDlg:refresh()

return nil

 //----------------------------------------------------------------------------//

    CLASS TMyControl FROM TControl

       CLASSDATA lRegistered AS LOGICAL

       METHOD New( nTop, nLeft, oWnd, nPos, nClrFore,;
                   nClrBack, lPixel, lDesign, nWidth, nHeight,;
                   cMsg, lVertical ) CONSTRUCTOR

       METHOD ReDefine( nId, oWnd ) CONSTRUCTOR

    ENDCLASS

    //----------------------------------------------------------------------------//

    METHOD New( nTop, nLeft, oWnd, nPos, nClrFore, nClrBack, lPixel,;
                lDesign, nWidth, nHeight, cMsg, lVertical ) CLASS TMyControl

       DEFAULT nTop     := 0, nLeft := 0,;
               oWnd     := GetWndDefault(),;
               nClrFore := oWnd:nClrText,;
               nClrBack := GetSysColor( COLOR_BTNFACE ),;
               lPixel   := .f.,;
               lDesign  := .f.,;
               nWidth   := 200, nHeight := 21,;
               lVertical := .f.

       ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP )
       ::nId       = ::GetNewId()
       ::oWnd      = oWnd
       ::cMsg      = cMsg
       ::nTop      = If( lPixel, nTop, nTop * SAY_CHARPIX_H )
       ::nLeft     = If( lPixel, nLeft, nLeft * SAY_CHARPIX_W )
       ::nBottom   = ::nTop + nHeight - 1
       ::nRight    = ::nLeft + nWidth - 1
       ::lDrag     = lDesign
       ::lCaptured = .f.
       ::nClrText  = nClrFore
       ::nClrPane  = nClrBack

       ::Register()

       if ! Empty( oWnd:hWnd )
          ::Create()
          ::Default()
          oWnd:AddControl( Self )
       else
          oWnd:DefControl( Self )
       endif

       if lDesign
          ::CheckDots()
       endif

    return Self

    //----------------------------------------------------------------------------//

    METHOD ReDefine( nId, oWnd ) CLASS TMyControl

       DEFAULT oWnd := GetWndDefault()

       ::nId  = nId
       ::oWnd = oWnd

       ::Register()

       oWnd:DefControl( Self )

    return Self

    //----------------------------------------------------------------------------//