FiveTech Software tech support forums

Posted: **Wed Dec 19, 2018 8:14 pm**

Hola a todos, una consulta a Cristobal;

Cuales son los codigos disponibles para la clausula CHARICON en un menu ,

MENU 2015
MENUITEM "Agentes"
SEPARATOR
MENUITEM "Formas de Pago" CHARICON 57624
MENUITEM "Entidades Bancarias"
ENDMENU

He visto en los ejemplos que salen unos numeros como 57624 ,57621, etc.
pero me gustaria saber que significa cada código y donde puedo estudiar mas sobre esto.
Existe un .ch , pues no lo pude encontrar.

Saludos,
carito

Posted: **Wed Dec 19, 2018 10:14 pm**

Hola
Ejecuta este código y ya me dirás

Code: Select all


#include "Fivewin.ch"

Function Main()

   AllHSysBitmaps()

Return nil

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

Function AllHSysBitmaps()

   local oBrw
   local aHBmps   := {}
   local aBmps    := {}
   local hBmp
   local x

   For x = 32000 to 35799
       hBmp := HSysBitmap( x )
       if !Empty( hBmp )
          AAdd( aHBmps, x ) 
          AAdd( aBmps, hBmp )
       endif
   Next x     
   XBrowse( aHBmps, "Bitmaps System",, { | o | PonBmps( o, aBmps ) } )
   AEval( aBmps, { | h | DeleteObject( h ) } )
    
Return nil

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

Function PonBmps( o, aBmpH )

   o:aCols[ 1 ]:AddBitmap( aBmpH )
   o:aCols[ 1 ]:bBmpData := { || o:nArrayAt }

Return nil

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

Posted: **Wed Dec 19, 2018 11:53 pm**

Muchas gracias Cristobal, salen figuritas que no tenia idea.

Tratare de utilizar algunas de ellas.

Saludos,
carito

FiveTech Software tech support forums

CHARICON lista de codigos validos - para Cristobal ??

CHARICON lista de codigos validos - para Cristobal ??

Re: CHARICON lista de codigos validos - para Cristobal ??

Re: CHARICON lista de codigos validos - para Cristobal ??