FiveTech Software tech support forums

hi, how can I assign DEFAULT to oBtnbmp BTNBMP inside a DIALOG ?     DEFINE DIALOG oDlg SIZE 1300,700 PIXEL  FONT oFont    STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;              WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME ...

hi Antonio,
it doesn't work in any way.
Return key go on to the next GET field but not active BTNBMP

in others PGM I use REDEFINE DIALOG from resource and it works because obtnbmp has ID = IDOK (I use Pelles C) but in this case I don't want to use REDEFINE.

Damiano,

Try this:

#define BM_SETSTYLE 244

oDlg:bInit := { || oBtnBmp:SendMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 ) }

or

oDlg:bInit := { || oBtnBmp:PostMsg( BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 ) }

hi, how can I assign DEFAULT to oBtnbmp BTNBMP inside a DIALOG ?     DEFINE DIALOG oDlg SIZE 1300,700 PIXEL  FONT oFont    STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;              WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME ...

also with oBtnbmp:lGDIP:=.t. not run!!

This does not work.
As explained earlier please use the clause GDIP in the command.
This is fixed in the next version.

also with oBtnbmp:lGDIP:=.t. not run!!

... es usando la función DrawText() ó tambien serviría la función ExtTextOut(): oBtn:bPainted = { | hDC | DrawText( hDC, "Hola", { 0, 0, oBtnBmp:nWidth, oBtnBmp:nHeight }, nStyle ) Ese array de cuatro elementos es el rectángulo en donde se escibirá el texto dentro de la superficie del ...

... anything in it I could do to block it. I now need some expert help to solve my problem. The code is simple here is an example. REDEFINE SBUTTON oBtnBmp ID m_ButtonLoop OF oMainDlg ; FILE m_KeyBmp ; ACTION( ProcessKey( &buttonmac, &plubuttonmac ) ) ; prompt m_KeyDesc ; TEXT ON_CENTER ...

Adhemar,

Prueba con:

oBtnBmp:lPressed := .T.
oBtnBmp:Refresh()

test with
oBtnbmp:lTRANSPARENT = .T.

saluti
Stefano

... Sample : Testbubm.prg added a extra height Button to show the Result : // Top Buttontext // ------------------ @ 2, 20 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo( "XP themes aware Button Bitmaps" ) ; BITMAP "..\bitmaps\16x16\garrow.bmp" PROMPT "&Top-Test" ...

... un molesto borde sobre el BMP cada vez que tiene el foco (Podria ser el bitmap que estoy usando el que causa el problema), intenté quitarlo con: oBtnBmp:lBorder := .F. oBtnBmp:lBoxSelect := .F. Si al caso son para ello, no funcionaron.... BUTTONBMP dibuja el boton perfectamente, pero el texto ...

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

Best Regards
Uwe

Please try oBtn:nLayOut
Values for nLayOut are
1 = TOP, 2 = LEFT, 3 = BOTTOM, 4 = RIGHT

Hello, I want to use : oButt1: cLayout := cPOSITION because the needed Position is defined at Start like cPOSITION := "TOP" and I want to write the Button-Code only once for each Button. http://www.pflegeplus.com/pictures/Bmppos1.jpg DEFINE BUTTON oButt1 OF oBar FILE aBPICT...