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  Expand view

#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

[fridgar]

Buenas Sr. Cristobal
Como esta???

Compile y ejecute su prg de los CharIcon y en el For Next lo aumente hast 80000

*For x = 32000 to 35799
For x = 32000 to 80000
hBmp := HSysBitmap( x )
if !Empty( hBmp )
AAdd( aHBmps, x )
AAdd( aBmps, hBmp )
endif
Next x

y sigue saliendo solo hasta los 35799 y en algunos ejemplo salen con números mas alto


la otro pregunta es
por que se descuadran cuando se le coloca o se usa el LogoMenu y no cuando no se l coloca

MENU ;
COLORLEFT CLR_BLACK,RGB(215, 215, 255) ;
COLORRIGHT CLR_BLACK,CLR_WHITE ;
LOGOMENU "\Imagenes\PNG\LogoMenu2.png"

MENUITEM "&Nuevo" CHECKED
MENUITEM "&Open" CHARICON "A" ITALIC
MENUITEM "&1.- Item 1" RESOURCE "EXIT" //DISABLED
MENUITEM "&2.- Item 2" CHARICON 58020 COLORRIGHT CLR_YELLOW
MENUITEM "&3.- Item 3" CHARICON 57696 BOLD ITALIC
MENUITEM "&4.- Item 4" CHARICON 57756 COLORRIGHT CLR_HRED
MENUITEM "&5.- Item 5" CHARICON 57736 COLORRIGHT CLR_MAGENTA
SEPARATOR
MENUITEM "&Grabar como." RESOURCE "SAVE"



no se como insertar una imagen por aqui para que vea como se descuadran los CharIcon

pero sale mas o meno asi


LogoMenu
v
V Con LogoMenu Sin LogoMenu
.-----------. .png Guardar RESOURCE "SAVE" //CharIconFile .png Guardar RESOURCE "SAVE" //CharIconFile
. . A Abrir CHARICON "A" A Abrir CHARICON "A"
. . bD Base de Datos CHARICON "BD" BD Base de Datos CHARICON "BD"
. . / Salir CHECKED / Salir CHECKED
. .
-----------.

No se si me explico, usted disculpe
Muchas Gracias

[cnavarro]

Hola, prueba este ejemplo y me comentas qué problemas o efectos estéticos no deseados encuentras

Code: Select all  Expand view

// Autor:  Cristobal Navarro
// Fecha:  01/01/2016
// Pruebas de Menus
//

#include "FiveWin.ch"
#include "wcolors.ch"

//----------------------------------------------------------------------------//
static oWnd
static oMru1
static oMru2
Static cColorPan
Static oFontMenu

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

function Main()

   local oBar, oBar1, oBar2
   local cTitle, x
   Local cFont   := "Segoe UI Symbol" // SemiBold"  //"Calibri"
   Local cFontH  := -14  
   Local aFonts

   FW_SetUnicode( .T. )
   SetResDebug( .T. )

   if !IsWin8() .and. !IsWindows10()
      cFont   := "Calibri"
   endif

  DEFINE FONT oFontMenu NAME cFont SIZE 0, cFontH WEIGHT 300

  cTitle := " Menus: " + ;
      if( !Empty( oFontMenu ), oFontMenu:cFaceName, "Font not defined " ) +;
      if( !Empty( oFontMenu ), Str( oFontMenu:nHeight ), " " )

  DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 MDI ;
      TITLE cTitle MENU BuildMenu() COLOR CLR_WHITE, RGB( 116, 149, 193 )
   //oWnd:SetFont( oFontMenu )

   ACTIVATE WINDOW oWnd MAXIMIZED
   
   if !Empty( oFontMenu )
      While oFontMenu:nCount > 0
         oFontMenu:End()
      Enddo
   endif

   if File( "checkres.txt" )
      FErase( "checkres.txt" )
   endif
   CheckRes()

return nil

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

