FiveTech Software tech support forums

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..

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

Gracias.

Regards, saludos.

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 ...

Carlos,

Prueba con:

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

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,

... oBtn[3] PROMPT "&Three" OF oDlg PIXEL SIZE 50,30 ACTION MsgInfo("Three")           oBtn[2]:nStyle:= nOR(WS_CHILD, WS_VISIBLE)    ACTIVATE DIALOG oDlg CENTEREDRETURN NIL Hi Carlos, Your example works great but if i put this solution ...

... cImage ) Para añadir cualquier imagenm no sólo mapas de bits e iconos. * Clase TListView: (source\classes\tlistvie.prg) - Nuevo método SetStyle( nStyle ) Por favor, revisa el código fuente prg para conocer la lista de estilos. * ListView samples: (1) listvie1.prg revisado (2) listvie2.prg implementación ...

... New Method AddImage( cImage ) To add any image, not only bitmaps and icons. * TListView class: (source\classes\tlistvie.prg) New Method SetStyle( nStyle ) Refer prg source for the list of styles. * ListView: Samples: (1) revised litvie1.prg amd new sample (2) listvie2.prg for Unicode implementation ...

... 4294903408}, {CCAPTION, }, {CVARNAME, oSayActive}, {NID, 102}, {TWINDOW:NTOP, 864}, {TWINDOW:NLEFT, 10}, {NBOTTOM, 893}, {NRIGHT, 649.00}, {NSTYLE, 1342177280}, {NCLRPANE, 16777215}, {NCLRTEXT, 0}, {ACONTROLS, {}}, {OBRUSH, {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, ...

hi, i want to create a Window which are "on TOP" of all other and will "stay" like MsgInfo() --- in Help Dialog <nStyle> An optional DialogBox style. There are several samples in the SAMPLES\ subdirectory showing you how to manipulate this value. Windows: <nStyle> ...

nStyle := nAnd( ::nStyle, nNot( LVS_ICON ) ) nStyle := GetWindowLong( ::hWnd, GWL_STYLE )SetWindowLong( ::hWnd, GWL_STYLE, nAnd( nStyle, nNot( nRemveStyle ) ) )  Another way: ...

... the dialog oLbxMesi:=TXbrCheck():New(132, 5, 80, 110, oDlg) // ????????????? not create the xbrowse on my ccordinates oLbxMesi:HasBorder(.f.) // nStyle(WS_NOBORDER) oLbxMesi:setarray(aMesi) oLbxMesi:SetMultiSelectCol() oLbxMesi:aCols[1]:cHeader := i18n("Mesi") oLbxMesi:aCols[1]:nWidth ...

... ,.F. , , , 7 , , , ,1) //METHOD Say( nRow, nCol, xValue , cFont , nSize , lBold , lItalic ,lUnderLine, nAlign, nColor, nFondo , nOrien , nStyle , cFormat ) CLASS TExcelScript Como que "explota" el ole y el error sale en cualquier parte, adentro de un do while que recorre una ...

Gracias por la contestación. En la clase original de Paco García el estilo es: ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_CLIPSIBLINGS, WS_CLIPCHILDREN, WS_TABSTOP, WS_VSCROLL, WS_BORDER ) Probando a quitar el WS_BORDER me queda el control ... sin el borde. De esta ...