FiveTech Software tech support forums

... COLORBOX oDp:nMenuBoxClrText ; HEIGHT oDp:nMenuHeight; // SELECT 3D ; LOGO oDp:cBmpTransacciones ; LOGOCOLOR oDp:nMenuMainClrText aMenu:=ACLONE(aMenuTra) oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario hacermenu(aMenu) C5ENDMENU      C5MENUITEM oDp:oItemTransaccion ...

... ; FONT oDp:oFontMenu; HEIGHT oDp:nMenuHeight; // SELECT 3D ; LOGO oDp:cBmpMacros ; LOGOCOLOR oDp:nMenuMainClrText oDp:oItemMacro:lActive:=!EMPTY(aMenuMac[1]) .AND. lHorario hacermenu(aMENUMAC) C5ENDMENU STATIC FUNCTION HACERMENU(aMenu,oMenu) LOCAL I:=1,lacceso:=.T.,lutilizo:=.F.,oItem,nIni:=0 ...

1) Change 3rd column of aMenu as a codeblock. Example: { 1, "Empresas", { |o|F1001() } },   2) Change TREEITEM aMENU[i][2]   as TREEITEM oItem PROMPT aMENU[i][2]oItem:bAction ...

... LOCAL HSCOICON := 0 PUBLIC HMAINWND // MAIN WINDOW PUBLIC HIDDEN := .F. // MAIN WINDOW VISIBILITY STATE PUBLIC HINST := _GETINSTANCE() PUBLIC AMENU // MAIN MENU PUBLIC NILMENU // EMPTY MENU TO GIVE MAIN WINDOW WHEN IT IS DISABLED PUBLIC HWAIT // HOUR GLASS CURSOR HANDLE PUBLIC HAROW // ARROW ...

Someone can help me please
When I move the mouse over th emenu it not change colors!!!

... menu desde el archivo texto sin tener que compilar el programa. Atentamente Julio Ponce Julio, asi como te indica Esteban Tenés que leer la tabla aMenu y harias así MENU oMenu 2007 MENU MENUITEM aMenu[1] MESSAGE "mensage" ACTION tufuncion() ENDMENU ENDMENU Saludos Adhemar

Julio, asi como te indica Esteban
Tenés que leer la tabla aMenu

y harias así

MENU oMenu 2007
MENU
MENUITEM aMenu[1] MESSAGE "mensage" ACTION tufuncion()
ENDMENU
ENDMENU

Saludos

Adhemar

... es decir xCve:=0 select 1 use detalle alias aDetalle Shared select 2 use catalogo alias aCatalogo Shared set relation to aDetalle->Ref_no into aMenu necesito que ese relacion la haga cumpliendo un filtro de la variable xCve, pero no lo hace !! donde tengo que poner el filtro ?, claro que en ...

... || nUserId:=oUsers:oRecSet:Fields("User_Id"):Value,; // func GetUserMenu() will erase the array aMenu and creates a Fresh array, aMenu is the array used in xBrowse2 GetUserMenu(oUserMenu,oMenuArray,nUserId,@aMenu),; oBrwMenu:Update(),; ...

... * STATIC FUNCTION g_menu() * ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ * LOCAL amenu := { "Buscar", "Agregar", "Modificar", "Eliminar", "Listar",; "Calculadora","Otros", "Salir" } * esta matriz deberia venir formada como un parametro ...

... ventana principal de la aplicación, ponemos un Bitmap y un Say, la ventana la definimos así: DEFINE WINDOW oWnd MDI FROM 1,5 TO 20,75 MENU CreaMnu(aMenu) ; TITLE "Titulo" ICON oIcon; COLOR CLR_BLACK,CLR_WHITE Y para que cuando abramos un diálogo modal, no se nos borre ni el say ni el bitmap ponemos ...

... oFontMulti ObjBrowse:aHeaders = cEtiqueta ObjBrowse:bLine = { || &(bBloque) } ACTIVATE DIALOG oForm CENTER ON RIGHT CLICK MenuPopup( oForm,, aMenu ) ON INIT ( InitMulti( oForm ), ObjBrowse:Refresh() ) Esto funciona barbaro, dentro de esa ventana hay una accion que seleccionando una linea ...