Hola,
Sigue sin funcionar:
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oGet, oGet2
local nValue := 0, n2 := 1220
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "TestGet"
REDEFINE GET oGet VAR nValue PICTURE "999.99" ID 110 OF oDlg COLOR CLR_HRED NO MODIFY
oGet:lDisColors := .t.
REDEFINE GET oGet2 VAR n2 PICTURE "999,999.99" ID 120 OF oDlg COLOR CLR_RED
REDEFINE BUTTON ID 220 OF oDlg ACTION MsgInfo( nValue )
ACTIVATE DIALOG oDlg CENTERED
return nil
.rc
#include "..\include\WinApi.ch"
// This line has to be added for FiveWin 1.6 users
// #define ES_RIGHT 2
TestGet DIALOG 27, 68, 166, 157
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 "", 120, "EDIT", ES_RIGHT | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 17, 42, 135, 14
CONTROL "&Ok", 220, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 46, 137, 31, 14
CONTROL "&Cancel", IDCANCEL, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 88, 137, 31, 14
END
Muchas gracias. Many thanks.
Un saludo, Best regards,
Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]
Implementando MSVC 2010, FWH64 y ADO.
Abandonando uso xHarbour y SQLRDD.
