The GET with VALID clausule not work.
This simple PRG demonstre the problem.
/* 2013-06-13 17:37 UTC+0200 Przemyslaw Czerpak */
#include 'hwgui.ch'
Function Main
Local oFont, cTitulo:="TEST VALID", oDlg
Local vAc01,vAc02
Local oAc01,oAc02
PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -14
INIT DIALOG oDlg TITLE cTitulo Font oFont AT 0,0 SIZE 350,200 CLIPPER
NOEXIT NOEXITESC;
STYLE DS_CENTER+WS_VISIBLE+WS_CAPTION
vAc01 := " "
vAc02 := ""
@ 010,030 say "Iniciais:" SIZE 60,15
@ 010,050 get oAc01 VAR vAc01 picture "!!!" SIZE 50,30 STYLE
@ 010,090 say "Senha:" SIZE 65,15
@ 010,110 get oAc02 VAR vAc02 PICTURE "!!!!!" SIZE 100,30 PASSWORD Valid
{||Hwg_MsgInfo("BUG Here !")}
ACTIVATE DIALOG oDlg
Return Nil
C:\fontes\teste>harbour -build
Harbour 3.2.0dev (r1306111826)
Copyright (c) 1999-2013, http://harbour-project.org/
Harbour Build Info
---------------------------
Version: Harbour 3.2.0dev (r1306111826)
Compiler: MinGW GNU C 4.7.2 (32-bit)
Platform: Windows 7 6.1.7601 Service Pack 1
PCode version: 0.3
ChangeLog last entry: 2013-06-11 20:26 UTC+0200 Przemyslaw Czerpak
(druzus/at/po
czta.onet.pl)
ChangeLog ID: bbdb15ce23480752ff235387e66d8cf0a7c2cb0c
Built on: Jun 11 2013 22:12:49
Build options: (Clipper 5.3b) (Clipper 5.x undoc)
---------------------------
Best regards,
Itamar M. Lins Jr.
|