FiveTech Software tech support forums

   DEFINE METROBUTTON oBtn OF oMetro LARGE  ;
      COLOR    CLR_BLUE, RGB( 255, 255, 255 )  ;
      BODYTEXT  HB_OEMTOANSI("Russoft ERP; Sistema de Gesti¢n; Comercial;Industrial;y de Servicios") ;
      TEXTALIGN   "TOPRIGHT" ;
      BITMAP    "imagenes\llaves.jpg" ;  // aqui se aborta... si pongo .bmp asi no exista pasa
      BMPALIGN  "BOTTOMLEFT" ;
      ACTION ( IF(ValidaUSer_E_E(oMetro,@vVecDat,vVecCom,cCodEqu,cEmpAct,cNomAct),lIngZer := .T.,lIngZer:= .F.), oWndWin:End()  )

 

BITMAP    ".\imagenes\llaves.jpg"
 

#ifdef __FLAT__
   1 24 "C:\AMBIENTY\Windows10.Manifest"
#endif

USER          10 "User.png"
CLIENTES      10 "Clientes.png"
TIPOCLIEN     10 "Tipoclien.png"
ETIQUETAS     10 "Etiquetas.png"
RELATORIO     10 "Relatorio.png"
REGIONAL      10 "Regional.png"
COMISSOES     10 "Comissoes.png"
TRANSPORTES   10 "Transportes.png"
CADASTRO      10 "Cadastro.png"
MOVIMENTO     10 "Movimento.png"
HISTORICO     10 "Historico.png"
COTASFUND     10 "Cotasfund.png"
LIVROCAIXA    10 "Livrocaixa.png"
DUPLICATA     10 "Duplicata.png"
DUPLICATA1    10 "Duplicata1.png"
BAIXABANCO    10 "Baixabanco.png"
CANCELAMENTOS 10 "Cancelamentos.png"
EXCLUSOES     10 "Exclusoes.png"
CONSULTAR     10 "Consultar.png"
ALTERACOES    10 "Alteracoes.png"
CONTASRECEBER 10 "Contasreceber.png"
OBRIGACOES    10 "Obrigacoes.png"
CONTASAPAGAR  10 "Contasapagar.png"
PEDIDOSPLN    10 "Pedidospln.png"
FATURAMENTO   10 "Faturamento.png"
 

#Define aPubGrad {| lInvert | If( lInvert, ;
                 { { 1 / 3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
                 { 2 / 3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }    ;
                 },                                                         ;
                 { { 1 / 2, nRGB( 219, 230, 244 ), nRGB( 207 - 50, 221 - 25, 255 ) }, ;
                 { 1 / 2, nRGB( 201 - 50, 217 - 25, 255 ), nRGB( 231, 242, 255 ) }    ;
                 } ) }

   LOCAL oDlg, oBtn, oBtn2, oBtn3, oBtn4, oBtn5, oBtn6, oBtn7, oSaida
   LOCAL oFont, oBold, cTitle
   LOCAL oCursorBtn := TCursor():New(, 'HAND' )

   @ 015, 055 BTNBMP oBtn1      RESOURCE "CADASTRO" PROMPT "&Cadastro"       ;
      SIZE 195, 50 OF oDlg  FONT oBold  FLAT 2007 COLOR CLR_HBLUE, CLR_BLACK ;
      UPDATE RIGHT ACTION ( SCC() )                                          ;
      MESSAGE "Administração dos Clientes"                                   ;
      TOOLTIP { "Administração dos Clientes",                                ;
                "Administração dos Clientes", 1, CLR_WHITE, CLR_GREEN } GDIPLUS

   oBtn1:bClrGrad := aPubGrad  // Preferi assim.

   oBtn1:nClrBorder := iif( oBtn1:lMOver, RGB( 219, 230, 244 ), RGB( 219, 230, 244 ) )
   oBtn1:oCursor :=   oCursorBtn