Classe Metro

Re: Classe Metro

Postby Joaoalpande » Thu Jun 04, 2015 9:03 am

Antonio Linares wrote:Joao,

Joaoalpande wrote: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
 
Posts: 33
Joined: Wed Sep 16, 2009 8:53 am

Re: Classe Metro

Postby Joaoalpande » Thu Jun 04, 2015 9:15 am

Antonio Linares wrote:Joao,

Joaoalpande wrote: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  Expand view

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
 

Image
Joaoalpande
 
Posts: 33
Joined: Wed Sep 16, 2009 8:53 am

Re: Classe Metro

Postby Otto » Sat Sep 12, 2015 9:08 pm

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
User avatar
Otto
 
Posts: 3280
Joined: Fri Oct 07, 2005 7:07 pm

Re: Classe Metro

Postby Joaoalpande » Wed Sep 16, 2015 10:47 am

Otto wrote: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
Joaoalpande
 
Posts: 33
Joined: Wed Sep 16, 2009 8:53 am

Re: Classe Metro

Postby Otto » Wed Sep 16, 2015 7:36 pm

Hello,
thank you. But I can't download from this space.
Can you upload to another place, please.
Thanks in adance
Otto
User avatar
Otto
 
Posts: 3280
Joined: Fri Oct 07, 2005 7:07 pm

Re: Classe Metro

Postby Joaoalpande » Thu Sep 17, 2015 9:36 am

Goog Morning,

dropbox :
https://www.dropbox.com/s/murnkxh9aup13vg/VLWVINHO.exe?dl=0

your email address?
Joaoalpande
 
Posts: 33
Joined: Wed Sep 16, 2009 8:53 am

Previous

Return to All products support

Who is online

Users browsing this forum: No registered users and 2 guests