Change Caption on TBtnBmp object

[reinaldocrespo]

Hi;

I'm trying to change the caption on a TbtnBmp, but so far -no luck.

Code: Select all  Expand view

LOCAL oBtn
LOCAL oSelf := SELF
...
::cText := "Some Initial Text"
REDEFINE BUTTONBMP ::oBtm /*BITMAP "dotgreen"*/ ID 501 OF ::oDlg TEXTLEFT PROMPT ::cText UPDATE
ACTIVATE DIALOG ::oDlg ON INIT oSelf:oBtn:Disable()

...

::cText := "Some Other Text"
oBtn:cCaption := ::cText
oBtn:Refresh()
 

I must add that the TbtnBmp object is disabled, still I wish to change the caption at some point. I even tried oBtn:Paint(), but nothing happens.

Can someone help?

Reinaldo.

[Marcelo Via Giglio]

Hola Reinaldo,

I think your problem is with ButtonBMP not with BtnBmp, because ::cCaption work with BtnBmp, with ButtonBMP try sending message like

SendMessage( buttonBmp:hwnd, WM_SETTEXT, 0, "New Caption" )

using

#define WM_SETTEXT 0x000C


saludos

Marcelo

[Antonio Linares]

Reinaldo,

You can use:

oBtn:SetText( "whatever" )

this works with most windows, dialogs and controls

[reinaldocrespo]

Marcelo - It is always good to see you around. Hope you are doing well. I'm sure your solution would have worked but Antonio's just seems simpler. BTW - :SetText( ::cText ) worked as expected. Thank you very much Antonio.

Reinaldo.

[Marcelo Via Giglio]

Hello Reinaldo,

yes of course, Antonio´s solution is the way, my proposal work too but we can take it for sample only

un abrazo

Marcelo