Menu
▾
▴
Re: [Hwgui-developers] about hEdit ( GET ) Bug
|
From: <ss...@ma...> - 2012-07-11 23:56:40
|
I post demo source code and can't press VK_RETURN.
// Demo
Func Main()
Local oWnd, oMenu
INIT WINDOW oWnd MDI AT 0,0 SIZE 800, 600;
TITLE "Test MDI Windows"
MENU OF oWnd
MENU TITLE "[&A]Test"
MENUITEM "[&G]Resource Dialog Test - 2" ACTION Test7()
ENDMENU
ENDMENU
ACTIVATE WINDOW oWnd MAXIMIZED
Return NIL
// Test7: Resource Dialog test - 2
FUNC Test7()
Local oDlg
Local aData_01 := Space(20),;
aData_02 := Space(20),;
aData_03 := Space(20),;
aData_04 := Space(20),;
aData_05 := Space(20),;
aData_06 := Space(20),;
aData_07 := Space(20),;
aData_08 := Space(20),;
aData_09 := Space(20),;
aData_10 := Space(20)
INIT DIALOG oDlg FROM RESOURCE 'TEST';
TITLE 'RESOURCE DIALOG TEST -2';
REDEFINE GET aData_01 OF oDlg ID 201 VALID {|| msginfo('1', 'ok'), .T. }
REDEFINE GET aData_02 OF oDlg ID 202 VALID {|| msginfo('2', 'ok'), .T. }
REDEFINE GET aData_03 OF oDlg ID 203 VALID {|| msginfo('3', 'ok'), .T. }
REDEFINE GET aData_04 OF oDlg ID 204 VALID {|| msginfo('4', 'ok'), .T. }
REDEFINE GET aData_05 OF oDlg ID 205 VALID {|| msginfo('5', 'ok'), .T. }
REDEFINE GET aData_06 OF oDlg ID 206
REDEFINE GET aData_07 OF oDlg ID 207
REDEFINE GET aData_08 OF oDlg ID 208
REDEFINE GET aData_09 OF oDlg ID 209
REDEFINE GET aData_10 OF oDlg ID 210
ACTIVATE DIALOG oDlg
Return NIL
//--[TEST.RC]----------------------------------------------------------
TEST DIALOG 4, 12, 374, 163
EXSTYLE WS_EX_DLGMODALFRAME
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test Resource Dialog"
FONT 12, "細明體"
{
CONTROL "", -1, "STATIC", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 2, 2, 371, 134
CONTROL "Data_1: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 6, 6, 38, 10
CONTROL "Data_2: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 6, 19, 38, 10
CONTROL "Data_3: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 6, 32, 38, 10
CONTROL "Data_4: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 6, 45, 38, 10
CONTROL "Data_5: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 59, 34, 8
CONTROL "Data_6: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 72, 34, 8
CONTROL "Data_7: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 85, 34, 8
CONTROL "Data_8: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 98, 34, 8
CONTROL "Data_9: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 111, 34, 8
CONTROL "Data_A: ", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 124, 34, 8
CONTROL "12345678901234567890", 201, "EDIT", ES_LEFT | ES_MULTILINE | ES_WANTRETURN | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 5, 128, 12
CONTROL "", 202, "EDIT", ES_LEFT | ES_MULTILINE | ES_WANTRETURN | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 18, 128, 12
CONTROL "", 203, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 31, 324, 12
CONTROL "", 204, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 44, 324, 12
CONTROL "", 205, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 57, 324, 12
CONTROL "", 206, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 70, 324, 12
CONTROL "", 207, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 83, 324, 12
CONTROL "", 208, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 96, 324, 12
CONTROL "", 209, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 109, 324, 12
CONTROL "", 210, "EDIT", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 47, 122, 324, 12
CONTROL "[&S]ave", 101, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 147, 140, 40, 20
CONTROL "E[&x]it", 102, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 187, 140, 40, 20
}
//---------------------------------------------------------------------
> init dialog oDLG from resource DIALOG_TEST CLIPPER NOEXITESC NOEXIT ;
> HERE work fine
> code SVN
>
>
> Luis Fernando Basso
> lf...@vi...
>
>
> -----Mensagem Original-----
> From: ss...@ma...
> Sent: Tuesday, July 10, 2012 10:27 PM
> To: hwg...@li...
> Subject: Re: [Hwgui-developers] about hEdit ( GET ) Bug
>
>
> Hi~~
>
> When I try to join the 'CLIPPER' to init dialog and the problem persists.
>
> modify hedit.prg can solution:
> //--------------------------------------------------------------------------------------------------
> +223 ELSEIF msg == WM_GETDLGCODE // add:WenSheng:Resource Dialog get
> char is use WM_GETDLGCODE
> +224 IF wParam == VK_RETURN
> +225 GetSkip( oParent, ::handle, , 1 )
> +226 RETURN 0
> +227 ENDIF
> //--------------------------------------------------------------------------------------------------
>
> > Hi
> >
> > does you add the CLIPPER clause to init dialog?
> >
> > Regards
> > Luiz
> >
> > >
> > > Hi~
> > >
> > > I can't press VK_RETURN when I try use RESOURCE DIALOG and REDEFINE
> > > GET to get data,
> > > But If use INIT DIALOG and @ ... GET is Correct.
> > >
> > >
>
|
