03e4452dba
- 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)
24 lines
683 B
Plaintext
24 lines
683 B
Plaintext
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 )
|