irgendwie verstehe ich das folgende nicht:
Code: Alles auswählen
FOR nI := 1 TO Len(ar_get)
lEditProtect := .F.
IF ar_get[nI]:nLaenge = 500
lEditProtect := .T.
ENDIF
@ ar_get[nI]:nOben,ar_get[nI]:nLinks DCSAY ar_get[nI]:text;
OBJECT oDialogZUsatz:oText;
PARENT oDialogZUsatz:oRahmenKopf;
SIZE 0
IF ValType(ar_get[nI]:eingabe) <> "U" // es muß was drin stehen, sonst macht es wenig Sinn
@ DCGUI_ROW,DCGUI_COL + IF(! Empty(ar_get[nI]:text),5,0) DCGET ar_get[nI]:eingabe;
EDITPROTECT {|| lEditProtect}; <----- Hier...
PARENT oDialogZUsatz:oRahmenKopf;
PICTURE ar_get[nI]:picture;
TABSTOP;
TOOLTIP ar_get[nI]:cTooltip
ENDIF
NEXT