Hi,
If I run this little program ....

include "fivewin.ch"

define crlf CHR(13)+CHR(10)

FUNCTION main()
LOCAL oDlg
LOCAL oGet1 , cGet1 := "Aaaaa " + crlf + "Bbbbbbb "
LOCAL oGet2 , cGet2 := "Cccccc Dddd Eeeeee "

DEFINE DIALOG oDlg

@ 1 , 1 GET oGet1 VAR cGet1 OF oDlg SIZE 100 , 30 PIXEL MEMO

@ 3 , 1 GET oGet2 VAR cGet2 OF oDlg

ACTIVATE DIALOG oDlg CENTER

RETURN nil
... it's evident that the behavior of this program is not standard.

All my programs behave the same way, especially for:

• it selects all get content if I enter in the get object using TAB key
• if I click with mouse in the get object over the last character cursor is positioned at the last character
• If I select in memo field two rows of text If I paste in a single line get only first line is copied
  The list ends here!

Another consideration is: If I introduce some modifications to achieve a normal behavior I lose some features that I have to create them to play them one by one, unsuccessfully.

The question: is there a solution to resolve the three listed problems?

King regards

marco

Marco,

1. Do you mean when the MEMO gets focus ? All text is selected, right ?

2. I don't understand what you mean here. What is the problem ?

3. Here it is working fine. I select the two lines of your example and then paste them in UEStudio and they are there

Antonio,
is it a version problem?
I use a version october 2009.

>1. Do you mean when the MEMO gets focus ? All text is selected, right ?
Using TAB key when I enter a GET all get content has to be selected MEMO GET and normal GET

>2. I don't understand what you mean here. What is the problem ?
If I click in a GET cursor position has to be adapted to the ALLTRIM( oget:varget() ) that ias at the end of the last character

>3. Here it is working fine. I select the two lines of your example and then paste them in UEStudio and they are there
I'm talking about the possibility to select multiple line and paste in a single line
STRTRAN( cTmp , crlf , " " ) for instance

many thanks
marco

Marco,

FWH users usually don't want that GETs text gets automatically selected as when the user types something all the content is erased.

Do you want all the text to be selected ? (in fact that is the standard behavior)

It seems to me that if the picture has "@K" in it, then all text should be selected when tab, arrow, or enter key was used prior to the get.
This gives the user a visual clue that if they type a letter all text gets cleared.

>> Do you want all the text to be selected ? (in fact that is the standard behavior)
Yes! My customers want

To Gale
>It seems to me that if the picture has "@K" in it, then all text should be selected when tab, arrow, or enter key was used prior to the >get.
>This gives the user a visual clue that if they type a letter all text gets cleared.
with PICTURE "@K" it's the same
If users accidently type a letter and delete all selected text, pressing CTRL_Z or Right Mouse Undo they return to previus value.

It sounds like you want selectall on all the fields but to me it should only be that way only if you use a picture with "@K".
Without "@K" it should act normally.
I modified tget and mget so that it would do a selectall when picture includes a "K" like "@K" .
My users appreciate the visual clue that selectall provides.

Marco,

To have 100% standard behavior on GETs please replace all the code in Class TGet that follows:

  case nKey >= 32 .and. nKey < 256

with

 return nil

but the problem is that then we loose Clipper GETs compatibility. We need to find a way to make them compatible there.

Ok, I think I have the right solution:

We are going to implement a new Class TEdit that uses a standard Windows Edit control with no related Clipper/Harbour GET at all, this way everything will be fine: Unicode support, etc

Antonio Linares wrote:Ok, I think I have the right solution:

We are going to implement a new Class TEdit that uses a standard Windows Edit control with no related Clipper/Harbour GET at all, this way everything will be fine: Unicode support, etc

Well, in fact it is already available and included in FWH

FWH\source\classes\edit.prg

and an example:

samples\testedit.prg