Classe Metro

[Joaoalpande]

Joao,

Antonio,

No, everything is fine, has no error , return the recno () right.

when I click the right mouse button opens a menu, how to remove this menu?

Thank´s

Could you post a screenshot ? thanks

this problem was solved , I changed the metropnl.prg line: // ::bRClicked := { |r,c,f| ::DesignMenu(r,c,f) }

Thank´s
João ALpande

[Joaoalpande]

Joao,

Bom dia,

Tem como fazer uma pesquisa , exemplo pesquisar o metrobutton que tem nClrCaption :="Nome Teste" e dar o focus nesse metrobutton , o metropanel deslizar para esse metrobutton?

Cumprimentos

João Alpande

Please post a screenshot or an example to test here. I don't understand what you mean, thanks

I need to create a button where the user types the name of the wine , then metropanel should slide until this button is positioned in the registry that researched , excuse my English I am using translator.

Code: Select all

FUNCTION ShowRecords( NREC,oWnd,OMETRO  )
   local oMetro2, oBtn, oFont, oHScroll,oBtn1,oBtn2,oBt:={}
    oMetro:Hide()
   IF FILE( c_Path + "F_ART.DBF" )
    DBSELECTAREA( 2)
    NET_USE (c_Path + "F_ART.DBF", 3,.T.)
        INDEX ON 2->C_des     TO f_art
   ELSE
        MSGALERT("ARQUIVO ARTIGOS INEXISTENTE","Atenção")
   ENDIF
   DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -30 BOLD

   DEFINE METROPANEL oMetro2 OF oWnd TITLE "VINHOS" ;
     COLOR RGB(  0,  0,64 ), RGB(  0,  0,64)
   D_BACKGRD( oMetro2, 4, , , , , , c_path1 + "vinho3.Jpg" )
   oMetro2:lDesignMode := .T.
   oMetro2:nMetroTop = 120
   oMetro2:nMetroMargin = 20
   oMetro2:nBtnSize = 150
   oMetro2:nSliderTop = 120
   oWnd:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | oMetro2:MouseWheel( nKey, nDelta, nXPos, nYPos )  }

   DEFINE METROBUTTON oBtn OF oMetro2 ;
   COLOR   CLR_WHITE,RGB( 255,  0,  0 ) ;
          GROUP   2 ;
           BITMAP   C_Path1+ "back-black-48.png" ;
     BMPALIGN   "MIDDLECENTER" ;
     LARGE;
       ACTION   (NET_CLOSE ( 3,5,.T.),oMetro2:Hide(), oMetro:Show())
  DBSELECTAREA(2)
  SET FILTER TO val((2)->C_CODREG)=nRec
  DBGOTOP(2)
  WHILE !EOF()
   IF !EMPTY( 2->C_DES)
      DEFINE METROBUTTON oBtn OF oMetro2 ;
      PROMPT  oemtoansi(2->C_DES);
      COLOR   CLR_WHITE,CLR_RED ;
      ALIGN   "MIDDLECENTER"  ;
      FONT  oFontSmall2 ;
      BODYTEXT   "Preço "+str(2->c_pvp,6,2)  ;
      TEXTALIGN   "BOTTOMCENTER" ;
      large;
       ACTION Detalhe(::Cargo,oWnd  )
      oBtn:Cargo := RecNo()
   ENDIF
   DbSkip()
 END
 DEFINE METROBUTTON oBtn OF oMetro2 ;
   COLOR   CLR_WHITE,RGB( 255,  0,  0 ) ;
          GROUP   2 ;
           BITMAP   C_Path1+ "back-black-48.png" ;
     BMPALIGN   "MIDDLECENTER" ;
     LARGE;
       ACTION   (NET_CLOSE ( 3,5,.T.),oMetro2:Hide(), oMetro:Show())
 oMetro2:Show()

RETURN NIL
 

[Otto]

Joao,
Do you have a demo of your program or can you post some more screenshots?
Your program is looking very good.
Best regards,
Otto

[Joaoalpande]

Joao,
Do you have a demo of your program or can you post some more screenshots?
Your program is looking very good.
Best regards,
Otto

Good Morning,

is a small software with few screens, the f_reg.dbf f_regt.dbf f_art.dbf comes with the other software records .
to enter do not need user or password
http://www.4shared.com/file/jv17uSoUce/VLWVINHO.html

[Otto]

Hello,
thank you. But I can't download from this space.
Can you upload to another place, please.
Thanks in adance
Otto

[Joaoalpande]

Goog Morning,

dropbox :
https://www.dropbox.com/s/murnkxh9aup13 ... O.exe?dl=0

your email address?