Function BuildMenu( oW )

   Local oMenu
   Local oMnu
   Local oGraba
   Local cPrompt := "                              "

   DEFAULT oW    := oWnd

   MENU oMenu COLORS MENUBAR //FONT oFontMenu //HEIGHT 36

      MENUITEM "&Archivos" COLORMENU CLR_BLUE ITALIC
      MENU
         MENUITEM "&Nuevo item Mru" CHECKED
         MENUITEM "&Files  " COLORRIGHT CLR_HBLUE
         MENU
            MENUITEM "&Nuevo" CHECK
            MENUITEM "&Open"  CHARICON "A" ITALIC
            SEPARATOR
            MENUITEM "&Nuevo proceso" CHARICON "P" RIGHTCOLOR CLR_HRED BOLD
         ENDMENU
         MENUITEM "&New    " CHARICON 57696
         MENUITEM "&Child  " RESOURCE "new" BOLD
         MENUITEM "&New    " DISABLED
         SEPARATOR
         MENUITEM "&Salir" ACTION oWnd:End() COLORRIGHT CLR_HRED BOLD ITALIC
      ENDMENU

      MENUITEM "E&ditar" COLORMENU CLR_RED BOLD
      MENU
         MENUITEM "&Nuevo" CHECKED
         MENUITEM "&Open"  CHARICON "A" ITALIC
         MENUITEM "&1.- Item 1"     RESOURCE "icon"  DISABLED
         MENUITEM "&2.- Item 2"     CHARICON 58020 COLORRIGHT CLR_YELLOW
         MENUITEM "&3.- Item 3"     CHARICON 57696 BOLD ITALIC
         MENUITEM "&4.- Item 4"     CHARICON 57756 COLORRIGHT CLR_HRED
         MENUITEM "&5.- Item 5"     CHARICON 57736 COLORRIGHT CLR_MAGENTA
         SEPARATOR
         MENUITEM "&Grabar como." CHARICON 57605
      ENDMENU

      MENUITEM "&Buscar" COLORMENU CLR_GREEN
      MENU
         MENUITEM "&Nuevo"  CHECKED
         MENUITEM "&Open"   CHARICON "A"
         SEPARATOR
         MENUITEM "Uno"     RESOURCE "icon"  DISABLED
         MENUITEM "Dos"     WHEN .F. CHARICON 58020
         MENUITEM "* SEPARATOR" + CRLF + "- Linea 2   "      SEPARATOR COLORRIGHT CLR_HBLUE
         MENUITEM "Tres"    CHARICON 57696 COLORRIGHT CLR_GREEN
         MENUITEM "Cuatro"  CHARICON 57756 BOLD
         MENUITEM "Cinco"   CHARICON 57736 BOLD ITALIC
         SEPARATOR
         MENUITEM "&Grabar como." CHARICON 57605
      ENDMENU

      MENUITEM "&Modificar" COLORMENU CLR_BROWN  BOLD ITALIC
      MENU
         MENUITEM "&Nuevo proceso" CHARICON "P"
         SEPARATOR
         MENUITEM "&Abrir" + CRLF + "Linea 2"  CHARICON "W" COLORRIGHT CLR_BLUE BOLD
         MENUITEM "&Nuevo"         CHECKED  DISABLED
         MENUITEM "SEPARATOR" + CRLF + "Linea 2"      SEPARATOR BOLD ITALIC COLORRIGHT CLR_HRED
         MENUITEM "&Grabar como."  RESOURCE "icon"
      ENDMENU

      //oMenu:AddEdit()
      //oMenu:AddMdi()
      oMenu:AddFile()      
      oMenu:AddHelp( "FiveWin Menus", "FiveTech 1993-2015" )
   ENDMENU

Return oMenu

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

Para subir una imagen al foro es sencillo:
- Copias tu pantalla y la llevas a cualquier programa de imagenes: Paint, Paint.Net, etc y la grabas en el formato que desees
- Usas una web de alojamiento de imagenes. Yo uso: http://postimage.org/
- Cuando la hayas subido, baja por la página y te aparece "Hotlink for forum", o algo asi. Copia el link
- Pega el link obtenido en el mensaje que estés creando.

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=36481

