FiveTech Software tech support forums

aca va otra.
DEFINE BUTTON oBtns[12] OF oBar RESOURCE "BAR_AYU" ;
TOOLTIP "Ayuda," + CRLF + "Indice y Contenido";
NOBORDER


oVentPrinc:bResized:={|| oBtns[12]:Move(2,oVentPrinc:nWidth()-35)}


Saludos

... línea ejecuta una función que pone el menú de la opción si te das cuenta yo llamo a creavent asi: CreaVent(600,1280,"wGestITra","oVentPrinc",Locatext( 1, 1,348),"MenuITra()") El último parámetro es MenuITra() y con &ysty lo ejecuto, en particular esta función ...

... in nyswin.prg------------------------------------------------------------------------  Y la línea 241 de nyswin.prg es " ACTIVATE WINDOW oVentPrinc MAXIMIZED ON INIT gestusua() VALID ! GetKeyState (VK_ESCAPE)" Pero esto no se interpretarlo. Un saludo Carlos

... barra de menú de menú Principal: http://www.colthop.es/imagen01.jpg Y cuando entramos en una opción quito la BUTTONBAR con: "oVentPrinc:oBar:End()" y pongo la otra barra en la siguiente ventana y queda así: http://www.colthop.es/imagen03.jpg En vez de ...

... Hace tiempo pregunté como se podría quitar el menú de la ventana principal que se creaba con "MENU MenuPrin()" y me indicasteis que era: oVentPrinc:oMenu:End() Lo que funciona perfectamente ahora quisiera pintar de nuevo el menú y no se como hacerlo me podríais indicarme como se hace. ...

... 1 oLbx:lRecordSelector := .t. oLbx:lAllowRowSizing := .F. oLbx:l2007 := .T. oLbx:CreateFromCode() oLbx:nRowHeight := 19 oPanel:oClient := oLbx if oVentPrinc:oClient <> NIL oVentPrinc:oClient:Hide() oVentPrinc:oClient := nil endif oVentPrinc:oClient := oPanel DEFINE TASKPANEL oBar OF oPanel ...

... oWnd,oPanel aIdx:={"por Codigo","por Nombre"} cTit:="Datos de las Personales" oPanel := TPanel():New( 0, 0, 0, 0, oVentPrinc) oPanel:Hide() if oVentPrinc:oClient <> NIL oVentPrinc:oClient:Hide() oVentPrinc:oClient := nil endif oVentPrinc:oClient := oPanel ...

... COMBOBOX oCbx VAR cVar ITEMS aIdx ID 1007 OF oDlg UPDATE; ON CHANGE SeOrden(oCbx,oLbx,nIndex) REDEFINE SAY oSay ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE oLbx:SetAdo(cMa_Ctes) oLbx:bSeek := {|c| BBus(c,cMa_Ctes,nIndex[cVar]) } oLbx:oSeek := oSay oLbx:bKeyDown := {|nKey| ...

... E:\marescah\origen.prg------------------------------------------------------------------------  la línea 104 del programa es SET MESSAGE OF oVentPrinc ; // Mensaje que mostrar  al estar TO "Quim-Trans Coop Trab Lda "; // activa la ventana principal. KEYBOARD; // Mostrar estado ...

ahi va un ejemplo: Local cbusca :="" @ 0.30,50 SAY "Buscar :" OF oBar FONT oVentPrinc:oFont SIZE 40, 15 COLORS CLR_BLUE, nRGB( 207, 221, 239 ) @0.35,46 GET oGet VAR cbusca OF oBar PICTURE "@S60!" SIZE 200,22 FONT oVentPrinc:oFont COLOR CLR_BLUE ...

... HEADERS "DESPACHAR,"Origen/Destino"; SIZES 90,200; OF oWChld ALIAS (cRec_Desp)->(Alias()) UPDATE FONT oVentPrinc:oFont oLbx:aJustify :={.t.,.t.,.t.,.f.,.t.,.f.,.t.,.t.,.f.} oLbx:bLDblClick :={|| Asigna_Ven(oLbx,aSel)} STAT FUNC Desp_Mar(aX) // Marca ...

... HEADERS "DESPACHAR,"Origen/Destino"; SIZES 90,200; OF oWChld ALIAS (cRec_Desp)->(Alias()) UPDATE FONT oVentPrinc:oFont oLbx:aJustify :={.t.,.t.,.t.,.f.,.t.,.f.,.t.,.t.,.f.} oLbx:bLDblClick :={|| Asigna_Ven(oLbx,aSel)} STAT FUNC Desp_Mar(aX) // Marca ...

... SIZES 90,68,80,200,60,80,40,55,200; OF oWChld ALIAS (cRec_Desp)->(Alias()) UPDATE FONT oVentPrinc:oFont STAT FUNC SeleccionTodas(oLbx,aSel) *-------------------------------------- LOCAL x:=AScan(aSel,Round((cRec_Desp)->(Recno()),0)) ...

... SIZES 90,68,80,200,60,80,40,55,200; OF oWChld ALIAS (cRec_Desp)->(Alias()) UPDATE FONT oVentPrinc:oFont STAT FUNC SeleccionTodas(oLbx,aSel) *-------------------------------------- LOCAL x:=AScan(aSel,Round((cRec_Desp)->(Recno()),0)) ...

... REDEFINE GET oGet VAR cBusca ID 101 OF oDlg UPDATE FONT oVentPrinc:oFont COLOR CLR_BLUE when .f. oLbx:bKeyDown := {|nKey| iif( nKey=13,(cKey:=SQLField(cExi_Suc,"ma_arti"),oDlg:End() ),(PlisBuscar(nKey,@cExi_Suc,"exi_suc",nIndex[cVar],oLbx,@cbusca,cSelect),oLbx:Refresh(),oLbx:Refresh(),oGet:Refresh() ...