FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Métodos Cut y Paste de TGet y ::bpostkey.
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Métodos Cut y Paste de TGet y ::bpostkey.
Posted: Mon Apr 16, 2007 07: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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Métodos Cut y Paste de TGet y ::bpostkey.
Posted: Mon Apr 16, 2007 08: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
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Métodos Cut y Paste de TGet y ::bpostkey.
Posted: Mon Apr 16, 2007 09: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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Métodos Cut y Paste de TGet y ::bpostkey.
Posted: Mon Apr 16, 2007 05: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 )
::buffer = Pad( GetWindowText( ::hWnd ), Len( ::buffer ) )
DEFINE CLIPBOARD oClp OF Self FORMAT TEXT
::Pos += Len( oClp:GetText() )
oClp:End()
::Assign()
Eval( ::bPostKey, Self, ::Buffer ) // FWD 16/04/2007
return 0
.../...

Saludos
Carlos G.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion