Entering Text in Memo Field : Format Get

[Milan Mehta]

Hi,

I am using Jun-2005 build. When I try to use Format Get on a memo filed with Vertical Scroll bar enabled, when the scroll bar becomes active the cursor appears one line above where it should be. However the typed character appear exactly where it should. But the user get confused when typing.

Has anybody faced this problem ? What is the way out ?

TIA
Milan.

[Antonio Linares]

Milan,

We have just tried samples\TestMemo.prg and it works ok. Could you please check it there ?

What do you mean for "Format Get" ?

[Milan Mehta]

Milan,

We have just tried samples\TestMemo.prg and it works ok. Could you please check it there ?

What do you mean for "Format Get" ?

Hello Antonio,

Please try the following example. Please try to delete character pressing Backspace key after Vertical scroll bar has beccome active i.e. you have entered characters more than that can fit into that visible space.

I hope I am able to convey my difficulty.

With best regards,

Milan..

-------------------------Prg-----------------------------
# include "fivewin.ch"
# include "fget.ch"

PROCEDURE Main

LOCAL oDlg, oMiscInfo, cMiscInfo

DEFINE DIALOG oDlg RESOURCE "FGET"

REDEFINE FORMAT GET oMiscInfo VAR cMiscInfo ID 101 OF oDlg
ACTIVATE DIALOG oDlg

return
------------------------End Prg--------------------------
------------------------Rc File---------------------------
#define IDC_EDIT1 101

FGET DIALOG 6, 15, 161, 127
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "FORMAT GET TEST"
FONT 8, "MS Sans Serif"
{
EDITTEXT IDC_EDIT1, 25, 14, 82, 46, WS_BORDER | WS_VSCROLL | WS_TABSTOP
}
------------------------End Rc File-----------------------

[Antonio Linares]

Milan,

Your RC is not right, please change it this way:

CONTROL "", IDC_EDIT1, "TFGet", WS_BORDER | WS_VSCROLL | WS_TABSTOP, 25, 14, 82, 46

instead of:

EDITTEXT IDC_EDIT1, 25, 14, 82, 46, WS_BORDER | WS_VSCROLL | WS_TABSTOP

Now it works ok.

[Milan Mehta]

Milan,

Your RC is not right, please change it this way:

CONTROL "", IDC_EDIT1, "TFGet", WS_BORDER | WS_VSCROLL | WS_TABSTOP, 25, 14, 82, 46

instead of:

EDITTEXT IDC_EDIT1, 25, 14, 82, 46, WS_BORDER | WS_VSCROLL | WS_TABSTOP

Now it works ok.

Dear Antonio,

Yes it does. Thanks.

Milan.