Classe Metro

[Joaoalpande]

Boa Tarde,

Estou a ver vários exemplos da classe metro e não estou a conseguir fazer o que desejo, preciso o seguinte:

na primeira tela quero que mostre 1 Metrobutton por cada registo da tabela REGIOES.DBF em que o caption é o campo nome desta mesma, quando o usuário clicar num deles preciso saber em que Recno() da REGIOES.DBF clicou , para depois fazer um filtro a tabela ARTIGOS.DBF em que o campo CodReg=RECNO() da tabela REGIOES clicado na primeira tela e mostrar todos os artigos filtrados em 1 metrobutton por cada registo, tem como fazer isso?


Cumprimentos
João Alpande

[Antonio Linares]

Joao,

Prueba asi:

Code: Select all

   local oMetro

   DEFINE METRO oMetro ;
      TITLE "My FWH Metro app" ;
      BACKGROUND "..\bitmaps\hires\earth.bmp"
      
   while ! Eof()
      DEFINE METROBUTTON OF oMetro ;
         PROMPT FieldGet( 1 ) COLOR CLR_WHITE, RGB( 2, 174, 224 ) ;  // 1 primer campo
         IMAGE "..\bitmaps\metro\files.bmp" ;
         ACTION Records()  
      DbSkip()
   end
 

[Joaoalpande]

Gracias Antonio Linares,

MUISTRA BIEN os metrobutton do dbf , cómo saber recno() do dbf el usuario hace clic ?

Saludos

João

[Antonio Linares]

Joao,

Tienes que hacer esta modificación en metro.ch:

Code: Select all

#xcommand DEFINE METROBUTTON [<oBtn>] ;
             [ PROMPT <cPrompt> ] ;
             [ COLOR <nClrText>, <nClrPane> ] ;
             [ IMAGE <cImgName> ] ;
             [ OF <oMetro> ] ;
             [ <large: LARGE> ] ;
             [ ACTION <uAction,...> ] ;
          => ;
             [ <oBtn> := ] <oMetro>:AddButton( <cPrompt>, <nClrText>, <nClrPane>,;
                <.large.>, <cImgName>, [{| Self |<uAction>}] )

Code: Select all

  local oMetro, oBtn

   DEFINE METRO oMetro ;
      TITLE "My FWH Metro app" ;
      BACKGROUND "..\bitmaps\hires\earth.bmp"
      
   while ! Eof()
      DEFINE METROBUTTON oBtn OF oMetro ;
         PROMPT FieldGet( 1 ) COLOR CLR_WHITE, RGB( 2, 174, 224 ) ;  // 1 primer campo
         IMAGE "..\bitmaps\metro\files.bmp" ;
         ACTION ShowRecords( ::Cargo )  
      oBtn:Cargo = RecNo()
      DbSkip()
   end
 

[Joaoalpande]

ola Antonio Linares,

Alterei o metro.ch assim:

Code: Select all

// FiveWin - Windows 8 Metro look

#ifndef _METRO_CH
#define _METRO_CH

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

#xcommand DEFINE METRO <oMtr> ;
             [ BACKGROUND <cFileName> ] ;
             [ BTNSIZE <nBtnWidth>, <nBtnHeight> ] ;
             [ TITLE <cTitle> ] ;
          => ;
          <oMtr> := TMetro():New( <cTitle>, <nBtnWidth>, <nBtnHeight>, <cFileName> )

xcommand DEFINE METROBUTTON [<oBtn>] ;
             [ PROMPT <cPrompt> ] ;
             [ COLOR <nClrText>, <nClrPane> ] ;
             [ IMAGE <cImgName> ] ;
             [ OF <oMetro> ] ;
             [ <large: LARGE> ] ;
             [ ACTION <uAction,...> ] ;
          => ;
             [ <oBtn> := ] <oMetro>:AddButton( <cPrompt>, <nClrText>, <nClrPane>,;
                <.large.>, <cImgName>, [{| Self |<uAction>}] )
#xcommand ACTIVATE METRO <oMtr> => <oMtr>:Activate()

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

#endif

alterei o metro.prg assim:

Code: Select all

DEFINE METRO oMetro ;
      TITLE "My FWH Metro app" ;
      BACKGROUND "..\bitmaps\hires\earth.bmp"
    DBSELECTAREA( 1 )
    NET_USE ("F_REG.DBF", 3,.T.)
 while ! Eof()
      DEFINE METROBUTTON oBtn OF oMetro ;
         PROMPT FieldGet( 1 ) COLOR CLR_WHITE, RGB( 2, 174, 224 ) ;  // 1 primer campo
         IMAGE "..\bitmaps\metro\files.bmp" ;
         ACTION ShowRecords( ::Cargo )
        oBtn:Cargo = RecNo()
      DbSkip()
   end

   DEFINE METROBUTTON OF oMetro ;
      PROMPT "Exit" COLOR CLR_WHITE, RGB( 2, 174, 224 ) ;
      IMAGE "..\bitmaps\metro\exit.bmp" ;
      ACTION If( MsgYesNo( "Want to exit ?" ), oMetro:End(),)

   ACTIVATE METRO oMetro

