GET COPY/PASTE and crlf

[MarcoBoschi]

Hi,
If a select the text in oGet1 and press CTRL_C
Then I move in the second get oGet2
And Press CTRL_V
I find only "Marco "

Any hints?

marco

Code: Select all  Expand view

#include "fivewin.ch"

#define crlf CHR(13)+CHR(10)


FUNCTION main()
   local oDlg
   local oGet1  , cGet1  := "Marco " + crlf + "Boschi     "
   local oGet2  , cGet2  := "Enrico Maria Giordano        "
   define dialog oDlg

   @ 1,1 get oGet1 var cGet1 of oDlg

   @ 2,1 get oGet2 var cGet2 of oDlg

   ACTIVATE DIALOG oDlg CENTER

return nil
 

[James Bott]

Try making both of the GETs multiline.

James

[MarcoBoschi]

James,
it works!
But I need single line get objects.
The problem is to allow paste text after removing crlf.

marco

[James Bott]

Note that a "multiline" Get can actually be only one line high. "Multiline" is a property not a dimension (in this case).

Please explain why you would have a CRLF in a Get that is only one line high, and in more detail what you are trying to do.

James

[MarcoBoschi]

James,
I have several gets for free notes.
Sometimes user copy from web pages text in one or more lines and paste it into a single line get.

If the solution is to use in these gets "multiline" property how have I to define them?

Many thanks

marco

FUNCTION main()
local oDlg
local oGet1 , cGet1 := "Marco "
local oGet2 , cGet2 := "Enrico Maria Giordano "
define dialog oDlg

@ 1,1 get oGet1 var cGet1 of oDlg

@ 2,1 get oGet2 var cGet2 of oDlg

ACTIVATE DIALOG oDlg CENTER

return nil

[Enrico Maria Giordano]

Your sample works fine here using FWH 11.09.

EMG

[MarcoBoschi]

EMG,
did you test the first sample?
The one containing crlf in the first get?
King regards
marco

[James Bott]

Marco,

The first problem is that the field length for the second field wasn't long enough so the data was getting truncated and it appeared that the CRLF was causing it. Try this:

Code: Select all  Expand view

#include "fivewin.ch"

FUNCTION main()
   local oDlg
   local oGet1  , cGet1  := "Marco " + CRLF + "Boschi     "
   local oGet2  , cGet2  := "Enrico Maria Giordano                  " // longer

   define dialog oDlg

   @ 1,1 get oGet1 var cGet1 of oDlg

   @ 2,1 get oGet2 var cGet2 of oDlg

    ACTIVATE DIALOG oDlg CENTER

return nil

Now with the longer field you can use bChange to strip out the CRLF's:

Code: Select all  Expand view

#include "fivewin.ch"

FUNCTION main()
   local oDlg
   local oGet1  , cGet1  := "Marco " + CRLF + "Boschi     "
   local oGet2  , cGet2  := "Enrico Maria Giordano                  "

   define dialog oDlg

   @ 1,1 get oGet1 var cGet1 of oDlg

   @ 2,1 get oGet2 var cGet2 of oDlg

    oGet2:bChange := {|,,o| o:oGet:buffer := strtran(o:oGet:buffer,CRLF,"") }

   ACTIVATE DIALOG oDlg CENTER

return nil

Regards,
James

[Enrico Maria Giordano]

EMG,
did you test the first sample?
The one containing crlf in the first get?

Yes.

EMG

[MarcoBoschi]

James,
I've compiled your last posted code
I have this error
Probably I'm using a too old version of fwh
Many thanks

marco
this is the error

Application
===========
Path and name: C:\gc\james.exe (32 bits)
Size: 1,902,592 bytes
Time from start: 0 hours 0 mins 10 secs
Error occurred at: 11/03/11, 09:37:00
Error description: Error BASE/1126 Argument error: STRTRAN
Args:
[ 1] = U
[ 2] = C

[ 3] = C

Stack Calls
===========
Called from: => STRTRAN(0)
Called from: james.prg => (b)MAIN(16)
Called from: tget.prg => TGET:KEYCHAR(1091)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: control.prg => TCONTROL:HANDLEEVENT(1469)
Called from: tget.prg => TGET:HANDLEEVENT(586)
Called from: .\source\classes\WINDOW.PRG => _FWH(3347)
Called from: => DIALOGBOXINDIRECT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: james.prg => MAIN(18)

[MarcoBoschi]

To EMG,
Please could you send me this little sample compiled with new version?
I have to verify how many *little* problems are solved.

Thank you

#include "fivewin.ch"

#define crlf CHR(13)+CHR(10)

FUNCTION main()
local oDlg
local oGet1 , cGet1 := "Marco Boschi "
local oGet2 , cGet2 := "Enrico Maria Giordano "

define dialog oDlg

@ 1,1 get oGet1 var cGet1 of oDlg

@ 2,1 get oGet2 var cGet2 of oDlg

ACTIVATE DIALOG oDlg CENTER

return nil

[Enrico Maria Giordano]

Please note that this second sample doesn't use CRLF. Do you want me to compile this new version or the first version that started this topic?

EMG

[MarcoBoschi]

It's the same
thanks

[Enrico Maria Giordano]

Sent.

EMG

[MarcoBoschi]

Thanks

marco