Changeset: 237 fdbozzo - 07/05/2014 20:47:21:

- Agregado soporte de evaluación de propiedades desde archivo externo (props_*.txt)
- Agregado soporte de evaluación de propiedades por clase
- La propiedad Picture de una clase form se pierde y no muestra la imagen. No ocurre con la propiedad Picture de los controles (Fidel Charny)
- Algunas opciones del optiongroup pierden el width cuando se subclasan de una clase con autosize=.T. (Miguel Duran)

clean_copied_memo.prg

@@ -0,0 +1,23 @@
+LOCAL I, lcStrIn, lcStrOut, laStr(1), lcLeftDelim, lcRightDelim, lcStr, lnLines, lnPosDlr
+ON KEY LABEL CTRL+R DO clean_copied_memo.prg
+lcStrOut	= ''
+lcStrIn		= _CLIPTEXT
+lnLines		= ALINES(laStr, lcStrIn)
+lnPosDlr	= AT('.',laStr(1))
+
+*--
+lcLeftDelim		= IIF(lnPosDlr > 0 AND lnPosDlr < AT('=', laStr(1)), LEFT(laStr(1), lnPosDlr), '')
+lcRightDelim	= ' ='
+*--
+MESSAGEBOX( "LeftDelim = " + lcLeftDelim)
+
+FOR I = 1 TO lnLines
+	lcStr	= STREXTRACT( laStr(I), lcLeftDelim, lcRightDelim )
+	*IF EMPTY(lcStr)
+	*	lcStr	= STREXTRACT( laStr(I), '', lcRightDelim )
+	*ENDIF
+	laStr(I)	= lcStr
+	lcStrOut	= lcStrOut + CHR(13) + laStr(I)
+ENDFOR
+
+_CLIPTEXT	= SUBSTR( lcStrOut, 2 )