Saludos al foro
Como podria seleccionar el texto de un SAY oSAY PROMPT "HOLA" de un dialogo
para copiarlo ( ctrl-c ) y pegarlo en otro lado
GRACIAS
SAY - SELECCIONAR TEXTO
-
- Posts: 122
- Joined: Wed Oct 12, 2005 1:03 pm
- Location: Cuernacava, Morelos Mexico
SAY - SELECCIONAR TEXTO
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
-
- Posts: 128
- Joined: Tue Jul 15, 2008 7:12 pm
- Location: Argentina
Re: SAY - SELECCIONAR TEXTO
yo hago así
Static oClp
......
DEFINE DIALOG oDlg RESOURCE "FACTIBLE" TITLE "Imágenes Scaneadas"
DEFINE CLIPBOARD oClp OF oDlg
REDEFINE GET oGet1 VAR cDNI ID 110 OF oDlg PICTURE "99999999" VALID EsCero(cDNI)
REDEFINE BUTTON ID 120 OF oDlg ACTION ( oGet1:Paste(), oDlg:Refresh(), oGet1:Setfocus() ) UPDATE
REDEFINE BUTTON ID 4001 OF oDlg ACTION oDlg:end()
ACTIVATE DIALOG oDlg CENTERED
oClp:Clear()
oClp:SetText( str(cDNI,8) )
imagino deberías hacer algo así
DEFINE DIALOG oDlg
DEFINE CLIPBOARD oClp OF oDlg
....
REDEFINE SAY oSay ID 111 OF oDlg
REDEFINE BUTTON ID 4001 OF oDlg ACTION oDlg:end()
....
ACTIVATE DIALOG oDlg CENTERED
oClp:Clear()
oClp:SetText( oSay )
Static oClp
......
DEFINE DIALOG oDlg RESOURCE "FACTIBLE" TITLE "Imágenes Scaneadas"
DEFINE CLIPBOARD oClp OF oDlg
REDEFINE GET oGet1 VAR cDNI ID 110 OF oDlg PICTURE "99999999" VALID EsCero(cDNI)
REDEFINE BUTTON ID 120 OF oDlg ACTION ( oGet1:Paste(), oDlg:Refresh(), oGet1:Setfocus() ) UPDATE
REDEFINE BUTTON ID 4001 OF oDlg ACTION oDlg:end()
ACTIVATE DIALOG oDlg CENTERED
oClp:Clear()
oClp:SetText( str(cDNI,8) )
imagino deberías hacer algo así
DEFINE DIALOG oDlg
DEFINE CLIPBOARD oClp OF oDlg
....
REDEFINE SAY oSay ID 111 OF oDlg
REDEFINE BUTTON ID 4001 OF oDlg ACTION oDlg:end()
....
ACTIVATE DIALOG oDlg CENTERED
oClp:Clear()
oClp:SetText( oSay )