FiveTech Software tech support forums

... ),; oDlg:End(), lOk := .T. } ENDIF * oGet:bValid := bValid * @10,0 BUTTON oBtn PROMPT "" ACTION (oDlg:End(), lOk:=.T. ) OF oDlg oBtn:nStyle := nOr( WS_CHILD, WS_VISIBLE, BS_DEFPUSHBUTTON ) ACTIVATE DIALOG oDlg ; ON INIT (DlgAdjust(oDlg,oGet,oBtnAction,aDim,cHType), ; If(iHelp,GetBitMap(oGet,1,WHlp,nWidth,"16_F3"),)) ...

... Habría usar el estilo SBS_CENTERALIGN al crear el control. Para eso habría que modificar la clase TStatusBar así: #define SBS_CENTERALIGN 0x0004 ::nStyle = nOR( WS_CHILD, WS_VISIBLE, SBS_CENTERALIGN ) Pruébalo y a ver si funciona como deseas. Probaste con ? set message of _oWnd to cMensajeMenu ...

... BS_CENTER BS_RIGHT * Vertical Alignment Constant BS_TOP BS_VCENTER BS_BOTTOM * To Show Text Left side of Checkbox (Default Right) BS_LEFTTEXT oCb:nStyle := nOr(WS_CHILD, WS_VISIBLE, BS_AUTOCHECKBOX, WS_TABSTOP,....Either of Options of Your Choice) -Ramesh Babu

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