- Code: Select all Expand view
WITH OBJECT oBrw:oCol(24)
:nEditType:=EDIT_BUTTON
:bEditBlock:={ | r,c,o | EditNotes(r,c,o,1) }
END
La función EditNotes la copie de unos de los ejemplos de FWH, y la uso para editar los datos de los campos memo, uno de los cuales esta en formate rtf. Al editar el campo memo puro, no pasa nada; pero al editar el campo con datos rtf me presenta un error, la funcion EditNotes es la siguiente:
- Code: Select all Expand view
- FUNCTION EditNotes( nRow, nCol, oCol, nTipo )
LOCAL oDlg, oGet, oBtn, oFnt, oFnt1, aPoint, cNotes:=""
cNotes := IF(nTipo=1, FIELD->ALINEACION, IF(nTipo=2, FIELD->PENALERRAD, FIELD->OBSERVACIO) )
aPoint := ClientToScreen( oCol:oBrw:hWnd, { nRow, nCol } )
nRow := aPoint[1]
nCol := aPoint[2]
DEFINE FONT oFnt NAME "Courier New" SIZE 0, -9
DEFINE FONT oFnt1 NAME GetSysFont() SIZE 0, -8
IF nTipo=3
DEFINE DIALOG oDlg FROM nRow, nCol TO nRow+230, nCol+352 PIXEL STYLE WS_POPUP FONT oFnt1
@ 02,02 RICHEDIT oGet VAR cNotes OF oDlg SIZE 172,96 PIXEL FILE cNotes READONLY
oGet:nClrText:=CLR_HBLUE
@ 102,127 BUTTON "&Volver" SIZE 47,10 PIXEL OF oDlg ACTION oDlg:End()
*oBtn:cToolTip:="Cierra ventana auxiliar"
ACTIVATE DIALOG oDlg ON INIT (Centra(oDlg), oGet:LoadAsRTF(cNotes), oGet:SetText(cNotes), ;
oGet:SetFontName("Ms Sans Serif"), oGet:SetFontSize(10) )
ELSE
DEFINE DIALOG oDlg FROM nRow, nCol TO nRow+230, nCol+352 PIXEL STYLE WS_POPUP FONT oFnt1
@ 02,02 GET oGet VAR cNotes TEXT SIZE 172,96 PIXEL OF oDlg READONLY FONT oFnt COLOR CLR_HBLUE
oGet:cToolTip:="Alineaciones e incidencias de ambos equipos"
@ 102,127 BUTTON oBtn PROMPT "&Volver" SIZE 47,10 PIXEL OF oDlg ACTION oDlg:End()
oBtn:cToolTip:="Cierra ventana auxiliar"
ACTIVATE DIALOG oDlg
ENDIF
oFnt:End()
oFnt1:End()
RETURN
El error es el siguiente: "Error FiveWin/3 Cannot create Dialog Box: Title: "
A la espera de sus comentario, un gran saludo
Fernando Espinoza
