Saludos Cordiales
Antonio,
Colegas
Cual es la capacidad maxima de un campo texto en un DIALOG
Antonio,
Colegas
Cual es la capacidad maxima de un campo texto en un DIALOG
PROCE MAIN(cMemo,cTitle,nWidth,nHeight)
LOCAL oDlgF,oMemo,oFontB,I
LOCAL oBtn
DEFAULT cMemo :="",;
nWidth :=410,;
nHeight:=200
cTitle:="Mensaje"
cMemo:=ALLTRIM(cMemo)
// cMemo:=LEFT(cMemo,4096) // Si remuevo este comentario genera incidencia, deseo limitar el contenido.
DEFINE FONT oFontB NAME "Arial" SIZE 0, -12 BOLD
DEFINE DIALOG oDlgF;
TITLE cTitle;
PIXEL OF oDp:oFrameDP;
STYLE nOr( DS_SYSMODAL, DS_MODALFRAME );
COLOR NIL,oDp:nGris SIZE nWidth,nHeight
@ 0,0 GET oMemo VAR cMemo MULTI READONLY SIZE 330,70 FONT oFontB HSCROLL OF oDlgF
@ 4,0 BUTTON obtn PROMPT "Ok" ACTION oDlgF:End() SIZE 30,20 OF oDlgF
ACTIVATE DIALOG oDlgF CENTERED;
ON INIT (oMemo:SetColor(NIL,16773862),;
oBtn:Move(nHeight-60,nWidth-80,60,23),;
oMemo:Move(0,0,nWidth-0,nHeight-(70),.T.),;
DPFOCUS(oBtn),;
.F.)
RETURN .T.
// EOF
