FiveTech Software tech support forums

Otto,

There is a little error in your code, it is this way:

REDEFINE BUTTON oBtn1 ID 101 OF oDlg ACTION (MsgBeep(),;
SetFocus( oGet1:hWnd ),;
oGet1:KeyChar(ASC("1")))

Hello Antonio, c:\FWH\samples\keybsim.prg REDEFINE BUTTON oBtn1 ID 101 OF oDlg ACTION (MsgBeep(),; oGet1:SetFocus( oGet1:hWnd ),; oGet1:KeyChar(ASC("1"))) I tried this way but with no success. Do I need 11.9 version of FiveWin? Best regards, ...

... or one of the last updates of Fivewin this does not work any more. Please test keybsim.prg. Thanks in advance and best regards, REDEFINE BUTTON oBtn1 ID 101 OF oDlg ACTION (MsgBeep(),; oGet1:SetFocus(.t.),; oGet1:KeyChar(ASC("1"))) Mag. Otto Atzwanger

I would like to change the prompt on a BtnBmp during program execution. Consider: ... REDEFINE BTNBMP oBtn1 RESOURCE "ADD" PROMPT "Add" .... Later I want to change the prompt to "Confirm" oBtn1:SetText("confirm") eliminates the bitmap ...

Ola amigos

Tentei usar da seguite forma

REDEFINE BTNBMP oBtn1 ID 4009 OF oDlg ACTION( lSair := .T., oDlg:End() ) LEFT 2007 NOBORDER CANCEL

A clausula CANCEL nao funciona como fazer para funcionar

Fico no Aguardo

Uwe,

I don't think he needs the row and col when using bMMoved. He just needs to popup something when the cursor is over the button. Something like this:

oBtn1:bMMoved := { || msgInfo() }

Regards,
James

James, oBtn1:bMMoved := {| nRow, nCol | MsgAlert( ALLTRIM( STR(nRow)), ALLTRIM( STR(nCol)) ) } will show nRow and nCol from inside the Button . That is the reason, I used : oDlg:bMMoved := {| nRow, nCol | MsgAlert( ALLTRIM( STR(nRow)), ...

Hello Antonio, tooltip on button seems to be broken again. I tested ribbon.prg from FWH/samples with oBtn1:cTooltip := { || "___________________" + CRLF + "? Drücken Sie F1, um die Hilfe anzuzeigen" } Best regards, Otto #include "fivewin.ch"#include ...

... oWnd ; TITLE 'Background-, Title-, xBrowse-, Logo-, Border- and Font-editor => Release 1.1 / June 2011' @ nSHeight - 130, nSWidth - 260 BTNBMP oBtn1 OF oWnd ; SIZE 100, 50 PIXEL 2007 ; NOBORDER ; PROMPT " &Tools" ; FILENAME c_path + "\Bitmaps\Select.Bmp" ; ACTION oDlg:Show() ...

Marco, there are 3 Button-classes : TButton, TButtonBmp and TBtnBmp @ 130, 20 BTNBMP oBtn1 OF oDlg ; SIZE 70, 35 PIXEL 2007 ; NOBORDER ; PROMPT " Button 4" + CRLF + " Test" ; FILENAME "..\bitmaps\16x16\garrow.bmp" ; ACTION oDlg:End() ...

Victor segun pude ver el error al Load From, se debe a la ruta en el PRG está definido oHrb = HB_CompileFromBuf( cCode, "-n", "-Ic:\fwh\include", "-Ic:\harbour\include" ) si no lo tienes asi te da el error respecto a bitmaps, yo los diseño desde disco y luego cambio el ...

... Title, only the Textobject. This button ( on Mainwindow ) changes the Text defined in Title 1. // Style 2007 // ------------- @ 580, 300 BTNBMP oBtn1 OF oWnd ; SIZE 200, 80 ; PROMPT "&Change Text" 2007 ; FONT oFont2 CENTER ; ACTION oText1:SetText("FIVEWIN 9.10") There ...

... Color, Gradient and Transparent at Runtime, but cannot switch back to Style 2007. On init, there is no problem. Maybe a combination needed with : oBtn1:l2007 := .T. http://www.pflegeplus.com/pictures/btnstyle1.jpg REDEFINE BTNBMP oBtn1 ID 500 OF oWndBtnB  2007 ;FILENAME c_path ...

... DIALOG oDlg1 CENTERED oFont:end() oFont1:end() SELECT(cAlias) DBGOTO(nRec) RETURN NIL FUNCTION CatchCta( oCuenta, cCTABCO ) * LOCAL oDlg, oBrw, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5 LOCAL nRec, lOk := .F. LOCAL cAlias := ALIAS() * ---Initialize database file. SELECT Cta DBGOTOP() * * ---Main execution ...

... ( from Resources ). The Preview shows the Buttons nearly Factor * 2 Painter ( from Resource ) Button defined 100 x 50 ... ... REDEFINE BTNBMP oBtn1 ID 500 OF oWndBtnB 2007 ; FILENAME c_path + "\Bitmaps\32Exit.bmp" ; LEFT ; PROMPT " &Exit" ; FONT oTextFont ; ACTION ( ...