Re: [perl-win32-gui] Disabling RichEdit control

[felice . vittoria]

Hey guys,

I found a "fix" to my problem.    Here it is:

$EM_SETBKGNDCOLOR = 1091;

# enable RichEdit control and set background color to white
$M->rchText->SendMessage( $EM_SETBKGNDCOLOR, 0, 0xFFFFFF );
$M->rchText->InvalidateRect(1);
$M->rchText->Enable();

# disable RichEdit control and set background color to gray
$M->rchText->SendMessage( $EM_SETBKGNDCOLOR, 0, 0xC0C0C0 );
$M->rchText->InvalidateRect(1);
$M->rchText->Disable();

Felice