dá error: Error description: Error description: Error BASE/1005 Class: 'NIL' has no property: CARGO

se retirar : oBtn:Cargo = RecNo() mostra bem os metrobutton mas quando clico num dá erro:

Error BASE/1003 Variable does not exist: SELF

Gracias

[Antonio Linares]

Por favor compílalo usando /b al llamar a Harbour.exe y comprueba que te aparece en el fichero.PPO

[Joaoalpande]

obrigado, o .ppo aparece assim, estou compilando com buildx.bat do samples:

Code: Select all

 oMetro := TMetro():New( "My FWH Metro app",,, "..\bitmaps\hires\earth.bmp" )
    DBSELECTAREA( 1 )
    NET_USE ("F_REG.DBF", 3,.T.)
    DBGOTOP()
 while ! Eof()
      oBtn := oMetro:AddButton( FieldGet( 1 ), 16777215, ( 2 + ( 174 * 256 ) + ( 224 * 65536 ) ), .F., "..\bitmaps\metro\files.bmp", {||ShowRecords(::Cargo )} )
         oBtn:Cargo :=RecNo()
      DbSkip()
   end
   oMetro:AddButton( "Exit", 16777215, ( 2 + ( 174 * 256 ) + ( 224 * 65536 ) ), .F., "..\bitmaps\metro\exit.bmp", {||If( MsgYesNo( "Want to exit ?" ), oMetro:End(),)} )
   oMetro:Activate()

[Antonio Linares]

En el .ppo debería aparecer esto:

{| Self |ShowRecords(::Cargo )}

Has modificado el fichero metro.ch como te indiqué ?

[Joaoalpande]

Desculpa Antonio Linares, o metro.ch estava errado , mas continua com o mesmo erro Error description: Error BASE/1005 Class: 'NIL' has no property: CARGO
.ppo esta:

Code: Select all

   oMetro := TMetro():New( "My FWH Metro app",,, "..\bitmaps\hires\earth.bmp" )
    DBSELECTAREA( 1 )
    NET_USE ("F_REG.DBF", 3,.T.)
    DBGOTOP()
 while ! Eof()
      oBtn := oMetro:AddButton( FieldGet( 1 ), 16777215, ( 2 + ( 174 * 256 ) + ( 224 * 65536 ) ), .F., "..\bitmaps\metro\files.bmp", {| Self |ShowRecords(::Cargo )} )
         oBtn:Cargo :=RecNo()
      DbSkip()
   end
   oMetro:AddButton( "Exit", 16777215, ( 2 + ( 174 * 256 ) + ( 224 * 65536 ) ), .F., "..\bitmaps\metro\exit.bmp", {| Self |If( MsgYesNo( "Want to exit ?" ), oMetro:End(),)} )
   oMetro:Activate()
 

[Antonio Linares]

Please try this change and let me know what you get:

Code: Select all

 while ! Eof()
      oBtn := oMetro:AddButton( FieldGet( 1 ), 16777215, ( 2 + ( 174 * 256 ) + ( 224 * 65536 ) ), .F., "..\bitmaps\metro\files.bmp", {| Self |ShowRecords(::Cargo )} )
         MsgInfo( ValType( oBtn ) )
         oBtn:Cargo :=RecNo()
      DbSkip()
   end

[Joaoalpande]

information : U

Error description: Error BASE/1005 Class: 'NIL' has no property: CARG

[Joaoalpande]

Ola antonio,

no forum fivewin brasil deram uma solução mas com dialog e button , não funciona com metro , veja:

http://fivewin.com.br/index.php?/topic/ ... sse-metro/

Saludos

[karinha]

Master algo +- asi:

Code: Select all

FUNCTION TESTEPRODU( oFld, _Folder, oPRODU, _LETRA, _INIPROD, _FIMPROD )

    MEMVAR OCTL, _oProdu

    PUBLIC WPRODFOCO

    oCtl := oFld:aDialogs[_Folder]:oCtlFocus()

    WHILE _INIPROD <= _FIMPROD

        SYSREFRESH()

        _oProdu := oProdu+STRZERO(_INIPROD,2,0)+_LETRA

        IF (oCtl:hWnd = &_oProdu:hWnd)

           WPRODFOCO := _INIPROD

           EXIT

        ENDIF

        _INIPROD = _INIPROD + 1

    ENDDO

RETURN( .T. )
 

[Antonio Linares]

Joao,

Que versión de FWH usas ?

[Joaoalpande]

12.07