SAY - SELECCIONAR TEXTO

SAY - SELECCIONAR TEXTO

Postby Marco Augusto » Wed Jul 03, 2013 4:19 pm

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
Marco Augusto Rodriguez Manzo
FWH January 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
User avatar
Marco Augusto
 
Posts: 141
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Re: SAY - SELECCIONAR TEXTO

Postby postinelli » Wed Jul 03, 2013 6:06 pm

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 )
postinelli
 
Posts: 147
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 61 guests