[perl-win32-gui-users] (no subject)

[Garside, T. <tr...@ga...>]

Aldo,

Here is another useful function for a RichEdit control:

    =
#########################################################################=
##
    # (@)METHOD:GetTextRange(START, LENGTH)
    # Returns LENGTH bytes of text from the RichEdit control, starting =
at START
void
GetTextRange(handle,start,length)
    HWND handle
    LONG start
    LONG length
PREINIT:
    TEXTRANGE tr;
    CHARRANGE cr;
    char * text;
    LRESULT count;
PPCODE:
    ZeroMemory(&tr, sizeof(TEXTRANGE));
    ZeroMemory(&cr, sizeof(CHARRANGE));
    if(length < 0) length =3D 0;
    if(start < 0) start =3D 0;
    text =3D (char *) safemalloc(length+1);
    cr.cpMin =3D start;
    cr.cpMax =3D start+length;
    tr.chrg =3D cr;
    tr.lpstrText =3D text;
    count =3D SendMessage(handle, EM_GETTEXTRANGE, 0, (LPARAM) =
(TEXTRANGE FAR *) &tr);
    EXTEND(SP, 1);
    XST_mPV(0, text);
    safefree(text);
    XSRETURN(1);


Trevor S Garside
tr...@ga...