FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
Posted: Mon Mar 25, 2024 10:50 AM

Hola a todos,

Veo que en la l贸gica del control TEDIT est谩 este c贸digo:

::nStyle = nOr( ::nStyle, ES_READONLY )

驴C贸mo se puede revertir este c贸digo en tiempo de ejecuci贸n y si es necesario volverlo a aplicar?

Muchas gracias,

Un Saludo

Carlos G.



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

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
Posted: Mon Mar 25, 2024 11:26 AM

Carlos,

Prueba con:

oEdit:WinStyle( ES_READONLY, .F. ) // 贸 .T. si necesitas volver a aplicarlo

regards, saludos

Antonio Linares
www.fivetechsoft.com
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
Posted: Mon Mar 25, 2024 01:57 PM
Antonio Linares wrote:Carlos,

Prueba con:

oEdit:WinStyle( ES_READONLY, .F. ) // 贸 .T. si necesitas volver a aplicarlo
Gracias Antonio,

Pero no ha funcionado, permit铆a editar el texto tanto con .F. como con .T.; le he aplicado:

oEdit:WinStyle( 2048 /* ES_READONLY */ , .F. )

2048 lo he encontrado en winapi.ch

A ver si se te ocurre algo.
Es un control que me muestra un texto que seg煤n que condiciones debe permitir editarlo o no.

Muchas gracias,

Un Saludo

Carlos G.



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

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
Posted: Mon Mar 25, 2024 02:37 PM

Carlos, 驴es posible publicar un ejemplo completo para probar, por favor?

Gracias.

Regards, saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
Posted: Mon Mar 25, 2024 05:21 PM
Code (fw): Select all Collapse
 
#define EM_SETREADONLY 聽 聽 聽 聽 聽0x00CF

//
//

聽 聽 聽If( oEdit:WinStyle( ES_READONLY ), oEdit:SendMsg( EM_SETREADONLY, 0 ), ;
聽 聽 聽 聽 聽oEdit:SendMsg( EM_SETREADONLY, 1 ) ) }
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Como revertir ::nStyle = nOr( ::nStyle, ES_READONLY )
Posted: Tue Mar 26, 2024 04:43 AM

You can use the above code to Toggle ReadOnly status during runtime. This code is tested.

From the next version, we have provided DATA lReadOnly. We can toggle this at runtime with oEdit:lReadOnly := .T. or .F..

Regards



G. N. Rao.

Hyderabad, India

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions