FiveTech Software tech support forums

... Return .T. Function VNominaP(oProducto,Det,TgGet,oPreprod) Local oDlg Local oFont Local oSay Local oCbx Local vCombox Local oGet Local vGet Local oBtn1,oBtn2 Local oTbr Local oBp Local oBmp // oProducto:Setorder(4) oProducto:Gotop() // DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-12 DEFINE DIALOG ...

... WINDOW oWnd TITLE "Pruebas" COLOR "W+/BG"; @ 8,10 COMBOBOX oCbx VAR cCbx {"Cliente","Proveedor","Articulo"} OF oWnd SIZE 50,40 @ 10, 10 BUTTON oBtn1 PROMPT "Funcion" OF oWnd SIZE 32,16 ACTION MiFuncion(oWnd,cCbx) @ 14, 10 BUTTON oBtn2 PROMPT "Salir" OF oWnd SIZE 32,16 ACTION oWnd:End() ACTIVATE ...

He codificado, según el ejemplo. local oWnd, oReBar, oToolBar, oPanel, oBtn1, oFolder, oToolBar2 local oImageList DEFINE WINDOW oWnd TITLE "Testing rebars and toolbars" ; MENU BuildMenu() oReBar = TReBar():New( oWnd ) oPanel := TPanel():New( 0, 0, 75, 300, ...

... sale bien, pero si está en la librería de recursos, aun siendo el mismo dibujo, sale como si estuviera pulsado. Es decir REDEFINE BUTTONBMP oBtn1 ID 781 OF oDlg BITMAP "BMP_SI.BMP" //Se ve bien no se ve igual que: REDEFINE BUTTONBMP oBtn1 ID 781 OF oDlg BITMAP "BMP_SI" //Se ve como pulsado ...

... no vuelve a verse bien. En cualquier caso quiero evitar el efecto de que cambie de color. La declaración la hago así de simple: REDEFINE BUTTONBMP oBtn1 ID 781 OF oDlg BITMAP "BMP_SI" Los diálogos los tengo en DLLs, estoy usando PellesC Saludos

Perdón,

Ese ejemplo es cada vez que coja el foco el Botón, al hacer click sería:


oBtn1:bGotFocus := { | oBtn1, hAnteriorControl| oBtn1:cargo :=hAnteriorControl }

Y el la función del click:

SetFocus( oBtn1:cargo )

Un Saludo y así están las 2 posibilidades,
Joaquín

Fernando, Si no me equivoco, creo que se puede hacer mucho más fácil. Si tienes un botón oBtn1 que al hacer click quieres saber el control que tenía el foco, sería: oBtn1:bGotFocus := { | oBtn1, hAnteriorControl| Mifunc(hAnteriorControl ) } Function Mifunc(hAnteriorControl ...

... RETU .T. Func ToolR(aGets,Funcparam,TITI,oScroll,Dblclick,posi) Local oDlgT,oBtn_1,oBtn_2,oBtn_3,oBtn_4,oBtn_5,oBtn_6,oBtn_7,oBtn_8,oBtn21,oBtn22,oBtn15,oBtn16,oBtn17,oBtn18 local oBtn115,oBtn116,oBtn117,oBtn118 // mostrarr el tools DEFINE DIALOG oDlgT SIZE 50,295 TITLE "Tools" @ 0, 0 BTNBMP oBtn_1 ...

... Ahora bien, lo que me gustaría saber es cómo podría recoger una lista de todos los controles (objetos) que presenta esa ventana. Por ejemplo: {oBtn1, oBtn2, oGet1, oGet2, oGet3, oLbx1....} La idea es que a partir de esa lista debiera ser posible leer, entre ortras cosas, las coordenadas y contenido ...

... than allows me to get a list of all the objets (controls) present in the window. Specifically, I would like to be able to retrieve a list such as {oBtn1, oBtn2, oGet1, oListBox1, oGet2...}? The idea is to be able to read the coordinates of each control and, eventually, the contens of the Gets: ...

... #include "Image.ch" //----------------------------------------------------------------------------// function Main() LOCAL oDlg, oImage, oBtn1, oBtn2,oBtn3,oBtn4,oBtn5 DEFINE DIALOG oDlg RESOURCE "DLG_WEBCAM_FOTO" REDEFINE IMAGE oImage ID 108 OF oDlg SCROLL // ADJUST oImage:Progress( ...

... a la nueva versión de FWH si me estaba apareciendo las BITMAP ahora yo no aparecen no sabes a que ser deba este problema. REDEFINE BUTTONBMP oBtn1 ID 20 OF oDlg TEXTRIGHT ; BITMAP ".\BMPS\ACEPTAR16.BMP" ; ACTION oDlg:End() Saludos, :shock: Mario Espinosa