Saludos.

[fridgar]

Buenas

Muchas gracias, voy a probar con su menu para ver si sigue descuadrando los .ico o .bmp con los charicon cuando se coloca el logomenu y luego le comento

y con respecto a esto???
y me disculpa la molestia por favor

***
Compile y ejecute su prg de los CharIcon y en el For Next lo aumente hast 80000

*For x = 32000 to 35799
For x = 32000 to 80000
hBmp := HSysBitmap( x )
f !Empty( hBmp )
AAdd( aHBmps, x )
AAdd( aBmps, hBmp )
endif
Next x

y sigue saliendo solo hasta los 35799 y en algunos ejemplo salen con números mas alto
***

[cnavarro]

Hola, antes de nada, ninguna molestia, puedes preguntar y plantear lo que consideres
Bien, dime la version de Fw que estás utilizando para saber si cualquier explicación o código que se te pueda aportar es compatible con tu versión
Cuando hayas probado el código con el menú que te he propuesto, podemos hacer las conclusiones adecuadas
Y, para finalizar:
No he probado los HSYSBITMAPS en sistemas operativos al margen de windows 8 y 10, por lo que si con esa function tú has visto en algún ejemplo que aparecen bmps indicándoles un número más alto, me interesa a mí también verlo, evidentemente.
Es posible que confundas esos "números más altos" con los glyphs, propios de sistemas operativos Win 8/10 para los que se utilizan código hexadecimales, aunque suelo usar su conversión a decimal, que aprovechan los tipos de letra incluídos en estos sistemas: segoe ui symbol, Segoe MDL2 Assets y otros, que también son soportados tanto para menús, botones, etc.
https://docs.microsoft.com/es-es/window ... ymbol-font

[fridgar]

Muchas gracias amigo Cristobal
voy a tratar de nuevo de enviar una imgen y me disculpas si ya hay ahi algo contestado por el foro, mis respuesta son tardias por a falta de internet en mi zona



Cuando vuelva a tener WiFi es que podre ver las posibles ayuda del foro

Muchas gacias a todo

[fridgar]

// Prueba de REDEFINE GET con array
// 12/2021
// Fridgar


#include "Fivewin.ch"

static oDlg, oDbf, aCamposName
//----------------------------------------------------------------------------//

function MiPrueba()

local oFont, oSay
local oBtnPrev, oBtnNext, oBtnExit, oBtn2
local cTypes := "CNLDM"

SET _3DLOOK ON

*SELECT 1
USE C:\xPruebas\Dbf\Probar2 ALIAS xProbar2
select xProbar2
DATABASE oDbf
oDbf:GoTop()

* Estos son los campos del .DBF de prueba y el .RC es un formulario sencillo de prueba hecho con PelleC
* Una Prueba
aCamposName := {{oDbf:Cedula, 110, "Número de la cédula de identidad"}, ;
{oDbf:Nombres, 120, "Nombres de la persona"}, ;
{oDbf:Entero, 130, "Número entero"}, ;
{oDbf:Moneda, 140, "Número con decimales"}, ;
{oDbf:Fecha, 150, "Fecha"}, ;
{oDbf:Fecha_Hora, 160, "Fecha y hora"}, ;
{oDbf:L1, 170, "Campo lógico L1"}, ;
{oDbf:L2, 180, "Campo lógico L2"},
{oDbf:Memo, 190, "Campo Memo"} }

*/

/* Otra Prueba
aCamposName := {{"Cedula", 110, "Número de la cédula de identidad"}, ;
{"Nombres", 120, "Nombres de la persona"}, ;
{"Entero", 130, "Número entero"}, ;
{"Moneda", 140, "Número con decimales"}, ;
{"Fecha", 150, "Fecha"}, ;
{"Fecha_Hora", 160, "Fecha y hora"}, ;
{"L1", 170, "Campo lógico L1"}, ;
{"L2", 180, "Campo lógico L2"}
{oDbf:Memo, 190, "Campo Memo"} }

*/


