@ 340,40 EDIT oEdit VAR cVarEdit SIZE 280,22 PIXEL OF oWnd
oEdit:SetLimitText(30)
oEdit:bGotFocus := {|o| o:SetColor( 255 ) }
oEdit:bLostFocus := {|o| o:SetColor( 0 ) }
@ 340 , 40 EDIT oEdit VAR cVarEdit SIZE 280 , 22 PIXEL OF oWnd ;
LIMITTEXT BY 30 CHARS
oEdit: bGotFocus : = { | o | o: SetColor ( CLR_HRED, CLR_YELLOW ) }
oEdit: bLostFocus : = { | o | o: SetColor ( CLR_BLACK, CLR_WHITE ) }
oEdit:bKeyChar := { |k| If( k == VK_RETURN, ( oEdit:oWnd:GoNextCtrl( oEdit:hWnd ), 0 ), nil ) }
CLASS TxEdit FROM TEdit
METHOD KeyDown( nKey, nFlags )
ENDCLASS
METHOD KeyDown( nKey, nFlags ) CLASS TxEdit
IF nKey == VK_UP
::oWnd:GoPrevCtrl( ::hWnd )
return 0 // We don't want API default behavior
ELSEIF nKey == VK_RETURN .or. nKey == VK_DOWN
::oWnd:GoNextCtrl( ::hWnd )
return 0 // We don't want API default behavior
ENDIF
return ::Super:KeyDown( nKey, nFlags )
function Main()
local oDlg, cFirst := "Hello", cLast := "World"
* DEFINE DIALOG oDlg SIZE 500, 250
DEFINE WINDOW oDlg FROM 1, 1 TO 30, 100
@ 1, 1 EDIT cFirst OF oDlg SIZE 80, 10
@ 2, 1 GET 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
ACTIVATE WINDOW oDlg
return nil
//----------------------------------------------------------------------------//
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot], nageswaragunupudi and 6 guests