procedure main()
_main()
Fw_SetUnicode( .t. )
_main()
return
function _Main()
local oDlg, oGet
local nValue := SPACE(10)
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "TestGet"
REDEFINE GET oGet VAR nValue PICTURE "@!" ID 110 OF oDlg
oGet:bGotFocus = { || oGet:SetPos( 0 ), nil }
REDEFINE BUTTON ID 120 OF oDlg ACTION MsgInfo( nValue )
ACTIVATE DIALOG oDlg CENTERED
return nil
TestGet DIALOG 27, 68, 166, 57
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Testing a GET with right justification"
FONT 8, "Arial"
BEGIN
CONTROL "", 110, "EDIT", ES_RIGHT | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 17, 12, 135, 14
CONTROL "&Ok", 120, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 46, 37, 31, 14
CONTROL "&Cancel", IDCANCEL, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 88, 37, 31, 14
END
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 86 guests