Métodos Cut y Paste de TGet y ::bpostkey.

Métodos Cut y Paste de TGet y ::bpostkey.

Postby FiveWiDi » Mon Apr 16, 2007 7:17 am

Métodos Cut y Paste de TGet y ::bpostkey.

Estoy aplicando las novedades de la versión 7.04 de FWH, entre ellas el uso de ::bpostkey en lugar de ::bchange.

En mi caso el uso que hacía de ::bchange era para realizar una búsqueda en un Listbox.

Según el uso que hagan ustedes y su experiencia, no creen que sería adecuado que ::bpostkey también se lanzará cuando el método ::Cut y ::Paste?

Antonio, como lo ves?

Saludos y gracias.
Carlos G.
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm

Postby Antonio Linares » Mon Apr 16, 2007 8:39 am

Carlos,

Sí, parece lógico. Habría que probarlo y comprobar que no genere algún error.

Lo has probado ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby FiveWiDi » Mon Apr 16, 2007 9:29 am

Antonio Linares wrote:Carlos,

Sí, parece lógico. Habría que probarlo y comprobar que no genere algún error.

Lo has probado ?


Aún no, lo intentaré entre hoy y mañana.

Saludos.
Carlos G.
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm

Postby FiveWiDi » Mon Apr 16, 2007 5:33 pm

Antonio Linares wrote:Carlos,

Sí, parece lógico. Habría que probarlo y comprobar que no genere algún error.

Lo has probado ?


Buenas a todos,

He probado la modificación (añadir el EVal() de ::bPostkey) del método HandleEvent() de TGet.prg, y de momento no he tenido problemas y hace lo que deseo.

El método al final queda:

.../...
case nMsg == WM_PASTE
CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 )
::oGet:buffer = Pad( GetWindowText( ::hWnd ), Len( ::oGet:buffer ) )
DEFINE CLIPBOARD oClp OF Self FORMAT TEXT
::oGet:Pos += Len( oClp:GetText() )
oClp:End()
::oGet:Assign()
Eval( ::bPostKey, Self, ::oGet:Buffer ) // FWD 16/04/2007
return 0
.../...

Saludos
Carlos G.
FiveWiDi
 
Posts: 1190
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 70 guests