FiveTech Software tech support forums

Emag, in this version the program is ok! King regards Marco #include "fivewin.ch" FUNCTION MAIN LOCAL oPdfCreator LOCAL oDlg LOCAL oButton DEFINE DIALOG oDlg // @ 1 , 1 BUTTON oButton OF oDlg ACTION ( oPdfCreator := CreateObject( "PDFCreator.PDFCreatorObj" ) , MsgInfo( oPdfcreator ...

...                       If( ::oWnd != nil, ::oWnd:hWnd, 0 ), ;                                ::nId,, ::nExStyle )  oWnd:hWnd,oDlg:hWnd,oButton:hWnd,oXbrowse:hWnd... oRichedit:hWnd IsSelection() Me imagino que es una data de la clase que nos permite saber si hay un bloque de texto seleccionado ...

... verlo utilizando la función MsgAlert(Valtype( nombre_del_objeto)) Lo he probado y funciona correctamente : STATIC FUNCTION PRUEBA() LOCAL oDlg, oButton, oComboBox, aVariables, cVar aVariables:={"a","b","c"} DEFINE DIALOG oDlg TITLE "Prueba de ComboBox dinámico" ...

Silvio,

From samples\rbdesign.prg we do:

MENUITEM "Select bitmap..." ACTION ( oButton:LoadBitmaps( cGetFile( "*.bmp" ) ), oButton:Refresh() )

Lo he solucionado de esta manera MENUITEM "Select bitmap..." ACTION ( cBt := cGetFile( "*.bmp" ),; oButton:LoadBitmaps( cBt ),; oButton:Refresh(), obutton:cname := cBt )

... the popup-menu are moved left on the display-position. z.b. Dialog position left is 700 after the move(). This oDlg:nLeft are subtract from the oButton:left !? ::oPopup:Activate( ::nTop + ::nHeight(),;::nLeft - If( ! oWnd:IsKindOf( "TRBGROUP" ), oWnd:nLeft, ...

static oTimer, oWnd, oButton[2] #Define SW_MINIMIZE 6 #Define SW_RESTORE 9 /*******************************/ function Main() /* */ define window ownd from 10, 10 to 20, 30 ; nozoom ; noiconize ; nosysmenu ; no caption ; border none ...

Gale YES .. your advice worked GREAT .. oButton:lCancel := .t. allowed the valid NOT to fire if the cursor was in the Valid Get ! Thanks Rick Lipkin REDEFINE BTNBMP oBUTT2 ID 112 of oREQ   ;    // cancel        ...

I don't think the Cancel clause works on btnbmp class. You have to use oButton:lCancel := .f.

Please try this Many thanks #include "fivewin.ch" function Main() LOCAL oDlg, oButton DEFINE DIALOG oDLg FROM 10 , 10 TO 800 , 800 PIXEL @ 1 , 1 BUTTON oButton OF oDlg ACTION CREATEWORD() ACTIVATE DIALOG oDlg CENTER RETURN NIL FUNCTION CREATEWORD() LOCAL oWord ...

Dutch,

oButton:SetSize( nWidth, nHeight [, lRepaint ] )

or:

oButton:nWidth := nNewWidth
oButton:nHeight := nNewHeight

Hi, when I click button oButton I set nRadio value to -1 then I perform a refresh of oRadio but nothing changes. I expect to find the radio button in the initial state Is there a solution? Thanks Marco #include "fivewin.ch" ...

... aRes[2] := ALLTRIM((cTbarAlias)->FLDRES2) aRes[3] := ALLTRIM((cTbarAlias)->FLDRES3) IF (cTbarAlias)->FLDSEPARAT DEFINE BUTTON oButton OF oApp:oBtnBar ; MESSAGE cMess TOOLTIP cMess ; GROUP FLAT UPDATE ELSE DEFINE BUTTON oButton OF oApp:oBtnBar ; TOOLTIP cMess MESSAGE cMess ; ...

Hola Jackson: Será que o MAESTRO M.MERCADO não teria uma solução para isso Con el método oButton:SetText( cText, nRow, nCol ) puedes colocar el texto en la posición dentro del botón que tú elijas con los parámetros nRow y nCol. Ejemplo: Redefine SButton oButton ... ...

Thank You very much for Your help.
It is tested and works fine now.

Best Regards
Uwe