CHARICON lista de codigos validos - para Cristobal ??

[carito]

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

[cnavarro]

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

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

[carito]

Muchas gracias Cristobal, salen figuritas que no tenia idea.

Tratare de utilizar algunas de ellas.

Saludos,
carito