Si bien veo que existe el método bLButtonup, que supongo seria el encargado de realizar lo que se le mande, no veo como mostrar ese button
Cogiendo el ejemplo de FW, edit.prg... cómo hago que uno de esos EDITs tenga el botoncillo a al derecha???
Code: Select all
// Testing Class TEdit that implements GETs without using a Harbour embedded GET
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, cFirst := "Hello", cLast := "World"
DEFINE DIALOG oDlg SIZE 500, 250
@ 1, 1 EDIT cFirst OF oDlg SIZE 80, 10
@ 2, 1 EDIT cLast OF oDlg SIZE 80, 10
@ 5, 11 BUTTON "Ok" ACTION MsgInfo( cFirst + ", " + cLast )
@ 5, 21 BUTTON "Cancel" ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
return nil
//----------------------------------------------------------------------------//