|
From: Itamar M. L. J. L. <ita...@gm...> - 2015-04-06 15:08:47
|
The error persist.
hedit.prg 2376 2015-04-06 13:44:39Z alkresin
#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= space(9), cB := space(9), cTitle := hwg_version()
//Please active <Ins> key!
INIT DIALOG oDlg clipper title cTitle AT 100,100 SIZE 500,200
@ 10,10 get oA VAR cA SIZE 80,25 picture "999999999" MAXLENGTH 9 //With
<Ins> key activated typing something
@ 10,40 get oB VAR cB SIZE 80,25 picture "999999999" MAXLENGTH 9 WHEN
{|| hwg_msginfo(str(len(cA))), .T.} //Other bug, When(flag) run n times
oDlg:Activate()
//and change space while <Ins> is activated
hwg_msginfo(str(len(cA)))
hwg_msginfo(str(len(cB)))
Same problem with other example.
#include "hwgui.ch"
Function main
LOCAL oDlg, cA:= "ABCDE FGHI JKLMNOP QRSTU VXYZW 12345 6", cB := space(60)
//Please active <Ins> key!
INIT DIALOG oDlg AT 100,100 SIZE 500,200
@ 10,10 get oA VAR cA SIZE 400,25 //Please copy all text
@ 10,40 get oB VAR cB SIZE 400,25 //Paste text here!! Stop in "P" :-(
oDlg:Activate()
hwg_msginfo(str(len(cB))) //and change space while <Ins> is activated
No clean buffers(space blank) of cB, it pushes spaces to the right corner,
if key <Del> n times, and <Ctrl+C> works fine.
Best regards,
Itamar M. Lins Jr.
|