define font oFont name "times new roman" size 11,20

DEFINE DIALOG oDlg RESOURCE "PROBAR2" TITLE "Programa de practica con tablas .DBF"

oDlg:lHelpIcon:=.f.

REDEFINE SAY oSay ID 4004 OF oDlg // Para ver el numero de registro

REDEFINE BUTTON oBtnPrev ID 4002 OF oDlg ;
ACTION ( oDbf:Skip( -1 ), oSay:SetText("Rec = "+str(recno())), oDlg:UpDate())

REDEFINE BUTTON oBtnNext ID 4003 OF oDlg ;
ACTION ( oDbf:Skip(), oSay:SetText("Rec = "+str(recno())), oDlg:UpDate())


REDEFINE BUTTON oBtnExit Id 4001 of oDlg ; // aContols 9
Prompt "&Salir" ;
ACTION (oDlg:End())

ACTIVATE DIALOG oDlg on init (MisGEts( oDlg, oDbf, aCamposName )) // Una prueba
*ACTIVATE DIALOG oDlg on init (MisGEts( )) // Otra prueba

close all

return nil

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

*function MisGEts( ) // Otra prueba
function MisGEts( oDlg, oDbf, aCamposName ) // Una prueba

Local i
Local oMsg1, oGets:={}
local IDGet := 100 // temporal

DEFINE MSGBAR oMsg1 OF oDlg 2007

/*
*REDEFINE GET oDbf:Apellidos ID 100 OF oDlg MESSAGE "Apellidos de la persona" UpDate
* Asi funciona bien pero me gusta como sigue en las lineas siguiente

* Asi es como deberia de funcionar para no se por no muestra el contenido de los campos del .DBF
*i:=0
*do while i <= len(aCamposName) -1
* i++
* REDEFINE GET aCamposName[i,1] ID aCamposName[i,2] OF oDlg MESSAGE aCamposName[i,3] UPDATE //Error BASE/1132 Bound error: array access
* Falla: Mustra el .RC pero No muestra la información de los campos en el Formulario
*Enddo
*/


i:=0
do while i <= len(aCamposName) -1

* Una Prueba
*IDGet = IDGet + 10
*a = field(i)
* Directo con los campos del .DBF ( a = Field( i ) )
*REDEFINE GET &a ID IDGet OF oDlg MESSAGE aCamposName[i,3] UPDATE
* Falla: Solo funciona con campo de caracteres, pero asi no deberia de ser

* Otra Prueba
* Directo con los campos del .DBF (oDbf:Campo)
*? aCamposName[i,1] // aCamposName[i,1]=Al valor o contenido del campo Ejm. Ada
*REDEFINE GET aCamposName[i,1] ID aCamposName[i,2] OF oDlg MESSAGE aCamposName[i,3] UPDATE //Error BASE/1132 Bound error: array access
* Falla: Mustra el .RC pero No muestra la información de los campos en el Formulario

* Otra Prueba
* Colocando los nombre de los campos del .DBF entre comillas ("cedula")
*a := xProbar2->( Field( FieldPos( aCamposName[i,1] ) ) )
*REDEFINE GET a ID aCamposName[i,2] OF oDlg MESSAGE aCamposName[i,3] UPDATE // Nada
*REDEFINE GET &a ID aCamposName[i,2] OF oDlg MESSAGE aCamposName[i,3] UPDATE // Nada
* Falla: No muestra la información en el Formulario

* He realizados otras pruebas y nada aun, no se que estoy heciendo mal o que no estoy haciendo
* Sin alguien ya lo hizo y me puede ayudar en esto se lo agradeceria
* Por supuesto tomando en cuenta los diferentes tipos de datos de la tabla .DBF
* NO se trabaja todavia que SQL por eso uso .DBF
* Creo que me explique bien, pero igual pido disculpa si no lo hice

* MUCHAS GRACIAS A TODOS

enddo

oDbf:GoTop()
oDbf:Load() // reload again fields info from the DBF
oDlg:Update() // we repaint the controls contains

return nil

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