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

Carlos,

Prueba con:

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

Hello,
I tryied to call oEdit:GetOleInterface and returned .T., how can i get the IRichEditOle ?
Antonino

... estar alineado a la izquierda, esté alineado a la derecha ??? Gracias. Utiliza la clausula RIGHT #command @ <nRow>, <nCol> EDIT [ <oEdit> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ <lMemo: MEMO,TEXT,MULTILINE> ] ; [ SIZE <nWidth>, <nHeight> ...

Con o sin lTruePixel... el resultado el mismo. @ 75,25 EDIT oEdit VAR cVarEdit SIZE 300 / 2, 22 / 2 LIMITTEXT BY 30 CHARS PIXEL OF oFldr:aDialogs[1] Así, si va bien... El caso es que ... porqué tengo que en el diálogo del TFolderEx, ponerlo de esta manera??? ...

bGotFocus, hace el cambio de fuente correctamente oEdit: bGotFocus : = { | o | o: SetColor ( CLR_HRED, CLR_YELLOW ) } Ahora bien, bLostFocus bien si se sale del Edit con teclado <Tab>, pero no surte efecto si se hace con raton oEdit: bLostFocus ...

He mirado el prg edit.prg de la clase TEdit()...
SetLimitText(n) para limitar la longitud.

@ 300,40 EDIT oEdit VAR cVar SIZE 280,22 PIXEL OF oWnd
oEdit:SetLimitText(30)

Metodos SelectAll()
y otros como SetSel() que deben heredar de TControl.

Iré investigando!!!


Un Saludo,
Xevi.

... error: "syntax error at '@'" 4 errors No code generated ** error 1 ** deleting .\obj\pme.OBJ DEFINE BUTTONBAR oBar 3D SIZE 40,40 OF oEdit:oDlg DEFINE lBUTTON oBtn OF oBar; ACTION (oEditOm:aMemo[8]:=oEdit:oWnd:oClient:GetText(),; oEdit:lCancel:=.t.,oEdit:nOption:=0,oEdit:Close(),; ...

... the color does not want to be set. What am I missing? Thanks, Vytas FUNCTION Test_Chk(oSpec_Nu1_1,oGenus1_1,oSpecies1_1,oVariety1_1,oPercent1_1,oEdit,aLookup) Sp := oSpec_Nu1_1:varGet() Loc := ASCAN(aLookup, {|aVal| aVal[1] == Sp}) IF Loc > 0 oGenus1_1:VarPut(aLookup[Loc,2]) oSpecies1_1:VarPut(aLookup[Loc,3]) ...

... color of a field to change. Am I missing a ch file or is something else causing it not to work? REDEFINE GET oLand_Cover VAR LAND_COVER ID 1009 OF oEdit UPDATE VALID (oSOIL_MOIST:setColor(CLR_YELLOW, CLR_BLUE),oEdit:Update(),.t.) If I populate the valid statement with values to autofill it works ...

Vytas, This syntax is incorrect: REDEFINE GET oLand_Cover VAR LAND_COVER ID 1009 OF oEdit UPDATE VALID oEdit:oLand_Pos:setColor(CLR_HGRAY, CLR_HGRAY) It should be something like this: REDEFINE GET oLand_Cover VAR LAND_COVER ID 1009 OF oEdit UPDATE ; VALID (oLand_Pos:setColor(CLR_HGRAY, ...

The VALID clause must return a logical value:

VALID ( oEdit:oLand_Pos:setColor( CLR_HGRAY, CLR_HGRAY ), .T. )

With the current FWH version, what you want to do is already implemented and it is as easy as:

SetGetColorFocus( CLR_YELLOW ) // or whatever color you may want to use for the focused GET

... anything to work. I searched the web without any luck in finding any sample code doing what I want to do. Thanks again, Vytas ... DEFINE DIALOG oEdit RESOURCE "ATTRIBUTES" REDEFINE SAY oPoly_Area VAR POLY_AREA ID 1007 OF oEdit UPDATE REDEFINE GET oLand_Base VAR LAND_BASE ID 1008 OF ...

Cristobal,

Ese es el comportamiento por defecto de un Edit de Windows.

Para cambiarlo tendrias que usar bGotFocus y que desde ahí no se seleccione nada:

oEdit:bGotFocus = { || oEdit:SetSel( 0, 0 ) }